[Win32forth-cvs] win32forth/src Class.f,1.18,1.19

[George H. <geo...@us...>]

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