Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv9791/src/lib
Modified Files:
task.f
Log Message:
Modified wait in demo to deal with messages. Deprecated task-sleep (equivalent to ANSI ms)
Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** task.f 31 Oct 2007 18:51:39 -0000 1.15
--- task.f 22 Aug 2008 21:12:25 -0000 1.16
***************
*** 139,143 ****
\ *G Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended
\ ** forever.
! call Sleep drop ;
: (task-block) ( parm cfa-task addr -- len ) \ W32F Task
--- 139,143 ----
\ *G Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended
\ ** forever.
! ms ; deprecated
: (task-block) ( parm cfa-task addr -- len ) \ W32F Task
|