From 331b2d89c3dc4fb7e1b51276a5a9e37a6c8c8b3a Mon Sep 17 00:00:00 2001 From: Damien Doligez Date: Wed, 31 Dec 2003 14:20:40 +0000 Subject: depollution suite (PR#1914, PR#1956) git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6044 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- byterun/freelist.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'byterun/freelist.c') diff --git a/byterun/freelist.c b/byterun/freelist.c index 9b43f9ae4e..d359db5913 100644 --- a/byterun/freelist.c +++ b/byterun/freelist.c @@ -157,7 +157,7 @@ void fl_init_merge (void) #endif } -/* This is called by compact_heap. */ +/* This is called by caml_compact_heap. */ void fl_reset (void) { Next (Fl_head) = 0; @@ -284,10 +284,10 @@ void fl_add_block (char *bp) Assert (cur > bp || cur == NULL); Next (bp) = cur; Next (prev) = bp; - /* When inserting a block between fl_merge and gc_sweep_hp, we must + /* When inserting a block between fl_merge and caml_gc_sweep_hp, we must advance fl_merge to the new block, so that fl_merge is always the - last free-list block before gc_sweep_hp. */ - if (prev == fl_merge && bp <= gc_sweep_hp) fl_merge = bp; + last free-list block before caml_gc_sweep_hp. */ + if (prev == fl_merge && bp <= caml_gc_sweep_hp) fl_merge = bp; } } -- cgit v1.2.1