[commit] r2961 - forth/kernel

[repository service]

Author: quozl
Date: Tue May  1 04:36:22 2012
New Revision: 2961
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2961

Log:
OLPC trac 11823 - increment the value not the address

Modified:
   forth/kernel/sysio.fth

Modified: forth/kernel/sysio.fth
==============================================================================
--- forth/kernel/sysio.fth	Tue May  1 02:35:32 2012	(r2960)
+++ forth/kernel/sysio.fth	Tue May  1 04:36:22 2012	(r2961)
@@ -171,8 +171,9 @@

: 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 )
 ;

: install-wrapper-alloc  ( -- )