[Win32forth-cvs] win32forth/src/lib FCOM.F, 1.6, 1.7 Listview.f, 1.12, 1.13

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv24001/src/lib

Modified Files:
	FCOM.F Listview.f 
Log Message:
Added I' J' and K' plus general tidy up

Index: Listview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Listview.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Listview.f	29 Jun 2008 05:12:40 -0000	1.12
--- Listview.f	6 Jul 2011 12:04:34 -0000	1.13
***************
*** 13,16 ****
--- 13,18 ----
  ( Point )
  
+ warning @ warning off checkstack
+ 
  :Class Point <Super Object
  
***************
*** 28,31 ****
--- 30,35 ----
  ;Class
  
+ warning !
+ 
  ( -------------------------------------------------------------------)
  ( NMHDR )

Index: FCOM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/FCOM.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** FCOM.F	28 Sep 2006 10:16:48 -0000	1.6
--- FCOM.F	6 Jul 2011 12:04:34 -0000	1.7
***************
*** 251,258 ****
--- 251,262 ----
  external
  
+ warning @ warning off checkstack
+ 
  : Field: ( offset |name -- ) \ makes an offset
    here openstruct cell+ @ , openstruct cell+ ! , 0 , ['] field-xt ,
    here parse-word dup 1+ allot rot place ;
  
+ warning !
+ 
  : Struct: ( offset structtype |name -- )
    here openstruct cell+ @ , openstruct cell+ ! swap , , ['] struct-xt ,