[gforth] / gforth / tasker.fs  

gforth: gforth/tasker.fs

Diff for /gforth/tasker.fs between version 1.5 and 1.6

version 1.5, Sun Jul 6 14:42:14 1997 UTC version 1.6, Sat Sep 13 12:04:59 1997 UTC
Line 41 
Line 41 
   lp! fp! rp! prev-task @ sleep ;    lp! fp! rp! prev-task @ sleep ;
   
 \ USER' computes the task offset  \ USER' computes the task offset
 : user' ( 'user' -- n )  :noname    ' >body @ ;
     ' >body @ postpone literal ; immediate  :noname    ' >body @ postpone literal ;
 interpretation:  interpret/compile: user' ( 'user' -- n )
     ' >body @ ;  
   
 \ NEWTASK creates a new, sleeping task  \ NEWTASK creates a new, sleeping task
 : NewTask ( n -- Task )  dup 2* 2* udp @ + dup  : NewTask ( n -- Task )  dup 2* 2* udp @ + dup

Generate output suitable for use with a patch program
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help