diff --git a/board-qemu/slof/vio-vscsi.fs b/board-qemu/slof/vio-vscsi.fs index c457c2e..ca709f6 100644 --- a/board-qemu/slof/vio-vscsi.fs +++ b/board-qemu/slof/vio-vscsi.fs @@ -543,7 +543,7 @@ TRUE VALUE first-time-init? 0 ( devarray devcur ndev ) #dev 0 DO i 8 << 8000 or 30 << (set-target) - report-luns IF + report-luns nip IF sector l@ ( devarray devcur ndev size ) sector 8 + swap ( devarray devcur ndev lunarray size ) dup 8 + dup alloc-mem ( devarray devcur ndev lunarray size size+ mem ) diff --git a/slof/fs/scsi-host-helpers.fs b/slof/fs/scsi-host-helpers.fs index 59a3f21..56f9d33 100644 --- a/slof/fs/scsi-host-helpers.fs +++ b/slof/fs/scsi-host-helpers.fs @@ -107,5 +107,5 @@ CREATE cdb 10 allot \ 16 retries to flush out any UAs sector 200 scsi-dir-read cdb scsi-param-size 10 retry-scsi-command \ Success ? - 0= IF sector true ELSE 2drop false THEN + 0= IF sector true ELSE drop false THEN ;