diff options
Diffstat (limited to 'bytecomp/emitcode.ml')
| -rw-r--r-- | bytecomp/emitcode.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bytecomp/emitcode.ml b/bytecomp/emitcode.ml index d68b92b33..186d48894 100644 --- a/bytecomp/emitcode.ml +++ b/bytecomp/emitcode.ml @@ -208,7 +208,7 @@ let emit_instr = function | Kraise -> out opRAISE | Kcheck_signals -> out opCHECK_SIGNALS | Kccall(name, n) -> - if n <= 4 + if n <= 5 then (out (opC_CALL1 + n - 1); slot_for_c_prim name) else (out opC_CALLN; out_int n; slot_for_c_prim name) | Knegint -> out opNEGINT | Kaddint -> out opADDINT |