diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2003-12-31 14:20:40 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2003-12-31 14:20:40 +0000 |
| commit | 331b2d89c3dc4fb7e1b51276a5a9e37a6c8c8b3a (patch) | |
| tree | 305f55662dc4f3e95d7aac3ffd0659112c27e1df /byterun/fix_code.c | |
| parent | fc3a69ce89605c92e3b65d17241a5e23644fc08e (diff) | |
depollution suite (PR#1914, PR#1956)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6044 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/fix_code.c')
| -rw-r--r-- | byterun/fix_code.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/byterun/fix_code.c b/byterun/fix_code.c index d0969e3c3..81fef5731 100644 --- a/byterun/fix_code.c +++ b/byterun/fix_code.c @@ -43,18 +43,18 @@ void load_code(int fd, asize_t len) struct MD5Context ctx; code_size = len; - start_code = (code_t) stat_alloc(code_size); + start_code = (code_t) caml_stat_alloc(code_size); if (read(fd, (char *) start_code, code_size) != code_size) caml_fatal_error("Fatal error: truncated bytecode file.\n"); - MD5Init(&ctx); - MD5Update(&ctx, (unsigned char *) start_code, code_size); - MD5Final(code_md5, &ctx); + caml_MD5Init(&ctx); + caml_MD5Update(&ctx, (unsigned char *) start_code, code_size); + caml_MD5Final(code_md5, &ctx); #ifdef ARCH_BIG_ENDIAN fixup_endianness(start_code, code_size); #endif if (debugger_in_use) { len /= sizeof(opcode_t); - saved_code = (unsigned char *) stat_alloc(len); + saved_code = (unsigned char *) caml_stat_alloc(len); for (i = 0; i < len; i++) saved_code[i] = start_code[i]; } #ifdef THREADED_CODE |