From 921004f7723fd1f075787c90f8a01f5a21ec86d9 Mon Sep 17 00:00:00 2001
From: John van Groningen
Date: Wed, 12 Jan 2005 15:12:02 +0000
Subject: fix minimum heap size for memory profiling

---
 istartup.s | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

(limited to 'istartup.s')

diff --git a/istartup.s b/istartup.s
index 0d1a118..66f38d4 100644
--- a/istartup.s
+++ b/istartup.s
@@ -2329,11 +2329,11 @@ 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
@@ -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
 
-- 
cgit v1.2.3