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 ;