diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2000-04-03 08:34:22 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2000-04-03 08:34:22 +0000 |
| commit | a843096a997d0a2914b8cbabd952e4a230d07598 (patch) | |
| tree | 3cf08ef969f2dead4a2dcf46ae7219070ff5b560 /byterun/minor_gc.c | |
| parent | 151d3466468edb1ecc98d9475abc90ca14418f8f (diff) | |
codes pour faciliter le debug
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3030 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/minor_gc.c')
| -rw-r--r-- | byterun/minor_gc.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/byterun/minor_gc.c b/byterun/minor_gc.c index e729ecccf..9dcc79890 100644 --- a/byterun/minor_gc.c +++ b/byterun/minor_gc.c @@ -139,7 +139,12 @@ void empty_minor_heap (void) } final_empty_young (); #ifdef DEBUG - memset(young_start, 0, young_end - young_start); + { + value *p; + for (p = (value *) young_start; p < (value *) young_end; ++p){ + *p = Debug_free_minor; + } + } #endif } |