[Scsh-checkins] CVS: scsh-0.6/scheme/rts init.scm,1.1.1.1,1.2 root-scheduler.scm,1.1.1.1,1.2

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scheme/rts
In directory usw-pr-cvs1:/tmp/cvs-serv1668

Modified Files:
        init.scm root-scheduler.scm 
Log Message:
Built the event system directly into the RTS. Built sighandlers above
it. Removed machinery in low-interrupt.


Index: init.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/rts/init.scm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** init.scm    1999/09/14 12:44:58     1.1.1.1
--- init.scm    2001/01/09 15:52:46     1.2
***************
*** 31,34 ****
--- 31,35 ----
               (with-threads
                (lambda ()
+                 (initialize-events!)
                  (root-scheduler thunk
                                  200           ; thread quantum, in msec

Index: root-scheduler.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/rts/root-scheduler.scm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** root-scheduler.scm  1999/09/14 12:44:58     1.1.1.1
--- root-scheduler.scm  2001/01/09 15:52:46     1.2
***************
*** 98,102 ****
              #t)
             ((or time-until-wakeup
!                 (waiting-for-i/o?))
              (do-some-waiting time-until-wakeup)
              (set-enabled-interrupts! all-interrupts)
--- 98,103 ----
              #t)
             ((or time-until-wakeup
!                 (waiting-for-i/o?)
!                 (waiting-for-os-event?))
              (do-some-waiting time-until-wakeup)
              (set-enabled-interrupts! all-interrupts)