Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-13 08:01:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rename string, to cmove,

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-02 18:01:01 +09:00
parent 3eaf59bae4
commit d7a85fcc56
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
bootstrap.fs
View file

@ -188,7 +188,7 @@ c~ i,
\ Store byte 'c' to here and increment it
cB i, 'h, '@, '$, 'h, '@, 'L, k1k0-, '+, 'h, '!, 'e, l!
\ 'm' ( c-addr u -- ) STRING,
\ 'm' ( c-addr u -- ) CMOVE,
\ Copy u bytes from c-addr to here,
\ increment here u bytes.
cm i,
@ -454,7 +454,7 @@ alias-builtin xor ^
: find F ;
: >cfa G ;
: c, B ;
: string, m ;
: cmove, m ;
: state M ;
: here &here @ ;
@ -799,7 +799,7 @@ alias-builtin xor ^
latest , \ fill link
here cell- &latest ! \ update latest
word
dup c, string, align \ fill length and name
dup c, cmove, align \ fill length and name
docol , \ compile docol
['] lit ,
here 3 cells + , \ compile the address