r1617 - cpu/x86/pc/olpc/via

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  ( )