Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-14 08:01:27 +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 \ Store byte 'c' to here and increment it
cB i, 'h, '@, '$, 'h, '@, 'L, k1k0-, '+, 'h, '!, 'e, l! 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, \ Copy u bytes from c-addr to here,
\ increment here u bytes. \ increment here u bytes.
cm i, cm i,
@ -454,7 +454,7 @@ alias-builtin xor ^
: find F ; : find F ;
: >cfa G ; : >cfa G ;
: c, B ; : c, B ;
: string, m ; : cmove, m ;
: state M ; : state M ;
: here &here @ ; : here &here @ ;
@ -799,7 +799,7 @@ alias-builtin xor ^
latest , \ fill link latest , \ fill link
here cell- &latest ! \ update latest here cell- &latest ! \ update latest
word word
dup c, string, align \ fill length and name dup c, cmove, align \ fill length and name
docol , \ compile docol docol , \ compile docol
['] lit , ['] lit ,
here 3 cells + , \ compile the address here 3 cells + , \ compile the address