Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv32108/win32forth/src
Modified Files:
Class.f PRIMHASH.F
Log Message:
gah: Minor corrections
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** Class.f 16 Apr 2007 08:29:06 -0000 1.27
--- Class.f 16 Apr 2007 09:07:23 -0000 1.28
***************
*** 1252,1256 ****
: Dispose ( addr -- )
\ *G Dispose of a dynamically allocated object.
! ~: [ dup ] cell- Free Abort" Disposing Object failed!" ;
--- 1252,1256 ----
: Dispose ( addr -- )
\ *G Dispose of a dynamically allocated object.
! ~: [ dup>r ] r> cell- Free Abort" Disposing Object failed!" ;
Index: PRIMHASH.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/PRIMHASH.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** PRIMHASH.F 16 Apr 2007 08:29:06 -0000 1.5
--- PRIMHASH.F 16 Apr 2007 09:07:23 -0000 1.6
***************
*** 13,17 ****
also classes get-current definitions
! 2 constant #mlists \ Number of method lists; must a non-zero be a power of 2.
set-current previous
--- 13,17 ----
also classes get-current definitions
! 2 constant #mlists \ Number of method lists; must be a non-zero power of 2.
set-current previous
|
