diff options
Diffstat (limited to 'byterun/interp.c')
| -rw-r--r-- | byterun/interp.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/byterun/interp.c b/byterun/interp.c index fcb3e2c470..a393f98e36 100644 --- a/byterun/interp.c +++ b/byterun/interp.c @@ -827,34 +827,34 @@ value interprete(code_t prog, asize_t prog_size) Instruct(C_CALL1): Setup_for_c_call; - accu = cprim[*pc](accu); + accu = Primitive(*pc)(accu); Restore_after_c_call; pc++; Next; Instruct(C_CALL2): Setup_for_c_call; - accu = cprim[*pc](accu, sp[1]); + accu = Primitive(*pc)(accu, sp[1]); Restore_after_c_call; sp += 1; pc++; Next; Instruct(C_CALL3): Setup_for_c_call; - accu = cprim[*pc](accu, sp[1], sp[2]); + accu = Primitive(*pc)(accu, sp[1], sp[2]); Restore_after_c_call; sp += 2; pc++; Next; Instruct(C_CALL4): Setup_for_c_call; - accu = cprim[*pc](accu, sp[1], sp[2], sp[3]); + accu = Primitive(*pc)(accu, sp[1], sp[2], sp[3]); Restore_after_c_call; sp += 3; pc++; Next; Instruct(C_CALL5): Setup_for_c_call; - accu = cprim[*pc](accu, sp[1], sp[2], sp[3], sp[4]); + accu = Primitive(*pc)(accu, sp[1], sp[2], sp[3], sp[4]); Restore_after_c_call; sp += 4; pc++; @@ -863,7 +863,7 @@ value interprete(code_t prog, asize_t prog_size) int nargs = *pc++; *--sp = accu; Setup_for_c_call; - accu = cprim[*pc](sp + 1, nargs); + accu = Primitive(*pc)(sp + 1, nargs); Restore_after_c_call; sp += nargs; pc++; |