projects
/
rrq
/
rrqforth.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
66382e2
)
remove IMMEDAITE from quote and literal
author
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Mon, 24 May 2021 15:11:31 +0000
(
01:11
+1000)
committer
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Mon, 24 May 2021 15:11:31 +0000
(
01:11
+1000)
compile.asm
patch
|
blob
|
history
diff --git
a/compile.asm
b/compile.asm
index 6ddf3a3387b916450ccf72ca5963ca0a75199580..8102cbc813452b24d7ad20f11b64b06c249bbac3 100644
(file)
--- a/
compile.asm
+++ b/
compile.asm
@@
-46,7
+46,7
@@
p_create_COPY:
add qword [p_here_DFA],rax
next
add qword [p_here_DFA],rax
next
- WORD p_quote,"'",fasm
,IMMEDIATE
+ WORD p_quote,"'",fasm
;; ( "word" -- cfa )
;; Find the following word and push its cfa, or 0
pushr rsi
;; ( "word" -- cfa )
;; Find the following word and push its cfa, or 0
pushr rsi
@@
-108,7
+108,7
@@
p_quote_end:
mov qword [rax+8],dodoes
next
mov qword [rax+8],dodoes
next
- WORD p_literal,'LIT',fasm
,IMMEDIATE
+ WORD p_literal,'LIT',fasm
;; ( -- v )
;; Push the value of successor cell onto stack, and skip it.
;; not for interactive use!!
;; ( -- v )
;; Push the value of successor cell onto stack, and skip it.
;; not for interactive use!!