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

Change defnition of aligned and align. Add missing align at the top of :noname

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-03 12:52:39 +09:00
parent 9a9c7d2701
commit 70ddb49017
1 changed files with 3 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
bootstrap.fs
View file

@ -456,6 +456,8 @@ alias-builtin xor ^
: c, B ;
: cmove, m ;
: state M ;
: aligned a ;
: align A ;
: here &here @ ;
: latest &latest @ ;
@ -490,6 +492,7 @@ alias-builtin xor ^
\ ( -- xt )
: :noname
align
here
[ docol ] literal , \ compile docol
] \ enter compile mode
@ -525,18 +528,6 @@ alias-builtin xor ^
: cell- cell - ;
: cells cell * ;
\ ( c-addr -- a-addr )
\ Round up to nearlest multiple of CELL
: aligned
cell + 1 -
0 cell -
and
;
\ ( -- )
\ Round up 'here' to nearlest multiple to CELL
: align here aligned &here ! ;
\ === Stack Manipulation ===
: drop sp@ cell+ sp! ; \ ( w -- )