[Win32forth-cvs] win32forth/src Class.f, 1.34, 1.35 Primutil.f, 1.48, 1.49

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

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv21318

Modified Files:
	Class.f Primutil.f 
Log Message:
Added BUFFER:

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.48
retrieving revision 1.49
diff -C2 -d -r1.48 -r1.49
*** Primutil.f	7 Feb 2010 07:27:20 -0000	1.48
--- Primutil.f	15 May 2010 21:09:14 -0000	1.49
***************
*** 241,244 ****
--- 241,248 ----
                  ;
  
+ : Buffer:       ( defining: +n "name" -- child's runtime: -- a-addr )
+ \ *G Create a buffer +n bytes long. The address of the buffer is aligned.
+                 Create allot ;
+ 
  in-application
  

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** Class.f	29 Jun 2008 05:12:39 -0000	1.34
--- Class.f	15 May 2010 21:09:14 -0000	1.35
***************
*** 387,391 ****
                  THEN ;
  
! create obj-buf MAXSTRING allot
  
  : (Obj-Build)   ( #elems ^class OR ^class -- )  \ Build an instance of a class
--- 387,391 ----
                  THEN ;
  
! MAXSTRING Buffer: obj-buf
  
  : (Obj-Build)   ( #elems ^class OR ^class -- )  \ Build an instance of a class