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

6
posix/x11.fs
View File

@ -55,9 +55,9 @@ z" XFillRectangle" 7 xlib XFillRectangle ( a n n n n n n -- void )
32 cells constant xevent-size
: win ( n "name" ) long ;
: time ( n "name" ) long ;
: bool ( n "name" ) i32 ;
: win long ;
: time long ;
: bool i32 ;
vocabulary xany also xany definitions
struct XAnyEvent

2
windows/windows_user.fs
View File

@ -134,7 +134,7 @@ struct PAINTSTRUCT
RECT field ->rcPaint
i32 field ->fRestore
i32 field ->fIncUpdate
32 field ->rgbReserved ( 32 bytes )
32 i8 * field ->rgbReserved
z" FillRect" 3 User32 FillRect
z" PostQuitMessage" 1 User32 PostQuitMessage