diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 1998-10-26 19:19:32 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 1998-10-26 19:19:32 +0000 |
| commit | 3be947947e3249a9b362fc790d377e43c4108a62 (patch) | |
| tree | fa0c0fbdd5b3148f926e2f7f15090f7bd7d9a44d /byterun/memory.c | |
| parent | 59cb8750d21154c767d7224cd0f726b5da62d59b (diff) | |
| download | ocaml-3be947947e3249a9b362fc790d377e43c4108a62.tar.gz | |
nouvelles fonctions alloc/alloc_small
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2134 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/memory.c')
| -rw-r--r-- | byterun/memory.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/byterun/memory.c b/byterun/memory.c index 951040e700..a2a9f2c0a8 100644 --- a/byterun/memory.c +++ b/byterun/memory.c @@ -286,8 +286,7 @@ void adjust_gc_speed (mlsize_t mem, mlsize_t max) void initialize (value *fp, value val) { *fp = val; - Assert (Is_in_heap (fp)); - if (Is_block (val) && Is_young (val)){ + if (Is_in_heap (fp) && Is_block (val) && Is_young (val)){ *ref_table_ptr++ = fp; if (ref_table_ptr >= ref_table_limit){ realloc_ref_table (); |