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

[repository service]

Author: quozl
Date: Wed Mar 13 03:33:30 2013
New Revision: 3604
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3604

Log:
OLPC XO-4 - touchscreen tests.  FINAL test phase: remove the existing adjacent axes test, use the new nonlinearity test.  SHIP test phase: restore scribble for general use by field.

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

Modified: cpu/arm/olpc/nn-touchscreen.fth
==============================================================================
--- cpu/arm/olpc/nn-touchscreen.fth	Wed Mar 13 03:21:56 2013	(r3603)
+++ cpu/arm/olpc/nn-touchscreen.fth	Wed Mar 13 03:33:30 2013	(r3604)
@@ -919,6 +919,10 @@
    ['] (.tsmsg) to .tsmsg
 ;
 
+: scribble
+   ev(  ['] dot  ev  )ev
+;
+
 \ Nonlinearity test
 
 d# 2000 constant #pts-max
@@ -1147,7 +1151,7 @@
 \ 2) Establish threshold for nonlinearity and fail if exceeded
 \ 3) Perhaps integrate the nonlinearity test with the targets test?
 
-: scribble
+: test-nonlinearity
    alloc-bufs
       begin  ev(
          0 to #pts
@@ -1166,10 +1170,6 @@
    free-bufs
 ;
 
-\ : scribble
-\    ev(  ['] dot  ev  )ev
-\ ;
-
 
 0 value dx
 0 value dy
@@ -1332,6 +1332,14 @@
    faults
 ;
 
+: mb-final  ( -- error? )
+   open  0=  if true exit  then
+   d# 86400.000 to test-timeout
+   ['] test-nonlinearity  catch  ?dup  if  .error fault  then
+   close
+   faults
+;
+
 : selftest  ( -- error? )
    absent?  if  ." No touchscreen expected" cr  false exit  then
 
@@ -1340,7 +1348,7 @@
    test-station case
       h#  1  of  mb-smt  exit  endof
       h#  2  of  mb-assy  exit  endof
-      h#  4  of  mb-assy  exit  endof
+      h#  4  of  mb-final  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