Virtualization/openbios
1
0
Fork 0
mirror of https://gitlab.com/qemu-project/openbios.git synced 2024-02-13 08:34:06 +08:00
Code Issues Projects Releases Wiki Activity

Optimize .properties array display by 0.r

Browse Source 
Introduce a 0.r word, suggested by Segher.
Optimize r890 by using this helper.

v4:
* Replace ."  " by space word, suggested by Segher.

Signed-off-by: Segher Boessenkool <segher@kernel.crashing.org>
Signed-off-by: Andreas Färber <andreas.faerber@web.de>
Acked-by: Segher Boessenkool <segher@kernel.crashing.org>


git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@946 f158a5a8-5612-0410-a976-696ce0be7e32
This commit is contained in:
Segher Boessenkool
2010-11-06 01:17:02 +00:00
committed by Andreas Färber
parent cddf823b54
commit 21e461a4e7
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
forth/admin/devices.fs
View File

@@ -276,6 +276,11 @@
.
;
\ Print a number zero-padded
: 0.r ( u minlen -- )
0 swap <# 1 ?do # loop #s #> type
;
: .p-bytes? ( data len -- 1 | data len 0 )
." -- " dup . ." : "
swap >r 0
@@ -283,7 +288,7 @@
dup r@ + c@
( len n ch )
pocket tohexstr dup 2 <> if ." 0" then type ." "
2 0.r space
1+
repeat
2drop r> drop 1