[openfirmware] [commit] r1737 - forth/lib
repository service
svn at openfirmware.info
Sat Feb 13 06:48:49 CET 2010
Author: wmb
Date: Sat Feb 13 06:48:48 2010
New Revision: 1737
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1737
Log:
sprintf - fixed egregious bug in the handling of backslash escapes.
Modified:
forth/lib/printf.fth
Modified: forth/lib/printf.fth
==============================================================================
--- forth/lib/printf.fth Sat Feb 13 06:48:07 2010 (r1736)
+++ forth/lib/printf.fth Sat Feb 13 06:48:48 2010 (r1737)
@@ -38,13 +38,13 @@
: replace\ ( ... tail$ -- ... tail$' ) \ Handle backslash escapes
1/string ( ... tail$ char )
case
- [char] n of newline +spchar then
- [char] r of carret +spchar then
- [char] t of control i +spchar then
- [char] f of control l +spchar then
- [char] l of linefeed +spchar then
- [char] b of control h +spchar then
- [char] ! of bell +spchar then
+ [char] n of newline +spchar endof
+ [char] r of carret +spchar endof
+ [char] t of control i +spchar endof
+ [char] f of control l +spchar endof
+ [char] l of linefeed +spchar endof
+ [char] b of control h +spchar endof
+ [char] ! of bell +spchar endof
( default ) dup +spchar
endcase
;
More information about the openfirmware
mailing list