[openfirmware] [commit] r2540 - dev/olpc/dcon

[repository service]

Author: wmb
Date: Wed Sep 28 02:57:26 2011
New Revision: 2540
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2540

Log:
OLPC XO-1.75 - retry DCON init 5 times.

Modified:
   dev/olpc/dcon/mmp2dcon.fth

Modified: dev/olpc/dcon/mmp2dcon.fth
==============================================================================
--- dev/olpc/dcon/mmp2dcon.fth	Tue Sep 27 23:21:29 2011	(r2539)
+++ dev/olpc/dcon/mmp2dcon.fth	Wed Sep 28 02:57:26 2011	(r2540)
@@ -169,11 +169,13 @@
 : dcon-off  ( -- )  smb-init  h# 12 ['] mode!  catch  if  drop  then  ;
 
 : dcon2?  ( -- flag )
-   0 ['] dcon@ catch  if  ( x )
-      drop   smb-init     ( )
-      0 ['] dcon@ catch  if  drop false exit  then
-   then
-   h# dc02 =
+   5 0  do
+      0 ['] dcon@ catch  0=  if    ( x )
+         h# dc02 =  unloop exit
+      then                         ( x )
+      drop   d# 50 ms  smb-init    ( )
+   loop
+   false
 ;
 
 : dcon-setup  ( -- error? )