alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Various structure related cleanups.

Browse Source
This commit is contained in:
Brad Nelson
2024-11-29 16:07:00 -08:00
parent 4425ffadea
commit 2ca333a0fa
3 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
common/structures.fs
View File

@ -31,8 +31,9 @@ variable last-struct
: struct ( "name" ) 1 0 typer latestxt >body last-struct !
1 last-align ! ;
: align-by ( a n -- a ) 1- dup >r + r> invert and ;
: max! ( n a -- ) swap over @ max swap ! ;
: struct-align ( n -- )
dup last-struct @ cell+ @ max last-struct @ cell+ !
dup last-struct @ cell+ max!
last-struct @ @ swap align-by last-struct @ ! ;
: field ( n "name" )
last-align @ struct-align