fix bug in copying record that is used more than once,

without pointers and with size > 2

2 files changed, 3 insertions, 1 deletions

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