[Win32forth-cvs] win32forth/src/lib ExtStruct.f, 1.8, 1.9 STRUCT.F, 1.8, 1.9

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17644/win32forth/src/lib

Modified Files:
	ExtStruct.f STRUCT.F 
Log Message:
gah:Added code so that a warning is given if the Does> part of the defing word is in in-system and is used to create a word in-application (which would cause problems for TURNKEYed programs). NOTE needs the new FKERNEL.EXE from the CVS to build.

Index: ExtStruct.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ExtStruct.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** ExtStruct.f	1 May 2006 10:25:48 -0000	1.8
--- ExtStruct.f	3 Aug 2006 13:08:22 -0000	1.9
***************
*** 161,165 ****
          \ create a immediate word in current dict. That compiles the
          \ offset + part inside a definition at runtime
!         dup>r create-struct r> ( wid )
  
          get-current to current-voc
--- 161,166 ----
          \ create a immediate word in current dict. That compiles the
          \ offset + part inside a definition at runtime
!         dup>r sys-warning? >r sys-warning-off
!         create-struct r> to sys-warning? r> ( wid )
  
          get-current to current-voc

Index: STRUCT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/STRUCT.F,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** STRUCT.F	29 May 2005 21:48:52 -0000	1.8
--- STRUCT.F	3 Aug 2006 13:08:22 -0000	1.9
***************
*** 29,36 ****
  \  Members of a structure are not in a separate vocabulary, when  struct{ }struct are used.
  
! : }struct
!    previous create  forth-wordlist , _struct ,  \ store the offset/size
!    does> cell+ @ add-struct ;       \ get the offset and create a field with it that is itself that offsetword
  
  
  \ >struct compiles the adress and offset as 1 adress inside a definition
--- 29,42 ----
  \  Members of a structure are not in a separate vocabulary, when  struct{ }struct are used.
  
! internal
! 
! : (}struct)
!       previous create  forth-wordlist , _struct ,  \ store the offset/size
!       does> cell+ @ add-struct ;       \ get the offset and create a field with it that is itself that offsetword
  
+ module
+ 
+ : }struct
+       sys-warning? >r sys-warning-off (}struct) r> to sys-warning? ;
  
  \ >struct compiles the adress and offset as 1 adress inside a definition
***************
*** 122,124 ****
  \s
  
!  
--- 128,130 ----
  \s
  
!