From e3a2ebd719939c365a403033b862b23ea7c68412 Mon Sep 17 00:00:00 2001
From: John van Groningen
Date: Thu, 7 Dec 2006 15:02:18 +0000
Subject: fix bug in copying record that is used more than once, without
 pointers and with size > 2

---
 acopy.asm | 3 ++-
 icopy.s   | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/acopy.asm b/acopy.asm
index fadf47e..13f66ed 100644
--- a/acopy.asm
+++ b/acopy.asm
@@ -788,7 +788,8 @@ record_arguments_already_copied_3_b:
 	mov	rdx,qword ptr [rcx]
 	pop	rax
 	
-	mov	qword ptr 16 [rsi],rdx
+	sub	rdx,1
+	mov	qword ptr 16[rsi],rdx
 	
 	sub	rbx,1
 	jae	copy_lp2
diff --git a/icopy.s b/icopy.s
index f03527f..25d0d31 100644
--- a/icopy.s
+++ b/icopy.s
@@ -850,6 +850,7 @@ record_arguments_already_copied_3_b:
 	movl	(a0),a1
 	popl	d0
 
+	subl	$1,a1
 	movl	a1,8(a3)
 
 	subl	$1,d1
-- 
cgit v1.2.3