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