Diff for /gforth/tasker.fs between versions 1.7 and 1.9

version 1.7, 1998/12/08 22:02:52 version 1.9, 2001/06/12 09:29:10
Line 16 Line 16
   
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software  \ along with this program; if not, write to the Free Software
 \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
   
 Create sleepers  sleepers A, sleepers A, 0 ,  Create sleepers  sleepers A, sleepers A, 0 ,
   
Line 54  interpret/compile: user' ( 'user' -- n ) Line 54  interpret/compile: user' ( 'user' -- n )
   dup r@ user' fp0   + ! over -    dup r@ user' fp0   + ! over -
   dup r@ user' sp0   + ! over -    dup r@ user' sp0   + ! over -
   dup r@ user' normal-dp + dup >r !    dup r@ user' normal-dp + dup >r !
    r> r@ user' dpp  + ! + $10 +     r> r@ user' dpp  + ! 2drop
       r@ user' >tib + !      0 r@ user' current-input + !
   r> dup 2dup 2! dup sleep ;    r> dup 2dup 2! dup sleep ;
   
 : kill-task  : kill-task

Removed from v.1.7  
changed lines
  Added in v.1.9


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>