diff options
| author | BALATON Zoltan <balaton@eik.bme.hu> | 2019-07-21 03:37:26 +0200 |
|---|---|---|
| committer | Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk> | 2019-10-12 10:06:28 +0100 |
| commit | f28e16f9aab36f723df525e8a2a1a798b18e19bd (patch) | |
| tree | 8c157d600ba7ffd980d07110f3dc98202f4d64e7 | |
| parent | 412fc43324209cecddbf3e39c648a81fa0d57953 (diff) | |
| download | qemu-openbios-f28e16f9aab36f723df525e8a2a1a798b18e19bd.tar.gz | |
admin/devices.fs: Format assigned-addresses property
To help reading property listing also format assigned-addresses
property the same way as reg was already formatted.
Signed-off-by: BALATON Zoltan <balaton@eik.bme.hu>
| -rw-r--r-- | 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 6f9e8efb..38f6ad6b 100644 --- a/forth/admin/devices.fs +++ b/forth/admin/devices.fs @@ -417,7 +417,7 @@ \ This function hardwires data formats to particular node properties : (.property-by-name) ( name-str name-len data len -- ) - 2over " reg" strcmp 0= if + 2over 2dup " reg" strcmp 0= -rot " assigned-addresses" strcmp 0= or if my-#acells my-#scells 2swap .p-reg 2drop exit then |