[openfirmware] [commit] r2961 - forth/kernel
repository service
svn at openfirmware.info
Tue May 1 04:36:23 CEST 2012
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 at + ( adr -- l adr' ) dup l@ swap la1+ ;
: sys-time&date ( -- s m h d m y )
- d# 64 syscall retval ( adr )
- l at + l at + l at + l at + l at + 1+ l at + drop d# 1900 + ( s m h d m y )
+ d# 64 syscall retval ( adr )
+ l at + l at + l at + l at + l at + l at + drop ( s m h d m-1 y-1900 )
+ swap 1+ swap d# 1900 + ( s m h d m y )
;
: install-wrapper-alloc ( -- )
More information about the openfirmware
mailing list