Diff for /gforth/oof.fs between versions 1.13 and 1.14

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> ;
   

Removed from v.1.13  
changed lines
  Added in v.1.14


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>