version 1.13, 1998/08/29 20:46:12
|
version 1.14, 1999/02/16 06:32:29
|
Line 174 define? faligned 0= [IF]
|
Line 174 define? faligned 0= [IF]
|
types definitions |
types definitions |
|
|
: static ( -- ) \ oof- oof |
: static ( -- ) \ oof- oof |
\G Create a class-wide cell sized variable |
\G Create a class-wide cell-sized variable. |
mallot Create , #static , |
mallot Create , #static , |
DOES> @ o@ + ; |
DOES> @ o@ + ; |
: method ( -- ) \ oof- oof |
: method ( -- ) \ oof- oof |
\G Create a method selector |
\G Create a method selector. |
mallot Create , #method , |
mallot Create , #method , |
DOES> @ o@ + @ execute ; |
DOES> @ o@ + @ execute ; |
: early ( -- ) \ oof- oof |
: early ( -- ) \ oof- oof |
\G Create a method selector for early binding |
\G Create a method selector for early binding. |
Create ['] crash , #early , |
Create ['] crash , #early , |
DOES> @ execute ; |
DOES> @ execute ; |
: var ( size -- ) \ oof- oof |
: var ( size -- ) \ oof- oof |
Line 458 types definitions
|
Line 458 types definitions
|
\G Create an instance pointer |
\G Create an instance pointer |
Create immediate lastob @ here lastob ! instptr, ; |
Create immediate lastob @ here lastob ! instptr, ; |
: asptr ( class -- ) \ oof- oof |
: asptr ( class -- ) \ oof- oof |
\G Create an alias to an instance pointer, casted to another class |
\G Create an alias to an instance pointer, cast to another class. |
cell+ @ Create immediate |
cell+ @ Create immediate |
lastob @ here lastob ! , , instptr> ; |
lastob @ here lastob ! , , instptr> ; |
|
|