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

petit probleme avec Assert 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3284 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2000-08-23 17:13:53 +00:00
parent 3d7b7c2e37
commit 0b9d867f2f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
byterun/memory.h
View File

@ -57,8 +57,8 @@ color_t allocation_color (void *hp);
#define DEBUG_clear(result, wosize)
#endif
#define Alloc_small(result, wosize, tag) { Assert (wosize >= 1); \
Assert ((tag_t) tag < 256); \
#define Alloc_small(result, wosize, tag) { CAMLassert (wosize >= 1); \
CAMLassert ((tag_t) tag < 256); \
young_ptr -= Bhsize_wosize (wosize); \
if (young_ptr < young_limit){ \
Setup_for_gc; \
@ -85,7 +85,7 @@ color_t allocation_color (void *hp);
&& ! (Is_block (_old_) && Is_young (_old_))){ \
*ref_table_ptr++ = (fp); \
if (ref_table_ptr >= ref_table_limit){ \
Assert (ref_table_ptr == ref_table_limit); \
CAMLassert (ref_table_ptr == ref_table_limit); \
realloc_ref_table (); \
} \
} \