summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn van Groningen2005-01-12 15:12:02 +0000
committerJohn van Groningen2005-01-12 15:12:02 +0000
commit921004f7723fd1f075787c90f8a01f5a21ec86d9 (patch)
tree6a283f39b7a165dbe5cb484db23724fce2eae03d
parentworkaround bug in windows to print strings of more than about 50 thousand cha... (diff)
fix minimum heap size for memory profiling
-rw-r--r--istartup.s12
1 files changed, 4 insertions, 8 deletions
diff --git a/istartup.s b/istartup.s
index 0d1a118..66f38d4 100644
--- a/istartup.s
+++ b/istartup.s
@@ -2329,12 +2329,12 @@ end_garbage_collect:
end_garbage_collect_:
#endif
+ pushl d0
+
testl $2,@flags
je no_heap_use_message
pushl d0
-
- pushl d0
push $heap_use_after_gc_string_1
call @ew_print_string
@@ -2347,23 +2347,19 @@ end_garbage_collect_:
call @ew_print_string
add $4,sp
- popl d0
-
no_heap_use_message:
#ifdef FINALIZERS
call call_finalizers
#endif
+ popl d0
+
#ifdef WRITE_HEAP
/* Check whether memory profiling is on or off */
testb $32,@flags
je no_write_heap
- /*
- if d0 (actual heap_size) < @min_write_heap_size
- then do not write heap
- */
cmpl @min_write_heap_size,d0
jb no_write_heap