diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 1998-10-02 13:02:32 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 1998-10-02 13:02:32 +0000 |
| commit | 1785aa4ef9afce6807d5d810687b376620618cf9 (patch) | |
| tree | e11f59bd40aa82a9cff2f63de8ee9e9e27a619be /byterun/interp.c | |
| parent | 89074600b8f8425a829f253a27580b5548fd8193 (diff) | |
portage MacOS standalone: T=0
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2111 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/interp.c')
| -rw-r--r-- | byterun/interp.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/byterun/interp.c b/byterun/interp.c index 8c4881d51..abe1867ed 100644 --- a/byterun/interp.c +++ b/byterun/interp.c @@ -5,7 +5,7 @@ /* Xavier Leroy, projet Cristal, INRIA Rocquencourt */ /* */ /* Copyright 1996 Institut National de Recherche en Informatique et */ -/* Automatique. Distributed only by permission. */ +/* en Automatique. Distributed only by permission. */ /* */ /***********************************************************************/ @@ -32,8 +32,7 @@ #if macintosh #include "rotatecursor.h" -extern int volatile have_to_interact; -#endif +#endif /* macintosh */ /* Registers for the abstract machine: pc the code pointer @@ -182,7 +181,7 @@ value interprete(code_t prog, asize_t prog_size) if (prog == NULL) { /* Interpreter is initializing */ #ifdef THREADED_CODE - instr_table = (char **) jumptable; + instr_table = (char **) jumptable; instr_base = Jumptbl_base; #endif return Val_unit; @@ -226,6 +225,7 @@ value interprete(code_t prog, asize_t prog_size) Assert(sp <= stack_high); #endif curr_instr = *pc++; + dispatch_instr: switch(curr_instr) { #endif @@ -516,7 +516,7 @@ value interprete(code_t prog, asize_t prog_size) *--sp = accu; /* fallthrough */ Instruct(OFFSETCLOSURE2): accu = env + 2 * sizeof(value); Next; - + /* Access to global variables */ |