From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Fri, 28 May 2021 04:05:46 +0000 (+1000)
Subject: bug fix
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;ds=sidebyside;h=fc7b2467cc920eb3fdbf48b323bf0d7d0e9255b1;p=rrq%2Frrqforth.git

bug fix
---

diff --git a/rrqforth.asm b/rrqforth.asm
index 7c1b5ca..fd37709 100644
--- a/rrqforth.asm
+++ b/rrqforth.asm
@@ -126,10 +126,9 @@ previous_word = 0
 	jmp qword rsi
 
 	WORD p_execute,'EXECUTE',fasm
-	;; ( tfa -- )
+	;; ( cfa -- )
 	;; Execute the word
 	pop rax
-	tfa2cfa rax
 	jmp qword [rax]		; goto code of that FORTH word (64 bit jump)
 	
 	WORD p_exit, 'EXIT',fasm