Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2933
Modified Files:
Primutil.f editor_io.f w32fMsg.f
Log Message:
Rod: minor changes to prevent sort out some warning messages
Index: editor_io.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/editor_io.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** editor_io.f 18 Jun 2008 11:02:36 -0000 1.6
--- editor_io.f 11 Aug 2008 17:07:41 -0000 1.7
***************
*** 90,94 ****
--- 90,96 ----
EXTERNAL
+ IN-APPLICATION
defer paste-load ' noop is paste-load
+ IN-SYSTEM
INTERNAL
***************
*** 192,197 ****
IN-SYSTEM
! [defined] $watch
! [if]
: _$watch ( line filename -- )
['] do-watch [$edit] ;
--- 194,198 ----
IN-SYSTEM
! [defined] $watch [if]
: _$watch ( line filename -- )
['] do-watch [$edit] ;
Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Primutil.f 16 Jul 2008 20:48:23 -0000 1.28
--- Primutil.f 11 Aug 2008 17:07:41 -0000 1.29
***************
*** 449,456 ****
--- 449,458 ----
\ synonym 2to to \ Sets a 2value \ made a colon def - [cdo-2008May13]
\ synonym 2+to +to \ made a colon def - [cdo-2008May13]
+ IN-SYSTEM
: 2to ( d <name> -- ) \ store a double in a 2VALUE
postpone to ; IMMEDIATE
: 2+to ( d <name> -- ) \ add a double to a 2VALUE
postpone +to ; IMMEDIATE
+ IN-APPLICATION
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Index: w32fMsg.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** w32fMsg.f 9 Jul 2008 10:52:27 -0000 1.5
--- w32fMsg.f 11 Aug 2008 17:07:41 -0000 1.6
***************
*** 561,565 ****
create StartupInfo
! here 0 , \ cb
0 , \ lpReserved
0 , \ lpDesktop
--- 561,565 ----
create StartupInfo
! NoStack here 0 , \ cb
0 , \ lpReserved
0 , \ lpDesktop
***************
*** 572,577 ****
0 , \ dwYCountChars
0 , \ dwFillAttribute
! STARTF_USESHOWWINDOW
! , \ dwFlags
SW_SHOWNORMAL W, \ wShowWindow
0 W, \ cbReserved2
--- 572,576 ----
0 , \ dwYCountChars
0 , \ dwFillAttribute
! STARTF_USESHOWWINDOW , \ dwFlags
SW_SHOWNORMAL W, \ wShowWindow
0 W, \ cbReserved2
|
