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

rename cmove to memcpy

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-09 17:13:51 +09:00
parent 6b6a2ed057
commit 998f87530a
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
bootstrap.fs
View file

@ -459,7 +459,7 @@ alias-builtin xor ^
: find F ;
: >cfa G ;
: c, B ;
: cmove, m ;
: memcpy, m ;
: strlen z ;
: str= E ;
: state M ;
@ -813,7 +813,7 @@ alias-builtin xor ^
latest , \ fill link
here cell- &latest ! \ update latest
word dup strlen
dup c, cmove, 0 c, align \ fill length, name and \0
dup c, memcpy, 0 c, align \ fill length, name and \0
docol , \ compile docol
['] lit ,
here 3 cells + , \ compile the address
@ -1116,7 +1116,7 @@ decimal \ set default to decimal
\ ( c-from c-to u -- )
\ Copy u bytes from c-from to c-to.
\ The memory regions must not be overlapped.
: cmove
: memcpy
begin dup 0> while
1- >r \ decrement u, save
over c@
@ -1127,7 +1127,7 @@ decimal \ set default to decimal
repeat 3drop
;
\ we already have cmove,
\ we already have memcpy,
\ ( c-from c-to -- )
\ copy nul terminated string from c-from to c-to