[Win32forth-cvs] win32forth/src 486ASM.F, 1.4, 1.5 Class.f, 1.23, 1.24 Comment.f, 1.2, 1.3 Utils.f, 1.12, 1.13

[Dirk B. <db...@us...>]

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

Modified Files:
	486ASM.F Class.f Comment.f Utils.f 
Log Message:
- Renamed ?LOADING into LOADING?
- Replaced DEFER@ with ACTION-OF
- and some other minor changes

Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Utils.f	25 Aug 2006 12:54:01 -0000	1.12
--- Utils.f	3 Oct 2006 07:44:22 -0000	1.13
***************
*** 494,498 ****
  
  : _stack-check  ( -- )
!                 ?loading 0=             \ if we are not loading
                  state @ or              \ or we are in compile state,
                                          \ then don't check stack depth change
--- 494,498 ----
  
  : _stack-check  ( -- )
!                 loading? 0=             \ if we are not loading
                  state @ or              \ or we are in compile state,
                                          \ then don't check stack depth change

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** Class.f	18 Sep 2006 10:14:19 -0000	1.23
--- Class.f	3 Oct 2006 07:44:22 -0000	1.24
***************
*** 515,519 ****
                  here to ^Class
                  0 op!                           \ for error checking in runIvarRef
!                 ?loading
                  if      loadline @
                  else    -1
--- 515,519 ----
                  here to ^Class
                  0 op!                           \ for error checking in runIvarRef
!                 loading?
                  if      loadline @
                  else    -1

Index: Comment.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Comment.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Comment.f	13 Apr 2005 00:09:26 -0000	1.2
--- Comment.f	3 Oct 2006 07:44:22 -0000	1.3
***************
*** 23,27 ****
  : _comment      \ char --
                  multi-line?
!                 ?loading and
                  if      begin   source >in @ /string
                                  2 pick scan nip 0=
--- 23,27 ----
  : _comment      \ char --
                  multi-line?
!                 loading? and
                  if      begin   source >in @ /string
                                  2 pick scan nip 0=
***************
*** 32,36 ****
  : comment       \ -<char>-
                  char _comment ; immediate
!                 
  : (             [char] ) _comment ; immediate
  
--- 32,36 ----
  : comment       \ -<char>-
                  char _comment ; immediate
! 
  : (             [char] ) _comment ; immediate
  

Index: 486ASM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/486ASM.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** 486ASM.F	6 Jul 2005 08:54:29 -0000	1.4
--- 486ASM.F	3 Oct 2006 07:44:22 -0000	1.5
***************
*** 1497,1501 ****
          ?inst-pre register generic-entry2 ?noimmed ?reg,r/m code-w,
          compile-fields ;
!         
  ( mov instruction )
  : mov-compile ( compile a mov instruction )
--- 1497,1501 ----
          ?inst-pre register generic-entry2 ?noimmed ?reg,r/m code-w,
          compile-fields ;
! 
  ( mov instruction )
  : mov-compile ( compile a mov instruction )
***************
*** 2074,2078 ****
  : /postfix? ( are we in postfix mode? )          \ rls March 3rd, 2002 - 11:13
          ( -- flag )
!         defer@ save-inst ['] noop = ;
  
  : /prefix? ( are we in prefix mode? )
--- 2074,2078 ----
  : /postfix? ( are we in postfix mode? )          \ rls March 3rd, 2002 - 11:13
          ( -- flag )
!         action-of save-inst ['] noop = ;
  
  : /prefix? ( are we in prefix mode? )
***************
*** 2094,2096 ****
  
  only forth definitions base !
-