diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-11 18:07:22 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-11 18:07:22 +0000 |
| commit | e8c57efb59fbeaf1d35046f7cabef0d4132d99ba (patch) | |
| tree | ecf47dc361cd2cd31df543a306c9f9c149e04ccc /byterun/interp.c | |
| parent | bf3897a27ad417cffaa7509046ee5cd10f13b469 (diff) | |
| download | ocaml-e8c57efb59fbeaf1d35046f7cabef0d4132d99ba.tar.gz | |
Ajout de l'instruction C_CALL5.
meta.c eclate en obj.c et meta.c.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@82 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/interp.c')
| -rw-r--r-- | byterun/interp.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/byterun/interp.c b/byterun/interp.c index cb9f55d1be..56c831e81a 100644 --- a/byterun/interp.c +++ b/byterun/interp.c @@ -725,6 +725,13 @@ value interprete(prog, prog_size) sp += 3; pc++; Next; + Instruct(C_CALL5): + Setup_for_c_call; + accu = cprim[*pc](accu, sp[1], sp[2], sp[3], sp[4]); + Restore_after_c_call; + sp += 4; + pc++; + Next; Instruct(C_CALLN): { int nargs = *pc++; *--sp = accu; |