Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16514
Modified Files:
fkernel.f
Log Message:
Rod: commented out more unnecessary deferred I/O
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -d -r1.50 -r1.51
*** fkernel.f 19 Aug 2008 03:55:24 -0000 1.50
--- fkernel.f 19 Aug 2008 12:45:46 -0000 1.51
***************
*** 2125,2129 ****
|: K_NOOP2 0 DUP ;
! ( \) DEFER INIT-CONSOLE-REG ' NOOP IS INIT-CONSOLE-REG
DEFER INIT-CONSOLE ' K_NOOP1 IS INIT-CONSOLE
DEFER INIT-SCREEN ' NOOP IS INIT-SCREEN
--- 2125,2129 ----
|: K_NOOP2 0 DUP ;
! \ DEFER INIT-CONSOLE-REG ' NOOP IS INIT-CONSOLE-REG
DEFER INIT-CONSOLE ' K_NOOP1 IS INIT-CONSOLE
DEFER INIT-SCREEN ' NOOP IS INIT-SCREEN
***************
*** 2145,2151 ****
DEFER GETXY ( -- x y ) ( stdout: get cursor position) ' K_NOOP2 IS GETXY
DEFER GETCOLROW ' K_NOOP2 IS GETCOLROW
! ( \) DEFER SIZESTATE ' K_NOOP1 IS SIZESTATE
! ( \) DEFER MARKCONSOLE ' 4DROP IS MARKCONSOLE
! ( \) DEFER CURSORINVIEW ' NOOP IS CURSORINVIEW
DEFER FGBG! ( f b -- ) ( stdout: set back and fore colors) ' 2DROP IS FGBG!
DEFER FG@ ' K_NOOP1 IS FG@
--- 2145,2151 ----
DEFER GETXY ( -- x y ) ( stdout: get cursor position) ' K_NOOP2 IS GETXY
DEFER GETCOLROW ' K_NOOP2 IS GETCOLROW
! \ DEFER SIZESTATE ' K_NOOP1 IS SIZESTATE
! \ DEFER MARKCONSOLE ' 4DROP IS MARKCONSOLE
! \ DEFER CURSORINVIEW ' NOOP IS CURSORINVIEW
DEFER FGBG! ( f b -- ) ( stdout: set back and fore colors) ' 2DROP IS FGBG!
DEFER FG@ ' K_NOOP1 IS FG@
***************
*** 2153,2163 ****
DEFER CHARWH ' K_NOOP2 IS CHARWH
DEFER SETCHARWH ' 2DROP IS SETCHARWH
! DEFER SETCOLROW ' 2DROP IS SETCOLROW
DEFER SET-CURSOR ' DROP IS SET-CURSOR
DEFER GET-CURSOR ' K_NOOP1 IS GET-CURSOR
! ( \) DEFER SETROWOFF ' DROP IS SETROWOFF
! ( \) DEFER GETROWOFF ' K_NOOP1 IS GETROWOFF
! DEFER GETMAXCOLROW ' K_NOOP2 IS GETMAXCOLROW
! DEFER SETMAXCOLROW ' 2DROP IS SETMAXCOLROW
DEFER &THE-SCREEN ' K_NOOP1 IS &THE-SCREEN
--- 2153,2163 ----
DEFER CHARWH ' K_NOOP2 IS CHARWH
DEFER SETCHARWH ' 2DROP IS SETCHARWH
! \ DEFER SETCOLROW ' 2DROP IS SETCOLROW
DEFER SET-CURSOR ' DROP IS SET-CURSOR
DEFER GET-CURSOR ' K_NOOP1 IS GET-CURSOR
! \ DEFER SETROWOFF ' DROP IS SETROWOFF
! \ DEFER GETROWOFF ' K_NOOP1 IS GETROWOFF
! \ DEFER GETMAXCOLROW ' K_NOOP2 IS GETMAXCOLROW
! \ DEFER SETMAXCOLROW ' 2DROP IS SETMAXCOLROW
DEFER &THE-SCREEN ' K_NOOP1 IS &THE-SCREEN
|
