diff options
| author |  Samuel Mimram <smimram@debian.org> | 2006-11-21 21:38:49 +0000 |
|---|---|---|
| committer | Samuel Mimram <smimram@debian.org> | 2006-11-21 21:38:49 +0000 |
| commit | 70b9be8acc1d1ada178a95c1cd4013506e9d0d1b (patch) | |
| tree | f672a286d962cc67c95874b3b60402fc957870b6 /kernel/byterun/coq_values.c | |
| parent | a5bd4e097a94cc4f863bf4d4bcc5ce592c30ba47 (diff) | |
| parent | 208a0f7bfa5249f9795e6e225f309cbe715c0fad (diff) | |
Merge commit 'upstream/8.1.gamma' into 8.1
Diffstat (limited to 'kernel/byterun/coq_values.c')
| -rw-r--r-- | kernel/byterun/coq_values.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/kernel/byterun/coq_values.c b/kernel/byterun/coq_values.c index baf3ab09..34b885e8 100644 --- a/kernel/byterun/coq_values.c +++ b/kernel/byterun/coq_values.c @@ -27,8 +27,7 @@ value coq_kind_of_closure(value v) { if (Is_instruction(c, GRAB)) return Val_int(0); if (Is_instruction(c, RESTART)) {is_app = 1; c++;} if (Is_instruction(c, GRABREC)) return Val_int(1+is_app); - if (Is_instruction(c, COGRAB)) return Val_int(3+is_app); - if (Is_instruction(c, MAKEACCU)) return Val_int(5); + if (Is_instruction(c, MAKEACCU)) return Val_int(3); return Val_int(0); } |