diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2003-12-31 14:20:40 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2003-12-31 14:20:40 +0000 |
| commit | 331b2d89c3dc4fb7e1b51276a5a9e37a6c8c8b3a (patch) | |
| tree | 305f55662dc4f3e95d7aac3ffd0659112c27e1df /byterun/freelist.c | |
| parent | fc3a69ce89605c92e3b65d17241a5e23644fc08e (diff) | |
| download | ocaml-331b2d89c3dc4fb7e1b51276a5a9e37a6c8c8b3a.tar.gz | |
depollution suite (PR#1914, PR#1956)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6044 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/freelist.c')
| -rw-r--r-- | byterun/freelist.c | 8 |
1 files changed, 4 insertions, 4 deletions
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; } } |