From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Thu, 3 Jun 2021 11:03:38 +0000 (+1000)
Subject: bug fix TFA>NAMEZ
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=d5613f1ba2ae4065d60df8e768027f437f740a7f;p=rrq%2Frrqforth.git

bug fix TFA>NAMEZ
---

diff --git a/memory.asm b/memory.asm
index ff88893..80ce280 100644
--- a/memory.asm
+++ b/memory.asm
@@ -25,7 +25,8 @@
 	WORD p_tfa2namez,'TFA>NAMEZ',fasm
 	;; (  tfa -- char* )
 	pop rax
-	push qword[rax+32]
+	add rax,32
+	push rax
 	next
 
 	WORD p_cfa2flags_get,'CFA>FLAGS@',fasm