Changeset 2958

Timestamp:

Apr 30, 2012 7:38:14 PM (13 months ago)

Author:

wmb

Message:

OLPC trac 11823 - sys-time&date was returning the wrong month. OFW represents month numbers as 1..12, consistent with human usage, while POSIX localtime() represents them as 0..11, more convenient for indexing into C arrays.

File:

• forth/kernel/sysio.fth (modified) (1 diff)

forth/kernel/sysio.fth

@@ -172 +172 @@
 : l@+  ( adr -- l adr' )  dup l@  swap la1+  ;
 : sys-time&date  ( -- s m h d m y )
-   d# 64 syscall retval                     ( adr )
-   l@+ l@+ l@+ l@+ l@+ l@+ drop  d# 1900 +  ( s m h d m y )
+   d# 64 syscall retval                        ( adr )
+   l@+ l@+ l@+ l@+ l@+ 1+ l@+ drop  d# 1900 +  ( s m h d m y )
 ;