From 09a8c6bc78f4a84c99b68baef2a1dfb10b8c4a4e Mon Sep 17 00:00:00 2001 From: Damien Doligez Date: Fri, 18 Jan 2002 15:13:26 +0000 Subject: configure: suppression "smart preprocessing" pour MacOS X asmrun/roots.c, byterun/alloc.c, byterun/gc_ctrl.c, byterun/minor_gc.c, byterun/minor_gc.h, byterun/roots.c, byterun/startup.c: derecursivation du GC mineur byterun/config.h, stdlib/gc.mli: compactage active par defaut (300%) otherlibs/unix/select.c: ajout include MacOS X .cvsignore: bricoles git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4264 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- byterun/gc_ctrl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'byterun/gc_ctrl.c') diff --git a/byterun/gc_ctrl.c b/byterun/gc_ctrl.c index 1871d8cc2..6d945359e 100644 --- a/byterun/gc_ctrl.c +++ b/byterun/gc_ctrl.c @@ -207,7 +207,7 @@ static value heap_stats (int returnstats) double majwords = stat_major_words + (double) allocated_words; long mincoll = stat_major_collections; long majcoll = stat_minor_collections; - long heapsz = stat_heap_size; + long heap_words = Wsize_bsize (stat_heap_size); long cpct = stat_compactions; res = alloc_tuple (14); @@ -216,7 +216,7 @@ static value heap_stats (int returnstats) Store_field (res, 2, copy_double (majwords)); Store_field (res, 3, Val_long (mincoll)); Store_field (res, 4, Val_long (majcoll)); - Store_field (res, 5, Val_long (heapsz)); + Store_field (res, 5, Val_long (heap_words)); Store_field (res, 6, Val_long (heap_chunks)); Store_field (res, 7, Val_long (live_words)); Store_field (res, 8, Val_long (live_blocks)); -- cgit v1.2.3-70-g09d2