projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
STR>TEMP to return char*
[rrq/rrqforth.git]
/
temp.asm
diff --git
a/temp.asm
b/temp.asm
index 3425c1c53d34951f135750d5681c6ffb84ecbec0..f85cb3375faff34eaea45ea027fde734c36fa31e 100644
(file)
--- a/
temp.asm
+++ b/
temp.asm
@@
-43,9
+43,9
@@
p_objecthole_from_tail:
dq p_dup, p_gtR ; ( -- char* n ) [ n ]
dq p_dup, p_literal, 8, p_plus ; ( -- char* n n+8 )
dq p_temp ; ( -- char* n addr )
dq p_dup, p_gtR ; ( -- char* n ) [ n ]
dq p_dup, p_literal, 8, p_plus ; ( -- char* n n+8 )
dq p_temp ; ( -- char* n addr )
- dq p_dup, p_gtR ; ( -- char* n addr ) [ n addr ]
dq p_2dup, p_put
dq p_2dup, p_put
- dq p_literal, 8, p_plus
- dq p_swap, p_strncpy
- dq p_Rgt, p_Rgt
+ dq p_literal, 8, p_plus ; ( -- char* n addr+8 ) [ n ]
+ dq p_dup, p_gtR ; ( -- char* n addr+8 ) [ n addr+8 ]
+ dq p_swap, p_strncpy ; ( -- ) [ n addr+8 ]
+ dq p_Rgt, p_Rgt ; ( -- addr+8 n ) [ ]
dq p_exit
dq p_exit