From dd6ec019f296cdaca3546d6218cb20246475faf7 Mon Sep 17 00:00:00 2001
From: CVS2SVN
Date: Wed, 13 Dec 2006 11:05:11 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'clean-2-2'.

---
 astartup.asm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'astartup.asm')

diff --git a/astartup.asm b/astartup.asm
index ca39b2b..0d126dd 100644
--- a/astartup.asm
+++ b/astartup.asm
@@ -25,7 +25,9 @@ _DATA	ends
  ifndef LINUX
 	extrn	convert_real_to_string:near
  endif
+ ifndef LINUX
 	extrn	write_heap:near
+ endif
 	extrn	return_code:near
 	extrn	execution_aborted:near
 	extrn	e____system__kFinalizerGCTemp:near
@@ -1233,7 +1235,7 @@ printD:	test	al,2
 
 DtoAC_record:
  ifdef NEW_DESCRIPTORS
-	movsxd	rbp,dword ptr (-6)[rbp]
+	movsxd	rbp,dword ptr (-6)[rax]
  else
 	movsx	rbp,dword ptr (-4)[rbp]
  endif
@@ -1266,7 +1268,7 @@ DtoAC_:
  endif
 
 DtoAC_string_a2:
-	mov	rax,qword ptr [rbp]
+	mov	eax,dword ptr [rbp]
 	lea	rcx,4[rbp]
 	jmp	build_string
 
@@ -2552,7 +2554,9 @@ gc1:
 	mov	rcx,rax
 	sub	rsp,32
  endif
+ ifndef LINUX
 	call	write_heap
+ endif
 	mov	rsp,rbp
 
 	add	rsp,128
-- 
cgit v1.2.3