Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv31965/win32forth/src
Modified Files:
Class.f
Log Message:
gah: Added extra documentation
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Class.f 8 Feb 2006 10:54:43 -0000 1.16
--- Class.f 1 Jun 2006 08:08:18 -0000 1.17
***************
*** 950,964 ****
: [[ true abort" [[ must be preceeded by a selector " ; IMMEDIATE
! : <noClassPointer ( -- ) -1 ^class XFA ! ; \ XFA is -1 when no class pointer
!
! \ Set a class and its subclasses to indexed
!
! : <Indexed ( width -- ) ?Class ^Class XFA ! ( <ClassPointer ) ;
! \ Compile a self reference, but only if the class is guaranteed to
! \ have a class pointer. We can send ourself late-bound messages
! \ with the syntax: Msg: [ self ]
: Self ( -- addr )
POSTPONE ^base ; IMMEDIATE
--- 950,966 ----
: [[ true abort" [[ must be preceeded by a selector " ; IMMEDIATE
! : <noClassPointer ( -- )
! \ *G Set a class and its subclasses to suppress the class pointer when used as IVARs.
! \ XFA is -1 when no class pointer is reserved for IVARs.
! -1 ^class XFA ! ;
! : <Indexed ( width -- )
! \ *G Set a class and its subclasses to indexed.
! ?Class ^Class XFA ! ( <ClassPointer ) ;
: Self ( -- addr )
+ \ *G Compile a self reference, but only if the class is guaranteed to
+ \ ** have a class pointer. We can send ourself late-bound messages
+ \ ** with the syntax: Msg: [ self ].
POSTPONE ^base ; IMMEDIATE
|
