Changeset 2961

Timestamp:

May 1, 2012 4:36:22 AM (13 months ago)

Author:

quozl

Message:

OLPC trac 11823 - increment the value not the address

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@+ 1+ l@+ drop  d# 1900 +  ( s m h d m y )
+   d# 64 syscall retval                 ( adr )
+   l@+ l@+ l@+ l@+ l@+ l@+ drop         ( s m h d m-1 y-1900 )
+   swap 1+ swap  d# 1900 +              ( s m h d m y )
 ;