bug fix
authorRalph Ronnquist <ralph.ronnquist@gmail.com>
Fri, 28 May 2021 04:05:46 +0000 (14:05 +1000)
committerRalph Ronnquist <ralph.ronnquist@gmail.com>
Fri, 28 May 2021 04:05:46 +0000 (14:05 +1000)
rrqforth.asm

index 7c1b5ca1ed314decfdfb7dbec0176ca2eecb40fb..fd377099761171f0f06149912e25882c9f3bfa98 100644 (file)
@@ -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