[openfirmware] [commit] r1800 - cpu/x86/pc/olpc/via

[repository service]

Author: wmb
Date: Fri Apr 30 23:00:05 2010
New Revision: 1800
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1800

Log:
OLPC XO-1.5 - added heat-spreader temperature test to /switches selftest, suppressed in SMT and FINAL test phases, and added reg properties to /switches and /leds nodes so test-all will run those tests.

Modified:
   cpu/x86/pc/olpc/via/leds.fth
   cpu/x86/pc/olpc/via/switches.fth
   cpu/x86/pc/olpc/via/temptest.fth

Modified: cpu/x86/pc/olpc/via/leds.fth
==============================================================================
--- cpu/x86/pc/olpc/via/leds.fth	Fri Apr 30 08:27:41 2010	(r1799)
+++ cpu/x86/pc/olpc/via/leds.fth	Fri Apr 30 23:00:05 2010	(r1800)
@@ -2,6 +2,7 @@
 purpose: Driver/selftest for OLPC XO-1.5 LEDs
 
 0 0  " 0"  " /" begin-package
+0 0 reg  \ So test-all will run the test
 " leds" device-name
 : open  ( -- okay? )  true  ;
 : close  ( -- )  ;

Modified: cpu/x86/pc/olpc/via/switches.fth
==============================================================================
--- cpu/x86/pc/olpc/via/switches.fth	Fri Apr 30 08:27:41 2010	(r1799)
+++ cpu/x86/pc/olpc/via/switches.fth	Fri Apr 30 23:00:05 2010	(r1800)
@@ -3,6 +3,7 @@
 
 0 0  " 0"  " /" begin-package
 " switches" device-name
+0 0 reg  \ So test-all will run the test
 : open  ( -- okay? )  true  ;
 : close  ( -- )  ;
 : lid?    ( -- flag )  h# 48 acpi-l@ h#  80 and 0=  ;

Modified: cpu/x86/pc/olpc/via/temptest.fth
==============================================================================
--- cpu/x86/pc/olpc/via/temptest.fth	Fri Apr 30 08:27:41 2010	(r1799)
+++ cpu/x86/pc/olpc/via/temptest.fth	Fri Apr 30 23:00:05 2010	(r1800)
@@ -1,6 +1,7 @@
 purpose: Test for heat spreader on OLPC XO-1.5
 \ See license at end of file
 
+dev /switches
 : cold-secs  ( n -- )  d# 100 *  0  do  safe-idle  loop  ;
 : hot-secs  ( n -- )  d# 1000 *  0  do  ms-factor spins  loop  ;
 : temp-rise  ( -- delta-degrees )
@@ -21,6 +22,15 @@
    then                                            ( fail? )
    black-letters
 ;
+: selftest  ( -- error? )
+   selftest  if  true exit  then
+
+   \ The heat spreader is not attached in SMT test.
+   \ Final test need to be very fast, and anyway the preceding
+   \ runin test has already tested the heat spreader
+   smt-test? final-test? or  if  false  else  .temp-rise  then
+;
+dend
 
 \ LICENSE_BEGIN
 \ Copyright (c) 2010 FirmWorks