[openfirmware] [commit] r2897 - in cpu/arm: mmp2 olpc
repository service
svn at openfirmware.info
Sat Mar 17 02:51:04 CET 2012
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
;
More information about the openfirmware
mailing list