diff options
| author | BALATON Zoltan <balaton@eik.bme.hu> | 2023-01-13 22:25:10 +0100 |
|---|---|---|
| committer | Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk> | 2023-01-26 19:46:15 +0000 |
| commit | c967b4c947472ddae5c1818212ade59b831fe171 (patch) | |
| tree | fefa184c245ee415ecc0afd823f43e80f76fa434 | |
| parent | 9711c61be48330a9152593a3f36eda957b105c1f (diff) | |
| download | qemu-openbios-c967b4c947472ddae5c1818212ade59b831fe171.tar.gz | |
Use parse-nhex
Instead of reimplementing it several times use parse-nhex to decode
two hex numbers,
Signed-off-by: BALATON Zoltan <balaton@eik.bme.hu>
Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
| -rw-r--r-- | arch/sparc64/tree.fs | 6 | ||||
| -rw-r--r-- | drivers/esp.fs | 6 | ||||
| -rw-r--r-- | drivers/sbus.fs | 6 |
3 files changed, 3 insertions, 15 deletions
diff --git a/arch/sparc64/tree.fs b/arch/sparc64/tree.fs index af8948d1..f390f6c3 100644 --- a/arch/sparc64/tree.fs +++ b/arch/sparc64/tree.fs @@ -5,11 +5,7 @@ include config.fs \ ------------------------------------------------------------------------- : decode-unit-upa ( str len -- id lun ) - ascii , left-split - ( addr-R len-R addr-L len-L ) - parse-hex - -rot parse-hex - swap + 2 parse-nhex ; : encode-unit-upa ( id lun -- str len) diff --git a/drivers/esp.fs b/drivers/esp.fs index 9e37c0a0..ebf0769e 100644 --- a/drivers/esp.fs +++ b/drivers/esp.fs @@ -3,11 +3,7 @@ \ ------------------------------------------------------------------------- : decode-unit-scsi ( str len -- id lun ) - ascii , left-split - ( addr-R len-R addr-L len-L ) - parse-hex - -rot parse-hex - swap + 2 parse-nhex ; : encode-unit-scsi ( id lun -- str len) diff --git a/drivers/sbus.fs b/drivers/sbus.fs index b84a3ac7..9aa51e26 100644 --- a/drivers/sbus.fs +++ b/drivers/sbus.fs @@ -3,11 +3,7 @@ \ ------------------------------------------------------------------------- : decode-unit-sbus ( str len -- id lun ) - ascii , left-split - ( addr-R len-R addr-L len-L ) - parse-hex - -rot parse-hex - swap + 2 parse-nhex ; : encode-unit-sbus ( id lun -- str len) |