Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Typo in debug code 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7138 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2005-10-18 14:03:43 +00:00
parent 155209cad3
commit 2bc5259ba6
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
byterun/misc.c
View File

@ -73,8 +73,8 @@ char *caml_aligned_malloc (asize_t size, int modulo, void **block)
aligned_mem = (((uintnat) raw_mem / Page_size + 1) * Page_size);
#ifdef DEBUG
{
uintlong *p;
uintlong *p0 = (void *) *block,
uintnat *p;
uintnat *p0 = (void *) *block,
*p1 = (void *) (aligned_mem - modulo),
*p2 = (void *) (aligned_mem - modulo + size),
*p3 = (void *) ((char *) *block + size + Page_size);