[commit] r2879 - dev

[repository service]

Author: quozl
Date: Fri Feb 24 07:40:33 2012
New Revision: 2879
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2879

Log:
OLPC XO-1.5 - ds1385 - items left on stack after selftest, fix for #11653

Modified:
   dev/ds1385r.fth

Modified: dev/ds1385r.fth
==============================================================================
--- dev/ds1385r.fth	Fri Feb 24 07:16:47 2012	(r2878)
+++ dev/ds1385r.fth	Fri Feb 24 07:40:33 2012	(r2879)
@@ -153,13 +153,16 @@
 [then]
 ;

-: selftest  ( -- flag )
+: selftest  ( -- error? )
    open drop
-   check-battery  \ Don't display the message here because "open" will do it
-   check-tick or
-   get-time .date space .time cr
-   get-time 2nip 2nip nip
-   d# 2011 < dup  if  ." Date in RTC is too early" cr  then
+   check-battery				( error? )
+   check-tick or				( error? )
+   get-time .date space .time cr		( error? )
+   get-time 2nip 2nip nip			( error? year )
+   d# 2011 < dup  if				( error? bad-year? )
+      ." Date in RTC is too early" cr
+   then
+   or						( error? )
    close
 ;