diff options
| author | Segher Boessenkool <segher@kernel.crashing.org> | 2010-11-06 01:17:02 +0000 |
|---|---|---|
| committer | Andreas Färber <afaerber@suse.de> | 2010-11-06 01:17:02 +0000 |
| commit | 21e461a4e783bf2cf38f534dbe26286feea36500 (patch) | |
| tree | 5d49823a86b6b3f0c4e70d24676d52e3225cfbed | |
| parent | cddf823b54d46696c55ce7541b959d1a5c1e3357 (diff) | |
| download | openbios-21e461a4e783bf2cf38f534dbe26286feea36500.zip openbios-21e461a4e783bf2cf38f534dbe26286feea36500.tar.gz openbios-21e461a4e783bf2cf38f534dbe26286feea36500.tar.bz2 | |
Optimize .properties array display by 0.r
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
| -rw-r--r-- | forth/admin/devices.fs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/forth/admin/devices.fs b/forth/admin/devices.fs index dbb4646..64be473 100644 --- a/forth/admin/devices.fs +++ b/forth/admin/devices.fs @@ -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 |