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

Add chars char+ char-

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-11 02:06:24 +09:00
parent 1d4b77fd90
commit db86f87671
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bootstrap.fs
View file

@ -578,6 +578,9 @@ allot-cell : &find! [ ' L , , ] ; \ ( c-addr -- nt ) Throw exception at error
: cell+ cell + ; : cell+ cell + ;
: cell- cell - ; : cell- cell - ;
: cells cell * ; : cells cell * ;
: char+ 1 + ;
: char- 1 - ;
: chars ;
\ === Stack Manipulation === \ === Stack Manipulation ===
@ -2458,7 +2461,7 @@ need-defined (read)
rp0 rp@ rp! r> >r r@ rdrop rpick rdepth rp0 rp@ rp! r> >r r@ rdrop rpick rdepth
allocate allot memcpy strlen streq strcpy strcpy, allocate allot memcpy strlen streq strcpy strcpy,
cell cell+ cell- cells align aligned +! -! cell cell+ cell- cells char+ char- chars align aligned +! -!
if else then unless begin until again while repeat if else then unless begin until again while repeat
recurse case of rangeof endof endcase recurse case of rangeof endof endcase