[SLOF] [PATCH] scsi: Remove unused read-6 command

[Alexey Kardashevskiy]

On 14/10/16 21:45, Thomas Huth wrote:
> SLOF does not use the obsolete "READ (6)" SCSI command, and
> according to the comment in front of the "scsi-build-read?"
> Forth word, it is even not supported by a couple of devices
> anymore, so we do not need to keep the code for this command
> in our SLOF sources around.
> 
> Signed-off-by: Thomas Huth <thuth at redhat.com>

Thanks, applied.

> ---
>  slof/fs/scsi-support.fs | 50 -------------------------------------------------
>  1 file changed, 50 deletions(-)
> 
> diff --git a/slof/fs/scsi-support.fs b/slof/fs/scsi-support.fs
> index adb12e3..d24c8a1 100644
> --- a/slof/fs/scsi-support.fs
> +++ b/slof/fs/scsi-support.fs
> @@ -417,56 +417,6 @@ CONSTANT scsi-length-mode-sense-10-data
>  ;
>  
>  \ ***************************************************************************
> -\ SCSI-Command: READ (6)
> -\         Type: Block Command (SBC-3 clause 5.7)
> -\ ***************************************************************************
> -\ Forth Word:   scsi-build-read-6  ( block# #blocks cdb -- )
> -\ ***************************************************************************
> -\ this SCSI command uses 21 bits to represent start LBA
> -\ and 8 bits to specify the numbers of blocks to read
> -\ The value of 0 blocks is interpreted as 256 blocks
> -\
> -\ command code
> -08 CONSTANT scsi-cmd-read-6
> -
> -\ CDB structure
> -STRUCT
> -   /c FIELD read-6>operation-code      \ 08h
> -   /c FIELD read-6>block-address-msb   \ upper 5 bits
> -   /w FIELD read-6>block-address       \ lower 16 bits
> -   /c FIELD read-6>length              \ number of blocks to read
> -   /c FIELD read-6>control             \ CDB control
> -CONSTANT scsi-length-read-6
> -
> -: scsi-build-read-6                    ( block# #blocks cdb -- )
> -   >r                                  ( block# #blocks ) ( R: -- cdb )
> -   r@ scsi-length-read-6 erase         \ 6 bytes CDB
> -	scsi-cmd-read-6 r@ read-6>operation-code c! ( block# #blocks )
> -
> -   \ check block count to read (#blocks)
> -   dup d# 255 >                        \ #blocks exceeded limit ?
> -   IF
> -      scsi-inc-errors
> -      drop 1                           \ replace with any valid number
> -   THEN
> -   r@ read-6>length c!                 \ set #blocks to read
> -
> -   \ check starting block number (block#)
> -   dup 1fffff >                        \ check address upper limit
> -   IF
> -      scsi-inc-errors
> -      drop                             \ remove original block#
> -      1fffff                           \ replace with any valid address
> -   THEN
> -   dup d# 16 rshift
> -   r@ read-6>block-address-msb c!      \ set upper 5 bits
> -   ffff and
> -   r@ read-6>block-address w!                \ set lower 16 bits
> -   scsi-param-control r> read-6>control c!   ( R: cdb -- )
> -   scsi-length-read-6 to scsi-param-size     \ update CDB length
> -;
> -
> -\ ***************************************************************************
>  \ SCSI-Command: READ (10)
>  \         Type: Block Command (SBC-3 clause 5.8)
>  \ ***************************************************************************
> 


-- 
Alexey