From 0b9d867f2f0dfe7b598512b493f3f337acc2966a Mon Sep 17 00:00:00 2001 From: Damien Doligez Date: Wed, 23 Aug 2000 17:13:53 +0000 Subject: petit probleme avec Assert git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3284 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- byterun/memory.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'byterun/memory.h') 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 (); \ } \ } \ -- cgit v1.2.1