Changeset 2879


Ignore:
Timestamp:
Feb 24, 2012, 6:40:33 AM (4 years ago)
Author:
quozl
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dev/ds1385r.fth

    r2679 r2879  
    154154;
    155155
    156 : selftest  ( -- flag )
     156: selftest  ( -- error? )
    157157   open drop
    158    check-battery  \ Don't display the message here because "open" will do it
    159    check-tick or
    160    get-time .date space .time cr
    161    get-time 2nip 2nip nip
    162    d# 2011 < dup  if  ." Date in RTC is too early" cr  then
     158   check-battery                                ( error? )
     159   check-tick or                                ( error? )
     160   get-time .date space .time cr                ( error? )
     161   get-time 2nip 2nip nip                       ( error? year )
     162   d# 2011 < dup  if                            ( error? bad-year? )
     163      ." Date in RTC is too early" cr
     164   then
     165   or                                           ( error? )
    163166   close
    164167;
Note: See TracChangeset for help on using the changeset viewer.