[openfirmware] [commit] r2385 - cpu/arm/olpc/1.75

[repository service]

Author: wmb
Date: Sun Jul 17 10:56:25 2011
New Revision: 2385
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2385

Log:
OLPC XO-1.75 - completed the change begun by svn 2371, this time modifying the copy of the affected code that is actually used by XO-1.75.

Modified:
   cpu/arm/olpc/1.75/mfgtest.fth

Modified: cpu/arm/olpc/1.75/mfgtest.fth
==============================================================================
--- cpu/arm/olpc/1.75/mfgtest.fth	Sat Jul 16 14:20:43 2011	(r2384)
+++ cpu/arm/olpc/1.75/mfgtest.fth	Sun Jul 17 10:56:25 2011	(r2385)
@@ -34,18 +34,21 @@
 
 : mfg-test-dev  ( $ -- )
    restore-scroller
-   ??cr  ." Testing " 2dup type cr
-   locate-device  if  ." Can't find device node" cr  exit  then  ( phandle )
-   " selftest" rot execute-phandle-method            ( return abort? )
-   if
-      ?dup  if
+   ??cr  ." Testing " 2dup type cr                     ( $ )
+   2dup locate-device  if                              ( $ )
+      2drop ." Can't find device node" cr  exit        ( -- )
+   else
+      drop                                             ( $ )
+   then                                                ( $ phandle )
+   " selftest" execute-device-method  if               ( return-code )
+      ?dup  if                                         ( return-code )
          ??cr ." Selftest failed. Return code = " .d cr
          mfg-color-red sq-border!
          false to pass?
          red-screen
          flush-keyboard
          mfg-wait-return
-      else
+      else                                                   ( )
          green-letters
          ." Okay" cr
          black-letters