r1650 - cpu/x86/pc/olpc/via

Author: wmb
Date: 2010-01-08 08:23:30 +0100 (Fri, 08 Jan 2010)
New Revision: 1650

Modified:
   cpu/x86/pc/olpc/via/suspend.fth
Log:
Via - turn interrupt and timer machinery back on after resume from S3,
so alarms and related timing things work.

Modified: cpu/x86/pc/olpc/via/suspend.fth
===================================================================
--- cpu/x86/pc/olpc/via/suspend.fth	2010-01-08 02:23:07 UTC (rev 1649)
+++ cpu/x86/pc/olpc/via/suspend.fth	2010-01-08 07:23:30 UTC (rev 1650)
@@ -31,13 +31,19 @@
    sp@ 4 -  h# f0000 ax-call  \ sp@ 4 - is a dummy pdir-va location
 [then]
 \  sum-forth
+   lock[
+   " init" pic-node $call-method
+   " setup-apic" apic-ih $call-method
+   " setup-io-apic" io-apic-ih $call-method
+   d# 10 set-tick-limit
+   ]unlock
 ;
 : kb-suspend  ( -- )
    sci-wakeup
    begin
       begin  1 ms key?  while  key  dup [char] q = abort" Quit"  emit  repeat
       s3
-   again   
+   again
 ;
 : s3-suspend
    audio-ih  if  audio-ih close-dev  0 to audio-ih  then