version 1.48, 1997/05/21 20:39:21
|
version 1.51, 1997/07/31 16:17:07
|
Line 722 Cond: DOES> restrict?
|
Line 722 Cond: DOES> restrict?
|
dup >magic @ <do:> = |
dup >magic @ <do:> = |
IF gexecute T 0 , H EXIT THEN |
IF gexecute T 0 , H EXIT THEN |
THEN |
THEN |
compile :dodoes gexecute T here H cell - reloff ; |
compile :dodoes gexecute T here H tcell - reloff ; |
|
|
: TCreate ( -- ) |
: TCreate ( -- ) |
last-ghost @ |
last-ghost @ |
Line 840 Build: ;
|
Line 840 Build: ;
|
by: :dofield T @ H + ;DO |
by: :dofield T @ H + ;DO |
Builder (Field) |
Builder (Field) |
|
|
Build: >r rot r@ nalign dup T , H ( align1 size offset ) |
Build: ( align1 offset1 align size "name" -- align2 offset2 ) |
+ swap r> nalign ; |
rot dup T , H ( align1 align size offset1 ) |
|
+ >r nalign r> ; |
by (Field) |
by (Field) |
Builder Field |
Builder Field |
|
|
: struct T 0 1 chars H ; |
: struct T 1 chars 0 H ; |
: end-struct T 2Constant H ; |
: end-struct T 2Constant H ; |
|
|
: cells: ( n -- size align ) |
: cell% ( -- align size ) |
T cells 1 cells H ; |
T 1 cells H dup ; |
|
|
\ ' 2Constant Alias2 end-struct |
\ ' 2Constant Alias2 end-struct |
\ 0 1 T Chars H 2Constant struct |
\ 0 1 T Chars H 2Constant struct |
Line 1077 previous
|
Line 1078 previous
|
: lshift lshift ; |
: lshift lshift ; |
: 2/ 2/ ; |
: 2/ 2/ ; |
: . . ; |
: . . ; |
|
: const ; |
|
|
\ mach-file count included |
\ mach-file count included |
|
|