ensuring full cell arithmetics

[rrq/rrqforth.git] / math.asm

diff --git a/math.asm b/math.asm
index d25d14cd3da5aa77ce1082d63df771280c38ac85..5547b57c136372053e937d9ad82a61449d4d9c4a 100644 (file)
--- 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