Changeset 2961


Ignore:
Timestamp:
May 1, 2012, 4:36:22 AM (2 years ago)
Author:
quozl
Message:

OLPC trac 11823 - increment the value not the address

File:
1 edited

Legend:

Unmodified
Added
Removed
  • forth/kernel/sysio.fth

    r2958 r2961  
    172172: l@+  ( adr -- l adr' )  dup l@  swap la1+  ; 
    173173: sys-time&date  ( -- s m h d m y ) 
    174    d# 64 syscall retval                        ( adr ) 
    175    l@+ l@+ l@+ l@+ l@+ 1+ l@+ drop  d# 1900 +  ( s m h d m y ) 
     174   d# 64 syscall retval                 ( adr ) 
     175   l@+ l@+ l@+ l@+ l@+ l@+ drop         ( s m h d m-1 y-1900 ) 
     176   swap 1+ swap  d# 1900 +              ( s m h d m y ) 
    176177; 
    177178 
Note: See TracChangeset for help on using the changeset viewer.