Author: quozl Date: Sat Mar 17 02:51:04 2012 New Revision: 2897 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2897
Log: OLPC - stack effect comment fixes
Modified: cpu/arm/mmp2/hash.fth cpu/arm/olpc/rtc.fth
Modified: cpu/arm/mmp2/hash.fth ============================================================================== --- cpu/arm/mmp2/hash.fth Fri Mar 16 23:18:06 2012 (r2896) +++ cpu/arm/mmp2/hash.fth Sat Mar 17 02:51:04 2012 (r2897) @@ -69,7 +69,7 @@ 0 to #hash-buf then ; -: hash-update ( adr len -- adr' len' ) +: hash-update ( adr len -- ) dup #hashed + to #hashed ( adr len ) begin dup while ( adr len ) 2dup /hash-block #hash-buf - min ( adr len adr this )
Modified: cpu/arm/olpc/rtc.fth ============================================================================== --- cpu/arm/olpc/rtc.fth Fri Mar 16 23:18:06 2012 (r2896) +++ cpu/arm/olpc/rtc.fth Sat Mar 17 02:51:04 2012 (r2897) @@ -77,7 +77,7 @@ then get-time .date space .time cr get-time 2nip 2nip nip - d# 2011 < dup if ." Date in RTC is too early" cr then + d# 2011 < dup if ." Date in RTC is too early" cr then ( -- flag ) close ;