[OpenBIOS] [PATCH v3 1/5] Optimize .properties array display by 0.r

[Segher Boessenkool]

> Introduce a 0.r word, suggested by Segher.
> Optimize r890 by using this helper.
>
> Cc: Segher Boessenkool <segher at kernel.crashing.org>
> Signed-off-by: Andreas Färber <andreas.faerber at web.de>
> ---
>  Segher, mind adding your SoB for 0.r? Thanks.

Signed-off-by: Segher Boessenkool <segher at kernel.crashing.org>

If you replace   ."  "   by   space   , here's my

Acked-by: Segher Boessenkool <segher at kernel.crashing.org>

for the rest of the patch :-)

>  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..b48e2f1 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 ."  "
>      1+
>    repeat
>    2drop r> drop 1
> --
> 1.7.3
>