projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixing new primitives
[rrq/rrqforth.git]
/
compile.asm
diff --git
a/compile.asm
b/compile.asm
index d99504c8131f934150d9ebc8c59dcfe358357873..e7f3090b819e18501875807d5f81d2133d9690b9 100644
(file)
--- a/
compile.asm
+++ b/
compile.asm
@@
-57,37
+57,37
@@
p_quote_end:
;; Compile down " LIT value "
dq p_literal, p_literal, p_comma,p_quote, p_comma, p_return
;; Compile down " LIT value "
dq p_literal, p_literal, p_comma,p_quote, p_comma, p_return
- WORD p_Ccomma,'C,'
+ WORD p_Ccomma,'C,'
,fasm
;; ( c -- )
;; Put byte value onto the heap and advance "HERE"
;; ( c -- )
;; Put byte value onto the heap and advance "HERE"
- mov rax,[p_here_DFA]
+ mov rax,
qword
[p_here_DFA]
pop rbx
mov byte [rax],bl
inc qword [p_here_DFA]
next
pop rbx
mov byte [rax],bl
inc qword [p_here_DFA]
next
- WORD p_Wcomma,'W,'
+ WORD p_Wcomma,'W,'
,fasm
;; ( c -- )
;; Put byte value onto the heap and advance "HERE"
;; ( c -- )
;; Put byte value onto the heap and advance "HERE"
- mov rax,[p_here_DFA]
+ mov rax,
qword
[p_here_DFA]
pop rbx
mov word [rax],bx
add qword [p_here_DFA],2
next
pop rbx
mov word [rax],bx
add qword [p_here_DFA],2
next
- WORD p_Dcomma,'D,'
+ WORD p_Dcomma,'D,'
,fasm
;; ( d -- )
;; Put byte value onto the heap and advance "HERE"
;; ( d -- )
;; Put byte value onto the heap and advance "HERE"
- mov rax,[p_here_DFA]
+ mov rax,
qword
[p_here_DFA]
pop rbx
mov dword [rax],ebx
add qword [p_here_DFA],4
next
pop rbx
mov dword [rax],ebx
add qword [p_here_DFA],4
next
- WORD p_comma,','
+ WORD p_comma,','
,fasm
;; ( v -- )
;; Put byte value onto the heap and advance "HERE"
;; ( v -- )
;; Put byte value onto the heap and advance "HERE"
- mov rax,[p_here_DFA]
+ mov rax,
qword
[p_here_DFA]
pop rbx
mov qword [rax],rbx
add qword [p_here_DFA],8
pop rbx
mov qword [rax],rbx
add qword [p_here_DFA],8