From 331b2d89c3dc4fb7e1b51276a5a9e37a6c8c8b3a Mon Sep 17 00:00:00 2001
From: Damien Doligez <damien.doligez-inria.fr>
Date: Wed, 31 Dec 2003 14:20:40 +0000
Subject: depollution suite (PR#1914, PR#1956)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6044 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
byterun/fix_code.c | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
(limited to 'byterun/fix_code.c')
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
--
cgit v1.2.3-70-g09d2