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 !
- |
