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

10
byterun/misc.c
View File

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