[openfirmware] [commit] r2879 - dev
repository service
svn at openfirmware.info
Fri Feb 24 07:40:34 CET 2012
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
;
More information about the openfirmware
mailing list