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 ;