diff options
author | Damien Doligez <damien.doligez-inria.fr> | 2000-08-23 17:13:53 +0000 |
---|---|---|
committer | Damien Doligez <damien.doligez-inria.fr> | 2000-08-23 17:13:53 +0000 |
commit | 0b9d867f2f0dfe7b598512b493f3f337acc2966a (patch) | |
tree | e14a5f070aec68c1229d1c6d5b3bbe197c46316e /byterun/memory.h | |
parent | 3d7b7c2e37f7cd35d77a5bce55bc76481b2195ff (diff) | |
download | ocaml-0b9d867f2f0dfe7b598512b493f3f337acc2966a.tar.gz |
petit probleme avec Assert
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3284 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/memory.h')
-rw-r--r-- | byterun/memory.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/byterun/memory.h b/byterun/memory.h index e8d4b14fc9..7d18767d5d 100644 --- a/byterun/memory.h +++ b/byterun/memory.h @@ -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 (); \ } \ } \ |