Changeset 2961


Ignore:
Timestamp:
May 1, 2012, 4:36:22 AM (3 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.