Changeset 2879


Ignore:
Timestamp:
Feb 24, 2012, 7:40:33 AM (2 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.