[openfirmware] r1617 - cpu/x86/pc/olpc/via
svn at openfirmware.info
svn at openfirmware.info
Wed Dec 16 00:32:49 CET 2009
Author: wmb
Date: 2009-12-16 00:32:49 +0100 (Wed, 16 Dec 2009)
New Revision: 1617
Modified:
cpu/x86/pc/olpc/via/runin.fth
Log:
Via manufacturing tests - further eliminated the second call to NTP
during .clocks.
Modified: cpu/x86/pc/olpc/via/runin.fth
===================================================================
--- cpu/x86/pc/olpc/via/runin.fth 2009-12-15 22:33:41 UTC (rev 1616)
+++ cpu/x86/pc/olpc/via/runin.fth 2009-12-15 23:32:49 UTC (rev 1617)
@@ -183,18 +183,20 @@
;
d# 4 constant rtc-threshold
+0 value ntp-seconds
+0 value rtc-seconds
: .clocks ( -- )
- ntp>time&date time&date
- ." RTC: " .date space .time cr ." NTP: " .date space .time cr
+ ." RTC: " rtc-seconds unix-seconds> .date space .time ." UTC" cr
+ ." NTP: " ntp-seconds unix-seconds> .date space .time ." UTC" cr
;
: verify-rtc-date ( -- )
\ XXX check RTC power lost bit
." Getting time from NTP server .. "
begin ntp-timestamp while ." Retry " repeat ( d.timestamp )
- ntp>time&date >unix-seconds ( ntp-seconds )
- time&date >unix-seconds ( ntp-seconds rtc-seconds )
- - ( lost-seconds )
+ ntp>time&date >unix-seconds to ntp-seconds
+ time&date >unix-seconds to rtc-seconds
+ ntp-seconds rtc-seconds - ( lost-seconds )
dup rtc-threshold > if ( lost-seconds )
page show-fail ( lost-seconds )
." Clock lost " .d ." seconds since SMT" cr ( )
More information about the openfirmware
mailing list