Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23015/src
Modified Files:
Primutil.f REGISTRY.F Utils.f imageman.f
Log Message:
dbu: DEPRECATED added
Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Utils.f 21 Dec 2004 00:19:08 -0000 1.1
--- Utils.f 12 Mar 2005 09:09:57 -0000 1.2
***************
*** 712,716 ****
\ add stack message increased
! THROW_MSGS LINK, -4103 , ," stack depth increased"
: _stack-check ( -- )
--- 712,716 ----
\ add stack message increased
! THROW_MSGS LINK, -4103 ( WARN_STACK ) , ," stack depth increased"
: _stack-check ( -- )
***************
*** 723,727 ****
depth olddepth > \ if stack depth has increased
if \ then warn of extra item on stack
! -4103 WARNMSG
cr ." Stack: " .s cr
then depth to olddepth ;
--- 723,727 ----
depth olddepth > \ if stack depth has increased
if \ then warn of extra item on stack
! -4103 ( WARN_STACK ) WARNMSG
cr ." Stack: " .s cr
then depth to olddepth ;
***************
*** 1064,1065 ****
--- 1064,1066 ----
+ |
