Update of /cvsroot/win32forth/win32forth-stc/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20682/win32forth-stc/src/kernel
Modified Files:
gkernel.f
Log Message:
gah: modified words with local structures to use localalloc: Modified winpause to work with noconsole code and multi-tasking
Index: gkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** gkernel.f 13 May 2007 21:39:27 -0000 1.38
--- gkernel.f 27 Jun 2007 07:41:12 -0000 1.39
***************
*** 3122,3126 ****
\ and the keyboard i/o
\ f1=false if already inited
!
STD_OUTPUT_HANDLE call GetStdHandle to stdout
STD_INPUT_HANDLE call GetStdHandle to stdin
--- 3122,3126 ----
\ and the keyboard i/o
\ f1=false if already inited
!
STD_OUTPUT_HANDLE call GetStdHandle to stdout
STD_INPUT_HANDLE call GetStdHandle to stdin
***************
*** 5062,5067 ****
1 PROC Sleep
! : winpause ( -- ) \ release control to OS, pump message loop (in wrapper)
! key? drop ;
\ note: reset-stacks shouldn't be redefined in an application.
--- 5062,5068 ----
1 PROC Sleep
! defer winpause ( -- ) \ release control to OS, pump message loop (in wrapper)
!
! |: _winpause key? drop ; ' _winpause is winpause
\ note: reset-stacks shouldn't be redefined in an application.
|
