Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv12904/win32forth/src
Modified Files:
Class.f
Log Message:
gah: added M@ and M! for compatibility with Doug Hoffmans ANSI neon object system.
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** Class.f 11 Jun 2006 20:11:38 -0000 1.18
--- Class.f 29 Jun 2006 10:27:42 -0000 1.19
***************
*** 993,998 ****
: bytes ( n -<name>- ) \ W32F Class
\ *G n-Bytes instance variable (array of bytes)
- \ create ^class DFA @ , class-allot
- \ does> @ ^base + ;
header
(&iv) , \ return address of array of bytes
--- 993,996 ----
***************
*** 1106,1109 ****
--- 1104,1120 ----
2 cells class-allot ;
+ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ \ Primatives for cell sized objects.
+ \ Ported from Doug Hoffman's Class11 for compatibility
+ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+
+ : M@ ( -- n )
+ \ *G Fetch the contents of the first cell of the object. Designed for use with VAR
+ POSTPONE ^base POSTPONE @ ; IMMEDIATE
+
+ : M! ( n -- )
+ \ *G Store the TOS into the first cell of the object. Designed for use with VAR
+ POSTPONE ^base POSTPONE ! ; IMMEDIATE
+
in-application
|
