diff options
| author | Luc Maranget <luc.maranget@inria.fr> | 2001-02-19 20:27:52 +0000 |
|---|---|---|
| committer | Luc Maranget <luc.maranget@inria.fr> | 2001-02-19 20:27:52 +0000 |
| commit | eb7578b8db11dbed6960a35abab066ca514592ff (patch) | |
| tree | ad68142169fee502c7f60d073af69121c726495d /byterun/fix_code.c | |
| parent | a9c4a16caaac6a3fe6907dd87cc63366fc492ef8 (diff) | |
optimsation pm a donf
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3427 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/fix_code.c')
| -rw-r--r-- | byterun/fix_code.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/byterun/fix_code.c b/byterun/fix_code.c index 42df6333e..4916af8eb 100644 --- a/byterun/fix_code.c +++ b/byterun/fix_code.c @@ -115,10 +115,12 @@ void thread_code (code_t code, asize_t len) for (p = code; p < code + len; /*nothing*/) { opcode_t instr = *p; if (instr < 0 || instr > STOP){ + /* fatal_error_arg ("Fatal error in fix_code: bad opcode (%lx)\n", (char *)(long)instr); + */ + instr = STOP; } - *p++ = (opcode_t)(instr_table[instr] - instr_base); if (instr == SWITCH) { uint32 sizes = *p++; |