added strlen, strncpy and realloc

[rrq/rrqforth.git] / stack.asm

diff --git a/stack.asm b/stack.asm
index 32db5aef859f3734a55e32bd854ee68722a27cfd..d86727680763c9e93b6c691a361b3657baeb4e88 100644 (file)
--- a/stack.asm
+++ b/stack.asm
@@ -119,9 +119,9 @@ p_roll_eq:
        push qword [rsp+rax]
        next
 
-       WORD w6.2.2300, 'TUCK',fasm
+       WORD p_tuck, 'TUCK',fasm
        ;; ( x1 x2 -- x2 x1 x2 )
-       ;; insert the top stack value into below second stack value.
+       ;; copy the top stack value into below second stack value.
        pop rax
        pop rbx
        push rax
@@ -132,7 +132,7 @@ p_roll_eq:
 ;;; ========================================
 ;;; Return stack operations
 
-       WORD p_ltR, '>R',fasm
+       WORD p_gtR, '>R',fasm
        ;; ( x -- ) ( R: -- x )
        ;; Move x to the return stack.
        pop rax