[OpenBIOS] [PATCH] Zero-pad byte properties
Andreas Färber
andreas.faerber at web.de
Mon Oct 4 22:08:11 CEST 2010
.properties before:
someproperty -- 3 : 1 42 3
Now:
someproperty -- 3 : 01 42 03
Signed-off-by: Andreas Färber <andreas.faerber at web.de>
---
forth/admin/devices.fs | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/forth/admin/devices.fs b/forth/admin/devices.fs
index e24c6da..dbb4646 100644
--- a/forth/admin/devices.fs
+++ b/forth/admin/devices.fs
@@ -283,7 +283,7 @@
dup r@ + c@
( len n ch )
- pocket tohexstr type ." "
+ pocket tohexstr dup 2 <> if ." 0" then type ." "
1+
repeat
2drop r> drop 1
--
1.7.3
More information about the OpenBIOS
mailing list