diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2003-12-29 22:15:02 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2003-12-29 22:15:02 +0000 |
| commit | 31943bac1db3351118c7f911db99bd567f02a883 (patch) | |
| tree | 053244070a0a7f612d637a0547f0d851a2dd024a /byterun/fix_code.c | |
| parent | dbf40e0b61af6f34d4a2736be1f0562ee5e8a52f (diff) | |
depollution suite (PR#1914 et PR#1956); byterun/weak.c: PR#1929 suite
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6041 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/fix_code.c')
| -rw-r--r-- | byterun/fix_code.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/byterun/fix_code.c b/byterun/fix_code.c index 886dcbb07..d0969e3c3 100644 --- a/byterun/fix_code.c +++ b/byterun/fix_code.c @@ -45,7 +45,7 @@ void load_code(int fd, asize_t len) code_size = len; start_code = (code_t) stat_alloc(code_size); if (read(fd, (char *) start_code, code_size) != code_size) - fatal_error("Fatal error: truncated bytecode file.\n"); + caml_fatal_error("Fatal error: truncated bytecode file.\n"); MD5Init(&ctx); MD5Update(&ctx, (unsigned char *) start_code, code_size); MD5Final(code_md5, &ctx); @@ -118,9 +118,9 @@ 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); + /* FIXME -- should Assert(false) ? + caml_fatal_error_arg ("Fatal error in fix_code: bad opcode (%lx)\n", + (char *)(long)instr); */ instr = STOP; } |