[OpenBIOS] r669 - ofw/core

[svn at openbios.org]

Author: wmb
Date: 2007-10-10 02:08:32 +0200 (Wed, 10 Oct 2007)
New Revision: 669

Modified:
   ofw/core/ofwcore.fth
Log:
test-all - If an individual test fails, highlight (red letters) the
error message and wait 10 seconds so the user can see it.


Modified: ofw/core/ofwcore.fth
===================================================================
--- ofw/core/ofwcore.fth	2007-10-10 00:07:12 UTC (rev 668)
+++ ofw/core/ofwcore.fth	2007-10-10 00:08:32 UTC (rev 669)
@@ -3211,7 +3211,12 @@
       method-name 2@  current-device              ( method-adr,len phandle )
       execute-phandle-method  drop                ( result )
 
-      ?dup  if  ??cr ." Selftest failed. Return code = " .d cr  then
+      ?dup  if
+         red-letters
+         ??cr ." Selftest failed. Return code = " .d cr
+         d# 10000 ms
+         black-letters
+      then
 
    then                                            (  )
 ;