[openfirmware] [commit] r3284 - cpu/arm/olpc

[repository service]

Author: quozl
Date: Wed Sep  5 02:59:42 2012
New Revision: 3284
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3284

Log:
OLPC XO-4 - Neonode, complete Lightguide Tooling test

Modified:
   cpu/arm/olpc/nn-touchscreen.fth

Modified: cpu/arm/olpc/nn-touchscreen.fth
==============================================================================
--- cpu/arm/olpc/nn-touchscreen.fth	Wed Sep  5 01:46:39 2012	(r3283)
+++ cpu/arm/olpc/nn-touchscreen.fth	Wed Sep  5 02:59:42 2012	(r3284)
@@ -691,6 +691,11 @@
 ;
 
 
+: lg-tooling  ( -- error? )
+   open  if  test-os  test-fll  else  fault  then
+   faults
+;
+
 : ir-pcb-smt  ( -- error? )
    hold-reset  connect
    open  if  test-os  else  fault  then
@@ -732,6 +737,7 @@
       h#  2  of  mb-assy  exit  endof
       h# 11  of  ir-pcb-smt  exit  endof
       h# 12  of  ir-pcb-assy  exit  endof
+      h# 13  of  lg-tooling  exit  endof
    endcase
 
    \ MB FINAL
@@ -765,18 +771,21 @@
 
 : test-pass-or-fail  ( function -- error? )
    catch  if
-      show-fail
+      show-fail  true
    else
-      show-pass
+      show-pass  false
    then
 ;
 
-: test-ir-pcb-assy  ( -- error? )
-   test-station  h# 12 to test-station                  ( test-station )
+\ touch screen (test by) test station
+: tsts  ( test-station -- error? )
+   test-station  swap to test-station                   ( test-station )
    ['] test-touchscreen test-pass-or-fail               ( test-station error? )
    swap  to test-station                                ( error? )
 ;
 
+: test-ir-pcb-assy  ( -- error? )  h# 12 tsts  ;
+: test-lightguide   ( -- error? )  h# 13 tsts  ;
 
 \ LICENSE_BEGIN
 \ Copyright (c) 2012 FirmWorks