From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Thu, 20 May 2021 19:20:53 +0000 (+1000)
Subject: ensuring full cell arithmetics
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=fc23b0f6fecc27bceb7f1f781bc78d3133cbbd4c;p=rrq%2Frrqforth.git

ensuring full cell arithmetics
---

diff --git a/math.asm b/math.asm
index d25d14c..5547b57 100644
--- a/math.asm
+++ b/math.asm
@@ -4,14 +4,14 @@
 	;; ( n1 n2 -- n3 )
 	;; n3 is the sum of n1 and n2
 	pop rax
-	add [rsp],rax
+	add qword [rsp],rax
 	next
 
 	WORD p_minus, '-',fasm
 	;; ( n1 n2 -- n3 )
 	;; n3 is the result of subtracting n2 from n1
 	pop rax
-	sub [rsp], rax
+	sub qword [rsp], rax
 	next
 
 	WORD p_mult, '*',fasm