Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-27 21:58:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Change semantics of "F" and add "G"

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-31 15:10:54 +09:00
parent c40f09d70b
commit 1c519e51f8
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
core.fs
View file

@ -277,7 +277,7 @@ i,
\ 'F' ( c-addr u -- w ) \ 'F' ( c-addr u -- w )
\ Lookup multi-character word from dictionary. \ Lookup multi-character word from dictionary.
\ Return CFA of the word if found, 0 otherwise. \ Return 0 if the word is not found.
\ Entries with smudge-bit=1 are ignored. \ Entries with smudge-bit=1 are ignored.
cF i, cF i,
'l, '@, 'l, '@,
@ -303,4 +303,13 @@ cF i,
'{, '_, '_, '}, \ Drop addr u return it '{, '_, '_, '}, \ Drop addr u return it
'e, l! 'e, l!
\ 'G' ( w -- xt )
\ Get CFA of the word
cG i,
'C, '+, '#, '?, \ ( addr len+flag )
'L, kOk0-, '&, \ take length
'+, \ add length to the addr
'L, k1k0-, '+, \ add 1 to the addr (1byte for len+field)
'a, \ align
'e, l!
Q Q