xref: /titanic_41/usr/src/uts/common/io/scsi/targets/st.c (revision bd5222b6bd017872d8b0f84855a82a20fc5ce74d)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 
22 /*
23  *  Copyright (c) 1990, 2010, Oracle and/or its affiliates. All rights reserved.
24  *  Copyright (c) 2011 Bayard G. Bell. All rights reserved.
25  */
26 
27 /*
28  * SCSI	 SCSA-compliant and not-so-DDI-compliant Tape Driver
29  */
30 
31 #if defined(lint) && !defined(DEBUG)
32 #define	DEBUG	1
33 #endif
34 
35 #include <sys/modctl.h>
36 #include <sys/scsi/scsi.h>
37 #include <sys/mtio.h>
38 #include <sys/scsi/targets/stdef.h>
39 #include <sys/file.h>
40 #include <sys/kstat.h>
41 #include <sys/ddidmareq.h>
42 #include <sys/ddi.h>
43 #include <sys/sunddi.h>
44 #include <sys/byteorder.h>
45 
46 #define	IOSP	KSTAT_IO_PTR(un->un_stats)
47 /*
48  * stats maintained only for reads/writes as commands
49  * like rewind etc skew the wait/busy times
50  */
51 #define	IS_RW(bp) 	((bp)->b_bcount > 0)
52 #define	ST_DO_KSTATS(bp, kstat_function) \
53 	if ((bp != un->un_sbufp) && un->un_stats && IS_RW(bp)) { \
54 		kstat_function(IOSP); \
55 	}
56 
57 #define	ST_DO_ERRSTATS(un, x)  \
58 	if (un->un_errstats) { \
59 		struct st_errstats *stp; \
60 		stp = (struct st_errstats *)un->un_errstats->ks_data; \
61 		stp->x.value.ul++; \
62 	}
63 
64 #define	FILL_SCSI1_LUN(devp, pkt) 					\
65 	if ((devp)->sd_inq->inq_ansi == 0x1) {				\
66 		int _lun;						\
67 		_lun = ddi_prop_get_int(DDI_DEV_T_ANY, (devp)->sd_dev,	\
68 		    DDI_PROP_DONTPASS, SCSI_ADDR_PROP_LUN, 0);		\
69 		if (_lun > 0) {						\
70 			((union scsi_cdb *)(pkt)->pkt_cdbp)->scc_lun =	\
71 			    _lun;					\
72 		}							\
73 	}
74 
75 /*
76  * get an available contig mem header, cp.
77  * when big_enough is true, we will return NULL, if no big enough
78  * contig mem is found.
79  * when big_enough is false, we will try to find cp containing big
80  * enough contig mem. if not found, we will ruturn the last cp available.
81  *
82  * used by st_get_contig_mem()
83  */
84 #define	ST_GET_CONTIG_MEM_HEAD(un, cp, len, big_enough) {		\
85 	struct contig_mem *tmp_cp = NULL;				\
86 	for ((cp) = (un)->un_contig_mem;				\
87 	    (cp) != NULL;						\
88 	    tmp_cp = (cp), (cp) = (cp)->cm_next) { 			\
89 		if (((cp)->cm_len >= (len)) || 				\
90 		    (!(big_enough) && ((cp)->cm_next == NULL))) { 	\
91 			if (tmp_cp == NULL) { 				\
92 				(un)->un_contig_mem = (cp)->cm_next; 	\
93 			} else { 					\
94 				tmp_cp->cm_next = (cp)->cm_next; 	\
95 			} 						\
96 			(cp)->cm_next = NULL; 				\
97 			(un)->un_contig_mem_available_num--; 		\
98 			break; 						\
99 		} 							\
100 	} 								\
101 }
102 
103 #define	ST_NUM_MEMBERS(array)	(sizeof (array) / sizeof (array[0]))
104 #define	COPY_POS(dest, source) bcopy(source, dest, sizeof (tapepos_t))
105 #define	ISALNUM(byte) \
106 	(((byte) >= 'a' && (byte) <= 'z') || \
107 	((byte) >= 'A' && (byte) <= 'Z') || \
108 	((byte) >= '0' && (byte) <= '9'))
109 
110 #define	ONE_K	1024
111 
112 #define	MAX_SPACE_CNT(cnt) if (cnt >= 0) { \
113 		if (cnt > MIN(SP_CNT_MASK, INT32_MAX)) \
114 			return (EINVAL); \
115 	} else { \
116 		if (-(cnt) > MIN(SP_CNT_MASK, INT32_MAX)) \
117 			return (EINVAL); \
118 	} \
119 
120 /*
121  * Global External Data Definitions
122  */
123 extern struct scsi_key_strings scsi_cmds[];
124 extern uchar_t	scsi_cdb_size[];
125 
126 /*
127  * Local Static Data
128  */
129 static void *st_state;
130 static char *const st_label = "st";
131 static volatile int st_recov_sz = sizeof (recov_info);
132 static const char mp_misconf[] = {
133 	"St Tape is misconfigured, MPxIO enabled and "
134 	"tape-command-recovery-disable set in st.conf\n"
135 };
136 
137 #ifdef	__x86
138 /*
139  * We need to use below DMA attr to alloc physically contiguous
140  * memory to do I/O in big block size
141  */
142 static ddi_dma_attr_t st_contig_mem_dma_attr = {
143 	DMA_ATTR_V0,    /* version number */
144 	0x0,		/* lowest usable address */
145 	0xFFFFFFFFull,  /* high DMA address range */
146 	0xFFFFFFFFull,  /* DMA counter register */
147 	1,		/* DMA address alignment */
148 	1,		/* DMA burstsizes */
149 	1,		/* min effective DMA size */
150 	0xFFFFFFFFull,  /* max DMA xfer size */
151 	0xFFFFFFFFull,  /* segment boundary */
152 	1,		/* s/g list length */
153 	1,		/* granularity of device */
154 	0		/* DMA transfer flags */
155 };
156 
157 static ddi_device_acc_attr_t st_acc_attr = {
158 	DDI_DEVICE_ATTR_V0,
159 	DDI_NEVERSWAP_ACC,
160 	DDI_STRICTORDER_ACC
161 };
162 
163 /* set limitation for the number of contig_mem */
164 static int st_max_contig_mem_num = ST_MAX_CONTIG_MEM_NUM;
165 #endif
166 
167 /*
168  * Tunable parameters
169  *
170  * DISCLAIMER
171  * ----------
172  * These parameters are intended for use only in system testing; if you use
173  * them in production systems, you do so at your own risk. Altering any
174  * variable not listed below may cause unpredictable system behavior.
175  *
176  * st_check_media_time
177  *
178  *   Three second state check
179  *
180  * st_allow_large_xfer
181  *
182  *   Gated with ST_NO_RECSIZE_LIMIT
183  *
184  *   0 - Transfers larger than 64KB will not be allowed
185  *       regardless of the setting of ST_NO_RECSIZE_LIMIT
186  *   1 - Transfers larger than 64KB will be allowed
187  *       if ST_NO_RECSIZE_LIMIT is TRUE for the drive
188  *
189  * st_report_soft_errors_on_close
190  *
191  *  Gated with ST_SOFT_ERROR_REPORTING
192  *
193  *  0 - Errors will not be reported on close regardless
194  *      of the setting of ST_SOFT_ERROR_REPORTING
195  *
196  *  1 - Errors will be reported on close if
197  *      ST_SOFT_ERROR_REPORTING is TRUE for the drive
198  */
199 static int st_selection_retry_count = ST_SEL_RETRY_COUNT;
200 static int st_retry_count	= ST_RETRY_COUNT;
201 
202 static int st_io_time		= ST_IO_TIME;
203 static int st_long_timeout_x	= ST_LONG_TIMEOUT_X;
204 
205 static int st_space_time	= ST_SPACE_TIME;
206 static int st_long_space_time_x	= ST_LONG_SPACE_TIME_X;
207 
208 static int st_error_level	= SCSI_ERR_RETRYABLE;
209 static int st_check_media_time	= 3000000;	/* 3 Second State Check */
210 
211 static int st_max_throttle	= ST_MAX_THROTTLE;
212 
213 static clock_t st_wait_cmds_complete = ST_WAIT_CMDS_COMPLETE;
214 
215 static int st_allow_large_xfer = 1;
216 static int st_report_soft_errors_on_close = 1;
217 
218 /*
219  * End of tunable parameters list
220  */
221 
222 
223 
224 /*
225  * Asynchronous I/O and persistent errors, refer to PSARC/1995/228
226  *
227  * Asynchronous I/O's main offering is that it is a non-blocking way to do
228  * reads and writes.  The driver will queue up all the requests it gets and
229  * have them ready to transport to the HBA.  Unfortunately, we cannot always
230  * just ship the I/O requests to the HBA, as there errors and exceptions
231  * that may happen when we don't want the HBA to continue.  Therein comes
232  * the flush-on-errors capability.  If the HBA supports it, then st will
233  * send in st_max_throttle I/O requests at the same time.
234  *
235  * Persistent errors : This was also reasonably simple.  In the interrupt
236  * routines, if there was an error or exception (FM, LEOT, media error,
237  * transport error), the persistent error bits are set and shuts everything
238  * down, but setting the throttle to zero.  If we hit and exception in the
239  * HBA, and flush-on-errors were set, we wait for all outstanding I/O's to
240  * come back (with CMD_ABORTED), then flush all bp's in the wait queue with
241  * the appropriate error, and this will preserve order. Of course, depending
242  * on the exception we have to show a zero read or write before we show
243  * errors back to the application.
244  */
245 
246 extern const int st_ndrivetypes;	/* defined in st_conf.c */
247 extern const struct st_drivetype st_drivetypes[];
248 extern const char st_conf_version[];
249 
250 #ifdef STDEBUG
251 static int st_soft_error_report_debug = 0;
252 volatile int st_debug = 0;
253 static volatile dev_info_t *st_lastdev;
254 static kmutex_t st_debug_mutex;
255 #endif
256 
257 #define	ST_MT02_NAME	"Emulex  MT02 QIC-11/24  "
258 
259 static const struct vid_drivetype {
260 	char	*vid;
261 	char	type;
262 } st_vid_dt[] = {
263 	{"LTO-CVE ",	MT_LTO},
264 	{"QUANTUM ",    MT_ISDLT},
265 	{"SONY    ",    MT_ISAIT},
266 	{"STK     ",	MT_ISSTK9840}
267 };
268 
269 static const struct driver_minor_data {
270 	char	*name;
271 	int	minor;
272 } st_minor_data[] = {
273 	/*
274 	 * The top 4 entries are for the default densities,
275 	 * don't alter their position.
276 	 */
277 	{"",	0},
278 	{"n",	MT_NOREWIND},
279 	{"b",	MT_BSD},
280 	{"bn",	MT_NOREWIND | MT_BSD},
281 	{"l",	MT_DENSITY1},
282 	{"m",	MT_DENSITY2},
283 	{"h",	MT_DENSITY3},
284 	{"c",	MT_DENSITY4},
285 	{"u",	MT_DENSITY4},
286 	{"ln",	MT_DENSITY1 | MT_NOREWIND},
287 	{"mn",	MT_DENSITY2 | MT_NOREWIND},
288 	{"hn",	MT_DENSITY3 | MT_NOREWIND},
289 	{"cn",	MT_DENSITY4 | MT_NOREWIND},
290 	{"un",	MT_DENSITY4 | MT_NOREWIND},
291 	{"lb",	MT_DENSITY1 | MT_BSD},
292 	{"mb",	MT_DENSITY2 | MT_BSD},
293 	{"hb",	MT_DENSITY3 | MT_BSD},
294 	{"cb",	MT_DENSITY4 | MT_BSD},
295 	{"ub",	MT_DENSITY4 | MT_BSD},
296 	{"lbn",	MT_DENSITY1 | MT_NOREWIND | MT_BSD},
297 	{"mbn",	MT_DENSITY2 | MT_NOREWIND | MT_BSD},
298 	{"hbn",	MT_DENSITY3 | MT_NOREWIND | MT_BSD},
299 	{"cbn",	MT_DENSITY4 | MT_NOREWIND | MT_BSD},
300 	{"ubn",	MT_DENSITY4 | MT_NOREWIND | MT_BSD}
301 };
302 
303 /* strings used in many debug and warning messages */
304 static const char wr_str[]  = "write";
305 static const char rd_str[]  = "read";
306 static const char wrg_str[] = "writing";
307 static const char rdg_str[] = "reading";
308 static const char *space_strs[] = {
309 	"records",
310 	"filemarks",
311 	"sequential filemarks",
312 	"eod",
313 	"setmarks",
314 	"sequential setmarks",
315 	"Reserved",
316 	"Reserved"
317 };
318 static const char *load_strs[] = {
319 	"unload",		/* LD_UNLOAD		0 */
320 	"load",			/* LD_LOAD		1 */
321 	"retension",		/* LD_RETEN		2 */
322 	"load reten",		/* LD_LOAD | LD_RETEN	3 */
323 	"eod",			/* LD_EOT		4 */
324 	"load EOD",		/* LD_LOAD | LD_EOT	5 */
325 	"reten EOD",		/* LD_RETEN | LD_EOT	6 */
326 	"load reten EOD"	/* LD_LOAD|LD_RETEN|LD_EOT 7 */
327 	"hold",			/* LD_HOLD		8 */
328 	"load and hold"		/* LD_LOAD | LD_HOLD	9 */
329 };
330 
331 static const char *errstatenames[] = {
332 	"COMMAND_DONE",
333 	"COMMAND_DONE_ERROR",
334 	"COMMAND_DONE_ERROR_RECOVERED",
335 	"QUE_COMMAND",
336 	"QUE_BUSY_COMMAND",
337 	"QUE_SENSE",
338 	"JUST_RETURN",
339 	"COMMAND_DONE_EACCES",
340 	"QUE_LAST_COMMAND",
341 	"COMMAND_TIMEOUT",
342 	"PATH_FAILED",
343 	"DEVICE_RESET",
344 	"DEVICE_TAMPER",
345 	"ATTEMPT_RETRY"
346 };
347 
348 const char *bogusID = "Unknown Media ID";
349 
350 /* default density offsets in the table above */
351 #define	DEF_BLANK	0
352 #define	DEF_NOREWIND	1
353 #define	DEF_BSD		2
354 #define	DEF_BSD_NR	3
355 
356 /* Sense Key, ASC/ASCQ for which tape ejection is needed */
357 
358 static struct tape_failure_code {
359 	uchar_t key;
360 	uchar_t add_code;
361 	uchar_t qual_code;
362 } st_tape_failure_code[] = {
363 	{ KEY_HARDWARE_ERROR, 0x15, 0x01},
364 	{ KEY_HARDWARE_ERROR, 0x44, 0x00},
365 	{ KEY_HARDWARE_ERROR, 0x53, 0x00},
366 	{ KEY_HARDWARE_ERROR, 0x53, 0x01},
367 	{ KEY_NOT_READY, 0x53, 0x00},
368 	{ 0xff}
369 };
370 
371 /*  clean bit position and mask */
372 
373 static struct cln_bit_position {
374 	ushort_t cln_bit_byte;
375 	uchar_t cln_bit_mask;
376 } st_cln_bit_position[] = {
377 	{ 21, 0x08},
378 	{ 70, 0xc0},
379 	{ 18, 0x81}  /* 80 bit indicates in bit mode, 1 bit clean light is on */
380 };
381 
382 /*
383  * architecture dependent allocation restrictions. For x86, we'll set
384  * dma_attr_addr_hi to st_max_phys_addr and dma_attr_sgllen to
385  * st_sgl_size during _init().
386  */
387 #if defined(__sparc)
388 static ddi_dma_attr_t st_alloc_attr = {
389 	DMA_ATTR_V0,	/* version number */
390 	0x0,		/* lowest usable address */
391 	0xFFFFFFFFull,	/* high DMA address range */
392 	0xFFFFFFFFull,	/* DMA counter register */
393 	1,		/* DMA address alignment */
394 	1,		/* DMA burstsizes */
395 	1,		/* min effective DMA size */
396 	0xFFFFFFFFull,	/* max DMA xfer size */
397 	0xFFFFFFFFull,	/* segment boundary */
398 	1,		/* s/g list length */
399 	512,		/* granularity of device */
400 	0		/* DMA transfer flags */
401 };
402 #elif defined(__x86)
403 static ddi_dma_attr_t st_alloc_attr = {
404 	DMA_ATTR_V0,	/* version number */
405 	0x0,		/* lowest usable address */
406 	0x0,		/* high DMA address range [set in _init()] */
407 	0xFFFFull,	/* DMA counter register */
408 	512,		/* DMA address alignment */
409 	1,		/* DMA burstsizes */
410 	1,		/* min effective DMA size */
411 	0xFFFFFFFFull,	/* max DMA xfer size */
412 	0xFFFFFFFFull,  /* segment boundary */
413 	0,		/* s/g list length */
414 	512,		/* granularity of device [set in _init()] */
415 	0		/* DMA transfer flags */
416 };
417 uint64_t st_max_phys_addr = 0xFFFFFFFFull;
418 int st_sgl_size = 0xF;
419 
420 #endif
421 
422 /*
423  * Configuration Data:
424  *
425  * Device driver ops vector
426  */
427 static int st_aread(dev_t dev, struct aio_req *aio, cred_t *cred_p);
428 static int st_awrite(dev_t dev, struct aio_req *aio, cred_t *cred_p);
429 static int st_read(dev_t  dev,  struct   uio   *uio_p,   cred_t *cred_p);
430 static int st_write(dev_t  dev,  struct  uio   *uio_p,   cred_t *cred_p);
431 static int st_open(dev_t  *devp,  int  flag,  int  otyp,  cred_t *cred_p);
432 static int st_close(dev_t  dev,  int  flag,  int  otyp,  cred_t *cred_p);
433 static int st_strategy(struct buf *bp);
434 static int st_queued_strategy(buf_t *bp);
435 static int st_ioctl(dev_t dev, int cmd, intptr_t arg, int  flag,
436 	cred_t *cred_p, int *rval_p);
437 extern int nulldev(), nodev();
438 
439 static struct cb_ops st_cb_ops = {
440 	st_open,		/* open */
441 	st_close,		/* close */
442 	st_queued_strategy,	/* strategy Not Block device but async checks */
443 	nodev,			/* print */
444 	nodev,			/* dump */
445 	st_read,		/* read */
446 	st_write,		/* write */
447 	st_ioctl,		/* ioctl */
448 	nodev,			/* devmap */
449 	nodev,			/* mmap */
450 	nodev,			/* segmap */
451 	nochpoll,		/* poll */
452 	ddi_prop_op,		/* cb_prop_op */
453 	0,			/* streamtab  */
454 	D_64BIT | D_MP | D_NEW | D_HOTPLUG |
455 	D_OPEN_RETURNS_EINTR,	/* cb_flag */
456 	CB_REV,			/* cb_rev */
457 	st_aread, 		/* async I/O read entry point */
458 	st_awrite		/* async I/O write entry point */
459 
460 };
461 
462 static int st_info(dev_info_t *dip, ddi_info_cmd_t infocmd, void *arg,
463 		void **result);
464 static int st_probe(dev_info_t *dev);
465 static int st_attach(dev_info_t *dev, ddi_attach_cmd_t cmd);
466 static int st_detach(dev_info_t *dev, ddi_detach_cmd_t cmd);
467 
468 static struct dev_ops st_ops = {
469 	DEVO_REV,		/* devo_rev, */
470 	0,			/* refcnt  */
471 	st_info,		/* info */
472 	nulldev,		/* identify */
473 	st_probe,		/* probe */
474 	st_attach,		/* attach */
475 	st_detach,		/* detach */
476 	nodev,			/* reset */
477 	&st_cb_ops,		/* driver operations */
478 	(struct bus_ops *)0,	/* bus operations */
479 	nulldev,		/* power */
480 	ddi_quiesce_not_needed,	/* devo_quiesce */
481 };
482 
483 /*
484  * Local Function Declarations
485  */
486 static char *st_print_scsi_cmd(char cmd);
487 static void st_print_cdb(dev_info_t *dip, char *label, uint_t level,
488     char *title, char *cdb);
489 static void st_clean_print(dev_info_t *dev, char *label, uint_t level,
490     char *title, char *data, int len);
491 static int st_doattach(struct scsi_device *devp, int (*canwait)());
492 static void st_known_tape_type(struct scsi_tape *un);
493 static int st_get_conf_from_st_dot_conf(struct scsi_tape *, char *,
494     struct st_drivetype *);
495 static int st_get_conf_from_st_conf_dot_c(struct scsi_tape *, char *,
496     struct st_drivetype *);
497 static int st_get_conf_from_tape_drive(struct scsi_tape *, char *,
498     struct st_drivetype *);
499 static int st_get_densities_from_tape_drive(struct scsi_tape *,
500     struct st_drivetype *);
501 static int st_get_timeout_values_from_tape_drive(struct scsi_tape *,
502     struct st_drivetype *);
503 static int st_get_timeouts_value(struct scsi_tape *, uchar_t, ushort_t *,
504     ushort_t);
505 static int st_get_default_conf(struct scsi_tape *, char *,
506     struct st_drivetype *);
507 static int st_rw(dev_t dev, struct uio *uio, int flag);
508 static int st_arw(dev_t dev, struct aio_req *aio, int flag);
509 static int st_find_eod(struct scsi_tape *un);
510 static int st_check_density_or_wfm(dev_t dev, int wfm, int mode, int stepflag);
511 static int st_uscsi_cmd(struct scsi_tape *un, struct uscsi_cmd *, int flag);
512 static int st_mtioctop(struct scsi_tape *un, intptr_t arg, int flag);
513 static int st_mtiocltop(struct scsi_tape *un, intptr_t arg, int flag);
514 static int st_do_mtioctop(struct scsi_tape *un, struct mtlop *mtop);
515 static void st_start(struct scsi_tape *un);
516 static int st_handle_start_busy(struct scsi_tape *un, struct buf *bp,
517     clock_t timeout_interval, int queued);
518 static int st_handle_intr_busy(struct scsi_tape *un, struct buf *bp,
519     clock_t timeout_interval);
520 static int st_handle_intr_retry_lcmd(struct scsi_tape *un, struct buf *bp);
521 static void st_done_and_mutex_exit(struct scsi_tape *un, struct buf *bp);
522 static void st_init(struct scsi_tape *un);
523 static void st_make_cmd(struct scsi_tape *un, struct buf *bp,
524     int (*func)(caddr_t));
525 static void st_make_uscsi_cmd(struct scsi_tape *, struct uscsi_cmd *,
526     struct buf *bp, int (*func)(caddr_t));
527 static void st_intr(struct scsi_pkt *pkt);
528 static void st_set_state(struct scsi_tape *un, buf_t *bp);
529 static void st_test_append(struct buf *bp);
530 static int st_runout(caddr_t);
531 static int st_cmd(struct scsi_tape *un, int com, int64_t count, int wait);
532 static int st_setup_cmd(struct scsi_tape *un, buf_t *bp, int com,
533     int64_t count);
534 static int st_set_compression(struct scsi_tape *un);
535 static int st_write_fm(dev_t dev, int wfm);
536 static int st_determine_generic(struct scsi_tape *un);
537 static int st_determine_density(struct scsi_tape *un, int rw);
538 static int st_get_density(struct scsi_tape *un);
539 static int st_set_density(struct scsi_tape *un);
540 static int st_loadtape(struct scsi_tape *un);
541 static int st_modesense(struct scsi_tape *un);
542 static int st_modeselect(struct scsi_tape *un);
543 static errstate st_handle_incomplete(struct scsi_tape *un, struct buf *bp);
544 static int st_wrongtapetype(struct scsi_tape *un);
545 static errstate st_check_error(struct scsi_tape *un, struct scsi_pkt *pkt);
546 static errstate st_handle_sense(struct scsi_tape *un, struct buf *bp,
547     tapepos_t *);
548 static errstate st_handle_autosense(struct scsi_tape *un, struct buf *bp,
549     tapepos_t *);
550 static int st_get_error_entry(struct scsi_tape *un, intptr_t arg, int flag);
551 static void st_update_error_stack(struct scsi_tape *un, struct scsi_pkt *pkt,
552     struct scsi_arq_status *cmd);
553 static void st_empty_error_stack(struct scsi_tape *un);
554 static errstate st_decode_sense(struct scsi_tape *un, struct buf *bp, int amt,
555     struct scsi_arq_status *, tapepos_t *);
556 static int st_report_soft_errors(dev_t dev, int flag);
557 static void st_delayed_cv_broadcast(void *arg);
558 static int st_check_media(dev_t dev, enum mtio_state state);
559 static int st_media_watch_cb(caddr_t arg, struct scsi_watch_result *resultp);
560 static void st_intr_restart(void *arg);
561 static void st_start_restart(void *arg);
562 static int st_gen_mode_sense(struct scsi_tape *un, ubufunc_t ubf, int page,
563     struct seq_mode *page_data, int page_size);
564 static int st_change_block_size(struct scsi_tape *un, uint32_t nblksz);
565 static int st_gen_mode_select(struct scsi_tape *un, ubufunc_t ubf,
566     struct seq_mode *page_data, int page_size);
567 static int st_read_block_limits(struct scsi_tape *un,
568     struct read_blklim *read_blk);
569 static int st_report_density_support(struct scsi_tape *un,
570     uchar_t *density_data, size_t buflen);
571 static int st_report_supported_operation(struct scsi_tape *un,
572     uchar_t *oper_data, uchar_t option_code, ushort_t service_action);
573 static int st_tape_init(struct scsi_tape *un);
574 static void st_flush(struct scsi_tape *un);
575 static void st_set_pe_errno(struct scsi_tape *un);
576 static void st_hba_unflush(struct scsi_tape *un);
577 static void st_turn_pe_on(struct scsi_tape *un);
578 static void st_turn_pe_off(struct scsi_tape *un);
579 static void st_set_pe_flag(struct scsi_tape *un);
580 static void st_clear_pe(struct scsi_tape *un);
581 static void st_wait_for_io(struct scsi_tape *un);
582 static int st_set_devconfig_page(struct scsi_tape *un, int compression_on);
583 static int st_set_datacomp_page(struct scsi_tape *un, int compression_on);
584 static int st_reserve_release(struct scsi_tape *un, int command, ubufunc_t ubf);
585 static int st_check_cdb_for_need_to_reserve(struct scsi_tape *un, uchar_t *cdb);
586 static int st_check_cmd_for_need_to_reserve(struct scsi_tape *un, uchar_t cmd,
587     int count);
588 static int st_take_ownership(struct scsi_tape *un, ubufunc_t ubf);
589 static int st_check_asc_ascq(struct scsi_tape *un);
590 static int st_check_clean_bit(struct scsi_tape *un);
591 static int st_check_alert_flags(struct scsi_tape *un);
592 static int st_check_sequential_clean_bit(struct scsi_tape *un);
593 static int st_check_sense_clean_bit(struct scsi_tape *un);
594 static int st_clear_unit_attentions(dev_t dev_instance, int max_trys);
595 static void st_calculate_timeouts(struct scsi_tape *un);
596 static writablity st_is_drive_worm(struct scsi_tape *un);
597 static int st_read_attributes(struct scsi_tape *un, uint16_t attribute,
598     void *buf, size_t size, ubufunc_t bufunc);
599 static int st_get_special_inquiry(struct scsi_tape *un, uchar_t size,
600     caddr_t dest, uchar_t page);
601 static int st_update_block_pos(struct scsi_tape *un, bufunc_t bf,
602     int post_space);
603 static int st_interpret_read_pos(struct scsi_tape const *un, tapepos_t *dest,
604     read_p_types type, size_t data_sz, const caddr_t responce, int post_space);
605 static int st_get_read_pos(struct scsi_tape *un, buf_t *bp);
606 static int st_logical_block_locate(struct scsi_tape *un, ubufunc_t ubf,
607     tapepos_t *pos, uint64_t lblk, uchar_t partition);
608 static int st_mtfsf_ioctl(struct scsi_tape *un, int64_t files);
609 static int st_mtfsr_ioctl(struct scsi_tape *un, int64_t count);
610 static int st_mtbsf_ioctl(struct scsi_tape *un, int64_t files);
611 static int st_mtnbsf_ioctl(struct scsi_tape *un, int64_t count);
612 static int st_mtbsr_ioctl(struct scsi_tape *un, int64_t num);
613 static int st_mtfsfm_ioctl(struct scsi_tape *un, int64_t cnt);
614 static int st_mtbsfm_ioctl(struct scsi_tape *un, int64_t cnt);
615 static int st_backward_space_files(struct scsi_tape *un, int64_t count,
616     int infront);
617 static int st_forward_space_files(struct scsi_tape *un, int64_t files);
618 static int st_scenic_route_to_begining_of_file(struct scsi_tape *un,
619     int32_t fileno);
620 static int st_space_to_begining_of_file(struct scsi_tape *un);
621 static int st_space_records(struct scsi_tape *un, int64_t records);
622 static int st_get_media_identification(struct scsi_tape *un, ubufunc_t bufunc);
623 static errstate st_command_recovery(struct scsi_tape *un, struct scsi_pkt *pkt,
624     errstate onentry);
625 static void st_recover(void *arg);
626 static void st_recov_cb(struct scsi_pkt *pkt);
627 static int st_rcmd(struct scsi_tape *un, int com, int64_t count, int wait);
628 static int st_uscsi_rcmd(struct scsi_tape *un, struct uscsi_cmd *ucmd,
629     int flag);
630 static void st_add_recovery_info_to_pkt(struct scsi_tape *un, buf_t *bp,
631     struct scsi_pkt *cmd);
632 static int st_check_mode_for_change(struct scsi_tape *un, ubufunc_t ubf);
633 static int st_test_path_to_device(struct scsi_tape *un);
634 static int st_recovery_read_pos(struct scsi_tape *un, read_p_types type,
635     read_pos_data_t *raw);
636 static int st_recovery_get_position(struct scsi_tape *un, tapepos_t *read,
637     read_pos_data_t *raw);
638 static int st_compare_expected_position(struct scsi_tape *un, st_err_info *ei,
639     cmd_attribute const * cmd_att, tapepos_t *read);
640 static errstate st_recover_reissue_pkt(struct scsi_tape *us,
641     struct scsi_pkt *pkt);
642 static int st_transport(struct scsi_tape *un, struct scsi_pkt *pkt);
643 static buf_t *st_remove_from_queue(buf_t **head, buf_t **tail, buf_t *bp);
644 static void st_add_to_queue(buf_t **head, buf_t **tail, buf_t *end, buf_t *bp);
645 static int st_reset(struct scsi_tape *un, int reset_type);
646 static void st_reset_notification(caddr_t arg);
647 static const cmd_attribute *st_lookup_cmd_attribute(unsigned char cmd);
648 
649 static int st_set_target_TLR_mode(struct scsi_tape *un, ubufunc_t ubf);
650 static int st_make_sure_mode_data_is_correct(struct scsi_tape *un,
651     ubufunc_t ubf);
652 
653 #ifdef	__x86
654 /*
655  * routines for I/O in big block size
656  */
657 static void st_release_contig_mem(struct scsi_tape *un, struct contig_mem *cp);
658 static struct contig_mem *st_get_contig_mem(struct scsi_tape *un, size_t len,
659     int alloc_flags);
660 static int st_bigblk_xfer_done(struct buf *bp);
661 static struct buf *st_get_bigblk_bp(struct buf *bp);
662 #endif
663 static void st_print_position(dev_info_t *dev, char *label, uint_t level,
664     const char *comment, tapepos_t *pos);
665 
666 /*
667  * error statistics create/update functions
668  */
669 static int st_create_errstats(struct scsi_tape *, int);
670 static int st_validate_tapemarks(struct scsi_tape *un, ubufunc_t ubf,
671     tapepos_t *pos);
672 
673 #ifdef STDEBUG
674 static void st_debug_cmds(struct scsi_tape *un, int com, int count, int wait);
675 #endif /* STDEBUG */
676 static char *st_dev_name(dev_t dev);
677 
678 #if !defined(lint)
679 _NOTE(SCHEME_PROTECTS_DATA("unique per pkt",
680     scsi_pkt buf uio scsi_cdb uscsi_cmd))
681 _NOTE(SCHEME_PROTECTS_DATA("unique per pkt", scsi_extended_sense scsi_status))
682 _NOTE(SCHEME_PROTECTS_DATA("unique per pkt", recov_info))
683 _NOTE(SCHEME_PROTECTS_DATA("stable data", scsi_device))
684 _NOTE(DATA_READABLE_WITHOUT_LOCK(st_drivetype scsi_address))
685 #endif
686 
687 /*
688  * autoconfiguration routines.
689  */
690 
691 static struct modldrv modldrv = {
692 	&mod_driverops,		/* Type of module. This one is a driver */
693 	"SCSI tape Driver", 	/* Name of the module. */
694 	&st_ops			/* driver ops */
695 };
696 
697 static struct modlinkage modlinkage = {
698 	MODREV_1, &modldrv, NULL
699 };
700 
701 /*
702  * Notes on Post Reset Behavior in the tape driver:
703  *
704  * When the tape drive is opened, the driver  attempts  to make sure that
705  * the tape head is positioned exactly where it was left when it was last
706  * closed  provided  the  medium  is not  changed.  If the tape  drive is
707  * opened in O_NDELAY mode, the repositioning  (if necessary for any loss
708  * of position due to reset) will happen when the first tape operation or
709  * I/O occurs.  The repositioning (if required) may not be possible under
710  * certain situations such as when the device firmware not able to report
711  * the medium  change in the REQUEST  SENSE data  because of a reset or a
712  * misbehaving  bus  not  allowing  the  reposition  to  happen.  In such
713  * extraordinary  situations, where the driver fails to position the head
714  * at its  original  position,  it will fail the open the first  time, to
715  * save the applications from overwriting the data.  All further attempts
716  * to open the tape device will result in the driver  attempting  to load
717  * the  tape at BOT  (beginning  of  tape).  Also a  warning  message  to
718  * indicate  that further  attempts to open the tape device may result in
719  * the tape being  loaded at BOT will be printed on the  console.  If the
720  * tape  device is opened  in  O_NDELAY  mode,  failure  to  restore  the
721  * original tape head  position,  will result in the failure of the first
722  * tape  operation  or I/O,  Further,  the  driver  will  invalidate  its
723  * internal tape position  which will  necessitate  the  applications  to
724  * validate the position by using either a tape  positioning  ioctl (such
725  * as MTREW) or closing and reopening the tape device.
726  *
727  */
728 
729 int
_init(void)730 _init(void)
731 {
732 	int e;
733 
734 	if (((e = ddi_soft_state_init(&st_state,
735 	    sizeof (struct scsi_tape), ST_MAXUNIT)) != 0)) {
736 		return (e);
737 	}
738 
739 	if ((e = mod_install(&modlinkage)) != 0) {
740 		ddi_soft_state_fini(&st_state);
741 	} else {
742 #ifdef STDEBUG
743 		mutex_init(&st_debug_mutex, NULL, MUTEX_DRIVER, NULL);
744 #endif
745 
746 #if defined(__x86)
747 		/* set the max physical address for iob allocs on x86 */
748 		st_alloc_attr.dma_attr_addr_hi = st_max_phys_addr;
749 
750 		/*
751 		 * set the sgllen for iob allocs on x86. If this is set less
752 		 * than the number of pages the buffer will take
753 		 * (taking into account alignment), it would force the
754 		 * allocator to try and allocate contiguous pages.
755 		 */
756 		st_alloc_attr.dma_attr_sgllen = st_sgl_size;
757 #endif
758 	}
759 
760 	return (e);
761 }
762 
763 int
_fini(void)764 _fini(void)
765 {
766 	int e;
767 
768 	if ((e = mod_remove(&modlinkage)) != 0) {
769 		return (e);
770 	}
771 
772 #ifdef STDEBUG
773 	mutex_destroy(&st_debug_mutex);
774 #endif
775 
776 	ddi_soft_state_fini(&st_state);
777 
778 	return (e);
779 }
780 
781 int
_info(struct modinfo * modinfop)782 _info(struct modinfo *modinfop)
783 {
784 	return (mod_info(&modlinkage, modinfop));
785 }
786 
787 
788 static int
st_probe(dev_info_t * devi)789 st_probe(dev_info_t *devi)
790 {
791 	int instance;
792 	struct scsi_device *devp;
793 	int rval;
794 
795 #if !defined(__sparc)
796 	char    *tape_prop;
797 	int	tape_prop_len;
798 #endif
799 
800 	ST_ENTR(devi, st_probe);
801 
802 	/* If self identifying device */
803 	if (ddi_dev_is_sid(devi) == DDI_SUCCESS) {
804 		return (DDI_PROBE_DONTCARE);
805 	}
806 
807 #if !defined(__sparc)
808 	/*
809 	 * Since some x86 HBAs have devnodes that look like SCSI as
810 	 * far as we can tell but aren't really SCSI (DADK, like mlx)
811 	 * we check for the presence of the "tape" property.
812 	 */
813 	if (ddi_prop_op(DDI_DEV_T_NONE, devi, PROP_LEN_AND_VAL_ALLOC,
814 	    DDI_PROP_CANSLEEP, "tape",
815 	    (caddr_t)&tape_prop, &tape_prop_len) != DDI_PROP_SUCCESS) {
816 		return (DDI_PROBE_FAILURE);
817 	}
818 	if (strncmp(tape_prop, "sctp", tape_prop_len) != 0) {
819 		kmem_free(tape_prop, tape_prop_len);
820 		return (DDI_PROBE_FAILURE);
821 	}
822 	kmem_free(tape_prop, tape_prop_len);
823 #endif
824 
825 	devp = ddi_get_driver_private(devi);
826 	instance = ddi_get_instance(devi);
827 
828 	if (ddi_get_soft_state(st_state, instance) != NULL) {
829 		return (DDI_PROBE_PARTIAL);
830 	}
831 
832 
833 	/*
834 	 * Turn around and call probe routine to see whether
835 	 * we actually have a tape at this SCSI nexus.
836 	 */
837 	if (scsi_probe(devp, NULL_FUNC) == SCSIPROBE_EXISTS) {
838 
839 		/*
840 		 * In checking the whole inq_dtype byte we are looking at both
841 		 * the Peripheral Qualifier and the Peripheral Device Type.
842 		 * For this driver we are only interested in sequential devices
843 		 * that are connected or capable if connecting to this logical
844 		 * unit.
845 		 */
846 		if (devp->sd_inq->inq_dtype ==
847 		    (DTYPE_SEQUENTIAL | DPQ_POSSIBLE)) {
848 			ST_DEBUG6(devi, st_label, SCSI_DEBUG,
849 			    "probe exists\n");
850 			rval = DDI_PROBE_SUCCESS;
851 		} else {
852 			rval = DDI_PROBE_FAILURE;
853 		}
854 	} else {
855 		ST_DEBUG6(devi, st_label, SCSI_DEBUG,
856 		    "probe failure: nothing there\n");
857 		rval = DDI_PROBE_FAILURE;
858 	}
859 	scsi_unprobe(devp);
860 	return (rval);
861 }
862 
863 static int
st_attach(dev_info_t * devi,ddi_attach_cmd_t cmd)864 st_attach(dev_info_t *devi, ddi_attach_cmd_t cmd)
865 {
866 	int 	instance;
867 	int	wide;
868 	int 	dev_instance;
869 	int	ret_status;
870 	struct	scsi_device *devp;
871 	int	node_ix;
872 	struct	scsi_tape *un;
873 
874 	ST_ENTR(devi, st_attach);
875 
876 	devp = ddi_get_driver_private(devi);
877 	instance = ddi_get_instance(devi);
878 
879 	switch (cmd) {
880 		case DDI_ATTACH:
881 			if (ddi_getprop(DDI_DEV_T_ANY, devi, DDI_PROP_DONTPASS,
882 			    "tape-command-recovery-disable", 0) != 0) {
883 				st_recov_sz = sizeof (pkt_info);
884 			}
885 			if (st_doattach(devp, SLEEP_FUNC) == DDI_FAILURE) {
886 				return (DDI_FAILURE);
887 			}
888 			break;
889 		case DDI_RESUME:
890 			/*
891 			 * Suspend/Resume
892 			 *
893 			 * When the driver suspended, there might be
894 			 * outstanding cmds and therefore we need to
895 			 * reset the suspended flag and resume the scsi
896 			 * watch thread and restart commands and timeouts
897 			 */
898 
899 			if (!(un = ddi_get_soft_state(st_state, instance))) {
900 				return (DDI_FAILURE);
901 			}
902 			dev_instance = ((un->un_dev == 0) ? MTMINOR(instance) :
903 			    un->un_dev);
904 
905 			mutex_enter(ST_MUTEX);
906 
907 			un->un_throttle = un->un_max_throttle;
908 			un->un_tids_at_suspend = 0;
909 			un->un_pwr_mgmt = ST_PWR_NORMAL;
910 
911 			if (un->un_swr_token) {
912 				scsi_watch_resume(un->un_swr_token);
913 			}
914 
915 			/*
916 			 * Restart timeouts
917 			 */
918 			if ((un->un_tids_at_suspend & ST_DELAY_TID) != 0) {
919 				mutex_exit(ST_MUTEX);
920 				un->un_delay_tid = timeout(
921 				    st_delayed_cv_broadcast, un,
922 				    drv_usectohz((clock_t)
923 				    MEDIA_ACCESS_DELAY));
924 				mutex_enter(ST_MUTEX);
925 			}
926 
927 			if (un->un_tids_at_suspend & ST_HIB_TID) {
928 				mutex_exit(ST_MUTEX);
929 				un->un_hib_tid = timeout(st_intr_restart, un,
930 				    ST_STATUS_BUSY_TIMEOUT);
931 				mutex_enter(ST_MUTEX);
932 			}
933 
934 			ret_status = st_clear_unit_attentions(dev_instance, 5);
935 
936 			/*
937 			 * now check if we need to restore the tape position
938 			 */
939 			if ((un->un_suspend_pos.pmode != invalid) &&
940 			    ((un->un_suspend_pos.fileno > 0) ||
941 			    (un->un_suspend_pos.blkno > 0)) ||
942 			    (un->un_suspend_pos.lgclblkno > 0)) {
943 				if (ret_status != 0) {
944 					/*
945 					 * tape didn't get good TUR
946 					 * just print out error messages
947 					 */
948 					scsi_log(ST_DEVINFO, st_label, CE_WARN,
949 					    "st_attach-RESUME: tape failure "
950 					    " tape position will be lost");
951 				} else {
952 					/* this prints errors */
953 					(void) st_validate_tapemarks(un,
954 					    st_uscsi_cmd, &un->un_suspend_pos);
955 				}
956 				/*
957 				 * there are no retries, if there is an error
958 				 * we don't know if the tape has changed
959 				 */
960 				un->un_suspend_pos.pmode = invalid;
961 			}
962 
963 			/* now we are ready to start up any queued I/Os */
964 			if (un->un_ncmds || un->un_quef) {
965 				st_start(un);
966 			}
967 
968 			cv_broadcast(&un->un_suspend_cv);
969 			mutex_exit(ST_MUTEX);
970 			return (DDI_SUCCESS);
971 
972 		default:
973 			return (DDI_FAILURE);
974 	}
975 
976 	un = ddi_get_soft_state(st_state, instance);
977 
978 	ST_DEBUG(devi, st_label, SCSI_DEBUG,
979 	    "st_attach: instance=%x\n", instance);
980 
981 	/*
982 	 * Add a zero-length attribute to tell the world we support
983 	 * kernel ioctls (for layered drivers)
984 	 */
985 	(void) ddi_prop_create(DDI_DEV_T_NONE, devi, DDI_PROP_CANSLEEP,
986 	    DDI_KERNEL_IOCTL, NULL, 0);
987 
988 	ddi_report_dev((dev_info_t *)devi);
989 
990 	/*
991 	 * If it's a SCSI-2 tape drive which supports wide,
992 	 * tell the host adapter to use wide.
993 	 */
994 	wide = ((devp->sd_inq->inq_rdf == RDF_SCSI2) &&
995 	    (devp->sd_inq->inq_wbus16 || devp->sd_inq->inq_wbus32)) ?  1 : 0;
996 
997 	if (scsi_ifsetcap(ROUTE, "wide-xfer", wide, 1) == 1) {
998 		ST_DEBUG(devi, st_label, SCSI_DEBUG,
999 		    "Wide Transfer %s\n", wide ? "enabled" : "disabled");
1000 	}
1001 
1002 	/*
1003 	 * enable autorequest sense; keep the rq packet around in case
1004 	 * the autorequest sense fails because of a busy condition
1005 	 * do a getcap first in case the capability is not variable
1006 	 */
1007 	if (scsi_ifgetcap(ROUTE, "auto-rqsense", 1) == 1) {
1008 		un->un_arq_enabled = 1;
1009 	} else {
1010 		un->un_arq_enabled =
1011 		    ((scsi_ifsetcap(ROUTE, "auto-rqsense", 1, 1) == 1) ? 1 : 0);
1012 	}
1013 
1014 	ST_DEBUG(devi, st_label, SCSI_DEBUG, "auto request sense %s\n",
1015 	    (un->un_arq_enabled ? "enabled" : "disabled"));
1016 
1017 	un->un_untagged_qing =
1018 	    (scsi_ifgetcap(ROUTE, "untagged-qing", 0) == 1);
1019 
1020 	/*
1021 	 * XXX - This is just for 2.6.  to tell users that write buffering
1022 	 *	has gone away.
1023 	 */
1024 	if (un->un_arq_enabled && un->un_untagged_qing) {
1025 		if (ddi_getprop(DDI_DEV_T_ANY, devi, DDI_PROP_DONTPASS,
1026 		    "tape-driver-buffering", 0) != 0) {
1027 			scsi_log(ST_DEVINFO, st_label, CE_NOTE,
1028 			    "Write Data Buffering has been depricated. Your "
1029 			    "applications should continue to work normally.\n"
1030 			    " But, they should  ported to use Asynchronous "
1031 			    " I/O\n"
1032 			    " For more information, read about "
1033 			    " tape-driver-buffering "
1034 			    "property in the st(7d) man page\n");
1035 		}
1036 	}
1037 
1038 	un->un_max_throttle = un->un_throttle = un->un_last_throttle = 1;
1039 	un->un_flush_on_errors = 0;
1040 	un->un_mkr_pkt = (struct scsi_pkt *)NULL;
1041 
1042 	ST_DEBUG(devi, st_label, SCSI_DEBUG,
1043 	    "throttle=%x, max_throttle = %x\n",
1044 	    un->un_throttle, un->un_max_throttle);
1045 
1046 	/* initialize persistent errors to nil */
1047 	un->un_persistence = 0;
1048 	un->un_persist_errors = 0;
1049 
1050 	/*
1051 	 * Get dma-max from HBA driver. If it is not defined, use 64k
1052 	 */
1053 	un->un_maxdma	= scsi_ifgetcap(&devp->sd_address, "dma-max", 1);
1054 	if (un->un_maxdma == -1) {
1055 		ST_DEBUG(devi, st_label, SCSI_DEBUG,
1056 		    "Received a value that looked like -1. Using 64k maxdma");
1057 		un->un_maxdma = (64 * ONE_K);
1058 	}
1059 
1060 #ifdef	__x86
1061 	/*
1062 	 * for x86, the device may be able to DMA more than the system will
1063 	 * allow under some circumstances. We need account for both the HBA's
1064 	 * and system's contraints.
1065 	 *
1066 	 * Get the maximum DMA under worse case conditions. e.g. looking at the
1067 	 * device constraints, the max copy buffer size, and the worse case
1068 	 * fragmentation. NOTE: this may differ from dma-max since dma-max
1069 	 * doesn't take the worse case framentation into account.
1070 	 *
1071 	 * e.g. a device may be able to DMA 16MBytes, but can only DMA 1MByte
1072 	 * if none of the pages are contiguous. Keeping track of both of these
1073 	 * values allows us to support larger tape block sizes on some devices.
1074 	 */
1075 	un->un_maxdma_arch = scsi_ifgetcap(&devp->sd_address, "dma-max-arch",
1076 	    1);
1077 
1078 	/*
1079 	 * If the dma-max-arch capability is not implemented, or the value
1080 	 * comes back higher than what was reported in dma-max, use dma-max.
1081 	 */
1082 	if ((un->un_maxdma_arch == -1) ||
1083 	    ((uint_t)un->un_maxdma < (uint_t)un->un_maxdma_arch)) {
1084 		un->un_maxdma_arch = un->un_maxdma;
1085 	}
1086 #endif
1087 
1088 	/*
1089 	 * Get the max allowable cdb size
1090 	 */
1091 	un->un_max_cdb_sz =
1092 	    scsi_ifgetcap(&devp->sd_address, "max-cdb-length", 1);
1093 	if (un->un_max_cdb_sz < CDB_GROUP0) {
1094 		ST_DEBUG(devi, st_label, SCSI_DEBUG,
1095 		    "HBA reported max-cdb-length as %d\n", un->un_max_cdb_sz);
1096 		un->un_max_cdb_sz = CDB_GROUP4; /* optimistic default */
1097 	}
1098 
1099 	if (strcmp(ddi_driver_name(ddi_get_parent(ST_DEVINFO)), "scsi_vhci")) {
1100 		un->un_multipath = 0;
1101 	} else {
1102 		un->un_multipath = 1;
1103 	}
1104 
1105 	un->un_maxbsize = MAXBSIZE_UNKNOWN;
1106 
1107 	un->un_mediastate = MTIO_NONE;
1108 	un->un_HeadClean  = TAPE_ALERT_SUPPORT_UNKNOWN;
1109 
1110 	/*
1111 	 * initialize kstats
1112 	 */
1113 	un->un_stats = kstat_create("st", instance, NULL, "tape",
1114 	    KSTAT_TYPE_IO, 1, KSTAT_FLAG_PERSISTENT);
1115 	if (un->un_stats) {
1116 		un->un_stats->ks_lock = ST_MUTEX;
1117 		kstat_install(un->un_stats);
1118 	}
1119 	(void) st_create_errstats(un, instance);
1120 
1121 	/*
1122 	 * find the drive type for this target
1123 	 */
1124 	mutex_enter(ST_MUTEX);
1125 	un->un_dev = MTMINOR(instance);
1126 	st_known_tape_type(un);
1127 	un->un_dev = 0;
1128 	mutex_exit(ST_MUTEX);
1129 
1130 	for (node_ix = 0; node_ix < ST_NUM_MEMBERS(st_minor_data); node_ix++) {
1131 		int minor;
1132 		char *name;
1133 
1134 		name  = st_minor_data[node_ix].name;
1135 		minor = st_minor_data[node_ix].minor;
1136 
1137 		/*
1138 		 * For default devices set the density to the
1139 		 * preferred default density for this device.
1140 		 */
1141 		if (node_ix <= DEF_BSD_NR) {
1142 			minor |= un->un_dp->default_density;
1143 		}
1144 		minor |= MTMINOR(instance);
1145 
1146 		if (ddi_create_minor_node(devi, name, S_IFCHR, minor,
1147 		    DDI_NT_TAPE, NULL) == DDI_SUCCESS) {
1148 			continue;
1149 		}
1150 
1151 		ddi_remove_minor_node(devi, NULL);
1152 
1153 		(void) scsi_reset_notify(ROUTE, SCSI_RESET_CANCEL,
1154 		    st_reset_notification, (caddr_t)un);
1155 		cv_destroy(&un->un_clscv);
1156 		cv_destroy(&un->un_sbuf_cv);
1157 		cv_destroy(&un->un_queue_cv);
1158 		cv_destroy(&un->un_state_cv);
1159 #ifdef	__x86
1160 		cv_destroy(&un->un_contig_mem_cv);
1161 #endif
1162 		cv_destroy(&un->un_suspend_cv);
1163 		cv_destroy(&un->un_tape_busy_cv);
1164 		cv_destroy(&un->un_recov_buf_cv);
1165 		if (un->un_recov_taskq) {
1166 			ddi_taskq_destroy(un->un_recov_taskq);
1167 		}
1168 		if (un->un_sbufp) {
1169 			freerbuf(un->un_sbufp);
1170 		}
1171 		if (un->un_recov_buf) {
1172 			freerbuf(un->un_recov_buf);
1173 		}
1174 		if (un->un_uscsi_rqs_buf) {
1175 			kmem_free(un->un_uscsi_rqs_buf, SENSE_LENGTH);
1176 		}
1177 		if (un->un_mspl) {
1178 			i_ddi_mem_free((caddr_t)un->un_mspl, NULL);
1179 		}
1180 		if (un->un_dp_size) {
1181 			kmem_free(un->un_dp, un->un_dp_size);
1182 		}
1183 		if (un->un_state) {
1184 			kstat_delete(un->un_stats);
1185 		}
1186 		if (un->un_errstats) {
1187 			kstat_delete(un->un_errstats);
1188 		}
1189 
1190 		scsi_destroy_pkt(un->un_rqs);
1191 		scsi_free_consistent_buf(un->un_rqs_bp);
1192 		ddi_soft_state_free(st_state, instance);
1193 		devp->sd_private = NULL;
1194 		devp->sd_sense = NULL;
1195 
1196 		ddi_prop_remove_all(devi);
1197 		return (DDI_FAILURE);
1198 	}
1199 
1200 	return (DDI_SUCCESS);
1201 }
1202 
1203 /*
1204  * st_detach:
1205  *
1206  * we allow a detach if and only if:
1207  *	- no tape is currently inserted
1208  *	- tape position is at BOT or unknown
1209  *		(if it is not at BOT then a no rewind
1210  *		device was opened and we have to preserve state)
1211  *	- it must be in a closed state : no timeouts or scsi_watch requests
1212  *		will exist if it is closed, so we don't need to check for
1213  *		them here.
1214  */
1215 /*ARGSUSED*/
1216 static int
st_detach(dev_info_t * devi,ddi_detach_cmd_t cmd)1217 st_detach(dev_info_t *devi, ddi_detach_cmd_t cmd)
1218 {
1219 	int instance;
1220 	int result;
1221 	struct scsi_device *devp;
1222 	struct scsi_tape *un;
1223 	clock_t wait_cmds_complete;
1224 
1225 	ST_ENTR(devi, st_detach);
1226 
1227 	instance = ddi_get_instance(devi);
1228 
1229 	if (!(un = ddi_get_soft_state(st_state, instance))) {
1230 		return (DDI_FAILURE);
1231 	}
1232 
1233 	mutex_enter(ST_MUTEX);
1234 
1235 	/*
1236 	 * Clear error entry stack
1237 	 */
1238 	st_empty_error_stack(un);
1239 
1240 	mutex_exit(ST_MUTEX);
1241 
1242 	switch (cmd) {
1243 
1244 	case DDI_DETACH:
1245 		/*
1246 		 * Undo what we did in st_attach & st_doattach,
1247 		 * freeing resources and removing things we installed.
1248 		 * The system framework guarantees we are not active
1249 		 * with this devinfo node in any other entry points at
1250 		 * this time.
1251 		 */
1252 
1253 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
1254 		    "st_detach: instance=%x, un=%p\n", instance,
1255 		    (void *)un);
1256 
1257 		if (((un->un_dp->options & ST_UNLOADABLE) == 0) ||
1258 		    ((un->un_rsvd_status & ST_APPLICATION_RESERVATIONS) != 0) ||
1259 		    (un->un_ncmds != 0) || (un->un_quef != NULL) ||
1260 		    (un->un_state != ST_STATE_CLOSED)) {
1261 			/*
1262 			 * we cannot unload some targets because the
1263 			 * inquiry returns junk unless immediately
1264 			 * after a reset
1265 			 */
1266 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
1267 			    "cannot unload instance %x\n", instance);
1268 			un->un_unit_attention_flags |= 4;
1269 			return (DDI_FAILURE);
1270 		}
1271 
1272 		/*
1273 		 * if the tape has been removed then we may unload;
1274 		 * do a test unit ready and if it returns NOT READY
1275 		 * then we assume that it is safe to unload.
1276 		 * as a side effect, pmode may be set to invalid if the
1277 		 * the test unit ready fails;
1278 		 * also un_state may be set to non-closed, so reset it
1279 		 */
1280 		if ((un->un_dev) &&		/* Been opened since attach */
1281 		    ((un->un_pos.pmode == legacy) &&
1282 		    (un->un_pos.fileno > 0) ||	/* Known position not rewound */
1283 		    (un->un_pos.blkno != 0)) ||	/* Or within first file */
1284 		    ((un->un_pos.pmode == logical) &&
1285 		    (un->un_pos.lgclblkno > 0))) {
1286 			mutex_enter(ST_MUTEX);
1287 			/*
1288 			 * Send Test Unit Ready in the hopes that if
1289 			 * the drive is not in the state we think it is.
1290 			 * And the state will be changed so it can be detached.
1291 			 * If the command fails to reach the device and
1292 			 * the drive was not rewound or unloaded we want
1293 			 * to fail the detach till a user command fails
1294 			 * where after the detach will succead.
1295 			 */
1296 			result = st_cmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
1297 			/*
1298 			 * After TUR un_state may be set to non-closed,
1299 			 * so reset it back.
1300 			 */
1301 			un->un_state = ST_STATE_CLOSED;
1302 			mutex_exit(ST_MUTEX);
1303 		}
1304 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
1305 		    "un_status=%x, fileno=%x, blkno=%x\n",
1306 		    un->un_status, un->un_pos.fileno, un->un_pos.blkno);
1307 
1308 		/*
1309 		 * check again:
1310 		 * if we are not at BOT then it is not safe to unload
1311 		 */
1312 		if ((un->un_dev) &&		/* Been opened since attach */
1313 		    (result != EACCES) &&	/* drive is use by somebody */
1314 		    ((((un->un_pos.pmode == legacy) &&
1315 		    (un->un_pos.fileno > 0) ||	/* Known position not rewound */
1316 		    (un->un_pos.blkno != 0)) ||	/* Or within first file */
1317 		    ((un->un_pos.pmode == logical) &&
1318 		    (un->un_pos.lgclblkno > 0))) &&
1319 		    ((un->un_state == ST_STATE_CLOSED) &&
1320 		    (un->un_laststate == ST_STATE_CLOSING)))) {
1321 
1322 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
1323 			    "cannot detach: pmode=%d fileno=0x%x, blkno=0x%x"
1324 			    " lgclblkno=0x%"PRIx64"\n", un->un_pos.pmode,
1325 			    un->un_pos.fileno, un->un_pos.blkno,
1326 			    un->un_pos.lgclblkno);
1327 			un->un_unit_attention_flags |= 4;
1328 			return (DDI_FAILURE);
1329 		}
1330 
1331 		/*
1332 		 * Just To make sure that we have released the
1333 		 * tape unit .
1334 		 */
1335 		if (un->un_dev && (un->un_rsvd_status & ST_RESERVE) &&
1336 		    !DEVI_IS_DEVICE_REMOVED(devi)) {
1337 			mutex_enter(ST_MUTEX);
1338 			(void) st_reserve_release(un, ST_RELEASE, st_uscsi_cmd);
1339 			mutex_exit(ST_MUTEX);
1340 		}
1341 
1342 		/*
1343 		 * now remove other data structures allocated in st_doattach()
1344 		 */
1345 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
1346 		    "destroying/freeing\n");
1347 
1348 		(void) scsi_reset_notify(ROUTE, SCSI_RESET_CANCEL,
1349 		    st_reset_notification, (caddr_t)un);
1350 		cv_destroy(&un->un_clscv);
1351 		cv_destroy(&un->un_sbuf_cv);
1352 		cv_destroy(&un->un_queue_cv);
1353 		cv_destroy(&un->un_suspend_cv);
1354 		cv_destroy(&un->un_tape_busy_cv);
1355 		cv_destroy(&un->un_recov_buf_cv);
1356 
1357 		if (un->un_recov_taskq) {
1358 			ddi_taskq_destroy(un->un_recov_taskq);
1359 		}
1360 
1361 		if (un->un_hib_tid) {
1362 			(void) untimeout(un->un_hib_tid);
1363 			un->un_hib_tid = 0;
1364 		}
1365 
1366 		if (un->un_delay_tid) {
1367 			(void) untimeout(un->un_delay_tid);
1368 			un->un_delay_tid = 0;
1369 		}
1370 		cv_destroy(&un->un_state_cv);
1371 
1372 #ifdef	__x86
1373 		cv_destroy(&un->un_contig_mem_cv);
1374 
1375 		if (un->un_contig_mem_hdl != NULL) {
1376 			ddi_dma_free_handle(&un->un_contig_mem_hdl);
1377 		}
1378 #endif
1379 		if (un->un_sbufp) {
1380 			freerbuf(un->un_sbufp);
1381 		}
1382 		if (un->un_recov_buf) {
1383 			freerbuf(un->un_recov_buf);
1384 		}
1385 		if (un->un_uscsi_rqs_buf) {
1386 			kmem_free(un->un_uscsi_rqs_buf, SENSE_LENGTH);
1387 		}
1388 		if (un->un_mspl) {
1389 			i_ddi_mem_free((caddr_t)un->un_mspl, NULL);
1390 		}
1391 		if (un->un_rqs) {
1392 			scsi_destroy_pkt(un->un_rqs);
1393 			scsi_free_consistent_buf(un->un_rqs_bp);
1394 		}
1395 		if (un->un_mkr_pkt) {
1396 			scsi_destroy_pkt(un->un_mkr_pkt);
1397 		}
1398 		if (un->un_arq_enabled) {
1399 			(void) scsi_ifsetcap(ROUTE, "auto-rqsense", 0, 1);
1400 		}
1401 		if (un->un_dp_size) {
1402 			kmem_free(un->un_dp, un->un_dp_size);
1403 		}
1404 		if (un->un_stats) {
1405 			kstat_delete(un->un_stats);
1406 			un->un_stats = (kstat_t *)0;
1407 		}
1408 		if (un->un_errstats) {
1409 			kstat_delete(un->un_errstats);
1410 			un->un_errstats = (kstat_t *)0;
1411 		}
1412 		if (un->un_media_id_len) {
1413 			kmem_free(un->un_media_id, un->un_media_id_len);
1414 		}
1415 		devp = ST_SCSI_DEVP;
1416 		ddi_soft_state_free(st_state, instance);
1417 		devp->sd_private = NULL;
1418 		devp->sd_sense = NULL;
1419 		scsi_unprobe(devp);
1420 		ddi_prop_remove_all(devi);
1421 		ddi_remove_minor_node(devi, NULL);
1422 		ST_DEBUG(0, st_label, SCSI_DEBUG, "st_detach done\n");
1423 		return (DDI_SUCCESS);
1424 
1425 	case DDI_SUSPEND:
1426 
1427 		/*
1428 		 * Suspend/Resume
1429 		 *
1430 		 * To process DDI_SUSPEND, we must do the following:
1431 		 *
1432 		 *  - check ddi_removing_power to see if power will be turned
1433 		 *    off. if so, return DDI_FAILURE
1434 		 *  - check if we are already suspended,
1435 		 *    if so, return DDI_FAILURE
1436 		 *  - check if device state is CLOSED,
1437 		 *    if not, return DDI_FAILURE.
1438 		 *  - wait until outstanding operations complete
1439 		 *  - save tape state
1440 		 *  - block new operations
1441 		 *  - cancel pending timeouts
1442 		 *
1443 		 */
1444 
1445 		if (ddi_removing_power(devi)) {
1446 			return (DDI_FAILURE);
1447 		}
1448 
1449 		if (un->un_dev == 0)
1450 			un->un_dev = MTMINOR(instance);
1451 
1452 		mutex_enter(ST_MUTEX);
1453 
1454 		/*
1455 		 * Shouldn't already be suspended, if so return failure
1456 		 */
1457 		if (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
1458 			mutex_exit(ST_MUTEX);
1459 			return (DDI_FAILURE);
1460 		}
1461 		if (un->un_state != ST_STATE_CLOSED) {
1462 			mutex_exit(ST_MUTEX);
1463 			return (DDI_FAILURE);
1464 		}
1465 
1466 		/*
1467 		 * Wait for all outstanding I/O's to complete
1468 		 *
1469 		 * we wait on both ncmds and the wait queue for times
1470 		 * when we are flushing after persistent errors are
1471 		 * flagged, which is when ncmds can be 0, and the
1472 		 * queue can still have I/O's.  This way we preserve
1473 		 * order of biodone's.
1474 		 */
1475 		wait_cmds_complete = ddi_get_lbolt();
1476 		wait_cmds_complete +=
1477 		    st_wait_cmds_complete * drv_usectohz(1000000);
1478 		while (un->un_ncmds || un->un_quef ||
1479 		    (un->un_state == ST_STATE_RESOURCE_WAIT)) {
1480 
1481 			if (cv_timedwait(&un->un_tape_busy_cv, ST_MUTEX,
1482 			    wait_cmds_complete) == -1) {
1483 				/*
1484 				 * Time expired then cancel the command
1485 				 */
1486 				if (st_reset(un, RESET_LUN) == 0) {
1487 					if (un->un_last_throttle) {
1488 						un->un_throttle =
1489 						    un->un_last_throttle;
1490 					}
1491 					mutex_exit(ST_MUTEX);
1492 					return (DDI_FAILURE);
1493 				} else {
1494 					break;
1495 				}
1496 			}
1497 		}
1498 
1499 		/*
1500 		 * DDI_SUSPEND says that the system "may" power down, we
1501 		 * remember the file and block number before rewinding.
1502 		 * we also need to save state before issuing
1503 		 * any WRITE_FILE_MARK command.
1504 		 */
1505 		(void) st_update_block_pos(un, st_cmd, 0);
1506 		COPY_POS(&un->un_suspend_pos, &un->un_pos);
1507 
1508 
1509 		/*
1510 		 * Issue a zero write file fmk command to tell the drive to
1511 		 * flush any buffered tape marks
1512 		 */
1513 		(void) st_cmd(un, SCMD_WRITE_FILE_MARK, 0, SYNC_CMD);
1514 
1515 		/*
1516 		 * Because not all tape drives correctly implement buffer
1517 		 * flushing with the zero write file fmk command, issue a
1518 		 * synchronous rewind command to force data flushing.
1519 		 * st_validate_tapemarks() will do a rewind during DDI_RESUME
1520 		 * anyway.
1521 		 */
1522 		(void) st_cmd(un, SCMD_REWIND, 0, SYNC_CMD);
1523 
1524 		/* stop any new operations */
1525 		un->un_pwr_mgmt = ST_PWR_SUSPENDED;
1526 		un->un_throttle = 0;
1527 
1528 		/*
1529 		 * cancel any outstanding timeouts
1530 		 */
1531 		if (un->un_delay_tid) {
1532 			timeout_id_t temp_id = un->un_delay_tid;
1533 			un->un_delay_tid = 0;
1534 			un->un_tids_at_suspend |= ST_DELAY_TID;
1535 			mutex_exit(ST_MUTEX);
1536 			(void) untimeout(temp_id);
1537 			mutex_enter(ST_MUTEX);
1538 		}
1539 
1540 		if (un->un_hib_tid) {
1541 			timeout_id_t temp_id = un->un_hib_tid;
1542 			un->un_hib_tid = 0;
1543 			un->un_tids_at_suspend |= ST_HIB_TID;
1544 			mutex_exit(ST_MUTEX);
1545 			(void) untimeout(temp_id);
1546 			mutex_enter(ST_MUTEX);
1547 		}
1548 
1549 		/*
1550 		 * Suspend the scsi_watch_thread
1551 		 */
1552 		if (un->un_swr_token) {
1553 			opaque_t temp_token = un->un_swr_token;
1554 			mutex_exit(ST_MUTEX);
1555 			scsi_watch_suspend(temp_token);
1556 		} else {
1557 			mutex_exit(ST_MUTEX);
1558 		}
1559 
1560 		return (DDI_SUCCESS);
1561 
1562 	default:
1563 		ST_DEBUG(0, st_label, SCSI_DEBUG, "st_detach failed\n");
1564 		return (DDI_FAILURE);
1565 	}
1566 }
1567 
1568 
1569 /* ARGSUSED */
1570 static int
st_info(dev_info_t * dip,ddi_info_cmd_t infocmd,void * arg,void ** result)1571 st_info(dev_info_t *dip, ddi_info_cmd_t infocmd, void *arg, void **result)
1572 {
1573 	dev_t dev;
1574 	struct scsi_tape *un;
1575 	int instance, error;
1576 
1577 	ST_ENTR(dip, st_info);
1578 
1579 	switch (infocmd) {
1580 	case DDI_INFO_DEVT2DEVINFO:
1581 		dev = (dev_t)arg;
1582 		instance = MTUNIT(dev);
1583 		if ((un = ddi_get_soft_state(st_state, instance)) == NULL)
1584 			return (DDI_FAILURE);
1585 		*result = (void *) ST_DEVINFO;
1586 		error = DDI_SUCCESS;
1587 		break;
1588 	case DDI_INFO_DEVT2INSTANCE:
1589 		dev = (dev_t)arg;
1590 		instance = MTUNIT(dev);
1591 		*result = (void *)(uintptr_t)instance;
1592 		error = DDI_SUCCESS;
1593 		break;
1594 	default:
1595 		error = DDI_FAILURE;
1596 	}
1597 	return (error);
1598 }
1599 
1600 static int
st_doattach(struct scsi_device * devp,int (* canwait)())1601 st_doattach(struct scsi_device *devp, int (*canwait)())
1602 {
1603 	struct scsi_tape *un = NULL;
1604 	recov_info *ri;
1605 	int km_flags = (canwait != NULL_FUNC) ? KM_SLEEP : KM_NOSLEEP;
1606 	int instance;
1607 	size_t rlen;
1608 
1609 	ST_FUNC(devp->sd_dev, st_doattach);
1610 	/*
1611 	 * Call the routine scsi_probe to do some of the dirty work.
1612 	 * If the INQUIRY command succeeds, the field sd_inq in the
1613 	 * device structure will be filled in.
1614 	 */
1615 	ST_DEBUG(devp->sd_dev, st_label, SCSI_DEBUG,
1616 	    "st_doattach(): probing\n");
1617 
1618 	if (scsi_probe(devp, canwait) == SCSIPROBE_EXISTS) {
1619 
1620 		/*
1621 		 * In checking the whole inq_dtype byte we are looking at both
1622 		 * the Peripheral Qualifier and the Peripheral Device Type.
1623 		 * For this driver we are only interested in sequential devices
1624 		 * that are connected or capable if connecting to this logical
1625 		 * unit.
1626 		 */
1627 		if (devp->sd_inq->inq_dtype ==
1628 		    (DTYPE_SEQUENTIAL | DPQ_POSSIBLE)) {
1629 			ST_DEBUG(devp->sd_dev, st_label, SCSI_DEBUG,
1630 			    "probe exists\n");
1631 		} else {
1632 			/* Something there but not a tape device */
1633 			scsi_unprobe(devp);
1634 			return (DDI_FAILURE);
1635 		}
1636 	} else {
1637 		/* Nothing there */
1638 		ST_DEBUG(devp->sd_dev, st_label, SCSI_DEBUG,
1639 		    "probe failure: nothing there\n");
1640 		scsi_unprobe(devp);
1641 		return (DDI_FAILURE);
1642 	}
1643 
1644 
1645 	/*
1646 	 * The actual unit is present.
1647 	 * Now is the time to fill in the rest of our info..
1648 	 */
1649 	instance = ddi_get_instance(devp->sd_dev);
1650 
1651 	if (ddi_soft_state_zalloc(st_state, instance) != DDI_SUCCESS) {
1652 		goto error;
1653 	}
1654 	un = ddi_get_soft_state(st_state, instance);
1655 
1656 	ASSERT(un != NULL);
1657 
1658 	un->un_rqs_bp = scsi_alloc_consistent_buf(&devp->sd_address, NULL,
1659 	    MAX_SENSE_LENGTH, B_READ, canwait, NULL);
1660 	if (un->un_rqs_bp == NULL) {
1661 		goto error;
1662 	}
1663 	un->un_rqs = scsi_init_pkt(&devp->sd_address, NULL, un->un_rqs_bp,
1664 	    CDB_GROUP0, 1, st_recov_sz, PKT_CONSISTENT, canwait, NULL);
1665 	if (!un->un_rqs) {
1666 		goto error;
1667 	}
1668 	ASSERT(un->un_rqs->pkt_resid == 0);
1669 	devp->sd_sense =
1670 	    (struct scsi_extended_sense *)un->un_rqs_bp->b_un.b_addr;
1671 	ASSERT(geterror(un->un_rqs_bp) == NULL);
1672 
1673 	(void) scsi_setup_cdb((union scsi_cdb *)un->un_rqs->pkt_cdbp,
1674 	    SCMD_REQUEST_SENSE, 0, MAX_SENSE_LENGTH, 0);
1675 	FILL_SCSI1_LUN(devp, un->un_rqs);
1676 	un->un_rqs->pkt_flags |= (FLAG_SENSING | FLAG_HEAD | FLAG_NODISCON);
1677 	un->un_rqs->pkt_time = st_io_time;
1678 	un->un_rqs->pkt_comp = st_intr;
1679 	ri = (recov_info *)un->un_rqs->pkt_private;
1680 	if (st_recov_sz == sizeof (recov_info)) {
1681 		ri->privatelen = sizeof (recov_info);
1682 	} else {
1683 		ri->privatelen = sizeof (pkt_info);
1684 	}
1685 
1686 	un->un_sbufp = getrbuf(km_flags);
1687 	un->un_recov_buf = getrbuf(km_flags);
1688 
1689 	un->un_uscsi_rqs_buf = kmem_alloc(SENSE_LENGTH, KM_SLEEP);
1690 
1691 	/*
1692 	 * use i_ddi_mem_alloc() for now until we have an interface to allocate
1693 	 * memory for DMA which doesn't require a DMA handle.
1694 	 */
1695 	(void) i_ddi_mem_alloc(devp->sd_dev, &st_alloc_attr,
1696 	    sizeof (struct seq_mode), ((km_flags == KM_SLEEP) ? 1 : 0), 0,
1697 	    NULL, (caddr_t *)&un->un_mspl, &rlen, NULL);
1698 
1699 	(void) i_ddi_mem_alloc(devp->sd_dev, &st_alloc_attr,
1700 	    sizeof (read_pos_data_t), ((km_flags == KM_SLEEP) ? 1 : 0), 0,
1701 	    NULL, (caddr_t *)&un->un_read_pos_data, &rlen, NULL);
1702 
1703 	if (!un->un_sbufp || !un->un_mspl || !un->un_read_pos_data) {
1704 		ST_DEBUG6(devp->sd_dev, st_label, SCSI_DEBUG,
1705 		    "probe partial failure: no space\n");
1706 		goto error;
1707 	}
1708 
1709 	bzero(un->un_mspl, sizeof (struct seq_mode));
1710 
1711 	cv_init(&un->un_sbuf_cv, NULL, CV_DRIVER, NULL);
1712 	cv_init(&un->un_queue_cv, NULL, CV_DRIVER, NULL);
1713 	cv_init(&un->un_clscv, NULL, CV_DRIVER, NULL);
1714 	cv_init(&un->un_state_cv, NULL, CV_DRIVER, NULL);
1715 #ifdef	__x86
1716 	cv_init(&un->un_contig_mem_cv, NULL, CV_DRIVER, NULL);
1717 #endif
1718 
1719 	/* Initialize power managemnet condition variable */
1720 	cv_init(&un->un_suspend_cv, NULL, CV_DRIVER, NULL);
1721 	cv_init(&un->un_tape_busy_cv, NULL, CV_DRIVER, NULL);
1722 	cv_init(&un->un_recov_buf_cv, NULL, CV_DRIVER, NULL);
1723 
1724 	un->un_recov_taskq = ddi_taskq_create(devp->sd_dev,
1725 	    "un_recov_taskq", 1, TASKQ_DEFAULTPRI, km_flags);
1726 
1727 	ASSERT(un->un_recov_taskq != NULL);
1728 
1729 	un->un_pos.pmode = invalid;
1730 	un->un_sd	= devp;
1731 	un->un_swr_token = (opaque_t)NULL;
1732 	un->un_comp_page = ST_DEV_DATACOMP_PAGE | ST_DEV_CONFIG_PAGE;
1733 	un->un_wormable = st_is_drive_worm;
1734 	un->un_media_id_method = st_get_media_identification;
1735 	/*
1736 	 * setting long a initial as it contains logical file info.
1737 	 * support for long format is mandatory but many drive don't do it.
1738 	 */
1739 	un->un_read_pos_type = LONG_POS;
1740 
1741 	un->un_suspend_pos.pmode = invalid;
1742 
1743 	st_add_recovery_info_to_pkt(un, un->un_rqs_bp, un->un_rqs);
1744 
1745 #ifdef	__x86
1746 	if (ddi_dma_alloc_handle(ST_DEVINFO, &st_contig_mem_dma_attr,
1747 	    DDI_DMA_SLEEP, NULL, &un->un_contig_mem_hdl) != DDI_SUCCESS) {
1748 		ST_DEBUG6(devp->sd_dev, st_label, SCSI_DEBUG,
1749 		    "allocation of contiguous memory dma handle failed!");
1750 		un->un_contig_mem_hdl = NULL;
1751 		goto error;
1752 	}
1753 #endif
1754 
1755 	/*
1756 	 * Since this driver manages devices with "remote" hardware,
1757 	 * i.e. the devices themselves have no "reg" properties,
1758 	 * the SUSPEND/RESUME commands in detach/attach will not be
1759 	 * called by the power management framework unless we request
1760 	 * it by creating a "pm-hardware-state" property and setting it
1761 	 * to value "needs-suspend-resume".
1762 	 */
1763 	if (ddi_prop_update_string(DDI_DEV_T_NONE, devp->sd_dev,
1764 	    "pm-hardware-state", "needs-suspend-resume") !=
1765 	    DDI_PROP_SUCCESS) {
1766 
1767 		ST_DEBUG(devp->sd_dev, st_label, SCSI_DEBUG,
1768 		    "ddi_prop_update(\"pm-hardware-state\") failed\n");
1769 		goto error;
1770 	}
1771 
1772 	if (ddi_prop_create(DDI_DEV_T_NONE, devp->sd_dev, DDI_PROP_CANSLEEP,
1773 	    "no-involuntary-power-cycles", NULL, 0) != DDI_PROP_SUCCESS) {
1774 
1775 		ST_DEBUG(devp->sd_dev, st_label, SCSI_DEBUG,
1776 		    "ddi_prop_create(\"no-involuntary-power-cycles\") "
1777 		    "failed\n");
1778 		goto error;
1779 	}
1780 
1781 	(void) scsi_reset_notify(ROUTE, SCSI_RESET_NOTIFY,
1782 	    st_reset_notification, (caddr_t)un);
1783 
1784 	ST_DEBUG6(devp->sd_dev, st_label, SCSI_DEBUG, "attach success\n");
1785 	return (DDI_SUCCESS);
1786 
1787 error:
1788 	devp->sd_sense = NULL;
1789 
1790 	ddi_remove_minor_node(devp->sd_dev, NULL);
1791 	if (un) {
1792 		if (un->un_mspl) {
1793 			i_ddi_mem_free((caddr_t)un->un_mspl, NULL);
1794 		}
1795 		if (un->un_read_pos_data) {
1796 			i_ddi_mem_free((caddr_t)un->un_read_pos_data, 0);
1797 		}
1798 		if (un->un_sbufp) {
1799 			freerbuf(un->un_sbufp);
1800 		}
1801 		if (un->un_recov_buf) {
1802 			freerbuf(un->un_recov_buf);
1803 		}
1804 		if (un->un_uscsi_rqs_buf) {
1805 			kmem_free(un->un_uscsi_rqs_buf, SENSE_LENGTH);
1806 		}
1807 #ifdef	__x86
1808 		if (un->un_contig_mem_hdl != NULL) {
1809 			ddi_dma_free_handle(&un->un_contig_mem_hdl);
1810 		}
1811 #endif
1812 		if (un->un_rqs) {
1813 			scsi_destroy_pkt(un->un_rqs);
1814 		}
1815 
1816 		if (un->un_rqs_bp) {
1817 			scsi_free_consistent_buf(un->un_rqs_bp);
1818 		}
1819 
1820 		ddi_soft_state_free(st_state, instance);
1821 		devp->sd_private = NULL;
1822 	}
1823 
1824 	if (devp->sd_inq) {
1825 		scsi_unprobe(devp);
1826 	}
1827 	return (DDI_FAILURE);
1828 }
1829 
1830 typedef int
1831 (*cfg_functp)(struct scsi_tape *, char *vidpid, struct st_drivetype *);
1832 
1833 static cfg_functp config_functs[] = {
1834 	st_get_conf_from_st_dot_conf,
1835 	st_get_conf_from_st_conf_dot_c,
1836 	st_get_conf_from_tape_drive,
1837 	st_get_default_conf
1838 };
1839 
1840 
1841 /*
1842  * determine tape type, using tape-config-list or built-in table or
1843  * use a generic tape config entry
1844  */
1845 static void
st_known_tape_type(struct scsi_tape * un)1846 st_known_tape_type(struct scsi_tape *un)
1847 {
1848 	struct st_drivetype *dp;
1849 	cfg_functp *config_funct;
1850 	uchar_t reserved;
1851 
1852 	ST_FUNC(ST_DEVINFO, st_known_tape_type);
1853 
1854 	reserved = (un->un_rsvd_status & ST_RESERVE) ? ST_RESERVE
1855 	    : ST_RELEASE;
1856 
1857 	/*
1858 	 * XXX:  Emulex MT-02 (and emulators) predates SCSI-1 and has
1859 	 *	 no vid & pid inquiry data.  So, we provide one.
1860 	 */
1861 	if (ST_INQUIRY->inq_len == 0 ||
1862 	    (bcmp("\0\0\0\0\0\0\0\0", ST_INQUIRY->inq_vid, 8) == 0)) {
1863 		(void) strcpy((char *)ST_INQUIRY->inq_vid, ST_MT02_NAME);
1864 	}
1865 
1866 	if (un->un_dp_size == 0) {
1867 		un->un_dp_size = sizeof (struct st_drivetype);
1868 		dp = kmem_zalloc((size_t)un->un_dp_size, KM_SLEEP);
1869 		un->un_dp = dp;
1870 	} else {
1871 		dp = un->un_dp;
1872 	}
1873 
1874 	un->un_dp->non_motion_timeout = st_io_time;
1875 	/*
1876 	 * Loop through the configuration methods till one works.
1877 	 */
1878 	for (config_funct = &config_functs[0]; ; config_funct++) {
1879 		if ((*config_funct)(un, ST_INQUIRY->inq_vid, dp)) {
1880 			break;
1881 		}
1882 	}
1883 
1884 	/*
1885 	 * If we didn't just make up this configuration and
1886 	 * all the density codes are the same..
1887 	 * Set Auto Density over ride.
1888 	 */
1889 	if (*config_funct != st_get_default_conf) {
1890 		/*
1891 		 * If this device is one that is configured and all
1892 		 * densities are the same, This saves doing gets and set
1893 		 * that yield nothing.
1894 		 */
1895 		if ((dp->densities[0]) == (dp->densities[1]) &&
1896 		    (dp->densities[0]) == (dp->densities[2]) &&
1897 		    (dp->densities[0]) == (dp->densities[3])) {
1898 
1899 			dp->options |= ST_AUTODEN_OVERRIDE;
1900 		}
1901 	}
1902 
1903 
1904 	/*
1905 	 * Store tape drive characteristics.
1906 	 */
1907 	un->un_status = 0;
1908 	un->un_attached = 1;
1909 	un->un_init_options = dp->options;
1910 
1911 	/* setup operation time-outs based on options */
1912 	st_calculate_timeouts(un);
1913 
1914 	/* TLR support */
1915 	if (un->un_dp->type != ST_TYPE_INVALID) {
1916 		int result;
1917 
1918 		/* try and enable TLR */
1919 		un->un_tlr_flag = TLR_SAS_ONE_DEVICE;
1920 		result = st_set_target_TLR_mode(un, st_uscsi_cmd);
1921 		if (result == EACCES) {
1922 			/*
1923 			 * From attach command failed.
1924 			 * Set dp type so is run again on open.
1925 			 */
1926 			un->un_dp->type = ST_TYPE_INVALID;
1927 			un->un_tlr_flag = TLR_NOT_KNOWN;
1928 		} else if (result == 0) {
1929 			if (scsi_ifgetcap(&un->un_sd->sd_address,
1930 			    "tran-layer-retries", 1) == -1) {
1931 				un->un_tlr_flag = TLR_NOT_SUPPORTED;
1932 				(void) st_set_target_TLR_mode(un, st_uscsi_cmd);
1933 			} else {
1934 				un->un_tlr_flag = TLR_SAS_ONE_DEVICE;
1935 			}
1936 		} else {
1937 			un->un_tlr_flag = TLR_NOT_SUPPORTED;
1938 		}
1939 	}
1940 
1941 	/* make sure if we are supposed to be variable, make it variable */
1942 	if (dp->options & ST_VARIABLE) {
1943 		dp->bsize = 0;
1944 	}
1945 
1946 	if (reserved != ((un->un_rsvd_status & ST_RESERVE) ? ST_RESERVE
1947 	    : ST_RELEASE)) {
1948 		(void) st_reserve_release(un, reserved, st_uscsi_cmd);
1949 	}
1950 
1951 	un->un_unit_attention_flags |= 1;
1952 
1953 	scsi_log(ST_DEVINFO, st_label, CE_NOTE, "?<%s>\n", dp->name);
1954 
1955 }
1956 
1957 
1958 typedef struct {
1959 	int mask;
1960 	int bottom;
1961 	int top;
1962 	char *name;
1963 } conf_limit;
1964 
1965 static const conf_limit conf_limits[] = {
1966 
1967 	-1,		1,		2,		"conf version",
1968 	-1,		MT_ISTS,	ST_LAST_TYPE,	"drive type",
1969 	-1,		0,		0xffffff,	"block size",
1970 	ST_VALID_OPTS,	0,		ST_VALID_OPTS,	"options",
1971 	-1,		0,		4,		"number of densities",
1972 	-1,		0,		UINT8_MAX,	"density code",
1973 	-1,		0,		3,		"default density",
1974 	-1,		0,		UINT16_MAX,	"non motion timeout",
1975 	-1,		0,		UINT16_MAX,	"I/O timeout",
1976 	-1,		0,		UINT16_MAX,	"space timeout",
1977 	-1,		0,		UINT16_MAX,	"load timeout",
1978 	-1,		0,		UINT16_MAX,	"unload timeout",
1979 	-1,		0,		UINT16_MAX,	"erase timeout",
1980 	0,		0,		0,		NULL
1981 };
1982 
1983 static int
st_validate_conf_data(struct scsi_tape * un,int * list,int list_len,const char * conf_name)1984 st_validate_conf_data(struct scsi_tape *un, int *list, int list_len,
1985     const char *conf_name)
1986 {
1987 	int dens;
1988 	int ndens;
1989 	int value;
1990 	int type;
1991 	int count;
1992 	const conf_limit *limit = &conf_limits[0];
1993 
1994 	ST_FUNC(ST_DEVINFO, st_validate_conf_data);
1995 
1996 	ST_DEBUG3(ST_DEVINFO, st_label, CE_NOTE,
1997 	    "Checking %d entrys total with %d densities\n", list_len, list[4]);
1998 
1999 	count = list_len;
2000 	type = *list;
2001 	for (;  count && limit->name; count--, list++, limit++) {
2002 
2003 		value = *list;
2004 		if (value & ~limit->mask) {
2005 			scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2006 			    "%s %s value invalid bits set: 0x%X\n",
2007 			    conf_name, limit->name, value & ~limit->mask);
2008 			*list &= limit->mask;
2009 		} else if (value < limit->bottom) {
2010 			scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2011 			    "%s %s value too low: value = %d limit %d\n",
2012 			    conf_name, limit->name, value, limit->bottom);
2013 		} else if (value > limit->top) {
2014 			scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2015 			    "%s %s value too high: value = %d limit %d\n",
2016 			    conf_name, limit->name, value, limit->top);
2017 		} else {
2018 			ST_DEBUG3(ST_DEVINFO, st_label, CE_CONT,
2019 			    "%s %s value = 0x%X\n",
2020 			    conf_name, limit->name, value);
2021 		}
2022 
2023 		/* If not the number of densities continue */
2024 		if (limit != &conf_limits[4]) {
2025 			continue;
2026 		}
2027 
2028 		/* If number of densities is not in range can't use config */
2029 		if (value < limit->bottom || value > limit->top) {
2030 			return (-1);
2031 		}
2032 
2033 		ndens = min(value, NDENSITIES);
2034 		if ((type == 1) && (list_len - ndens) != 6) {
2035 			scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2036 			    "%s conf version 1 with %d densities has %d items"
2037 			    " should have %d",
2038 			    conf_name, ndens, list_len, 6 + ndens);
2039 		} else if ((type == 2) && (list_len - ndens) != 13) {
2040 			scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2041 			    "%s conf version 2 with %d densities has %d items"
2042 			    " should have %d",
2043 			    conf_name, ndens, list_len, 13 + ndens);
2044 		}
2045 
2046 		limit++;
2047 		for (dens = 0; dens < ndens && count; dens++) {
2048 			count--;
2049 			list++;
2050 			value = *list;
2051 			if (value < limit->bottom) {
2052 				scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2053 				    "%s density[%d] value too low: value ="
2054 				    " 0x%X limit 0x%X\n",
2055 				    conf_name, dens, value, limit->bottom);
2056 			} else if (value > limit->top) {
2057 				scsi_log(ST_DEVINFO, st_label, CE_NOTE,
2058 				    "%s density[%d] value too high: value ="
2059 				    " 0x%X limit 0x%X\n",
2060 				    conf_name, dens, value, limit->top);
2061 			} else {
2062 				ST_DEBUG3(ST_DEVINFO, st_label, CE_CONT,
2063 				    "%s density[%d] value = 0x%X\n",
2064 				    conf_name, dens, value);
2065 			}
2066 		}
2067 	}
2068 
2069 	return (0);
2070 }
2071 
2072 static int
st_get_conf_from_st_dot_conf(struct scsi_tape * un,char * vidpid,struct st_drivetype * dp)2073 st_get_conf_from_st_dot_conf(struct scsi_tape *un, char *vidpid,
2074     struct st_drivetype *dp)
2075 {
2076 	caddr_t config_list = NULL;
2077 	caddr_t data_list = NULL;
2078 	int	*data_ptr;
2079 	caddr_t vidptr, prettyptr, datanameptr;
2080 	size_t	vidlen, prettylen, datanamelen, tripletlen = 0;
2081 	int config_list_len, data_list_len, len, i;
2082 	int version;
2083 	int found = 0;
2084 
2085 	ST_FUNC(ST_DEVINFO, st_get_conf_from_st_dot_conf);
2086 
2087 	/*
2088 	 * Determine type of tape controller. Type is determined by
2089 	 * checking the vendor ids of the earlier inquiry command and
2090 	 * comparing those with vids in tape-config-list defined in st.conf
2091 	 */
2092 	if (ddi_getlongprop(DDI_DEV_T_ANY, ST_DEVINFO, DDI_PROP_DONTPASS,
2093 	    "tape-config-list", (caddr_t)&config_list, &config_list_len)
2094 	    != DDI_PROP_SUCCESS) {
2095 		return (found);
2096 	}
2097 
2098 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
2099 	    "st_get_conf_from_st_dot_conf(): st.conf has tape-config-list\n");
2100 
2101 	/*
2102 	 * Compare vids in each triplet - if it matches, get value for
2103 	 * data_name and contruct a st_drivetype struct
2104 	 * tripletlen is not set yet!
2105 	 */
2106 	for (len = config_list_len, vidptr = config_list;
2107 	    len > 0;
2108 	    vidptr += tripletlen, len -= tripletlen) {
2109 
2110 		vidlen = strlen(vidptr);
2111 		prettyptr = vidptr + vidlen + 1;
2112 		prettylen = strlen(prettyptr);
2113 		datanameptr = prettyptr + prettylen + 1;
2114 		datanamelen = strlen(datanameptr);
2115 		tripletlen = vidlen + prettylen + datanamelen + 3;
2116 
2117 		if (vidlen == 0) {
2118 			continue;
2119 		}
2120 
2121 		/*
2122 		 * If inquiry vid dosen't match this triplets vid,
2123 		 * try the next.
2124 		 */
2125 		if (strncasecmp(vidpid, vidptr, vidlen)) {
2126 			continue;
2127 		}
2128 
2129 		/*
2130 		 * if prettylen is zero then use the vid string
2131 		 */
2132 		if (prettylen == 0) {
2133 			prettyptr = vidptr;
2134 			prettylen = vidlen;
2135 		}
2136 
2137 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
2138 		    "vid = %s, pretty=%s, dataname = %s\n",
2139 		    vidptr, prettyptr, datanameptr);
2140 
2141 		/*
2142 		 * get the data list
2143 		 */
2144 		if (ddi_getlongprop(DDI_DEV_T_ANY, ST_DEVINFO, 0,
2145 		    datanameptr, (caddr_t)&data_list,
2146 		    &data_list_len) != DDI_PROP_SUCCESS) {
2147 			/*
2148 			 * Error in getting property value
2149 			 * print warning!
2150 			 */
2151 			scsi_log(ST_DEVINFO, st_label, CE_WARN,
2152 			    "data property (%s) has no value\n",
2153 			    datanameptr);
2154 			continue;
2155 		}
2156 
2157 		/*
2158 		 * now initialize the st_drivetype struct
2159 		 */
2160 		(void) strncpy(dp->name, prettyptr, ST_NAMESIZE - 1);
2161 		dp->length = (int)min(vidlen, (VIDPIDLEN - 1));
2162 		(void) strncpy(dp->vid, vidptr, dp->length);
2163 		data_ptr = (int *)data_list;
2164 		/*
2165 		 * check if data is enough for version, type,
2166 		 * bsize, options, # of densities, density1,
2167 		 * density2, ..., default_density
2168 		 */
2169 		if ((data_list_len < 5 * sizeof (int)) ||
2170 		    (data_list_len < 6 * sizeof (int) +
2171 		    *(data_ptr + 4) * sizeof (int))) {
2172 			/*
2173 			 * print warning and skip to next triplet.
2174 			 */
2175 			scsi_log(ST_DEVINFO, st_label, CE_WARN,
2176 			    "data property (%s) incomplete\n",
2177 			    datanameptr);
2178 			kmem_free(data_list, data_list_len);
2179 			continue;
2180 		}
2181 
2182 		if (st_validate_conf_data(un, data_ptr,
2183 		    data_list_len / sizeof (int), datanameptr)) {
2184 			kmem_free(data_list, data_list_len);
2185 			scsi_log(ST_DEVINFO, st_label, CE_WARN,
2186 			    "data property (%s) rejected\n",
2187 			    datanameptr);
2188 			continue;
2189 		}
2190 
2191 		/*
2192 		 * check version
2193 		 */
2194 		version = *data_ptr++;
2195 		if (version != 1 && version != 2) {
2196 			/* print warning but accept it */
2197 			scsi_log(ST_DEVINFO, st_label, CE_WARN,
2198 			    "Version # for data property (%s) "
2199 			    "not set to 1 or 2\n", datanameptr);
2200 		}
2201 
2202 		dp->type    = *data_ptr++;
2203 		dp->bsize   = *data_ptr++;
2204 		dp->options = *data_ptr++;
2205 		dp->options |= ST_DYNAMIC;
2206 		len = *data_ptr++;
2207 		for (i = 0; i < NDENSITIES; i++) {
2208 			if (i < len) {
2209 				dp->densities[i] = *data_ptr++;
2210 			}
2211 		}
2212 		dp->default_density = *data_ptr << 3;
2213 		if (version == 2 &&
2214 		    data_list_len >= (13 + len) * sizeof (int)) {
2215 			data_ptr++;
2216 			dp->non_motion_timeout	= *data_ptr++;
2217 			dp->io_timeout		= *data_ptr++;
2218 			dp->rewind_timeout	= *data_ptr++;
2219 			dp->space_timeout	= *data_ptr++;
2220 			dp->load_timeout	= *data_ptr++;
2221 			dp->unload_timeout	= *data_ptr++;
2222 			dp->erase_timeout	= *data_ptr++;
2223 		}
2224 		kmem_free(data_list, data_list_len);
2225 		found = 1;
2226 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
2227 		    "found in st.conf: vid = %s, pretty=%s\n",
2228 		    dp->vid, dp->name);
2229 		break;
2230 	}
2231 
2232 	/*
2233 	 * free up the memory allocated by ddi_getlongprop
2234 	 */
2235 	if (config_list) {
2236 		kmem_free(config_list, config_list_len);
2237 	}
2238 	return (found);
2239 }
2240 
2241 static int
st_get_conf_from_st_conf_dot_c(struct scsi_tape * un,char * vidpid,struct st_drivetype * dp)2242 st_get_conf_from_st_conf_dot_c(struct scsi_tape *un, char *vidpid,
2243     struct st_drivetype *dp)
2244 {
2245 	int i;
2246 
2247 	ST_FUNC(ST_DEVINFO, st_get_conf_from_st_conf_dot_c);
2248 	/*
2249 	 * Determine type of tape controller.  Type is determined by
2250 	 * checking the result of the earlier inquiry command and
2251 	 * comparing vendor ids with strings in a table declared in st_conf.c.
2252 	 */
2253 	ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2254 	    "st_get_conf_from_st_conf_dot_c(): looking at st_drivetypes\n");
2255 
2256 	for (i = 0; i < st_ndrivetypes; i++) {
2257 		if (st_drivetypes[i].length == 0) {
2258 			continue;
2259 		}
2260 		if (strncasecmp(vidpid, st_drivetypes[i].vid,
2261 		    st_drivetypes[i].length)) {
2262 			continue;
2263 		}
2264 		bcopy(&st_drivetypes[i], dp, sizeof (st_drivetypes[i]));
2265 		return (1);
2266 	}
2267 	return (0);
2268 }
2269 
2270 static int
st_get_conf_from_tape_drive(struct scsi_tape * un,char * vidpid,struct st_drivetype * dp)2271 st_get_conf_from_tape_drive(struct scsi_tape *un, char *vidpid,
2272     struct st_drivetype *dp)
2273 {
2274 	int bsize;
2275 	ulong_t maxbsize;
2276 	caddr_t buf;
2277 	struct st_drivetype *tem_dp;
2278 	struct read_blklim *blklim;
2279 	int rval;
2280 	int i;
2281 
2282 	ST_FUNC(ST_DEVINFO, st_get_conf_from_tape_drive);
2283 
2284 	/*
2285 	 * Determine the type of tape controller. Type is determined by
2286 	 * sending SCSI commands to tape drive and deriving the type from
2287 	 * the returned data.
2288 	 */
2289 	ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2290 	    "st_get_conf_from_tape_drive(): asking tape drive\n");
2291 
2292 	tem_dp = kmem_zalloc(sizeof (struct st_drivetype), KM_SLEEP);
2293 
2294 	/*
2295 	 * Make up a name
2296 	 */
2297 	bcopy(vidpid, tem_dp->name, VIDPIDLEN);
2298 	tem_dp->name[VIDPIDLEN] = '\0';
2299 	tem_dp->length = min(strlen(ST_INQUIRY->inq_vid), (VIDPIDLEN - 1));
2300 	(void) strncpy(tem_dp->vid, ST_INQUIRY->inq_vid, tem_dp->length);
2301 	/*
2302 	 * 'clean' vendor and product strings of non-printing chars
2303 	 */
2304 	for (i = 0; i < VIDPIDLEN - 1; i ++) {
2305 		if (tem_dp->name[i] < ' ' || tem_dp->name[i] > '~') {
2306 			tem_dp->name[i] = '.';
2307 		}
2308 	}
2309 
2310 	/*
2311 	 * MODE SENSE to determine block size.
2312 	 */
2313 	un->un_dp->options |= ST_MODE_SEL_COMP | ST_UNLOADABLE;
2314 	rval = st_modesense(un);
2315 	if (rval) {
2316 		if (rval == EACCES) {
2317 			un->un_dp->type = ST_TYPE_INVALID;
2318 			rval = 1;
2319 		} else {
2320 			un->un_dp->options &= ~ST_MODE_SEL_COMP;
2321 			rval = 0;
2322 		}
2323 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2324 		    "st_get_conf_from_tape_drive(): fail to mode sense\n");
2325 		goto exit;
2326 	}
2327 
2328 	/* Can mode sense page 0x10 or 0xf */
2329 	tem_dp->options |= ST_MODE_SEL_COMP;
2330 	bsize = (un->un_mspl->high_bl << 16)	|
2331 	    (un->un_mspl->mid_bl << 8)		|
2332 	    (un->un_mspl->low_bl);
2333 
2334 	if (bsize == 0) {
2335 		tem_dp->options |= ST_VARIABLE;
2336 		tem_dp->bsize = 0;
2337 	} else if (bsize > ST_MAXRECSIZE_FIXED) {
2338 		rval = st_change_block_size(un, 0);
2339 		if (rval) {
2340 			if (rval == EACCES) {
2341 				un->un_dp->type = ST_TYPE_INVALID;
2342 				rval = 1;
2343 			} else {
2344 				rval = 0;
2345 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2346 				    "st_get_conf_from_tape_drive(): "
2347 				    "Fixed record size is too large and"
2348 				    "cannot switch to variable record size");
2349 			}
2350 			goto exit;
2351 		}
2352 		tem_dp->options |= ST_VARIABLE;
2353 	} else {
2354 		rval = st_change_block_size(un, 0);
2355 		if (rval == 0) {
2356 			tem_dp->options |= ST_VARIABLE;
2357 			tem_dp->bsize = 0;
2358 		} else if (rval != EACCES) {
2359 			tem_dp->bsize = bsize;
2360 		} else {
2361 			un->un_dp->type = ST_TYPE_INVALID;
2362 			rval = 1;
2363 			goto exit;
2364 		}
2365 	}
2366 
2367 	/*
2368 	 * If READ BLOCk LIMITS works and upper block size limit is
2369 	 * more than 64K, ST_NO_RECSIZE_LIMIT is supported.
2370 	 */
2371 	blklim = kmem_zalloc(sizeof (struct read_blklim), KM_SLEEP);
2372 	rval = st_read_block_limits(un, blklim);
2373 	if (rval) {
2374 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2375 		    "st_get_conf_from_tape_drive(): "
2376 		    "fail to read block limits.\n");
2377 		rval = 0;
2378 		kmem_free(blklim, sizeof (struct read_blklim));
2379 		goto exit;
2380 	}
2381 	maxbsize = (blklim->max_hi << 16) +
2382 	    (blklim->max_mid << 8) + blklim->max_lo;
2383 	if (maxbsize > ST_MAXRECSIZE_VARIABLE) {
2384 		tem_dp->options |= ST_NO_RECSIZE_LIMIT;
2385 	}
2386 	kmem_free(blklim, sizeof (struct read_blklim));
2387 
2388 	/*
2389 	 * Inquiry VPD page 0xb0 to see if the tape drive supports WORM
2390 	 */
2391 	buf = kmem_zalloc(6, KM_SLEEP);
2392 	rval = st_get_special_inquiry(un, 6, buf, 0xb0);
2393 	if (rval) {
2394 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2395 		    "st_get_conf_from_tape_drive(): "
2396 		    "fail to read vitial inquiry.\n");
2397 		rval = 0;
2398 		kmem_free(buf, 6);
2399 		goto exit;
2400 	}
2401 	if (buf[4] & 1) {
2402 		tem_dp->options |= ST_WORMABLE;
2403 	}
2404 	kmem_free(buf, 6);
2405 
2406 	/* Assume BSD BSR KNOWS_EOD */
2407 	tem_dp->options |= ST_BSF | ST_BSR | ST_KNOWS_EOD | ST_UNLOADABLE;
2408 	tem_dp->max_rretries = -1;
2409 	tem_dp->max_wretries = -1;
2410 
2411 	/*
2412 	 * Decide the densities supported by tape drive by sending
2413 	 * REPORT DENSITY SUPPORT command.
2414 	 */
2415 	if (st_get_densities_from_tape_drive(un, tem_dp) == 0) {
2416 		goto exit;
2417 	}
2418 
2419 	/*
2420 	 * Decide the timeout values for several commands by sending
2421 	 * REPORT SUPPORTED OPERATION CODES command.
2422 	 */
2423 	rval = st_get_timeout_values_from_tape_drive(un, tem_dp);
2424 	if (rval == 0 || ((rval == 1) && (tem_dp->type == ST_TYPE_INVALID))) {
2425 		goto exit;
2426 	}
2427 
2428 	bcopy(tem_dp, dp, sizeof (struct st_drivetype));
2429 	rval = 1;
2430 
2431 exit:
2432 	un->un_status = KEY_NO_SENSE;
2433 	kmem_free(tem_dp, sizeof (struct st_drivetype));
2434 	return (rval);
2435 }
2436 
2437 static int
st_get_densities_from_tape_drive(struct scsi_tape * un,struct st_drivetype * dp)2438 st_get_densities_from_tape_drive(struct scsi_tape *un,
2439     struct st_drivetype *dp)
2440 {
2441 	int i, p;
2442 	size_t buflen;
2443 	ushort_t des_len;
2444 	uchar_t *den_header;
2445 	uchar_t num_den;
2446 	uchar_t den[NDENSITIES];
2447 	uchar_t deflt[NDENSITIES];
2448 	struct report_density_desc *den_desc;
2449 
2450 	ST_FUNC(ST_DEVINFO, st_get_densities_from_type_drive);
2451 
2452 	/*
2453 	 * Since we have no idea how many densitiy support entries
2454 	 * will be returned, we send the command firstly assuming
2455 	 * there is only one. Then we can decide the number of
2456 	 * entries by available density support length. If multiple
2457 	 * entries exist, we will resend the command with enough
2458 	 * buffer size.
2459 	 */
2460 	buflen = sizeof (struct report_density_header) +
2461 	    sizeof (struct report_density_desc);
2462 	den_header = kmem_zalloc(buflen, KM_SLEEP);
2463 	if (st_report_density_support(un, den_header, buflen) != 0) {
2464 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2465 		    "st_get_conf_from_tape_drive(): fail to report density.\n");
2466 		kmem_free(den_header, buflen);
2467 		return (0);
2468 	}
2469 	des_len =
2470 	    BE_16(((struct report_density_header *)den_header)->ava_dens_len);
2471 	num_den = (des_len - 2) / sizeof (struct report_density_desc);
2472 
2473 	if (num_den > 1) {
2474 		kmem_free(den_header, buflen);
2475 		buflen = sizeof (struct report_density_header) +
2476 		    sizeof (struct report_density_desc) * num_den;
2477 		den_header = kmem_zalloc(buflen, KM_SLEEP);
2478 		if (st_report_density_support(un, den_header, buflen) != 0) {
2479 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2480 			    "st_get_conf_from_tape_drive(): "
2481 			    "fail to report density.\n");
2482 			kmem_free(den_header, buflen);
2483 			return (0);
2484 		}
2485 	}
2486 
2487 	den_desc = (struct report_density_desc *)(den_header
2488 	    + sizeof (struct report_density_header));
2489 
2490 	/*
2491 	 * Decide the drive type by assigning organization
2492 	 */
2493 	for (i = 0; i < ST_NUM_MEMBERS(st_vid_dt); i ++) {
2494 		if (strncmp(st_vid_dt[i].vid, (char *)(den_desc->ass_org),
2495 		    8) == 0) {
2496 			dp->type = st_vid_dt[i].type;
2497 			break;
2498 		}
2499 	}
2500 	if (i == ST_NUM_MEMBERS(st_vid_dt)) {
2501 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2502 		    "st_get_conf_from_tape_drive(): "
2503 		    "can't find match of assigned ort.\n");
2504 		kmem_free(den_header, buflen);
2505 		return (0);
2506 	}
2507 
2508 	/*
2509 	 * The tape drive may support many tape formats, but the st driver
2510 	 * supports only the four highest densities. Since density code
2511 	 * values are returned by ascending sequence, we start from the
2512 	 * last entry of density support data block descriptor.
2513 	 */
2514 	p = 0;
2515 	den_desc += num_den - 1;
2516 	for (i = 0; i < num_den && p < NDENSITIES; i ++, den_desc --) {
2517 		if ((den_desc->pri_den != 0) && (den_desc->wrtok)) {
2518 			if (p != 0) {
2519 				if (den_desc->pri_den >= den[p - 1]) {
2520 					continue;
2521 				}
2522 			}
2523 			den[p] = den_desc->pri_den;
2524 			deflt[p] = den_desc->deflt;
2525 			p ++;
2526 		}
2527 	}
2528 
2529 	switch (p) {
2530 	case 0:
2531 		bzero(dp->densities, NDENSITIES);
2532 		dp->options |= ST_AUTODEN_OVERRIDE;
2533 		dp->default_density = MT_DENSITY4;
2534 		break;
2535 
2536 	case 1:
2537 		(void) memset(dp->densities, den[0], NDENSITIES);
2538 		dp->options |= ST_AUTODEN_OVERRIDE;
2539 		dp->default_density = MT_DENSITY4;
2540 		break;
2541 
2542 	case 2:
2543 		dp->densities[0] = den[1];
2544 		dp->densities[1] = den[1];
2545 		dp->densities[2] = den[0];
2546 		dp->densities[3] = den[0];
2547 		if (deflt[0]) {
2548 			dp->default_density = MT_DENSITY4;
2549 		} else {
2550 			dp->default_density = MT_DENSITY2;
2551 		}
2552 		break;
2553 
2554 	case 3:
2555 		dp->densities[0] = den[2];
2556 		dp->densities[1] = den[1];
2557 		dp->densities[2] = den[0];
2558 		dp->densities[3] = den[0];
2559 		if (deflt[0]) {
2560 			dp->default_density = MT_DENSITY4;
2561 		} else if (deflt[1]) {
2562 			dp->default_density = MT_DENSITY2;
2563 		} else {
2564 			dp->default_density = MT_DENSITY1;
2565 		}
2566 		break;
2567 
2568 	default:
2569 		for (i = p; i > p - NDENSITIES; i --) {
2570 			dp->densities[i - 1] = den[p - i];
2571 		}
2572 		if (deflt[0]) {
2573 			dp->default_density = MT_DENSITY4;
2574 		} else if (deflt[1]) {
2575 			dp->default_density = MT_DENSITY3;
2576 		} else if (deflt[2]) {
2577 			dp->default_density = MT_DENSITY2;
2578 		} else {
2579 			dp->default_density = MT_DENSITY1;
2580 		}
2581 		break;
2582 	}
2583 
2584 	bzero(dp->mediatype, NDENSITIES);
2585 
2586 	kmem_free(den_header, buflen);
2587 	return (1);
2588 }
2589 
2590 static int
st_get_timeout_values_from_tape_drive(struct scsi_tape * un,struct st_drivetype * dp)2591 st_get_timeout_values_from_tape_drive(struct scsi_tape *un,
2592     struct st_drivetype *dp)
2593 {
2594 	ushort_t timeout;
2595 	int rval;
2596 
2597 	ST_FUNC(ST_DEVINFO, st_get_timeout_values_from_type_drive);
2598 
2599 	rval = st_get_timeouts_value(un, SCMD_ERASE, &timeout, 0);
2600 	if (rval) {
2601 		if (rval == EACCES) {
2602 			un->un_dp->type = ST_TYPE_INVALID;
2603 			dp->type = ST_TYPE_INVALID;
2604 			return (1);
2605 		}
2606 		return (0);
2607 	}
2608 	dp->erase_timeout = timeout;
2609 
2610 	rval = st_get_timeouts_value(un, SCMD_READ, &timeout, 0);
2611 	if (rval) {
2612 		if (rval == EACCES) {
2613 			un->un_dp->type = ST_TYPE_INVALID;
2614 			dp->type = ST_TYPE_INVALID;
2615 			return (1);
2616 		}
2617 		return (0);
2618 	}
2619 	dp->io_timeout = timeout;
2620 
2621 	rval = st_get_timeouts_value(un, SCMD_WRITE, &timeout, 0);
2622 	if (rval) {
2623 		if (rval == EACCES) {
2624 			un->un_dp->type = ST_TYPE_INVALID;
2625 			dp->type = ST_TYPE_INVALID;
2626 			return (1);
2627 		}
2628 		return (0);
2629 	}
2630 	dp->io_timeout = max(dp->io_timeout, timeout);
2631 
2632 	rval = st_get_timeouts_value(un, SCMD_SPACE, &timeout, 0);
2633 	if (rval) {
2634 		if (rval == EACCES) {
2635 			un->un_dp->type = ST_TYPE_INVALID;
2636 			dp->type = ST_TYPE_INVALID;
2637 			return (1);
2638 		}
2639 		return (0);
2640 	}
2641 	dp->space_timeout = timeout;
2642 
2643 	rval = st_get_timeouts_value(un, SCMD_LOAD, &timeout, 0);
2644 	if (rval) {
2645 		if (rval == EACCES) {
2646 			un->un_dp->type = ST_TYPE_INVALID;
2647 			dp->type = ST_TYPE_INVALID;
2648 			return (1);
2649 		}
2650 		return (0);
2651 	}
2652 	dp->load_timeout = timeout;
2653 	dp->unload_timeout = timeout;
2654 
2655 	rval = st_get_timeouts_value(un, SCMD_REWIND, &timeout, 0);
2656 	if (rval) {
2657 		if (rval == EACCES) {
2658 			un->un_dp->type = ST_TYPE_INVALID;
2659 			dp->type = ST_TYPE_INVALID;
2660 			return (1);
2661 		}
2662 		return (0);
2663 	}
2664 	dp->rewind_timeout = timeout;
2665 
2666 	rval = st_get_timeouts_value(un, SCMD_INQUIRY, &timeout, 0);
2667 	if (rval) {
2668 		if (rval == EACCES) {
2669 			un->un_dp->type = ST_TYPE_INVALID;
2670 			dp->type = ST_TYPE_INVALID;
2671 			return (1);
2672 		}
2673 		return (0);
2674 	}
2675 	dp->non_motion_timeout = timeout;
2676 
2677 	return (1);
2678 }
2679 
2680 static int
st_get_timeouts_value(struct scsi_tape * un,uchar_t option_code,ushort_t * timeout_value,ushort_t service_action)2681 st_get_timeouts_value(struct scsi_tape *un, uchar_t option_code,
2682     ushort_t *timeout_value, ushort_t service_action)
2683 {
2684 	uchar_t *timeouts;
2685 	uchar_t *oper;
2686 	uchar_t support;
2687 	uchar_t cdbsize;
2688 	uchar_t ctdp;
2689 	size_t buflen;
2690 	int rval;
2691 
2692 	ST_FUNC(ST_DEVINFO, st_get_timeouts_value);
2693 
2694 	buflen = sizeof (struct one_com_des) +
2695 	    sizeof (struct com_timeout_des);
2696 	oper = kmem_zalloc(buflen, KM_SLEEP);
2697 	rval = st_report_supported_operation(un, oper, option_code,
2698 	    service_action);
2699 
2700 	if (rval) {
2701 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2702 		    "st_get_timeouts_value(): "
2703 		    "fail to timeouts value for command %d.\n", option_code);
2704 		kmem_free(oper, buflen);
2705 		return (rval);
2706 	}
2707 
2708 	support = ((struct one_com_des *)oper)->support;
2709 	if ((support != SUPPORT_VALUES_SUPPORT_SCSI) &&
2710 	    (support != SUPPORT_VALUES_SUPPORT_VENDOR)) {
2711 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2712 		    "st_get_timeouts_value(): "
2713 		    "command %d is not supported.\n", option_code);
2714 		kmem_free(oper, buflen);
2715 		return (ENOTSUP);
2716 	}
2717 
2718 	ctdp = ((struct one_com_des *)oper)->ctdp;
2719 	if (!ctdp) {
2720 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
2721 		    "st_get_timeouts_value(): "
2722 		    "command timeout is not included.\n");
2723 		kmem_free(oper, buflen);
2724 		return (ENOTSUP);
2725 	}
2726 
2727 	cdbsize = BE_16(((struct one_com_des *)oper)->cdb_size);
2728 	timeouts = (uchar_t *)(oper + cdbsize + 4);
2729 
2730 	/*
2731 	 * Timeout value in seconds is 4 bytes, but we only support the lower 2
2732 	 * bytes. If the higher 2 bytes are not zero, the timeout value is set
2733 	 * to 0xFFFF.
2734 	 */
2735 	if (*(timeouts + 8) != 0 || *(timeouts + 9) != 0) {
2736 		*timeout_value = USHRT_MAX;
2737 	} else {
2738 		*timeout_value = ((*(timeouts + 10)) << 8) |
2739 		    (*(timeouts + 11));
2740 	}
2741 
2742 	kmem_free(oper, buflen);
2743 	return (0);
2744 }
2745 
2746 static int
st_get_default_conf(struct scsi_tape * un,char * vidpid,struct st_drivetype * dp)2747 st_get_default_conf(struct scsi_tape *un, char *vidpid, struct st_drivetype *dp)
2748 {
2749 	int i;
2750 
2751 	ST_FUNC(ST_DEVINFO, st_get_default_conf);
2752 
2753 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
2754 	    "st_get_default_conf(): making drivetype from INQ cmd\n");
2755 
2756 	/*
2757 	 * Make up a name
2758 	 */
2759 	bcopy("Vendor '", dp->name, 8);
2760 	bcopy(vidpid, &dp->name[8], VIDLEN);
2761 	bcopy("' Product '", &dp->name[16], 11);
2762 	bcopy(&vidpid[8], &dp->name[27], PIDLEN);
2763 	dp->name[ST_NAMESIZE - 2] = '\'';
2764 	dp->name[ST_NAMESIZE - 1] = '\0';
2765 	dp->length = min(strlen(ST_INQUIRY->inq_vid), (VIDPIDLEN - 1));
2766 	(void) strncpy(dp->vid, ST_INQUIRY->inq_vid, dp->length);
2767 	/*
2768 	 * 'clean' vendor and product strings of non-printing chars
2769 	 */
2770 	for (i = 0; i < ST_NAMESIZE - 2; i++) {
2771 		if (dp->name[i] < ' ' || dp->name[i] > '~') {
2772 			dp->name[i] = '.';
2773 		}
2774 	}
2775 	dp->type = ST_TYPE_INVALID;
2776 	dp->options |= (ST_DYNAMIC | ST_UNLOADABLE | ST_MODE_SEL_COMP);
2777 
2778 	return (1); /* Can Not Fail */
2779 }
2780 
2781 /*
2782  * Regular Unix Entry points
2783  */
2784 
2785 
2786 
2787 /* ARGSUSED */
2788 static int
st_open(dev_t * dev_p,int flag,int otyp,cred_t * cred_p)2789 st_open(dev_t *dev_p, int flag, int otyp, cred_t *cred_p)
2790 {
2791 	dev_t dev = *dev_p;
2792 	int rval = 0;
2793 
2794 	GET_SOFT_STATE(dev);
2795 
2796 	ST_ENTR(ST_DEVINFO, st_open);
2797 
2798 	/*
2799 	 * validate that we are addressing a sensible unit
2800 	 */
2801 	mutex_enter(ST_MUTEX);
2802 
2803 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
2804 	    "st_open(node = %s dev = 0x%lx, flag = %d, otyp = %d)\n",
2805 	    st_dev_name(dev), *dev_p, flag, otyp);
2806 
2807 	/*
2808 	 * All device accesss go thru st_strategy() where we check
2809 	 * suspend status
2810 	 */
2811 
2812 	if (!un->un_attached) {
2813 		st_known_tape_type(un);
2814 		if (!un->un_attached) {
2815 			rval = ENXIO;
2816 			goto exit;
2817 		}
2818 
2819 	}
2820 
2821 	/*
2822 	 * Check for the case of the tape in the middle of closing.
2823 	 * This isn't simply a check of the current state, because
2824 	 * we could be in state of sensing with the previous state
2825 	 * that of closing.
2826 	 *
2827 	 * And don't allow multiple opens.
2828 	 */
2829 	if (!(flag & (FNDELAY | FNONBLOCK)) && IS_CLOSING(un)) {
2830 		un->un_laststate = un->un_state;
2831 		un->un_state = ST_STATE_CLOSE_PENDING_OPEN;
2832 		while (IS_CLOSING(un) ||
2833 		    un->un_state == ST_STATE_CLOSE_PENDING_OPEN) {
2834 			if (cv_wait_sig(&un->un_clscv, ST_MUTEX) == 0) {
2835 				rval = EINTR;
2836 				un->un_state = un->un_laststate;
2837 				goto exit;
2838 			}
2839 		}
2840 	} else if (un->un_state != ST_STATE_CLOSED) {
2841 		rval = EBUSY;
2842 		goto busy;
2843 	}
2844 
2845 	/*
2846 	 * record current dev
2847 	 */
2848 	un->un_dev = dev;
2849 	un->un_oflags = flag;	/* save for use in st_tape_init() */
2850 	un->un_errno = 0;	/* no errors yet */
2851 	un->un_restore_pos = 0;
2852 	un->un_rqs_state = 0;
2853 
2854 	/*
2855 	 * If we are opening O_NDELAY, or O_NONBLOCK, we don't check for
2856 	 * anything, leave internal states alone, if fileno >= 0
2857 	 */
2858 	if (flag & (FNDELAY | FNONBLOCK)) {
2859 		switch (un->un_pos.pmode) {
2860 
2861 		case invalid:
2862 			un->un_state = ST_STATE_OFFLINE;
2863 			break;
2864 
2865 		case legacy:
2866 			/*
2867 			 * If position is anything other than rewound.
2868 			 */
2869 			if (un->un_pos.fileno != 0 || un->un_pos.blkno != 0) {
2870 				/*
2871 				 * set un_read_only/write-protect status.
2872 				 *
2873 				 * If the tape is not bot we can assume
2874 				 * that mspl->wp_status is set properly.
2875 				 * else
2876 				 * we need to do a mode sense/Tur once
2877 				 * again to get the actual tape status.(since
2878 				 * user might have replaced the tape)
2879 				 * Hence make the st state OFFLINE so that
2880 				 * we re-intialize the tape once again.
2881 				 */
2882 				un->un_read_only =
2883 				    (un->un_oflags & FWRITE) ? RDWR : RDONLY;
2884 				un->un_state = ST_STATE_OPEN_PENDING_IO;
2885 			} else {
2886 				un->un_state = ST_STATE_OFFLINE;
2887 			}
2888 			break;
2889 		case logical:
2890 			if (un->un_pos.lgclblkno == 0) {
2891 				un->un_state = ST_STATE_OFFLINE;
2892 			} else {
2893 				un->un_read_only =
2894 				    (un->un_oflags & FWRITE) ? RDWR : RDONLY;
2895 				un->un_state = ST_STATE_OPEN_PENDING_IO;
2896 			}
2897 			break;
2898 		}
2899 		rval = 0;
2900 	} else {
2901 		/*
2902 		 * Not opening O_NDELAY.
2903 		 */
2904 		un->un_state = ST_STATE_OPENING;
2905 
2906 		/*
2907 		 * Clear error entry stack
2908 		 */
2909 		st_empty_error_stack(un);
2910 
2911 		rval = st_tape_init(un);
2912 		if ((rval == EACCES) && (un->un_read_only & WORM)) {
2913 			un->un_state = ST_STATE_OPEN_PENDING_IO;
2914 			rval = 0; /* so open doesn't fail */
2915 		} else if (rval) {
2916 			/*
2917 			 * Release the tape unit, if reserved and not
2918 			 * preserve reserve.
2919 			 */
2920 			if ((un->un_rsvd_status &
2921 			    (ST_RESERVE | ST_PRESERVE_RESERVE)) == ST_RESERVE) {
2922 				(void) st_reserve_release(un, ST_RELEASE,
2923 				    st_uscsi_cmd);
2924 			}
2925 		} else {
2926 			un->un_state = ST_STATE_OPEN_PENDING_IO;
2927 		}
2928 	}
2929 
2930 exit:
2931 	/*
2932 	 * we don't want any uninvited guests scrogging our data when we're
2933 	 * busy with something, so for successful opens or failed opens
2934 	 * (except for EBUSY), reset these counters and state appropriately.
2935 	 */
2936 	if (rval != EBUSY) {
2937 		if (rval) {
2938 			un->un_state = ST_STATE_CLOSED;
2939 		}
2940 		un->un_err_resid = 0;
2941 		un->un_retry_ct = 0;
2942 	}
2943 busy:
2944 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
2945 	    "st_open: return val = %x, state = %d\n", rval, un->un_state);
2946 	mutex_exit(ST_MUTEX);
2947 	return (rval);
2948 
2949 }
2950 
2951 static int
st_tape_init(struct scsi_tape * un)2952 st_tape_init(struct scsi_tape *un)
2953 {
2954 	int err;
2955 	int rval = 0;
2956 
2957 	ST_FUNC(ST_DEVINFO, st_tape_init);
2958 
2959 	ASSERT(mutex_owned(ST_MUTEX));
2960 
2961 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
2962 	    "st_tape_init(un = 0x%p, oflags = %d)\n", (void*)un, un->un_oflags);
2963 
2964 	/*
2965 	 * Clean up after any errors left by 'last' close.
2966 	 * This also handles the case of the initial open.
2967 	 */
2968 	if (un->un_state != ST_STATE_INITIALIZING) {
2969 		un->un_laststate = un->un_state;
2970 		un->un_state = ST_STATE_OPENING;
2971 	}
2972 
2973 	un->un_kbytes_xferred = 0;
2974 
2975 	/*
2976 	 * do a throw away TUR to clear check condition
2977 	 */
2978 	err = st_cmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
2979 
2980 	/*
2981 	 * If test unit ready fails because the drive is reserved
2982 	 * by another host fail the open for no access.
2983 	 */
2984 	if (err) {
2985 		if (un->un_rsvd_status & ST_RESERVATION_CONFLICT) {
2986 			un->un_state = ST_STATE_CLOSED;
2987 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
2988 			    "st_tape_init: RESERVATION CONFLICT\n");
2989 			rval = EACCES;
2990 			goto exit;
2991 		} else if ((un->un_rsvd_status &
2992 		    ST_APPLICATION_RESERVATIONS) != 0) {
2993 			if ((ST_RQSENSE != NULL) &&
2994 			    (ST_RQSENSE->es_add_code == 0x2a &&
2995 			    ST_RQSENSE->es_qual_code == 0x03)) {
2996 				un->un_state = ST_STATE_CLOSED;
2997 				rval = EACCES;
2998 				goto exit;
2999 			}
3000 		}
3001 	}
3002 
3003 	/*
3004 	 * Tape self identification could fail if the tape drive is used by
3005 	 * another host during attach time. We try to get the tape type
3006 	 * again. This is also applied to any posponed configuration methods.
3007 	 */
3008 	if (un->un_dp->type == ST_TYPE_INVALID) {
3009 		un->un_comp_page = ST_DEV_DATACOMP_PAGE | ST_DEV_CONFIG_PAGE;
3010 		st_known_tape_type(un);
3011 	}
3012 
3013 	/*
3014 	 * If the tape type is still invalid, try to determine the generic
3015 	 * configuration.
3016 	 */
3017 	if (un->un_dp->type == ST_TYPE_INVALID) {
3018 		rval = st_determine_generic(un);
3019 		if (rval) {
3020 			if (rval != EACCES) {
3021 				rval = EIO;
3022 			}
3023 			un->un_state = ST_STATE_CLOSED;
3024 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3025 			    "st_tape_init: %s invalid type\n",
3026 			    rval == EACCES ? "EACCES" : "EIO");
3027 			goto exit;
3028 		}
3029 		/*
3030 		 * If this is a Unknown Type drive,
3031 		 * Use the READ BLOCK LIMITS to determine if
3032 		 * allow large xfer is approprate if not globally
3033 		 * disabled with st_allow_large_xfer.
3034 		 */
3035 		un->un_allow_large_xfer = (uchar_t)st_allow_large_xfer;
3036 	} else {
3037 
3038 		/*
3039 		 * If we allow_large_xfer (ie >64k) and have not yet found out
3040 		 * the max block size supported by the drive,
3041 		 * find it by issueing a READ_BLKLIM command.
3042 		 * if READ_BLKLIM cmd fails, assume drive doesn't
3043 		 * allow_large_xfer and min/max block sizes as 1 byte and 63k.
3044 		 */
3045 		un->un_allow_large_xfer = st_allow_large_xfer &&
3046 		    (un->un_dp->options & ST_NO_RECSIZE_LIMIT);
3047 	}
3048 	/*
3049 	 * if maxbsize is unknown, set the maximum block size.
3050 	 */
3051 	if (un->un_maxbsize == MAXBSIZE_UNKNOWN) {
3052 
3053 		/*
3054 		 * Get the Block limits of the tape drive.
3055 		 * if un->un_allow_large_xfer = 0 , then make sure
3056 		 * that maxbsize is <= ST_MAXRECSIZE_FIXED.
3057 		 */
3058 		un->un_rbl = kmem_zalloc(RBLSIZE, KM_SLEEP);
3059 
3060 		err = st_cmd(un, SCMD_READ_BLKLIM, RBLSIZE, SYNC_CMD);
3061 		if (err) {
3062 			/* Retry */
3063 			err = st_cmd(un, SCMD_READ_BLKLIM, RBLSIZE, SYNC_CMD);
3064 		}
3065 		if (!err) {
3066 
3067 			/*
3068 			 * if cmd successful, use limit returned
3069 			 */
3070 			un->un_maxbsize = (un->un_rbl->max_hi << 16) +
3071 			    (un->un_rbl->max_mid << 8) +
3072 			    un->un_rbl->max_lo;
3073 			un->un_minbsize = (un->un_rbl->min_hi << 8) +
3074 			    un->un_rbl->min_lo;
3075 			un->un_data_mod = 1 << un->un_rbl->granularity;
3076 			if ((un->un_maxbsize == 0) ||
3077 			    (un->un_allow_large_xfer == 0 &&
3078 			    un->un_maxbsize > ST_MAXRECSIZE_FIXED)) {
3079 				un->un_maxbsize = ST_MAXRECSIZE_FIXED;
3080 
3081 			} else if (un->un_dp->type == ST_TYPE_DEFAULT) {
3082 				/*
3083 				 * Drive is not one that is configured, But the
3084 				 * READ BLOCK LIMITS tells us it can do large
3085 				 * xfers.
3086 				 */
3087 				if (un->un_maxbsize > ST_MAXRECSIZE_FIXED) {
3088 					un->un_dp->options |=
3089 					    ST_NO_RECSIZE_LIMIT;
3090 				}
3091 				/*
3092 				 * If max and mimimum block limits are the
3093 				 * same this is a fixed block size device.
3094 				 */
3095 				if (un->un_maxbsize == un->un_minbsize) {
3096 					un->un_dp->options &= ~ST_VARIABLE;
3097 				}
3098 			}
3099 
3100 			if (un->un_minbsize == 0) {
3101 				un->un_minbsize = 1;
3102 			}
3103 
3104 		} else { /* error on read block limits */
3105 
3106 			scsi_log(ST_DEVINFO, st_label, CE_NOTE,
3107 			    "!st_tape_init: Error on READ BLOCK LIMITS,"
3108 			    " errno = %d un_rsvd_status = 0x%X\n",
3109 			    err, un->un_rsvd_status);
3110 
3111 			/*
3112 			 * since read block limits cmd failed,
3113 			 * do not allow large xfers.
3114 			 * use old values in st_minphys
3115 			 */
3116 			if (un->un_rsvd_status & ST_RESERVATION_CONFLICT) {
3117 				rval = EACCES;
3118 			} else {
3119 				un->un_allow_large_xfer = 0;
3120 				scsi_log(ST_DEVINFO, st_label, CE_NOTE,
3121 				    "!Disabling large transfers\n");
3122 
3123 				/*
3124 				 * we guess maxbsize and minbsize
3125 				 */
3126 				if (un->un_bsize) {
3127 					un->un_maxbsize = un->un_minbsize =
3128 					    un->un_bsize;
3129 				} else {
3130 					un->un_maxbsize = ST_MAXRECSIZE_FIXED;
3131 					un->un_minbsize = 1;
3132 				}
3133 				/*
3134 				 * Data Mod must be set,
3135 				 * Even if read block limits fails.
3136 				 * Prevents Divide By Zero in st_rw().
3137 				 */
3138 				un->un_data_mod = 1;
3139 			}
3140 		}
3141 		if (un->un_rbl) {
3142 			kmem_free(un->un_rbl, RBLSIZE);
3143 			un->un_rbl = NULL;
3144 		}
3145 
3146 		if (rval) {
3147 			goto exit;
3148 		}
3149 	}
3150 
3151 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
3152 	    "maxdma = %d, maxbsize = %d, minbsize = %d, %s large xfer\n",
3153 	    un->un_maxdma, un->un_maxbsize, un->un_minbsize,
3154 	    (un->un_allow_large_xfer ? "ALLOW": "DON'T ALLOW"));
3155 
3156 	err = st_cmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
3157 
3158 	if (err != 0) {
3159 		if (err == EINTR) {
3160 			un->un_laststate = un->un_state;
3161 			un->un_state = ST_STATE_CLOSED;
3162 			rval = EINTR;
3163 			goto exit;
3164 		}
3165 		/*
3166 		 * Make sure the tape is ready
3167 		 */
3168 		un->un_pos.pmode = invalid;
3169 		if (un->un_status != KEY_UNIT_ATTENTION) {
3170 			/*
3171 			 * allow open no media.  Subsequent MTIOCSTATE
3172 			 * with media present will complete the open
3173 			 * logic.
3174 			 */
3175 			un->un_laststate = un->un_state;
3176 			if (un->un_oflags & (FNONBLOCK|FNDELAY)) {
3177 				un->un_mediastate = MTIO_EJECTED;
3178 				un->un_state = ST_STATE_OFFLINE;
3179 				rval = 0;
3180 				goto exit;
3181 			} else {
3182 				un->un_state = ST_STATE_CLOSED;
3183 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3184 				    "st_tape_init EIO no media, not opened "
3185 				    "O_NONBLOCK|O_EXCL\n");
3186 				rval = EIO;
3187 				goto exit;
3188 			}
3189 		}
3190 	}
3191 
3192 	/*
3193 	 * On each open, initialize block size from drivetype struct,
3194 	 * as it could have been changed by MTSRSZ ioctl.
3195 	 * Now, ST_VARIABLE simply means drive is capable of variable
3196 	 * mode. All drives are assumed to support fixed records.
3197 	 * Hence, un_bsize tells what mode the drive is in.
3198 	 *	un_bsize	= 0	- variable record length
3199 	 *			= x	- fixed record length is x
3200 	 */
3201 	un->un_bsize = un->un_dp->bsize;
3202 
3203 	/*
3204 	 * If saved position is valid go there
3205 	 */
3206 	if (un->un_restore_pos) {
3207 		un->un_restore_pos = 0;
3208 		un->un_pos.fileno = un->un_save_fileno;
3209 		un->un_pos.blkno = un->un_save_blkno;
3210 		rval = st_validate_tapemarks(un, st_uscsi_cmd, &un->un_pos);
3211 		if (rval != 0) {
3212 			if (rval != EACCES) {
3213 				rval = EIO;
3214 			}
3215 			un->un_laststate = un->un_state;
3216 			un->un_state = ST_STATE_CLOSED;
3217 			goto exit;
3218 		}
3219 	}
3220 
3221 	if (un->un_pos.pmode == invalid) {
3222 		rval = st_loadtape(un);
3223 		if (rval) {
3224 			if (rval != EACCES) {
3225 				rval = EIO;
3226 			}
3227 			un->un_laststate = un->un_state;
3228 			un->un_state = ST_STATE_CLOSED;
3229 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3230 			    "st_tape_init: %s can't open tape\n",
3231 			    rval == EACCES ? "EACCES" : "EIO");
3232 			goto exit;
3233 		}
3234 	}
3235 
3236 	/*
3237 	 * do a mode sense to pick up state of current write-protect,
3238 	 * Could cause reserve and fail due to conflict.
3239 	 */
3240 	if (un->un_unit_attention_flags) {
3241 		rval = st_modesense(un);
3242 		if (rval == EACCES) {
3243 			goto exit;
3244 		}
3245 	}
3246 
3247 	/*
3248 	 * If we are opening the tape for writing, check
3249 	 * to make sure that the tape can be written.
3250 	 */
3251 	if (un->un_oflags & FWRITE) {
3252 		err = 0;
3253 		if (un->un_mspl->wp) {
3254 			un->un_status = KEY_WRITE_PROTECT;
3255 			un->un_laststate = un->un_state;
3256 			un->un_state = ST_STATE_CLOSED;
3257 			rval = EACCES;
3258 			/*
3259 			 * STK sets the wp bit if volsafe tape is loaded.
3260 			 */
3261 			if ((un->un_dp->type == MT_ISSTK9840) &&
3262 			    (un->un_dp->options & ST_WORMABLE)) {
3263 				un->un_read_only = RDONLY;
3264 			} else {
3265 				goto exit;
3266 			}
3267 		} else {
3268 			un->un_read_only = RDWR;
3269 		}
3270 	} else {
3271 		un->un_read_only = RDONLY;
3272 	}
3273 
3274 	if (un->un_dp->options & ST_WORMABLE &&
3275 	    un->un_unit_attention_flags) {
3276 		un->un_read_only |= un->un_wormable(un);
3277 
3278 		if (((un->un_read_only == WORM) ||
3279 		    (un->un_read_only == RDWORM)) &&
3280 		    ((un->un_oflags & FWRITE) == FWRITE)) {
3281 			un->un_status = KEY_DATA_PROTECT;
3282 			rval = EACCES;
3283 			ST_DEBUG4(ST_DEVINFO, st_label, CE_NOTE,
3284 			    "read_only = %d eof = %d oflag = %d\n",
3285 			    un->un_read_only, un->un_pos.eof, un->un_oflags);
3286 		}
3287 	}
3288 
3289 	/*
3290 	 * If we're opening the tape write-only, we need to
3291 	 * write 2 filemarks on the HP 1/2 inch drive, to
3292 	 * create a null file.
3293 	 */
3294 	if ((un->un_read_only == RDWR) ||
3295 	    (un->un_read_only == WORM) && (un->un_oflags & FWRITE)) {
3296 		if (un->un_dp->options & ST_REEL) {
3297 			un->un_fmneeded = 2;
3298 		} else {
3299 			un->un_fmneeded = 1;
3300 		}
3301 	} else {
3302 		un->un_fmneeded = 0;
3303 	}
3304 
3305 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
3306 	    "fmneeded = %x\n", un->un_fmneeded);
3307 
3308 	/*
3309 	 * Make sure the density can be selected correctly.
3310 	 * If WORM can only write at the append point which in most cases
3311 	 * isn't BOP. st_determine_density() with a B_WRITE only attempts
3312 	 * to set and try densities if a BOP.
3313 	 */
3314 	if (st_determine_density(un,
3315 	    un->un_read_only == RDWR ? B_WRITE : B_READ)) {
3316 		un->un_status = KEY_ILLEGAL_REQUEST;
3317 		un->un_laststate = un->un_state;
3318 		un->un_state = ST_STATE_CLOSED;
3319 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
3320 		    "st_tape_init: EIO can't determine density\n");
3321 		rval = EIO;
3322 		goto exit;
3323 	}
3324 
3325 	/*
3326 	 * Destroy the knowledge that we have 'determined'
3327 	 * density so that a later read at BOT comes along
3328 	 * does the right density determination.
3329 	 */
3330 
3331 	un->un_density_known = 0;
3332 
3333 
3334 	/*
3335 	 * Okay, the tape is loaded and either at BOT or somewhere past.
3336 	 * Mark the state such that any I/O or tape space operations
3337 	 * will get/set the right density, etc..
3338 	 */
3339 	un->un_laststate = un->un_state;
3340 	un->un_lastop = ST_OP_NIL;
3341 	un->un_mediastate = MTIO_INSERTED;
3342 	cv_broadcast(&un->un_state_cv);
3343 
3344 	/*
3345 	 *  Set test append flag if writing.
3346 	 *  First write must check that tape is positioned correctly.
3347 	 */
3348 	un->un_test_append = (un->un_oflags & FWRITE);
3349 
3350 	/*
3351 	 * if there are pending unit attention flags.
3352 	 * Check that the media has not changed.
3353 	 */
3354 	if (un->un_unit_attention_flags) {
3355 		rval = st_get_media_identification(un, st_uscsi_cmd);
3356 		if (rval != 0 && rval != EACCES) {
3357 			rval = EIO;
3358 		}
3359 		un->un_unit_attention_flags = 0;
3360 	}
3361 
3362 exit:
3363 	un->un_err_resid = 0;
3364 	un->un_last_resid = 0;
3365 	un->un_last_count = 0;
3366 
3367 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
3368 	    "st_tape_init: return val = %x\n", rval);
3369 	return (rval);
3370 
3371 }
3372 
3373 
3374 
3375 /* ARGSUSED */
3376 static int
st_close(dev_t dev,int flag,int otyp,cred_t * cred_p)3377 st_close(dev_t dev, int flag, int otyp, cred_t *cred_p)
3378 {
3379 	int err = 0;
3380 	int count, last_state;
3381 	minor_t minor = getminor(dev);
3382 #ifdef	__x86
3383 	struct contig_mem *cp, *cp_temp;
3384 #endif
3385 
3386 	GET_SOFT_STATE(dev);
3387 
3388 	ST_ENTR(ST_DEVINFO, st_close);
3389 
3390 	/*
3391 	 * wait till all cmds in the pipeline have been completed
3392 	 */
3393 	mutex_enter(ST_MUTEX);
3394 
3395 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
3396 	    "st_close(dev = 0x%lx, flag = %d, otyp = %d)\n", dev, flag, otyp);
3397 
3398 	st_wait_for_io(un);
3399 
3400 	/* turn off persistent errors on close, as we want close to succeed */
3401 	st_turn_pe_off(un);
3402 
3403 	/*
3404 	 * set state to indicate that we are in process of closing
3405 	 */
3406 	last_state = un->un_laststate = un->un_state;
3407 	un->un_state = ST_STATE_CLOSING;
3408 
3409 	ST_POS(ST_DEVINFO, "st_close1:", &un->un_pos);
3410 
3411 	/*
3412 	 * BSD behavior:
3413 	 * a close always causes a silent span to the next file if we've hit
3414 	 * an EOF (but not yet read across it).
3415 	 */
3416 	if ((minor & MT_BSD) && (un->un_pos.eof == ST_EOF)) {
3417 		if (un->un_pos.pmode != invalid) {
3418 			un->un_pos.fileno++;
3419 			un->un_pos.blkno = 0;
3420 		}
3421 		un->un_pos.eof = ST_NO_EOF;
3422 	}
3423 
3424 	/*
3425 	 * SVR4 behavior for skipping to next file:
3426 	 *
3427 	 * If we have not seen a filemark, space to the next file
3428 	 *
3429 	 * If we have already seen the filemark we are physically in the next
3430 	 * file and we only increment the filenumber
3431 	 */
3432 	if (((minor & (MT_BSD | MT_NOREWIND)) == MT_NOREWIND) &&
3433 	    (flag & FREAD) &&		/* reading or at least asked to */
3434 	    (un->un_mediastate == MTIO_INSERTED) &&	/* tape loaded */
3435 	    (un->un_pos.pmode != invalid) &&		/* XXX position known */
3436 	    ((un->un_pos.blkno != 0) && 		/* inside a file */
3437 	    (un->un_lastop != ST_OP_WRITE) &&		/* Didn't just write */
3438 	    (un->un_lastop != ST_OP_WEOF))) {		/* or write filemarks */
3439 		switch (un->un_pos.eof) {
3440 		case ST_NO_EOF:
3441 			/*
3442 			 * if we were reading and did not read the complete file
3443 			 * skip to the next file, leaving the tape correctly
3444 			 * positioned to read the first record of the next file
3445 			 * Check first for REEL if we are at EOT by trying to
3446 			 * read a block
3447 			 */
3448 			if ((un->un_dp->options & ST_REEL) &&
3449 			    (!(un->un_dp->options & ST_READ_IGNORE_EOFS)) &&
3450 			    (un->un_pos.blkno == 0)) {
3451 				if (st_cmd(un, SCMD_SPACE, Blk(1), SYNC_CMD)) {
3452 					ST_DEBUG2(ST_DEVINFO, st_label,
3453 					    SCSI_DEBUG,
3454 					    "st_close : EIO can't space\n");
3455 					err = EIO;
3456 					goto error_out;
3457 				}
3458 				if (un->un_pos.eof >= ST_EOF_PENDING) {
3459 					un->un_pos.eof = ST_EOT_PENDING;
3460 					un->un_pos.fileno += 1;
3461 					un->un_pos.blkno   = 0;
3462 					break;
3463 				}
3464 			}
3465 			if (st_cmd(un, SCMD_SPACE, Fmk(1), SYNC_CMD)) {
3466 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3467 				    "st_close: EIO can't space #2\n");
3468 				err = EIO;
3469 				goto error_out;
3470 			} else {
3471 				ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
3472 				    "st_close2: fileno=%x,blkno=%x,eof=%x\n",
3473 				    un->un_pos.fileno, un->un_pos.blkno,
3474 				    un->un_pos.eof);
3475 				un->un_pos.eof = ST_NO_EOF;
3476 			}
3477 			break;
3478 
3479 		case ST_EOF_PENDING:
3480 		case ST_EOF:
3481 			un->un_pos.fileno += 1;
3482 			un->un_pos.lgclblkno += 1;
3483 			un->un_pos.blkno   = 0;
3484 			un->un_pos.eof = ST_NO_EOF;
3485 			break;
3486 
3487 		case ST_EOT:
3488 		case ST_EOT_PENDING:
3489 		case ST_EOM:
3490 			/* nothing to do */
3491 			break;
3492 		default:
3493 			ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
3494 			    "Undefined state 0x%x", un->un_pos.eof);
3495 
3496 		}
3497 	}
3498 
3499 
3500 	/*
3501 	 * For performance reasons (HP 88780), the driver should
3502 	 * postpone writing the second tape mark until just before a file
3503 	 * positioning ioctl is issued (e.g., rewind).	This means that
3504 	 * the user must not manually rewind the tape because the tape will
3505 	 * be missing the second tape mark which marks EOM.
3506 	 * However, this small performance improvement is not worth the risk.
3507 	 */
3508 
3509 	/*
3510 	 * We need to back up over the filemark we inadvertently popped
3511 	 * over doing a read in between the two filemarks that constitute
3512 	 * logical eot for 1/2" tapes. Note that ST_EOT_PENDING is only
3513 	 * set while reading.
3514 	 *
3515 	 * If we happen to be at physical eot (ST_EOM) (writing case),
3516 	 * the writing of filemark(s) will clear the ST_EOM state, which
3517 	 * we don't want, so we save this state and restore it later.
3518 	 */
3519 
3520 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
3521 	    "flag=%x, fmneeded=%x, lastop=%x, eof=%x\n",
3522 	    flag, un->un_fmneeded, un->un_lastop, un->un_pos.eof);
3523 
3524 	if (un->un_pos.eof == ST_EOT_PENDING) {
3525 		if (minor & MT_NOREWIND) {
3526 			if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)) {
3527 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3528 				    "st_close: EIO can't space #3\n");
3529 				err = EIO;
3530 				goto error_out;
3531 			} else {
3532 				un->un_pos.blkno = 0;
3533 				un->un_pos.eof = ST_EOT;
3534 			}
3535 		} else {
3536 			un->un_pos.eof = ST_NO_EOF;
3537 		}
3538 
3539 	/*
3540 	 * Do we need to write a file mark?
3541 	 *
3542 	 * only write filemarks if there are fmks to be written and
3543 	 *   - open for write (possibly read/write)
3544 	 *   - the last operation was a write
3545 	 * or:
3546 	 *   -	opened for wronly
3547 	 *   -	no data was written
3548 	 */
3549 	} else if ((un->un_pos.pmode != invalid) &&
3550 	    (un->un_fmneeded > 0) &&
3551 	    (((flag & FWRITE) &&
3552 	    ((un->un_lastop == ST_OP_WRITE)||(un->un_lastop == ST_OP_WEOF))) ||
3553 	    ((flag == FWRITE) && (un->un_lastop == ST_OP_NIL)))) {
3554 
3555 		/* save ST_EOM state */
3556 		int was_at_eom = (un->un_pos.eof == ST_EOM) ? 1 : 0;
3557 
3558 		/*
3559 		 * Note that we will write a filemark if we had opened
3560 		 * the tape write only and no data was written, thus
3561 		 * creating a null file.
3562 		 *
3563 		 * If the user already wrote one, we only have to write 1 more.
3564 		 * If they wrote two, we don't have to write any.
3565 		 */
3566 
3567 		count = un->un_fmneeded;
3568 		if (count > 0) {
3569 			if (st_cmd(un, SCMD_WRITE_FILE_MARK, count, SYNC_CMD)) {
3570 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3571 				    "st_close : EIO can't wfm\n");
3572 				err = EIO;
3573 				goto error_out;
3574 			}
3575 			if ((un->un_dp->options & ST_REEL) &&
3576 			    (minor & MT_NOREWIND)) {
3577 				if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)) {
3578 					ST_DEBUG2(ST_DEVINFO, st_label,
3579 					    SCSI_DEBUG,
3580 					    "st_close : EIO space fmk(-1)\n");
3581 					err = EIO;
3582 					goto error_out;
3583 				}
3584 				un->un_pos.eof = ST_NO_EOF;
3585 				/* fix up block number */
3586 				un->un_pos.blkno = 0;
3587 			}
3588 		}
3589 
3590 		/*
3591 		 * If we aren't going to be rewinding, and we were at
3592 		 * physical eot, restore the state that indicates we
3593 		 * are at physical eot. Once you have reached physical
3594 		 * eot, and you close the tape, the only thing you can
3595 		 * do on the next open is to rewind. Access to trailer
3596 		 * records is only allowed without closing the device.
3597 		 */
3598 		if ((minor & MT_NOREWIND) == 0 && was_at_eom) {
3599 			un->un_pos.eof = ST_EOM;
3600 		}
3601 	}
3602 
3603 	/*
3604 	 * report soft errors if enabled and available, if we never accessed
3605 	 * the drive, don't get errors. This will prevent some DAT error
3606 	 * messages upon LOG SENSE.
3607 	 */
3608 	if (st_report_soft_errors_on_close &&
3609 	    (un->un_dp->options & ST_SOFT_ERROR_REPORTING) &&
3610 	    (last_state != ST_STATE_OFFLINE)) {
3611 		if (st_report_soft_errors(dev, flag)) {
3612 			err = EIO;
3613 			goto error_out;
3614 		}
3615 	}
3616 
3617 
3618 	/*
3619 	 * Do we need to rewind? Can we rewind?
3620 	 */
3621 	if ((minor & MT_NOREWIND) == 0 &&
3622 	    un->un_pos.pmode != invalid && err == 0) {
3623 		/*
3624 		 * We'd like to rewind with the
3625 		 * 'immediate' bit set, but this
3626 		 * causes problems on some drives
3627 		 * where subsequent opens get a
3628 		 * 'NOT READY' error condition
3629 		 * back while the tape is rewinding,
3630 		 * which is impossible to distinguish
3631 		 * from the condition of 'no tape loaded'.
3632 		 *
3633 		 * Also, for some targets, if you disconnect
3634 		 * with the 'immediate' bit set, you don't
3635 		 * actually return right away, i.e., the
3636 		 * target ignores your request for immediate
3637 		 * return.
3638 		 *
3639 		 * Instead, we'll fire off an async rewind
3640 		 * command. We'll mark the device as closed,
3641 		 * and any subsequent open will stall on
3642 		 * the first TEST_UNIT_READY until the rewind
3643 		 * completes.
3644 		 */
3645 
3646 		/*
3647 		 * Used to be if reserve was not supported we'd send an
3648 		 * asynchronious rewind. Comments above may be slightly invalid
3649 		 * as the immediate bit was never set. Doing an immedate rewind
3650 		 * makes sense, I think fixes to not ready status might handle
3651 		 * the problems described above.
3652 		 */
3653 		if (un->un_sd->sd_inq->inq_ansi < 2) {
3654 			if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
3655 				err = EIO;
3656 			}
3657 		} else {
3658 			/* flush data for older drives per scsi spec. */
3659 			if (st_cmd(un, SCMD_WRITE_FILE_MARK, 0, SYNC_CMD)) {
3660 				err = EIO;
3661 			} else {
3662 				/* release the drive before rewind immediate */
3663 				if ((un->un_rsvd_status &
3664 				    (ST_RESERVE | ST_PRESERVE_RESERVE)) ==
3665 				    ST_RESERVE) {
3666 					if (st_reserve_release(un, ST_RELEASE,
3667 					    st_uscsi_cmd)) {
3668 						err = EIO;
3669 					}
3670 				}
3671 
3672 				/* send rewind with immediate bit set */
3673 				if (st_cmd(un, SCMD_REWIND, 1, ASYNC_CMD)) {
3674 					err = EIO;
3675 				}
3676 			}
3677 		}
3678 		/*
3679 		 * Setting positions invalid in case the rewind doesn't
3680 		 * happen. Drives don't like to rewind if resets happen
3681 		 * they will tend to move back to where the rewind was
3682 		 * issued if a reset or something happens so that if a
3683 		 * write happens the data doesn't get clobbered.
3684 		 *
3685 		 * Not a big deal if the position is invalid when the
3686 		 * open occures it will do a read position.
3687 		 */
3688 		un->un_pos.pmode = invalid;
3689 		un->un_running.pmode = invalid;
3690 
3691 		if (err == EIO) {
3692 			goto error_out;
3693 		}
3694 	}
3695 
3696 	/*
3697 	 * eject tape if necessary
3698 	 */
3699 	if (un->un_eject_tape_on_failure) {
3700 		un->un_eject_tape_on_failure = 0;
3701 		if (st_cmd(un, SCMD_LOAD, LD_UNLOAD, SYNC_CMD)) {
3702 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3703 			    "st_close : can't unload tape\n");
3704 			err = EIO;
3705 			goto error_out;
3706 		} else {
3707 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
3708 			    "st_close : tape unloaded \n");
3709 			un->un_pos.eof = ST_NO_EOF;
3710 			un->un_mediastate = MTIO_EJECTED;
3711 		}
3712 	}
3713 	/*
3714 	 * Release the tape unit, if default reserve/release
3715 	 * behaviour.
3716 	 */
3717 	if ((un->un_rsvd_status &
3718 	    (ST_RESERVE | ST_PRESERVE_RESERVE |
3719 	    ST_APPLICATION_RESERVATIONS)) == ST_RESERVE) {
3720 		(void) st_reserve_release(un, ST_RELEASE, st_uscsi_cmd);
3721 	}
3722 error_out:
3723 	/*
3724 	 * clear up state
3725 	 */
3726 	un->un_laststate = un->un_state;
3727 	un->un_state = ST_STATE_CLOSED;
3728 	un->un_lastop = ST_OP_NIL;
3729 	un->un_throttle = 1;	/* assume one request at time, for now */
3730 	un->un_retry_ct = 0;
3731 	un->un_errno = 0;
3732 	un->un_swr_token = (opaque_t)NULL;
3733 	un->un_rsvd_status &= ~(ST_INIT_RESERVE);
3734 
3735 	/* Restore the options to the init time settings */
3736 	if (un->un_init_options & ST_READ_IGNORE_ILI) {
3737 		un->un_dp->options |= ST_READ_IGNORE_ILI;
3738 	} else {
3739 		un->un_dp->options &= ~ST_READ_IGNORE_ILI;
3740 	}
3741 
3742 	if (un->un_init_options & ST_READ_IGNORE_EOFS) {
3743 		un->un_dp->options |= ST_READ_IGNORE_EOFS;
3744 	} else {
3745 		un->un_dp->options &= ~ST_READ_IGNORE_EOFS;
3746 	}
3747 
3748 	if (un->un_init_options & ST_SHORT_FILEMARKS) {
3749 		un->un_dp->options |= ST_SHORT_FILEMARKS;
3750 	} else {
3751 		un->un_dp->options &= ~ST_SHORT_FILEMARKS;
3752 	}
3753 
3754 	ASSERT(mutex_owned(ST_MUTEX));
3755 
3756 	/*
3757 	 * Signal anyone awaiting a close operation to complete.
3758 	 */
3759 	cv_signal(&un->un_clscv);
3760 
3761 	/*
3762 	 * any kind of error on closing causes all state to be tossed
3763 	 */
3764 	if (err && un->un_status != KEY_ILLEGAL_REQUEST) {
3765 		/*
3766 		 * note that st_intr has already set
3767 		 * un_pos.pmode to invalid.
3768 		 */
3769 		un->un_density_known = 0;
3770 	}
3771 
3772 #ifdef	__x86
3773 	/*
3774 	 * free any contiguous mem alloc'ed for big block I/O
3775 	 */
3776 	cp = un->un_contig_mem;
3777 	while (cp) {
3778 		if (cp->cm_addr) {
3779 			ddi_dma_mem_free(&cp->cm_acc_hdl);
3780 		}
3781 		cp_temp = cp;
3782 		cp = cp->cm_next;
3783 		kmem_free(cp_temp,
3784 		    sizeof (struct contig_mem) + biosize());
3785 	}
3786 	un->un_contig_mem_total_num = 0;
3787 	un->un_contig_mem_available_num = 0;
3788 	un->un_contig_mem = NULL;
3789 	un->un_max_contig_mem_len = 0;
3790 #endif
3791 
3792 	ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
3793 	    "st_close3: return val = %x, fileno=%x, blkno=%x, eof=%x\n",
3794 	    err, un->un_pos.fileno, un->un_pos.blkno, un->un_pos.eof);
3795 
3796 	mutex_exit(ST_MUTEX);
3797 	return (err);
3798 }
3799 
3800 /*
3801  * These routines perform raw i/o operations.
3802  */
3803 
3804 /* ARGSUSED2 */
3805 static int
st_aread(dev_t dev,struct aio_req * aio,cred_t * cred_p)3806 st_aread(dev_t dev, struct aio_req *aio, cred_t *cred_p)
3807 {
3808 #ifdef STDEBUG
3809 	GET_SOFT_STATE(dev);
3810 	ST_ENTR(ST_DEVINFO, st_aread);
3811 #endif
3812 	return (st_arw(dev, aio, B_READ));
3813 }
3814 
3815 
3816 /* ARGSUSED2 */
3817 static int
st_awrite(dev_t dev,struct aio_req * aio,cred_t * cred_p)3818 st_awrite(dev_t dev, struct aio_req *aio, cred_t *cred_p)
3819 {
3820 #ifdef STDEBUG
3821 	GET_SOFT_STATE(dev);
3822 	ST_ENTR(ST_DEVINFO, st_awrite);
3823 #endif
3824 	return (st_arw(dev, aio, B_WRITE));
3825 }
3826 
3827 
3828 
3829 /* ARGSUSED */
3830 static int
st_read(dev_t dev,struct uio * uiop,cred_t * cred_p)3831 st_read(dev_t dev, struct uio *uiop, cred_t *cred_p)
3832 {
3833 #ifdef STDEBUG
3834 	GET_SOFT_STATE(dev);
3835 	ST_ENTR(ST_DEVINFO, st_read);
3836 #endif
3837 	return (st_rw(dev, uiop, B_READ));
3838 }
3839 
3840 /* ARGSUSED */
3841 static int
st_write(dev_t dev,struct uio * uiop,cred_t * cred_p)3842 st_write(dev_t dev, struct uio *uiop, cred_t *cred_p)
3843 {
3844 #ifdef STDEBUG
3845 	GET_SOFT_STATE(dev);
3846 	ST_ENTR(ST_DEVINFO, st_write);
3847 #endif
3848 	return (st_rw(dev, uiop, B_WRITE));
3849 }
3850 
3851 /*
3852  * Due to historical reasons, old limits are: For variable-length devices:
3853  * if greater than 64KB - 1 (ST_MAXRECSIZE_VARIABLE), block into 64 KB - 2
3854  * ST_MAXRECSIZE_VARIABLE_LIMIT) requests; otherwise,
3855  * (let it through unmodified. For fixed-length record devices:
3856  * 63K (ST_MAXRECSIZE_FIXED) is max (default minphys).
3857  *
3858  * The new limits used are un_maxdma (retrieved using scsi_ifgetcap()
3859  * from the HBA) and un_maxbsize (retrieved by sending SCMD_READ_BLKLIM
3860  * command to the drive).
3861  *
3862  */
3863 static void
st_minphys(struct buf * bp)3864 st_minphys(struct buf *bp)
3865 {
3866 	struct scsi_tape *un;
3867 
3868 	un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
3869 
3870 	ST_FUNC(ST_DEVINFO, st_minphys);
3871 
3872 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
3873 	    "st_minphys(bp = 0x%p): b_bcount = 0x%lx\n", (void *)bp,
3874 	    bp->b_bcount);
3875 
3876 	if (un->un_allow_large_xfer) {
3877 
3878 		/*
3879 		 * check un_maxbsize for variable length devices only
3880 		 */
3881 		if (un->un_bsize == 0 && bp->b_bcount > un->un_maxbsize) {
3882 			bp->b_bcount = un->un_maxbsize;
3883 		}
3884 		/*
3885 		 * can't go more that HBA maxdma limit in either fixed-length
3886 		 * or variable-length tape drives.
3887 		 */
3888 		if (bp->b_bcount > un->un_maxdma) {
3889 			bp->b_bcount = un->un_maxdma;
3890 		}
3891 	} else {
3892 
3893 		/*
3894 		 *  use old fixed limits
3895 		 */
3896 		if (un->un_bsize == 0) {
3897 			if (bp->b_bcount > ST_MAXRECSIZE_VARIABLE) {
3898 				bp->b_bcount = ST_MAXRECSIZE_VARIABLE_LIMIT;
3899 			}
3900 		} else {
3901 			if (bp->b_bcount > ST_MAXRECSIZE_FIXED) {
3902 				bp->b_bcount = ST_MAXRECSIZE_FIXED;
3903 			}
3904 		}
3905 	}
3906 
3907 	/*
3908 	 * For regular raw I/O and Fixed Block length devices, make sure
3909 	 * the adjusted block count is a whole multiple of the device
3910 	 * block size.
3911 	 */
3912 	if (bp != un->un_sbufp && un->un_bsize) {
3913 		bp->b_bcount -= (bp->b_bcount % un->un_bsize);
3914 	}
3915 }
3916 
3917 static int
st_rw(dev_t dev,struct uio * uio,int flag)3918 st_rw(dev_t dev, struct uio *uio, int flag)
3919 {
3920 	int rval = 0;
3921 	long len;
3922 
3923 	GET_SOFT_STATE(dev);
3924 
3925 	ST_FUNC(ST_DEVINFO, st_rw);
3926 
3927 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
3928 	    "st_rw(dev = 0x%lx, flag = %s)\n", dev,
3929 	    (flag == B_READ ? rd_str: wr_str));
3930 
3931 	/* get local copy of transfer length */
3932 	len = uio->uio_iov->iov_len;
3933 
3934 	mutex_enter(ST_MUTEX);
3935 
3936 	/*
3937 	 * Clear error entry stack
3938 	 */
3939 	st_empty_error_stack(un);
3940 
3941 	/*
3942 	 * If in fixed block size mode and requested read or write
3943 	 * is not an even multiple of that block size.
3944 	 */
3945 	if ((un->un_bsize != 0) && (len % un->un_bsize != 0)) {
3946 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
3947 		    "%s: not modulo %d block size\n",
3948 		    (flag == B_WRITE) ? wr_str : rd_str, un->un_bsize);
3949 		rval = EINVAL;
3950 	}
3951 
3952 	/* If device has set granularity in the READ_BLKLIM we honor it. */
3953 	if ((un->un_data_mod != 0) && (len % un->un_data_mod != 0)) {
3954 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
3955 		    "%s: not modulo %d device granularity\n",
3956 		    (flag == B_WRITE) ? wr_str : rd_str, un->un_data_mod);
3957 		rval = EINVAL;
3958 	}
3959 
3960 	if (st_recov_sz != sizeof (recov_info) && un->un_multipath) {
3961 		scsi_log(ST_DEVINFO, st_label, CE_WARN, mp_misconf);
3962 		rval = EFAULT;
3963 	}
3964 
3965 	if (rval != 0) {
3966 		un->un_errno = rval;
3967 		mutex_exit(ST_MUTEX);
3968 		return (rval);
3969 	}
3970 
3971 	/*
3972 	 * Reset this so it can be set if Berkeley and read over a filemark.
3973 	 */
3974 	un->un_silent_skip = 0;
3975 	mutex_exit(ST_MUTEX);
3976 
3977 	len = uio->uio_resid;
3978 
3979 	rval = physio(st_queued_strategy, (struct buf *)NULL,
3980 	    dev, flag, st_minphys, uio);
3981 	/*
3982 	 * if we have hit logical EOT during this xfer and there is not a
3983 	 * full residue, then set eof back  to ST_EOM to make sure that
3984 	 * the user will see at least one zero write
3985 	 * after this short write
3986 	 */
3987 	mutex_enter(ST_MUTEX);
3988 	if (un->un_pos.eof > ST_NO_EOF) {
3989 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
3990 		"eof=%d resid=%lx\n", un->un_pos.eof, uio->uio_resid);
3991 	}
3992 	if (un->un_pos.eof >= ST_EOM && (flag == B_WRITE)) {
3993 		if ((uio->uio_resid != len) && (uio->uio_resid != 0)) {
3994 			un->un_pos.eof = ST_EOM;
3995 		} else if (uio->uio_resid == len) {
3996 			un->un_pos.eof = ST_NO_EOF;
3997 		}
3998 	}
3999 
4000 	if (un->un_silent_skip && uio->uio_resid != len) {
4001 		un->un_pos.eof = ST_EOF;
4002 		un->un_pos.blkno = un->un_save_blkno;
4003 		un->un_pos.fileno--;
4004 	}
4005 
4006 	un->un_errno = rval;
4007 
4008 	mutex_exit(ST_MUTEX);
4009 
4010 	return (rval);
4011 }
4012 
4013 static int
st_arw(dev_t dev,struct aio_req * aio,int flag)4014 st_arw(dev_t dev, struct aio_req *aio, int flag)
4015 {
4016 	struct uio *uio = aio->aio_uio;
4017 	int rval = 0;
4018 	long len;
4019 
4020 	GET_SOFT_STATE(dev);
4021 
4022 	ST_FUNC(ST_DEVINFO, st_arw);
4023 
4024 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4025 	    "st_arw(dev = 0x%lx, flag = %s)\n", dev,
4026 	    (flag == B_READ ? rd_str: wr_str));
4027 
4028 	/* get local copy of transfer length */
4029 	len = uio->uio_iov->iov_len;
4030 
4031 	mutex_enter(ST_MUTEX);
4032 
4033 	/*
4034 	 * If in fixed block size mode and requested read or write
4035 	 * is not an even multiple of that block size.
4036 	 */
4037 	if ((un->un_bsize != 0) && (len % un->un_bsize != 0)) {
4038 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
4039 		    "%s: not modulo %d block size\n",
4040 		    (flag == B_WRITE) ? wr_str : rd_str, un->un_bsize);
4041 		rval = EINVAL;
4042 	}
4043 
4044 	/* If device has set granularity in the READ_BLKLIM we honor it. */
4045 	if ((un->un_data_mod != 0) && (len % un->un_data_mod != 0)) {
4046 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
4047 		    "%s: not modulo %d device granularity\n",
4048 		    (flag == B_WRITE) ? wr_str : rd_str, un->un_data_mod);
4049 		rval = EINVAL;
4050 	}
4051 
4052 	if (st_recov_sz != sizeof (recov_info) && un->un_multipath) {
4053 		scsi_log(ST_DEVINFO, st_label, CE_WARN, mp_misconf);
4054 		rval = EFAULT;
4055 	}
4056 
4057 	if (rval != 0) {
4058 		un->un_errno = rval;
4059 		mutex_exit(ST_MUTEX);
4060 		return (rval);
4061 	}
4062 
4063 	mutex_exit(ST_MUTEX);
4064 
4065 	len = uio->uio_resid;
4066 
4067 	rval =
4068 	    aphysio(st_queued_strategy, anocancel, dev, flag, st_minphys, aio);
4069 
4070 	/*
4071 	 * if we have hit logical EOT during this xfer and there is not a
4072 	 * full residue, then set eof back  to ST_EOM to make sure that
4073 	 * the user will see at least one zero write
4074 	 * after this short write
4075 	 *
4076 	 * we keep this here just in case the application is not using
4077 	 * persistent errors
4078 	 */
4079 	mutex_enter(ST_MUTEX);
4080 	if (un->un_pos.eof > ST_NO_EOF) {
4081 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4082 		    "eof=%d resid=%lx\n", un->un_pos.eof, uio->uio_resid);
4083 	}
4084 	if (un->un_pos.eof >= ST_EOM && (flag == B_WRITE)) {
4085 		if ((uio->uio_resid != len) && (uio->uio_resid != 0)) {
4086 			un->un_pos.eof = ST_EOM;
4087 		} else if (uio->uio_resid == len &&
4088 		    !(un->un_persistence && un->un_persist_errors)) {
4089 			un->un_pos.eof = ST_NO_EOF;
4090 		}
4091 	}
4092 	un->un_errno = rval;
4093 	mutex_exit(ST_MUTEX);
4094 
4095 	return (rval);
4096 }
4097 
4098 
4099 
4100 static int
st_queued_strategy(buf_t * bp)4101 st_queued_strategy(buf_t *bp)
4102 {
4103 	struct scsi_tape *un;
4104 	char reading = bp->b_flags & B_READ;
4105 	int wasopening = 0;
4106 
4107 	/*
4108 	 * validate arguments
4109 	 */
4110 	un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
4111 	if (un == NULL) {
4112 		bp->b_resid = bp->b_bcount;
4113 		bioerror(bp, ENXIO);
4114 		ST_DEBUG6(NULL, st_label, SCSI_DEBUG,
4115 		    "st_queued_strategy: ENXIO error exit\n");
4116 		biodone(bp);
4117 		return (0);
4118 	}
4119 
4120 	ST_ENTR(ST_DEVINFO, st_queued_strategy);
4121 
4122 	mutex_enter(ST_MUTEX);
4123 
4124 	while (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
4125 		cv_wait(&un->un_suspend_cv, ST_MUTEX);
4126 	}
4127 
4128 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4129 	    "st_queued_strategy(): bcount=0x%lx, fileno=%d, blkno=%x, eof=%d\n",
4130 	    bp->b_bcount, un->un_pos.fileno, un->un_pos.blkno, un->un_pos.eof);
4131 
4132 	/*
4133 	 * If persistent errors have been flagged, just nix this one. We wait
4134 	 * for any outstanding I/O's below, so we will be in order.
4135 	 */
4136 	if (un->un_persistence && un->un_persist_errors) {
4137 		goto exit;
4138 	}
4139 
4140 	/*
4141 	 * If last command was non queued, wait till it finishes.
4142 	 */
4143 	while (un->un_sbuf_busy) {
4144 		cv_wait(&un->un_sbuf_cv, ST_MUTEX);
4145 		/* woke up because of an error */
4146 		if (un->un_persistence && un->un_persist_errors) {
4147 			goto exit;
4148 		}
4149 	}
4150 
4151 	/*
4152 	 * s_buf and recovery commands shouldn't come here.
4153 	 */
4154 	ASSERT(bp != un->un_recov_buf);
4155 	ASSERT(bp != un->un_sbufp);
4156 
4157 	/*
4158 	 * If we haven't done/checked reservation on the tape unit
4159 	 * do it now.
4160 	 */
4161 	if ((un->un_rsvd_status &
4162 	    (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) == 0) {
4163 		if ((un->un_dp->options & ST_NO_RESERVE_RELEASE) == 0) {
4164 			if (st_reserve_release(un, ST_RESERVE, st_uscsi_cmd)) {
4165 				st_bioerror(bp, un->un_errno);
4166 				goto exit;
4167 			}
4168 		} else if (un->un_state == ST_STATE_OPEN_PENDING_IO) {
4169 			/*
4170 			 * Enter here to restore position for possible
4171 			 * resets when the device was closed and opened
4172 			 * in O_NDELAY mode subsequently
4173 			 */
4174 			un->un_state = ST_STATE_INITIALIZING;
4175 			(void) st_cmd(un, SCMD_TEST_UNIT_READY,
4176 			    0, SYNC_CMD);
4177 			un->un_state = ST_STATE_OPEN_PENDING_IO;
4178 		}
4179 		un->un_rsvd_status |= ST_INIT_RESERVE;
4180 	}
4181 
4182 	/*
4183 	 * If we are offline, we have to initialize everything first.
4184 	 * This is to handle either when opened with O_NDELAY, or
4185 	 * we just got a new tape in the drive, after an offline.
4186 	 * We don't observe O_NDELAY past the open,
4187 	 * as it will not make sense for tapes.
4188 	 */
4189 	if (un->un_state == ST_STATE_OFFLINE || un->un_restore_pos) {
4190 		/*
4191 		 * reset state to avoid recursion
4192 		 */
4193 		un->un_laststate = un->un_state;
4194 		un->un_state = ST_STATE_INITIALIZING;
4195 		if (st_tape_init(un)) {
4196 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4197 			    "stioctl : OFFLINE init failure ");
4198 			un->un_state = ST_STATE_OFFLINE;
4199 			un->un_pos.pmode = invalid;
4200 			goto b_done_err;
4201 		}
4202 		/* un_restore_pos make invalid */
4203 		un->un_state = ST_STATE_OPEN_PENDING_IO;
4204 		un->un_restore_pos = 0;
4205 	}
4206 	/*
4207 	 * Check for legal operations
4208 	 */
4209 	if (un->un_pos.pmode == invalid) {
4210 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4211 		    "strategy with un->un_pos.pmode invalid\n");
4212 		goto b_done_err;
4213 	}
4214 
4215 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4216 	    "st_queued_strategy(): regular io\n");
4217 
4218 	/*
4219 	 * Process this first. If we were reading, and we're pending
4220 	 * logical eot, that means we've bumped one file mark too far.
4221 	 */
4222 
4223 	/*
4224 	 * Recursion warning: st_cmd will route back through here.
4225 	 * Not anymore st_cmd will go through st_strategy()!
4226 	 */
4227 	if (un->un_pos.eof == ST_EOT_PENDING) {
4228 		if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)) {
4229 			un->un_pos.pmode = invalid;
4230 			un->un_density_known = 0;
4231 			goto b_done_err;
4232 		}
4233 		un->un_pos.blkno = 0; /* fix up block number.. */
4234 		un->un_pos.eof = ST_EOT;
4235 	}
4236 
4237 	/*
4238 	 * If we are in the process of opening, we may have to
4239 	 * determine/set the correct density. We also may have
4240 	 * to do a test_append (if QIC) to see whether we are
4241 	 * in a position to append to the end of the tape.
4242 	 *
4243 	 * If we're already at logical eot, we transition
4244 	 * to ST_NO_EOF. If we're at physical eot, we punt
4245 	 * to the switch statement below to handle.
4246 	 */
4247 	if ((un->un_state == ST_STATE_OPEN_PENDING_IO) ||
4248 	    (un->un_test_append && (un->un_dp->options & ST_QIC))) {
4249 
4250 		if (un->un_state == ST_STATE_OPEN_PENDING_IO) {
4251 			if (st_determine_density(un, (int)reading)) {
4252 				goto b_done_err;
4253 			}
4254 		}
4255 
4256 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4257 		    "pending_io@fileno %d rw %d qic %d eof %d\n",
4258 		    un->un_pos.fileno, (int)reading,
4259 		    (un->un_dp->options & ST_QIC) ? 1 : 0,
4260 		    un->un_pos.eof);
4261 
4262 		if (!reading && un->un_pos.eof != ST_EOM) {
4263 			if (un->un_pos.eof == ST_EOT) {
4264 				un->un_pos.eof = ST_NO_EOF;
4265 			} else if (un->un_pos.pmode != invalid &&
4266 			    (un->un_dp->options & ST_QIC)) {
4267 				/*
4268 				 * st_test_append() will do it all
4269 				 */
4270 				st_test_append(bp);
4271 				mutex_exit(ST_MUTEX);
4272 				return (0);
4273 			}
4274 		}
4275 		if (un->un_state == ST_STATE_OPEN_PENDING_IO) {
4276 			wasopening = 1;
4277 		}
4278 		un->un_laststate = un->un_state;
4279 		un->un_state = ST_STATE_OPEN;
4280 	}
4281 
4282 
4283 	/*
4284 	 * Process rest of END OF FILE and END OF TAPE conditions
4285 	 */
4286 
4287 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4288 	    "eof=%x, wasopening=%x\n",
4289 	    un->un_pos.eof, wasopening);
4290 
4291 	switch (un->un_pos.eof) {
4292 	case ST_EOM:
4293 		/*
4294 		 * This allows writes to proceed past physical
4295 		 * eot. We'll *really* be in trouble if the
4296 		 * user continues blindly writing data too
4297 		 * much past this point (unwind the tape).
4298 		 * Physical eot really means 'early warning
4299 		 * eot' in this context.
4300 		 *
4301 		 * Every other write from now on will succeed
4302 		 * (if sufficient  tape left).
4303 		 * This write will return with resid == count
4304 		 * but the next one should be successful
4305 		 *
4306 		 * Note that we only transition to logical EOT
4307 		 * if the last state wasn't the OPENING state.
4308 		 * We explicitly prohibit running up to physical
4309 		 * eot, closing the device, and then re-opening
4310 		 * to proceed. Trailer records may only be gotten
4311 		 * at by keeping the tape open after hitting eot.
4312 		 *
4313 		 * Also note that ST_EOM cannot be set by reading-
4314 		 * this can only be set during writing. Reading
4315 		 * up to the end of the tape gets a blank check
4316 		 * or a double-filemark indication (ST_EOT_PENDING),
4317 		 * and we prohibit reading after that point.
4318 		 *
4319 		 */
4320 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "EOM\n");
4321 		if (wasopening == 0) {
4322 			/*
4323 			 * this allows st_rw() to reset it back to
4324 			 * will see a zero write
4325 			 */
4326 			un->un_pos.eof = ST_WRITE_AFTER_EOM;
4327 		}
4328 		un->un_status = SUN_KEY_EOT;
4329 		goto b_done;
4330 
4331 	case ST_WRITE_AFTER_EOM:
4332 	case ST_EOT:
4333 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "EOT\n");
4334 		un->un_status = SUN_KEY_EOT;
4335 		if (SVR4_BEHAVIOR && reading) {
4336 			goto b_done_err;
4337 		}
4338 
4339 		if (reading) {
4340 			goto b_done;
4341 		}
4342 		un->un_pos.eof = ST_NO_EOF;
4343 		break;
4344 
4345 	case ST_EOF_PENDING:
4346 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4347 		    "EOF PENDING\n");
4348 		un->un_status = SUN_KEY_EOF;
4349 		if (SVR4_BEHAVIOR) {
4350 			un->un_pos.eof = ST_EOF;
4351 			goto b_done;
4352 		}
4353 		/* FALLTHROUGH */
4354 	case ST_EOF:
4355 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "EOF\n");
4356 		un->un_status = SUN_KEY_EOF;
4357 		if (SVR4_BEHAVIOR) {
4358 			goto b_done_err;
4359 		}
4360 
4361 		if (BSD_BEHAVIOR) {
4362 			un->un_pos.eof = ST_NO_EOF;
4363 			un->un_pos.fileno += 1;
4364 			un->un_pos.blkno   = 0;
4365 		}
4366 
4367 		if (reading) {
4368 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4369 			    "now file %d (read)\n",
4370 			    un->un_pos.fileno);
4371 			goto b_done;
4372 		}
4373 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4374 		    "now file %d (write)\n", un->un_pos.fileno);
4375 		break;
4376 	default:
4377 		un->un_status = 0;
4378 		break;
4379 	}
4380 
4381 	bp->b_flags &= ~(B_DONE);
4382 	st_bioerror(bp, 0);
4383 	bp->av_forw = NULL;
4384 	bp->b_resid = 0;
4385 	SET_BP_PKT(bp, 0);
4386 
4387 
4388 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4389 	    "st_queued_strategy: cmd=0x%p  count=%ld  resid=%ld flags=0x%x"
4390 	    " pkt=0x%p\n",
4391 	    (void *)bp->b_forw, bp->b_bcount,
4392 	    bp->b_resid, bp->b_flags, (void *)BP_PKT(bp));
4393 
4394 #ifdef	__x86
4395 	/*
4396 	 * We will replace bp with a new bp that can do big blk xfer
4397 	 * if the requested xfer size is bigger than un->un_maxdma_arch
4398 	 *
4399 	 * Also, we need to make sure that we're handling real I/O
4400 	 * by checking group 0/1 SCSI I/O commands, if needed
4401 	 */
4402 	if (bp->b_bcount > un->un_maxdma_arch &&
4403 	    ((uchar_t)(uintptr_t)bp->b_forw == SCMD_READ ||
4404 	    (uchar_t)(uintptr_t)bp->b_forw == SCMD_READ_G4 ||
4405 	    (uchar_t)(uintptr_t)bp->b_forw == SCMD_WRITE ||
4406 	    (uchar_t)(uintptr_t)bp->b_forw == SCMD_WRITE_G4)) {
4407 		mutex_exit(ST_MUTEX);
4408 		bp = st_get_bigblk_bp(bp);
4409 		mutex_enter(ST_MUTEX);
4410 	}
4411 #endif
4412 
4413 	/* put on wait queue */
4414 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4415 	    "st_queued_strategy: un->un_quef = 0x%p, bp = 0x%p\n",
4416 	    (void *)un->un_quef, (void *)bp);
4417 
4418 	st_add_to_queue(&un->un_quef, &un->un_quel, un->un_quel, bp);
4419 
4420 	ST_DO_KSTATS(bp, kstat_waitq_enter);
4421 
4422 	st_start(un);
4423 
4424 	mutex_exit(ST_MUTEX);
4425 	return (0);
4426 
4427 b_done_err:
4428 	st_bioerror(bp, EIO);
4429 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4430 	    "st_queued_strategy : EIO b_done_err\n");
4431 
4432 b_done:
4433 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4434 	    "st_queued_strategy: b_done\n");
4435 
4436 exit:
4437 	/*
4438 	 * make sure no commands are outstanding or waiting before closing,
4439 	 * so we can guarantee order
4440 	 */
4441 	st_wait_for_io(un);
4442 	un->un_err_resid = bp->b_resid = bp->b_bcount;
4443 
4444 	/* override errno here, if persistent errors were flagged */
4445 	if (un->un_persistence && un->un_persist_errors)
4446 		bioerror(bp, un->un_errno);
4447 
4448 	mutex_exit(ST_MUTEX);
4449 
4450 	biodone(bp);
4451 	ASSERT(mutex_owned(ST_MUTEX) == 0);
4452 	return (0);
4453 }
4454 
4455 
4456 static int
st_strategy(struct buf * bp)4457 st_strategy(struct buf *bp)
4458 {
4459 	struct scsi_tape *un;
4460 
4461 	/*
4462 	 * validate arguments
4463 	 */
4464 	un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
4465 	if (un == NULL) {
4466 		bp->b_resid = bp->b_bcount;
4467 		bioerror(bp, ENXIO);
4468 		ST_DEBUG6(NULL, st_label, SCSI_DEBUG,
4469 		    "st_strategy: ENXIO error exit\n");
4470 
4471 		biodone(bp);
4472 		return (0);
4473 
4474 	}
4475 
4476 	ST_ENTR(ST_DEVINFO, st_strategy);
4477 
4478 	mutex_enter(ST_MUTEX);
4479 
4480 	while (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
4481 		cv_wait(&un->un_suspend_cv, ST_MUTEX);
4482 	}
4483 
4484 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4485 	    "st_strategy(): bcount=0x%lx, fileno=%d, blkno=%x, eof=%d\n",
4486 	    bp->b_bcount, un->un_pos.fileno, un->un_pos.blkno, un->un_pos.eof);
4487 
4488 	ASSERT((bp == un->un_recov_buf) || (bp == un->un_sbufp));
4489 
4490 	bp->b_flags &= ~(B_DONE);
4491 	st_bioerror(bp, 0);
4492 	bp->av_forw = NULL;
4493 	bp->b_resid = 0;
4494 	SET_BP_PKT(bp, 0);
4495 
4496 
4497 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4498 	    "st_strategy: cmd=0x%x  count=%ld  resid=%ld flags=0x%x"
4499 	    " pkt=0x%p\n",
4500 	    (unsigned char)(uintptr_t)bp->b_forw, bp->b_bcount,
4501 	    bp->b_resid, bp->b_flags, (void *)BP_PKT(bp));
4502 	ST_DO_KSTATS(bp, kstat_waitq_enter);
4503 
4504 	st_start(un);
4505 
4506 	mutex_exit(ST_MUTEX);
4507 	return (0);
4508 }
4509 
4510 /*
4511  * this routine spaces forward over filemarks
4512  */
4513 static int
st_space_fmks(struct scsi_tape * un,int64_t count)4514 st_space_fmks(struct scsi_tape *un, int64_t count)
4515 {
4516 	int rval = 0;
4517 
4518 	ST_FUNC(ST_DEVINFO, st_space_fmks);
4519 
4520 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4521 	    "st_space_fmks(dev = 0x%lx, count = %"PRIx64")\n",
4522 	    un->un_dev, count);
4523 
4524 	ASSERT(mutex_owned(ST_MUTEX));
4525 
4526 	/*
4527 	 * the risk with doing only one space operation is that we
4528 	 * may accidentily jump in old data
4529 	 * the exabyte 8500 reading 8200 tapes cannot use KNOWS_EOD
4530 	 * because the 8200 does not append a marker; in order not to
4531 	 * sacrifice the fast file skip, we do a slow skip if the low
4532 	 * density device has been opened
4533 	 */
4534 
4535 	if ((un->un_dp->options & ST_KNOWS_EOD) &&
4536 	    !((un->un_dp->type == ST_TYPE_EXB8500 &&
4537 	    MT_DENSITY(un->un_dev) == 0))) {
4538 		if (st_cmd(un, SCMD_SPACE, Fmk(count), SYNC_CMD)) {
4539 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4540 			    "space_fmks : EIO can't do space cmd #1\n");
4541 			rval = EIO;
4542 		}
4543 	} else {
4544 		while (count > 0) {
4545 			if (st_cmd(un, SCMD_SPACE, Fmk(1), SYNC_CMD)) {
4546 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4547 				    "space_fmks : EIO can't do space cmd #2\n");
4548 				rval = EIO;
4549 				break;
4550 			}
4551 			count -= 1;
4552 			/*
4553 			 * read a block to see if we have reached
4554 			 * end of medium (double filemark for reel or
4555 			 * medium error for others)
4556 			 */
4557 			if (count > 0) {
4558 				if (st_cmd(un, SCMD_SPACE, Blk(1), SYNC_CMD)) {
4559 					ST_DEBUG2(ST_DEVINFO, st_label,
4560 					    SCSI_DEBUG,
4561 					    "space_fmks : EIO can't do "
4562 					    "space cmd #3\n");
4563 					rval = EIO;
4564 					break;
4565 				}
4566 				if ((un->un_pos.eof >= ST_EOF_PENDING) &&
4567 				    (un->un_dp->options & ST_REEL)) {
4568 					un->un_status = SUN_KEY_EOT;
4569 					ST_DEBUG2(ST_DEVINFO, st_label,
4570 					    SCSI_DEBUG,
4571 					    "space_fmks : EIO ST_REEL\n");
4572 					rval = EIO;
4573 					break;
4574 				} else if (IN_EOF(un->un_pos)) {
4575 					un->un_pos.eof = ST_NO_EOF;
4576 					un->un_pos.fileno++;
4577 					un->un_pos.blkno = 0;
4578 					count--;
4579 				} else if (un->un_pos.eof > ST_EOF) {
4580 					ST_DEBUG2(ST_DEVINFO, st_label,
4581 					    SCSI_DEBUG,
4582 					    "space_fmks, EIO > ST_EOF\n");
4583 					rval = EIO;
4584 					break;
4585 				}
4586 
4587 			}
4588 		}
4589 		un->un_err_resid = count;
4590 		COPY_POS(&un->un_pos, &un->un_err_pos);
4591 	}
4592 	ASSERT(mutex_owned(ST_MUTEX));
4593 	return (rval);
4594 }
4595 
4596 /*
4597  * this routine spaces to EOD
4598  *
4599  * it keeps track of the current filenumber and returns the filenumber after
4600  * the last successful space operation, we keep the number high because as
4601  * tapes are getting larger, the possibility of more and more files exist,
4602  * 0x100000 (1 Meg of files) probably will never have to be changed any time
4603  * soon
4604  */
4605 #define	MAX_SKIP	0x100000 /* somewhat arbitrary */
4606 
4607 static int
st_find_eod(struct scsi_tape * un)4608 st_find_eod(struct scsi_tape *un)
4609 {
4610 	tapepos_t savepos;
4611 	int64_t sp_type;
4612 	int result;
4613 
4614 	if (un == NULL) {
4615 		return (-1);
4616 	}
4617 
4618 	ST_FUNC(ST_DEVINFO, st_find_eod);
4619 
4620 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4621 	    "st_find_eod(dev = 0x%lx): fileno = %d\n", un->un_dev,
4622 	    un->un_pos.fileno);
4623 
4624 	ASSERT(mutex_owned(ST_MUTEX));
4625 
4626 	COPY_POS(&savepos, &un->un_pos);
4627 
4628 	/*
4629 	 * see if the drive is smart enough to do the skips in
4630 	 * one operation; 1/2" use two filemarks
4631 	 * the exabyte 8500 reading 8200 tapes cannot use KNOWS_EOD
4632 	 * because the 8200 does not append a marker; in order not to
4633 	 * sacrifice the fast file skip, we do a slow skip if the low
4634 	 * density device has been opened
4635 	 */
4636 	if ((un->un_dp->options & ST_KNOWS_EOD) != 0) {
4637 		if ((un->un_dp->type == ST_TYPE_EXB8500) &&
4638 		    (MT_DENSITY(un->un_dev) == 0)) {
4639 			sp_type = Fmk(1);
4640 		} else if (un->un_pos.pmode == logical) {
4641 			sp_type = SPACE(SP_EOD, 0);
4642 		} else {
4643 			sp_type = Fmk(MAX_SKIP);
4644 		}
4645 	} else {
4646 		sp_type = Fmk(1);
4647 	}
4648 
4649 	for (;;) {
4650 		result = st_cmd(un, SCMD_SPACE, sp_type, SYNC_CMD);
4651 
4652 		if (result == 0) {
4653 			COPY_POS(&savepos, &un->un_pos);
4654 		}
4655 
4656 		if (sp_type == SPACE(SP_EOD, 0)) {
4657 			if (result != 0) {
4658 				sp_type = Fmk(MAX_SKIP);
4659 				continue;
4660 			}
4661 
4662 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4663 			    "st_find_eod: 0x%"PRIx64"\n",
4664 			    savepos.lgclblkno);
4665 			/*
4666 			 * What we return will become the current file position.
4667 			 * After completing the space command with the position
4668 			 * mode that is not invalid a read position command will
4669 			 * be automaticly issued. If the drive support the long
4670 			 * read position format a valid file position can be
4671 			 * returned.
4672 			 */
4673 			return (un->un_pos.fileno);
4674 		}
4675 
4676 		if (result != 0) {
4677 			break;
4678 		}
4679 
4680 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4681 		    "count=%"PRIx64", eof=%x, status=%x\n",
4682 		    SPACE_CNT(sp_type),  un->un_pos.eof, un->un_status);
4683 
4684 		/*
4685 		 * If we're not EOM smart,  space a record
4686 		 * to see whether we're now in the slot between
4687 		 * the two sequential filemarks that logical
4688 		 * EOM consists of (REEL) or hit nowhere land
4689 		 * (8mm).
4690 		 */
4691 		if (sp_type == Fmk(1)) {
4692 			/*
4693 			 * no fast skipping, check a record
4694 			 */
4695 			if (st_cmd(un, SCMD_SPACE, Blk((1)), SYNC_CMD)) {
4696 				break;
4697 			}
4698 			if ((un->un_pos.eof >= ST_EOF_PENDING) &&
4699 			    (un->un_dp->options & ST_REEL)) {
4700 				un->un_status = KEY_BLANK_CHECK;
4701 				un->un_pos.fileno++;
4702 				un->un_pos.blkno = 0;
4703 				break;
4704 			}
4705 			if (IN_EOF(un->un_pos)) {
4706 				un->un_pos.eof = ST_NO_EOF;
4707 				un->un_pos.fileno++;
4708 				un->un_pos.blkno = 0;
4709 			}
4710 			if (un->un_pos.eof > ST_EOF) {
4711 				break;
4712 			}
4713 		} else {
4714 			if (un->un_pos.eof > ST_EOF) {
4715 				break;
4716 			}
4717 		}
4718 	}
4719 
4720 	if (un->un_dp->options & ST_KNOWS_EOD) {
4721 		COPY_POS(&savepos, &un->un_pos);
4722 	}
4723 
4724 	ASSERT(mutex_owned(ST_MUTEX));
4725 
4726 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
4727 	    "st_find_eod: %x\n", savepos.fileno);
4728 	return (savepos.fileno);
4729 }
4730 
4731 
4732 /*
4733  * this routine is frequently used in ioctls below;
4734  * it determines whether we know the density and if not will
4735  * determine it
4736  * if we have written the tape before, one or more filemarks are written
4737  *
4738  * depending on the stepflag, the head is repositioned to where it was before
4739  * the filemarks were written in order not to confuse step counts
4740  */
4741 #define	STEPBACK    0
4742 #define	NO_STEPBACK 1
4743 
4744 static int
st_check_density_or_wfm(dev_t dev,int wfm,int mode,int stepflag)4745 st_check_density_or_wfm(dev_t dev, int wfm, int mode, int stepflag)
4746 {
4747 
4748 	GET_SOFT_STATE(dev);
4749 
4750 	ST_FUNC(ST_DEVINFO, st_check_density_or_wfm);
4751 
4752 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4753 	    "st_check_density_or_wfm(dev= 0x%lx, wfm= %d, mode= %d, stpflg= %d)"
4754 	    "\n", dev, wfm, mode, stepflag);
4755 
4756 	ASSERT(mutex_owned(ST_MUTEX));
4757 
4758 	/*
4759 	 * If we don't yet know the density of the tape we have inserted,
4760 	 * we have to either unconditionally set it (if we're 'writing'),
4761 	 * or we have to determine it. As side effects, check for any
4762 	 * write-protect errors, and for the need to put out any file-marks
4763 	 * before positioning a tape.
4764 	 *
4765 	 * If we are going to be spacing forward, and we haven't determined
4766 	 * the tape density yet, we have to do so now...
4767 	 */
4768 	if (un->un_state == ST_STATE_OPEN_PENDING_IO) {
4769 		if (st_determine_density(un, mode)) {
4770 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4771 			    "check_density_or_wfm : EIO can't determine "
4772 			    "density\n");
4773 			un->un_errno = EIO;
4774 			return (EIO);
4775 		}
4776 		/*
4777 		 * Presumably we are at BOT. If we attempt to write, it will
4778 		 * either work okay, or bomb. We don't do a st_test_append
4779 		 * unless we're past BOT.
4780 		 */
4781 		un->un_laststate = un->un_state;
4782 		un->un_state = ST_STATE_OPEN;
4783 
4784 	} else if (un->un_pos.pmode != invalid && un->un_fmneeded > 0 &&
4785 	    ((un->un_lastop == ST_OP_WEOF && wfm) ||
4786 	    (un->un_lastop == ST_OP_WRITE && wfm))) {
4787 
4788 		tapepos_t spos;
4789 
4790 		COPY_POS(&spos, &un->un_pos);
4791 
4792 		/*
4793 		 * We need to write one or two filemarks.
4794 		 * In the case of the HP, we need to
4795 		 * position the head between the two
4796 		 * marks.
4797 		 */
4798 		if ((un->un_fmneeded > 0) || (un->un_lastop == ST_OP_WEOF)) {
4799 			wfm = un->un_fmneeded;
4800 			un->un_fmneeded = 0;
4801 		}
4802 
4803 		if (st_write_fm(dev, wfm)) {
4804 			un->un_pos.pmode = invalid;
4805 			un->un_density_known = 0;
4806 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4807 			    "check_density_or_wfm : EIO can't write fm\n");
4808 			un->un_errno = EIO;
4809 			return (EIO);
4810 		}
4811 
4812 		if (stepflag == STEPBACK) {
4813 			if (st_cmd(un, SCMD_SPACE, Fmk(-wfm), SYNC_CMD)) {
4814 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4815 				    "check_density_or_wfm : EIO can't space "
4816 				    "(-wfm)\n");
4817 				un->un_errno = EIO;
4818 				return (EIO);
4819 			}
4820 			COPY_POS(&un->un_pos, &spos);
4821 		}
4822 	}
4823 
4824 	/*
4825 	 * Whatever we do at this point clears the state of the eof flag.
4826 	 */
4827 
4828 	un->un_pos.eof = ST_NO_EOF;
4829 
4830 	/*
4831 	 * If writing, let's check that we're positioned correctly
4832 	 * at the end of tape before issuing the next write.
4833 	 */
4834 	if (un->un_read_only == RDWR) {
4835 		un->un_test_append = 1;
4836 	}
4837 
4838 	ASSERT(mutex_owned(ST_MUTEX));
4839 	return (0);
4840 }
4841 
4842 
4843 /*
4844  * Wait for all outstaning I/O's to complete
4845  *
4846  * we wait on both ncmds and the wait queue for times when we are flushing
4847  * after persistent errors are flagged, which is when ncmds can be 0, and the
4848  * queue can still have I/O's.  This way we preserve order of biodone's.
4849  */
4850 static void
st_wait_for_io(struct scsi_tape * un)4851 st_wait_for_io(struct scsi_tape *un)
4852 {
4853 	ST_FUNC(ST_DEVINFO, st_wait_for_io);
4854 	ASSERT(mutex_owned(ST_MUTEX));
4855 	while ((un->un_ncmds) || (un->un_quef) || (un->un_runqf)) {
4856 		cv_wait(&un->un_queue_cv, ST_MUTEX);
4857 	}
4858 }
4859 
4860 /*
4861  * This routine implements the ioctl calls.  It is called
4862  * from the device switch at normal priority.
4863  */
4864 /*ARGSUSED*/
4865 static int
st_ioctl(dev_t dev,int cmd,intptr_t arg,int flag,cred_t * cred_p,int * rval_p)4866 st_ioctl(dev_t dev, int cmd, intptr_t arg, int flag, cred_t *cred_p,
4867     int *rval_p)
4868 {
4869 	int tmp, rval = 0;
4870 
4871 	GET_SOFT_STATE(dev);
4872 
4873 	ST_ENTR(ST_DEVINFO, st_ioctl);
4874 
4875 	mutex_enter(ST_MUTEX);
4876 
4877 	ASSERT(un->un_recov_buf_busy == 0);
4878 
4879 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
4880 	    "st_ioctl(): fileno=%x, blkno=%x, eof=%x, state = %d, "
4881 	    "pe_flag = %d\n",
4882 	    un->un_pos.fileno, un->un_pos.blkno, un->un_pos.eof, un->un_state,
4883 	    un->un_persistence && un->un_persist_errors);
4884 
4885 	/*
4886 	 * We don't want to block on these, so let them through
4887 	 * and we don't care about setting driver states here.
4888 	 */
4889 	if ((cmd == MTIOCGETDRIVETYPE) ||
4890 	    (cmd == MTIOCGUARANTEEDORDER) ||
4891 	    (cmd == MTIOCPERSISTENTSTATUS)) {
4892 		goto check_commands;
4893 	}
4894 
4895 	/*
4896 	 * We clear error entry stack except command
4897 	 * MTIOCGETERROR and MTIOCGET
4898 	 */
4899 	if ((cmd != MTIOCGETERROR) &&
4900 	    (cmd != MTIOCGET)) {
4901 		st_empty_error_stack(un);
4902 	}
4903 
4904 	/*
4905 	 * wait for all outstanding commands to complete, or be dequeued.
4906 	 * And because ioctl's are synchronous commands, any return value
4907 	 * after this,  will be in order
4908 	 */
4909 	st_wait_for_io(un);
4910 
4911 	/*
4912 	 * allow only a through clear errors and persistent status, and
4913 	 * status
4914 	 */
4915 	if (un->un_persistence && un->un_persist_errors) {
4916 		if ((cmd == MTIOCLRERR) ||
4917 		    (cmd == MTIOCPERSISTENT) ||
4918 		    (cmd == MTIOCGET)) {
4919 			goto check_commands;
4920 		} else {
4921 			rval = un->un_errno;
4922 			goto exit;
4923 		}
4924 	}
4925 
4926 	ASSERT(un->un_throttle != 0);
4927 	un->un_throttle = 1;	/* > 1 will never happen here */
4928 	un->un_errno = 0;	/* start clean from here */
4929 
4930 	/*
4931 	 * first and foremost, handle any ST_EOT_PENDING cases.
4932 	 * That is, if a logical eot is pending notice, notice it.
4933 	 */
4934 	if (un->un_pos.eof == ST_EOT_PENDING) {
4935 		int resid = un->un_err_resid;
4936 		uchar_t status = un->un_status;
4937 		uchar_t lastop = un->un_lastop;
4938 
4939 		if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)) {
4940 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
4941 			    "stioctl : EIO can't space fmk(-1)\n");
4942 			rval = EIO;
4943 			goto exit;
4944 		}
4945 		un->un_lastop = lastop; /* restore last operation */
4946 		if (status == SUN_KEY_EOF) {
4947 			un->un_status = SUN_KEY_EOT;
4948 		} else {
4949 			un->un_status = status;
4950 		}
4951 		un->un_err_resid  = resid;
4952 		/* fix up block number */
4953 		un->un_err_pos.blkno = un->un_pos.blkno = 0;
4954 		/* now we're at logical eot */
4955 		un->un_pos.eof = ST_EOT;
4956 	}
4957 
4958 	/*
4959 	 * now, handle the rest of the situations
4960 	 */
4961 check_commands:
4962 	switch (cmd) {
4963 	case MTIOCGET:
4964 	{
4965 #ifdef _MULTI_DATAMODEL
4966 		/*
4967 		 * For use when a 32 bit app makes a call into a
4968 		 * 64 bit ioctl
4969 		 */
4970 		struct mtget32		mtg_local32;
4971 		struct mtget32 		*mtget_32 = &mtg_local32;
4972 #endif /* _MULTI_DATAMODEL */
4973 
4974 			/* Get tape status */
4975 		struct mtget mtg_local;
4976 		struct mtget *mtget = &mtg_local;
4977 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
4978 		    "st_ioctl: MTIOCGET\n");
4979 
4980 		bzero((caddr_t)mtget, sizeof (struct mtget));
4981 		mtget->mt_erreg = un->un_status;
4982 		mtget->mt_resid = un->un_err_resid;
4983 		mtget->mt_dsreg = un->un_retry_ct;
4984 		if (un->un_err_pos.pmode == legacy) {
4985 			mtget->mt_fileno = un->un_err_pos.fileno;
4986 		} else {
4987 			mtget->mt_fileno = -1;
4988 		}
4989 		/*
4990 		 * If the value is positive fine.
4991 		 * If its negative we need to return a value based on the
4992 		 * old way if counting backwards from INF (1,000,000,000).
4993 		 */
4994 		if (un->un_err_pos.blkno >= 0) {
4995 			mtget->mt_blkno = un->un_err_pos.blkno;
4996 		} else {
4997 			mtget->mt_blkno = INF + 1 - (-un->un_err_pos.blkno);
4998 		}
4999 		mtget->mt_type = un->un_dp->type;
5000 		mtget->mt_flags = MTF_SCSI | MTF_ASF;
5001 		if (un->un_read_pos_type != NO_POS) {
5002 			mtget->mt_flags |= MTF_LOGICAL_BLOCK;
5003 		}
5004 		if (un->un_dp->options & ST_REEL) {
5005 			mtget->mt_flags |= MTF_REEL;
5006 			mtget->mt_bf = 20;
5007 		} else {		/* 1/4" cartridges */
5008 			switch (mtget->mt_type) {
5009 			/* Emulex cartridge tape */
5010 			case MT_ISMT02:
5011 				mtget->mt_bf = 40;
5012 				break;
5013 			default:
5014 				mtget->mt_bf = 126;
5015 				break;
5016 			}
5017 		}
5018 
5019 		/*
5020 		 * If large transfers are allowed and drive options
5021 		 * has no record size limit set. Calculate blocking
5022 		 * factor from the lesser of maxbsize and maxdma.
5023 		 */
5024 		if ((un->un_allow_large_xfer) &&
5025 		    (un->un_dp->options & ST_NO_RECSIZE_LIMIT)) {
5026 			mtget->mt_bf = min(un->un_maxbsize,
5027 			    un->un_maxdma) / SECSIZE;
5028 		}
5029 
5030 		if (un->un_read_only == WORM ||
5031 		    un->un_read_only == RDWORM) {
5032 			mtget->mt_flags |= MTF_WORM_MEDIA;
5033 		}
5034 
5035 		/*
5036 		 * In persistent error mode sending a non-queued can hang
5037 		 * because this ioctl gets to be run without turning off
5038 		 * persistense. Fake the answer based on previous info.
5039 		 */
5040 		if (un->un_persistence) {
5041 			rval = 0;
5042 		} else {
5043 			rval = st_check_clean_bit(un);
5044 		}
5045 		if (rval == 0) {
5046 			/*
5047 			 * If zero is returned or in persistent mode,
5048 			 * use the old data.
5049 			 */
5050 			if ((un->un_HeadClean & (TAPE_ALERT_SUPPORTED |
5051 			    TAPE_SEQUENTIAL_SUPPORTED|TAPE_ALERT_NOT_SUPPORTED))
5052 			    != TAPE_ALERT_NOT_SUPPORTED) {
5053 				mtget->mt_flags |= MTF_TAPE_CLN_SUPPORTED;
5054 			}
5055 			if (un->un_HeadClean & (TAPE_PREVIOUSLY_DIRTY |
5056 			    TAPE_ALERT_STILL_DIRTY)) {
5057 				mtget->mt_flags |= MTF_TAPE_HEAD_DIRTY;
5058 			}
5059 		} else {
5060 			mtget->mt_flags |= (ushort_t)rval;
5061 			rval = 0;
5062 		}
5063 
5064 		un->un_status = 0;		/* Reset status */
5065 		un->un_err_resid = 0;
5066 		tmp = sizeof (struct mtget);
5067 
5068 #ifdef _MULTI_DATAMODEL
5069 
5070 		switch (ddi_model_convert_from(flag & FMODELS)) {
5071 		case DDI_MODEL_ILP32:
5072 			/*
5073 			 * Convert 64 bit back to 32 bit before doing
5074 			 * copyout. This is what the ILP32 app expects.
5075 			 */
5076 			mtget_32->mt_erreg = 	mtget->mt_erreg;
5077 			mtget_32->mt_resid = 	mtget->mt_resid;
5078 			mtget_32->mt_dsreg = 	mtget->mt_dsreg;
5079 			mtget_32->mt_fileno = 	(daddr32_t)mtget->mt_fileno;
5080 			mtget_32->mt_blkno = 	(daddr32_t)mtget->mt_blkno;
5081 			mtget_32->mt_type =  	mtget->mt_type;
5082 			mtget_32->mt_flags = 	mtget->mt_flags;
5083 			mtget_32->mt_bf = 	mtget->mt_bf;
5084 
5085 			if (ddi_copyout(mtget_32, (void *)arg,
5086 			    sizeof (struct mtget32), flag)) {
5087 				rval = EFAULT;
5088 			}
5089 			break;
5090 
5091 		case DDI_MODEL_NONE:
5092 			if (ddi_copyout(mtget, (void *)arg, tmp, flag)) {
5093 				rval = EFAULT;
5094 			}
5095 			break;
5096 		}
5097 #else /* ! _MULTI_DATAMODE */
5098 		if (ddi_copyout(mtget, (void *)arg, tmp, flag)) {
5099 			rval = EFAULT;
5100 		}
5101 #endif /* _MULTI_DATAMODE */
5102 
5103 		break;
5104 	}
5105 	case MTIOCGETERROR:
5106 			/*
5107 			 * get error entry from error stack
5108 			 */
5109 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5110 			    "st_ioctl: MTIOCGETERROR\n");
5111 
5112 			rval = st_get_error_entry(un, arg, flag);
5113 
5114 			break;
5115 
5116 	case MTIOCSTATE:
5117 		{
5118 			/*
5119 			 * return when media presence matches state
5120 			 */
5121 			enum mtio_state state;
5122 
5123 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5124 			    "st_ioctl: MTIOCSTATE\n");
5125 
5126 			if (ddi_copyin((void *)arg, &state, sizeof (int), flag))
5127 				rval = EFAULT;
5128 
5129 			mutex_exit(ST_MUTEX);
5130 
5131 			rval = st_check_media(dev, state);
5132 
5133 			mutex_enter(ST_MUTEX);
5134 
5135 			if (rval != 0) {
5136 				break;
5137 			}
5138 
5139 			if (ddi_copyout(&un->un_mediastate, (void *)arg,
5140 			    sizeof (int), flag))
5141 				rval = EFAULT;
5142 			break;
5143 
5144 		}
5145 
5146 	case MTIOCGETDRIVETYPE:
5147 		{
5148 #ifdef _MULTI_DATAMODEL
5149 		/*
5150 		 * For use when a 32 bit app makes a call into a
5151 		 * 64 bit ioctl
5152 		 */
5153 		struct mtdrivetype_request32	mtdtrq32;
5154 #endif /* _MULTI_DATAMODEL */
5155 
5156 			/*
5157 			 * return mtdrivetype
5158 			 */
5159 			struct mtdrivetype_request mtdtrq;
5160 			struct mtdrivetype mtdrtyp;
5161 			struct mtdrivetype *mtdt = &mtdrtyp;
5162 			struct st_drivetype *stdt = un->un_dp;
5163 
5164 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5165 			    "st_ioctl: MTIOCGETDRIVETYPE\n");
5166 
5167 #ifdef _MULTI_DATAMODEL
5168 		switch (ddi_model_convert_from(flag & FMODELS)) {
5169 		case DDI_MODEL_ILP32:
5170 		{
5171 			if (ddi_copyin((void *)arg, &mtdtrq32,
5172 			    sizeof (struct mtdrivetype_request32), flag)) {
5173 				rval = EFAULT;
5174 				break;
5175 			}
5176 			mtdtrq.size = mtdtrq32.size;
5177 			mtdtrq.mtdtp =
5178 			    (struct  mtdrivetype *)(uintptr_t)mtdtrq32.mtdtp;
5179 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5180 			    "st_ioctl: size 0x%x\n", mtdtrq.size);
5181 			break;
5182 		}
5183 		case DDI_MODEL_NONE:
5184 			if (ddi_copyin((void *)arg, &mtdtrq,
5185 			    sizeof (struct mtdrivetype_request), flag)) {
5186 				rval = EFAULT;
5187 				break;
5188 			}
5189 			break;
5190 		}
5191 
5192 #else /* ! _MULTI_DATAMODEL */
5193 		if (ddi_copyin((void *)arg, &mtdtrq,
5194 		    sizeof (struct mtdrivetype_request), flag)) {
5195 			rval = EFAULT;
5196 			break;
5197 		}
5198 #endif /* _MULTI_DATAMODEL */
5199 
5200 			/*
5201 			 * if requested size is < 0 then return
5202 			 * error.
5203 			 */
5204 			if (mtdtrq.size < 0) {
5205 				rval = EINVAL;
5206 				break;
5207 			}
5208 			bzero(mtdt, sizeof (struct mtdrivetype));
5209 			(void) strncpy(mtdt->name, stdt->name, ST_NAMESIZE);
5210 			(void) strncpy(mtdt->vid, stdt->vid, VIDPIDLEN - 1);
5211 			mtdt->type = stdt->type;
5212 			mtdt->bsize = stdt->bsize;
5213 			mtdt->options = stdt->options;
5214 			mtdt->max_rretries = stdt->max_rretries;
5215 			mtdt->max_wretries = stdt->max_wretries;
5216 			for (tmp = 0; tmp < NDENSITIES; tmp++) {
5217 				mtdt->densities[tmp] = stdt->densities[tmp];
5218 			}
5219 			mtdt->default_density = stdt->default_density;
5220 			/*
5221 			 * Speed hasn't been used since the hayday of reel tape.
5222 			 * For all drives not setting the option ST_KNOWS_MEDIA
5223 			 * the speed member renamed to mediatype are zeros.
5224 			 * Those drives that have ST_KNOWS_MEDIA set use the
5225 			 * new mediatype member which is used to figure the
5226 			 * type of media loaded.
5227 			 *
5228 			 * So as to not break applications speed in the
5229 			 * mtdrivetype structure is not renamed.
5230 			 */
5231 			for (tmp = 0; tmp < NDENSITIES; tmp++) {
5232 				mtdt->speeds[tmp] = stdt->mediatype[tmp];
5233 			}
5234 			mtdt->non_motion_timeout = stdt->non_motion_timeout;
5235 			mtdt->io_timeout = stdt->io_timeout;
5236 			mtdt->rewind_timeout = stdt->rewind_timeout;
5237 			mtdt->space_timeout = stdt->space_timeout;
5238 			mtdt->load_timeout = stdt->load_timeout;
5239 			mtdt->unload_timeout = stdt->unload_timeout;
5240 			mtdt->erase_timeout = stdt->erase_timeout;
5241 
5242 			/*
5243 			 * Limit the maximum length of the result to
5244 			 * sizeof (struct mtdrivetype).
5245 			 */
5246 			tmp = sizeof (struct mtdrivetype);
5247 			if (mtdtrq.size < tmp)
5248 				tmp = mtdtrq.size;
5249 			if (ddi_copyout(mtdt, mtdtrq.mtdtp, tmp, flag)) {
5250 				rval = EFAULT;
5251 			}
5252 			break;
5253 		}
5254 	case MTIOCPERSISTENT:
5255 
5256 		if (ddi_copyin((void *)arg, &tmp, sizeof (tmp), flag)) {
5257 			rval = EFAULT;
5258 			break;
5259 		}
5260 
5261 		if (tmp) {
5262 			st_turn_pe_on(un);
5263 		} else {
5264 			st_turn_pe_off(un);
5265 		}
5266 
5267 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5268 		    "st_ioctl: MTIOCPERSISTENT : persistence = %d\n",
5269 		    un->un_persistence);
5270 
5271 		break;
5272 
5273 	case MTIOCPERSISTENTSTATUS:
5274 		tmp = (int)un->un_persistence;
5275 
5276 		if (ddi_copyout(&tmp, (void *)arg, sizeof (tmp), flag)) {
5277 			rval = EFAULT;
5278 		}
5279 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5280 		    "st_ioctl: MTIOCPERSISTENTSTATUS:persistence = %d\n",
5281 		    un->un_persistence);
5282 
5283 		break;
5284 
5285 	case MTIOCLRERR:
5286 		{
5287 			/* clear persistent errors */
5288 
5289 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5290 			    "st_ioctl: MTIOCLRERR\n");
5291 
5292 			st_clear_pe(un);
5293 
5294 			break;
5295 		}
5296 
5297 	case MTIOCGUARANTEEDORDER:
5298 		{
5299 			/*
5300 			 * this is just a holder to make a valid ioctl and
5301 			 * it won't be in any earlier release
5302 			 */
5303 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5304 			    "st_ioctl: MTIOCGUARANTEEDORDER\n");
5305 
5306 			break;
5307 		}
5308 
5309 	case MTIOCRESERVE:
5310 		{
5311 			ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
5312 			    "st_ioctl: MTIOCRESERVE\n");
5313 
5314 			/*
5315 			 * Check if Reserve/Release is supported.
5316 			 */
5317 			if (un->un_dp->options & ST_NO_RESERVE_RELEASE) {
5318 				rval = ENOTTY;
5319 				break;
5320 			}
5321 
5322 			rval = st_reserve_release(un, ST_RESERVE, st_uscsi_cmd);
5323 
5324 			if (rval == 0) {
5325 				un->un_rsvd_status |= ST_PRESERVE_RESERVE;
5326 			}
5327 			break;
5328 		}
5329 
5330 	case MTIOCRELEASE:
5331 		{
5332 			ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
5333 			    "st_ioctl: MTIOCRELEASE\n");
5334 
5335 			/*
5336 			 * Check if Reserve/Release is supported.
5337 			 */
5338 			if (un->un_dp->options & ST_NO_RESERVE_RELEASE) {
5339 				rval = ENOTTY;
5340 				break;
5341 			}
5342 
5343 			/*
5344 			 * Used to just clear ST_PRESERVE_RESERVE which
5345 			 * made the reservation release at next close.
5346 			 * As the user may have opened and then done a
5347 			 * persistant reservation we now need to drop
5348 			 * the reservation without closing if the user
5349 			 * attempts to do this.
5350 			 */
5351 			rval = st_reserve_release(un, ST_RELEASE, st_uscsi_cmd);
5352 
5353 			un->un_rsvd_status &= ~ST_PRESERVE_RESERVE;
5354 
5355 			break;
5356 		}
5357 
5358 	case MTIOCFORCERESERVE:
5359 	{
5360 		ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
5361 		    "st_ioctl: MTIOCFORCERESERVE\n");
5362 
5363 		/*
5364 		 * Check if Reserve/Release is supported.
5365 		 */
5366 		if (un->un_dp->options & ST_NO_RESERVE_RELEASE) {
5367 			rval = ENOTTY;
5368 			break;
5369 		}
5370 		/*
5371 		 * allow only super user to run this.
5372 		 */
5373 		if (drv_priv(cred_p) != 0) {
5374 			rval = EPERM;
5375 			break;
5376 		}
5377 		/*
5378 		 * Throw away reserve,
5379 		 * not using test-unit-ready
5380 		 * since reserve can succeed without tape being
5381 		 * present in the drive.
5382 		 */
5383 		(void) st_reserve_release(un, ST_RESERVE, st_uscsi_cmd);
5384 
5385 		rval = st_take_ownership(un, st_uscsi_cmd);
5386 
5387 		break;
5388 	}
5389 
5390 	case USCSICMD:
5391 	{
5392 		cred_t	*cr;
5393 
5394 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5395 		    "st_ioctl: USCSICMD\n");
5396 
5397 		cr = ddi_get_cred();
5398 		if ((drv_priv(cred_p) != 0) && (drv_priv(cr) != 0)) {
5399 			rval = EPERM;
5400 		} else {
5401 			rval = st_uscsi_cmd(un, (struct uscsi_cmd *)arg, flag);
5402 		}
5403 		break;
5404 	}
5405 	case MTIOCTOP:
5406 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5407 		    "st_ioctl: MTIOCTOP\n");
5408 		rval = st_mtioctop(un, arg, flag);
5409 		break;
5410 
5411 	case MTIOCLTOP:
5412 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5413 		    "st_ioctl: MTIOLCTOP\n");
5414 		rval = st_mtiocltop(un, arg, flag);
5415 		break;
5416 
5417 	case MTIOCREADIGNOREILI:
5418 		{
5419 			int set_ili;
5420 
5421 			if (ddi_copyin((void *)arg, &set_ili,
5422 			    sizeof (set_ili), flag)) {
5423 				rval = EFAULT;
5424 				break;
5425 			}
5426 
5427 			if (un->un_bsize) {
5428 				rval = ENOTTY;
5429 				break;
5430 			}
5431 
5432 			switch (set_ili) {
5433 			case 0:
5434 				un->un_dp->options &= ~ST_READ_IGNORE_ILI;
5435 				break;
5436 
5437 			case 1:
5438 				un->un_dp->options |= ST_READ_IGNORE_ILI;
5439 				break;
5440 
5441 			default:
5442 				rval = EINVAL;
5443 				break;
5444 			}
5445 			break;
5446 		}
5447 
5448 	case MTIOCREADIGNOREEOFS:
5449 		{
5450 			int ignore_eof;
5451 
5452 			if (ddi_copyin((void *)arg, &ignore_eof,
5453 			    sizeof (ignore_eof), flag)) {
5454 				rval = EFAULT;
5455 				break;
5456 			}
5457 
5458 			if (!(un->un_dp->options & ST_REEL)) {
5459 				rval = ENOTTY;
5460 				break;
5461 			}
5462 
5463 			switch (ignore_eof) {
5464 			case 0:
5465 				un->un_dp->options &= ~ST_READ_IGNORE_EOFS;
5466 				break;
5467 
5468 			case 1:
5469 				un->un_dp->options |= ST_READ_IGNORE_EOFS;
5470 				break;
5471 
5472 			default:
5473 				rval = EINVAL;
5474 				break;
5475 			}
5476 			break;
5477 		}
5478 
5479 	case MTIOCSHORTFMK:
5480 	{
5481 		int short_fmk;
5482 
5483 		if (ddi_copyin((void *)arg, &short_fmk,
5484 		    sizeof (short_fmk), flag)) {
5485 			rval = EFAULT;
5486 			break;
5487 		}
5488 
5489 		switch (un->un_dp->type) {
5490 		case ST_TYPE_EXB8500:
5491 		case ST_TYPE_EXABYTE:
5492 			if (!short_fmk) {
5493 				un->un_dp->options &= ~ST_SHORT_FILEMARKS;
5494 			} else if (short_fmk == 1) {
5495 				un->un_dp->options |= ST_SHORT_FILEMARKS;
5496 			} else {
5497 				rval = EINVAL;
5498 			}
5499 			break;
5500 
5501 		default:
5502 			rval = ENOTTY;
5503 			break;
5504 		}
5505 		break;
5506 	}
5507 
5508 	case MTIOCGETPOS:
5509 		rval = st_update_block_pos(un, st_cmd, 0);
5510 		if (rval == 0) {
5511 			if (ddi_copyout((void *)&un->un_pos, (void *)arg,
5512 			    sizeof (tapepos_t), flag)) {
5513 				scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
5514 				    "MTIOCGETPOS copy out failed\n");
5515 				rval = EFAULT;
5516 			}
5517 		}
5518 		break;
5519 
5520 	case MTIOCRESTPOS:
5521 	{
5522 		tapepos_t dest;
5523 
5524 		if (ddi_copyin((void *)arg, &dest, sizeof (tapepos_t),
5525 		    flag) != 0) {
5526 			scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
5527 			    "MTIOCRESTPOS copy in failed\n");
5528 			rval = EFAULT;
5529 			break;
5530 		}
5531 		rval = st_validate_tapemarks(un, st_uscsi_cmd, &dest);
5532 		if (rval != 0) {
5533 			rval = EIO;
5534 		}
5535 		break;
5536 	}
5537 	default:
5538 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
5539 		    "st_ioctl: unknown ioctl\n");
5540 		rval = ENOTTY;
5541 	}
5542 
5543 exit:
5544 	if (!(un->un_persistence && un->un_persist_errors)) {
5545 		un->un_errno = rval;
5546 	}
5547 
5548 	mutex_exit(ST_MUTEX);
5549 
5550 	return (rval);
5551 }
5552 
5553 
5554 /*
5555  * do some MTIOCTOP tape operations
5556  */
5557 static int
st_mtioctop(struct scsi_tape * un,intptr_t arg,int flag)5558 st_mtioctop(struct scsi_tape *un, intptr_t arg, int flag)
5559 {
5560 #ifdef _MULTI_DATAMODEL
5561 	/*
5562 	 * For use when a 32 bit app makes a call into a
5563 	 * 64 bit ioctl
5564 	 */
5565 	struct mtop32	mtop_32_for_64;
5566 #endif /* _MULTI_DATAMODEL */
5567 	struct mtop passed;
5568 	struct mtlop local;
5569 	int rval = 0;
5570 
5571 	ST_FUNC(ST_DEVINFO, st_mtioctop);
5572 
5573 	ASSERT(mutex_owned(ST_MUTEX));
5574 
5575 #ifdef _MULTI_DATAMODEL
5576 	switch (ddi_model_convert_from(flag & FMODELS)) {
5577 	case DDI_MODEL_ILP32:
5578 		if (ddi_copyin((void *)arg, &mtop_32_for_64,
5579 		    sizeof (struct mtop32), flag)) {
5580 			return (EFAULT);
5581 		}
5582 		local.mt_op = mtop_32_for_64.mt_op;
5583 		local.mt_count =  (int64_t)mtop_32_for_64.mt_count;
5584 		break;
5585 
5586 	case DDI_MODEL_NONE:
5587 		if (ddi_copyin((void *)arg, &passed, sizeof (passed), flag)) {
5588 			return (EFAULT);
5589 		}
5590 		local.mt_op = passed.mt_op;
5591 		/* prevent sign extention */
5592 		local.mt_count = (UINT32_MAX & passed.mt_count);
5593 		break;
5594 	}
5595 
5596 #else /* ! _MULTI_DATAMODEL */
5597 	if (ddi_copyin((void *)arg, &passed, sizeof (passed), flag)) {
5598 		return (EFAULT);
5599 	}
5600 	local.mt_op = passed.mt_op;
5601 	/* prevent sign extention */
5602 	local.mt_count = (UINT32_MAX & passed.mt_count);
5603 #endif /* _MULTI_DATAMODEL */
5604 
5605 	rval = st_do_mtioctop(un, &local);
5606 
5607 #ifdef _MULTI_DATAMODEL
5608 	switch (ddi_model_convert_from(flag & FMODELS)) {
5609 	case DDI_MODEL_ILP32:
5610 		if (((uint64_t)local.mt_count) > UINT32_MAX) {
5611 			rval = ERANGE;
5612 			break;
5613 		}
5614 		/*
5615 		 * Convert 64 bit back to 32 bit before doing
5616 		 * copyout. This is what the ILP32 app expects.
5617 		 */
5618 		mtop_32_for_64.mt_op = local.mt_op;
5619 		mtop_32_for_64.mt_count = local.mt_count;
5620 
5621 		if (ddi_copyout(&mtop_32_for_64, (void *)arg,
5622 		    sizeof (struct mtop32), flag)) {
5623 			rval = EFAULT;
5624 		}
5625 		break;
5626 
5627 	case DDI_MODEL_NONE:
5628 		passed.mt_count = local.mt_count;
5629 		passed.mt_op = local.mt_op;
5630 		if (ddi_copyout(&passed, (void *)arg, sizeof (passed), flag)) {
5631 			rval = EFAULT;
5632 		}
5633 		break;
5634 	}
5635 #else /* ! _MULTI_DATAMODE */
5636 	if (((uint64_t)local.mt_count) > UINT32_MAX) {
5637 		rval = ERANGE;
5638 	} else {
5639 		passed.mt_op = local.mt_op;
5640 		passed.mt_count = local.mt_count;
5641 		if (ddi_copyout(&passed, (void *)arg, sizeof (passed), flag)) {
5642 			rval = EFAULT;
5643 		}
5644 	}
5645 #endif /* _MULTI_DATAMODE */
5646 
5647 
5648 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
5649 	    "st_ioctl: fileno=%x, blkno=%x, eof=%x\n", un->un_pos.fileno,
5650 	    un->un_pos.blkno, un->un_pos.eof);
5651 
5652 	if (un->un_pos.pmode == invalid) {
5653 		un->un_density_known = 0;
5654 	}
5655 
5656 	ASSERT(mutex_owned(ST_MUTEX));
5657 	return (rval);
5658 }
5659 
5660 static int
st_mtiocltop(struct scsi_tape * un,intptr_t arg,int flag)5661 st_mtiocltop(struct scsi_tape *un, intptr_t arg, int flag)
5662 {
5663 	struct mtlop local;
5664 	int rval;
5665 
5666 	ST_FUNC(ST_DEVINFO, st_mtiocltop);
5667 	if (ddi_copyin((void *)arg, &local, sizeof (local), flag)) {
5668 		return (EFAULT);
5669 	}
5670 
5671 	rval = st_do_mtioctop(un, &local);
5672 
5673 	if (ddi_copyout(&local, (void *)arg, sizeof (local), flag)) {
5674 		rval = EFAULT;
5675 	}
5676 	return (rval);
5677 }
5678 
5679 
5680 static int
st_do_mtioctop(struct scsi_tape * un,struct mtlop * mtop)5681 st_do_mtioctop(struct scsi_tape *un, struct mtlop *mtop)
5682 {
5683 	dev_t dev = un->un_dev;
5684 	int savefile;
5685 	int rval = 0;
5686 
5687 	ST_FUNC(ST_DEVINFO, st_do_mtioctop);
5688 
5689 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
5690 	    "st_do_mtioctop(): mt_op=%x\n", mtop->mt_op);
5691 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
5692 	    "fileno=%x, blkno=%x, eof=%x\n",
5693 	    un->un_pos.fileno, un->un_pos.blkno, un->un_pos.eof);
5694 
5695 	un->un_status = 0;
5696 
5697 	/*
5698 	 * if we are going to mess with a tape, we have to make sure we have
5699 	 * one and are not offline (i.e. no tape is initialized).  We let
5700 	 * commands pass here that don't actually touch the tape, except for
5701 	 * loading and initialization (rewinding).
5702 	 */
5703 	if (un->un_state == ST_STATE_OFFLINE) {
5704 		switch (mtop->mt_op) {
5705 		case MTLOAD:
5706 		case MTNOP:
5707 			/*
5708 			 * We don't want strategy calling st_tape_init here,
5709 			 * so, change state
5710 			 */
5711 			un->un_state = ST_STATE_INITIALIZING;
5712 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5713 			    "st_do_mtioctop : OFFLINE state = %d\n",
5714 			    un->un_state);
5715 			break;
5716 		default:
5717 			/*
5718 			 * reinitialize by normal means
5719 			 */
5720 			rval = st_tape_init(un);
5721 			if (rval) {
5722 				un->un_state = ST_STATE_INITIALIZING;
5723 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5724 				    "st_do_mtioctop : OFFLINE init failure ");
5725 				un->un_state = ST_STATE_OFFLINE;
5726 				un->un_pos.pmode = invalid;
5727 				if (rval != EACCES) {
5728 					rval = EIO;
5729 				}
5730 				return (rval);
5731 			}
5732 			un->un_state = ST_STATE_OPEN_PENDING_IO;
5733 			break;
5734 		}
5735 	}
5736 
5737 	/*
5738 	 * If the file position is invalid, allow only those
5739 	 * commands that properly position the tape and fail
5740 	 * the rest with EIO
5741 	 */
5742 	if (un->un_pos.pmode == invalid) {
5743 		switch (mtop->mt_op) {
5744 		case MTWEOF:
5745 		case MTRETEN:
5746 		case MTERASE:
5747 		case MTEOM:
5748 		case MTFSF:
5749 		case MTFSR:
5750 		case MTBSF:
5751 		case MTNBSF:
5752 		case MTBSR:
5753 		case MTSRSZ:
5754 		case MTGRSZ:
5755 		case MTSEEK:
5756 		case MTBSSF:
5757 		case MTFSSF:
5758 			return (EIO);
5759 			/* NOTREACHED */
5760 		case MTREW:
5761 		case MTLOAD:
5762 		case MTOFFL:
5763 		case MTNOP:
5764 		case MTTELL:
5765 		case MTLOCK:
5766 		case MTUNLOCK:
5767 			break;
5768 
5769 		default:
5770 			return (ENOTTY);
5771 			/* NOTREACHED */
5772 		}
5773 	}
5774 
5775 	switch (mtop->mt_op) {
5776 	case MTERASE:
5777 		/*
5778 		 * MTERASE rewinds the tape, erase it completely, and returns
5779 		 * to the beginning of the tape
5780 		 */
5781 		if (un->un_mspl->wp || un->un_read_only & WORM) {
5782 			un->un_status = KEY_WRITE_PROTECT;
5783 			un->un_err_resid = mtop->mt_count;
5784 			COPY_POS(&un->un_err_pos, &un->un_pos);
5785 			return (EACCES);
5786 		}
5787 		if (un->un_dp->options & ST_REEL) {
5788 			un->un_fmneeded = 2;
5789 		} else {
5790 			un->un_fmneeded = 1;
5791 		}
5792 		mtop->mt_count = mtop->mt_count ? 1 : 0;
5793 		if (st_check_density_or_wfm(dev, 1, B_WRITE, NO_STEPBACK) ||
5794 		    st_cmd(un, SCMD_REWIND, 0, SYNC_CMD) ||
5795 		    st_cmd(un, SCMD_ERASE, mtop->mt_count, SYNC_CMD)) {
5796 			un->un_pos.pmode = invalid;
5797 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5798 			    "st_do_mtioctop : EIO space or erase or "
5799 			    "check den)\n");
5800 			rval = EIO;
5801 		} else {
5802 			/* QIC and helical scan rewind after erase */
5803 			if (un->un_dp->options & ST_REEL) {
5804 				(void) st_cmd(un, SCMD_REWIND, 0, ASYNC_CMD);
5805 			}
5806 		}
5807 		break;
5808 
5809 	case MTWEOF:
5810 		/*
5811 		 * write an end-of-file record
5812 		 */
5813 		if (un->un_mspl->wp || un->un_read_only & RDONLY) {
5814 			un->un_status = KEY_WRITE_PROTECT;
5815 			un->un_err_resid = mtop->mt_count;
5816 			COPY_POS(&un->un_err_pos, &un->un_pos);
5817 			return (EACCES);
5818 		}
5819 
5820 		/*
5821 		 * zero count means just flush buffers
5822 		 * negative count is not permitted
5823 		 */
5824 		if (mtop->mt_count < 0) {
5825 			return (EINVAL);
5826 		}
5827 
5828 		/* Not on worm */
5829 		if (un->un_read_only == RDWR) {
5830 			un->un_test_append = 1;
5831 		}
5832 
5833 		if (un->un_state == ST_STATE_OPEN_PENDING_IO) {
5834 			if (st_determine_density(un, B_WRITE)) {
5835 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5836 				    "st_do_mtioctop : EIO : MTWEOF can't "
5837 				    "determine density");
5838 				return (EIO);
5839 			}
5840 		}
5841 
5842 		rval = st_write_fm(dev, (int)mtop->mt_count);
5843 		if ((rval != 0) && (rval != EACCES)) {
5844 			/*
5845 			 * Failure due to something other than illegal
5846 			 * request results in loss of state (st_intr).
5847 			 */
5848 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5849 			    "st_do_mtioctop : EIO : MTWEOF can't write "
5850 			    "file mark");
5851 			rval = EIO;
5852 		}
5853 		break;
5854 
5855 	case MTRETEN:
5856 		/*
5857 		 * retension the tape
5858 		 */
5859 		if (st_check_density_or_wfm(dev, 1, 0, NO_STEPBACK) ||
5860 		    st_cmd(un, SCMD_LOAD, LD_LOAD | LD_RETEN, SYNC_CMD)) {
5861 			un->un_pos.pmode = invalid;
5862 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5863 			    "st_do_mtioctop : EIO : MTRETEN ");
5864 			rval = EIO;
5865 		}
5866 		break;
5867 
5868 	case MTREW:
5869 		/*
5870 		 * rewind  the tape
5871 		 */
5872 		if (st_check_density_or_wfm(dev, 1, 0, NO_STEPBACK)) {
5873 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5874 			    "st_do_mtioctop : EIO:MTREW check "
5875 			    "density/wfm failed");
5876 			return (EIO);
5877 		}
5878 		if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
5879 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5880 			    "st_do_mtioctop : EIO : MTREW ");
5881 			rval = EIO;
5882 		}
5883 		break;
5884 
5885 	case MTOFFL:
5886 		/*
5887 		 * rewinds, and, if appropriate, takes the device offline by
5888 		 * unloading the tape
5889 		 */
5890 		if (st_check_density_or_wfm(dev, 1, 0, NO_STEPBACK)) {
5891 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5892 			    "st_do_mtioctop :EIO:MTOFFL check "
5893 			    "density/wfm failed");
5894 			return (EIO);
5895 		}
5896 		(void) st_cmd(un, SCMD_REWIND, 0, SYNC_CMD);
5897 		if (st_cmd(un, SCMD_LOAD, LD_UNLOAD, SYNC_CMD)) {
5898 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5899 			    "st_do_mtioctop : EIO : MTOFFL");
5900 			return (EIO);
5901 		}
5902 		un->un_pos.eof = ST_NO_EOF;
5903 		un->un_laststate = un->un_state;
5904 		un->un_state = ST_STATE_OFFLINE;
5905 		un->un_mediastate = MTIO_EJECTED;
5906 		break;
5907 
5908 	case MTLOAD:
5909 		/*
5910 		 * This is to load a tape into the drive
5911 		 * Note that if the tape is not loaded, the device will have
5912 		 * to be opened via O_NDELAY or O_NONBLOCK.
5913 		 */
5914 		/*
5915 		 * Let's try and clean things up, if we are not
5916 		 * initializing, and then send in the load command, no
5917 		 * matter what.
5918 		 *
5919 		 * load after a media change by the user.
5920 		 */
5921 
5922 		if (un->un_state > ST_STATE_INITIALIZING) {
5923 			(void) st_check_density_or_wfm(dev, 1, 0, NO_STEPBACK);
5924 		}
5925 		rval = st_cmd(un, SCMD_LOAD, LD_LOAD, SYNC_CMD);
5926 		/* Load command to a drive that doesn't support load */
5927 		if ((rval == EIO) &&
5928 		    ((un->un_status == KEY_NOT_READY) &&
5929 			/* Medium not present */
5930 		    (un->un_uscsi_rqs_buf->es_add_code == 0x3a) ||
5931 		    ((un->un_status == KEY_ILLEGAL_REQUEST) &&
5932 		    (un->un_dp->type == MT_ISSTK9840) &&
5933 			/* CSL not present */
5934 		    (un->un_uscsi_rqs_buf->es_add_code == 0x80)))) {
5935 			rval = ENOTTY;
5936 			break;
5937 		} else if (rval != EACCES && rval != 0) {
5938 			rval = EIO;
5939 		}
5940 		if (rval) {
5941 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5942 			    "st_do_mtioctop : %s : MTLOAD\n",
5943 			    rval == EACCES ? "EACCES" : "EIO");
5944 			/*
5945 			 * If load tape fails, who knows what happened...
5946 			 */
5947 			un->un_pos.pmode = invalid;
5948 			break;
5949 		}
5950 
5951 		/*
5952 		 * reset all counters appropriately using rewind, as if LOAD
5953 		 * succeeds, we are at BOT
5954 		 */
5955 		un->un_state = ST_STATE_INITIALIZING;
5956 
5957 		rval = st_tape_init(un);
5958 		if ((rval == EACCES) && (un->un_read_only & WORM)) {
5959 			rval = 0;
5960 			break;
5961 		}
5962 
5963 		if (rval != 0) {
5964 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
5965 			    "st_do_mtioctop : EIO : MTLOAD calls "
5966 			    "st_tape_init\n");
5967 			rval = EIO;
5968 			un->un_state = ST_STATE_OFFLINE;
5969 		}
5970 
5971 		break;
5972 
5973 	case MTNOP:
5974 		un->un_status = 0;		/* Reset status */
5975 		un->un_err_resid = 0;
5976 		mtop->mt_count = MTUNIT(dev);
5977 		break;
5978 
5979 	case MTEOM:
5980 		/*
5981 		 * positions the tape at a location just after the last file
5982 		 * written on the tape. For cartridge and 8 mm, this after
5983 		 * the last file mark; for reel, this is inbetween the two
5984 		 * last 2 file marks
5985 		 */
5986 		if ((un->un_pos.pmode == legacy && un->un_pos.eof >= ST_EOT) ||
5987 		    (un->un_lastop == ST_OP_WRITE) ||
5988 		    (un->un_lastop == ST_OP_WEOF)) {
5989 			/*
5990 			 * If the command wants to move to logical end
5991 			 * of media, and we're already there, we're done.
5992 			 * If we were at logical eot, we reset the state
5993 			 * to be *not* at logical eot.
5994 			 *
5995 			 * If we're at physical or logical eot, we prohibit
5996 			 * forward space operations (unconditionally).
5997 			 *
5998 			 * Also if the last operation was a write of any
5999 			 * kind the tape is at EOD.
6000 			 */
6001 			return (0);
6002 		}
6003 		/*
6004 		 * physical tape position may not be what we've been
6005 		 * telling the user; adjust the request accordingly
6006 		 */
6007 		if (IN_EOF(un->un_pos)) {
6008 			un->un_pos.fileno++;
6009 			un->un_pos.blkno = 0;
6010 		}
6011 
6012 		if (st_check_density_or_wfm(dev, 1, B_READ, NO_STEPBACK)) {
6013 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6014 			    "st_do_mtioctop : EIO:MTEOM check density/wfm "
6015 			    " failed");
6016 			return (EIO);
6017 		}
6018 
6019 		/*
6020 		 * st_find_eod() returns the last fileno we knew about;
6021 		 */
6022 		savefile = st_find_eod(un);
6023 
6024 		if ((un->un_status != KEY_BLANK_CHECK) &&
6025 		    (un->un_status != SUN_KEY_EOT)) {
6026 			un->un_pos.pmode = invalid;
6027 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6028 			    "st_do_mtioctop : EIO : MTEOM status check failed");
6029 			rval = EIO;
6030 		} else {
6031 			/*
6032 			 * For 1/2" reel tapes assume logical EOT marked
6033 			 * by two file marks or we don't care that we may
6034 			 * be extending the last file on the tape.
6035 			 */
6036 			if (un->un_dp->options & ST_REEL) {
6037 				if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)) {
6038 					un->un_pos.pmode = invalid;
6039 					ST_DEBUG2(ST_DEVINFO, st_label,
6040 					    SCSI_DEBUG,
6041 					    "st_do_mtioctop : EIO : MTEOM space"
6042 					    " cmd failed");
6043 					rval = EIO;
6044 					break;
6045 				}
6046 				/*
6047 				 * Fix up the block number.
6048 				 */
6049 				un->un_pos.blkno = 0;
6050 				un->un_err_pos.blkno = 0;
6051 			}
6052 			un->un_err_resid = 0;
6053 			un->un_pos.fileno = savefile;
6054 			un->un_pos.eof = ST_EOT;
6055 		}
6056 		un->un_status = 0;
6057 		break;
6058 
6059 	case MTFSF:
6060 		MAX_SPACE_CNT(mtop->mt_count);
6061 		rval = st_mtfsf_ioctl(un, mtop->mt_count);
6062 		break;
6063 
6064 	case MTFSR:
6065 		MAX_SPACE_CNT(mtop->mt_count);
6066 		rval = st_mtfsr_ioctl(un, mtop->mt_count);
6067 		break;
6068 
6069 	case MTBSF:
6070 		MAX_SPACE_CNT(mtop->mt_count);
6071 		rval = st_mtbsf_ioctl(un, mtop->mt_count);
6072 		break;
6073 
6074 	case MTNBSF:
6075 		MAX_SPACE_CNT(mtop->mt_count);
6076 		rval = st_mtnbsf_ioctl(un, mtop->mt_count);
6077 		break;
6078 
6079 	case MTBSR:
6080 		MAX_SPACE_CNT(mtop->mt_count);
6081 		rval = st_mtbsr_ioctl(un, mtop->mt_count);
6082 		break;
6083 
6084 	case MTBSSF:
6085 		MAX_SPACE_CNT(mtop->mt_count);
6086 		rval = st_mtbsfm_ioctl(un, mtop->mt_count);
6087 		break;
6088 
6089 	case MTFSSF:
6090 		MAX_SPACE_CNT(mtop->mt_count);
6091 		rval = st_mtfsfm_ioctl(un, mtop->mt_count);
6092 		break;
6093 
6094 	case MTSRSZ:
6095 
6096 		/*
6097 		 * Set record-size to that sent by user
6098 		 * Check to see if there is reason that the requested
6099 		 * block size should not be set.
6100 		 */
6101 
6102 		/* If requesting variable block size is it ok? */
6103 		if ((mtop->mt_count == 0) &&
6104 		    ((un->un_dp->options & ST_VARIABLE) == 0)) {
6105 			return (ENOTTY);
6106 		}
6107 
6108 		/*
6109 		 * If requested block size is not variable "0",
6110 		 * is it less then minimum.
6111 		 */
6112 		if ((mtop->mt_count != 0) &&
6113 		    (mtop->mt_count < un->un_minbsize)) {
6114 			return (EINVAL);
6115 		}
6116 
6117 		/* Is the requested block size more then maximum */
6118 		if ((mtop->mt_count > min(un->un_maxbsize, un->un_maxdma)) &&
6119 		    (un->un_maxbsize != 0)) {
6120 			return (EINVAL);
6121 		}
6122 
6123 		/* Is requested block size a modulus the device likes */
6124 		if ((mtop->mt_count % un->un_data_mod) != 0) {
6125 			return (EINVAL);
6126 		}
6127 
6128 		if (st_change_block_size(un, (uint32_t)mtop->mt_count) != 0) {
6129 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6130 			    "st_ioctl : MTSRSZ : EIO : cant set block size");
6131 			return (EIO);
6132 		}
6133 
6134 		return (0);
6135 
6136 	case MTGRSZ:
6137 		/*
6138 		 * Get record-size to the user
6139 		 */
6140 		mtop->mt_count = un->un_bsize;
6141 		rval = 0;
6142 		break;
6143 
6144 	case MTTELL:
6145 		rval = st_update_block_pos(un, st_cmd, 0);
6146 		mtop->mt_count = un->un_pos.lgclblkno;
6147 		break;
6148 
6149 	case MTSEEK:
6150 		rval = st_logical_block_locate(un, st_uscsi_cmd, &un->un_pos,
6151 		    (uint64_t)mtop->mt_count, un->un_pos.partition);
6152 		/*
6153 		 * This bit of magic make mt print the actual position if
6154 		 * the resulting position was not what was asked for.
6155 		 */
6156 		if (rval == ESPIPE) {
6157 			rval = EIO;
6158 			if ((uint64_t)mtop->mt_count != un->un_pos.lgclblkno) {
6159 				mtop->mt_op = MTTELL;
6160 				mtop->mt_count = un->un_pos.lgclblkno;
6161 			}
6162 		}
6163 		break;
6164 
6165 	case MTLOCK:
6166 		if (st_cmd(un, SCMD_DOORLOCK, MR_LOCK, SYNC_CMD)) {
6167 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6168 			    "st_do_mtioctop : EIO : MTLOCK");
6169 			rval = EIO;
6170 		}
6171 		break;
6172 
6173 	case MTUNLOCK:
6174 		if (st_cmd(un, SCMD_DOORLOCK, MR_UNLOCK, SYNC_CMD)) {
6175 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6176 			    "st_do_mtioctop : EIO : MTUNLOCK");
6177 			rval = EIO;
6178 		}
6179 		break;
6180 
6181 	default:
6182 		rval = ENOTTY;
6183 	}
6184 
6185 	return (rval);
6186 }
6187 
6188 
6189 /*
6190  * Run a command for uscsi ioctl.
6191  */
6192 static int
st_uscsi_cmd(struct scsi_tape * un,struct uscsi_cmd * ucmd,int flag)6193 st_uscsi_cmd(struct scsi_tape *un, struct uscsi_cmd *ucmd, int flag)
6194 {
6195 	struct uscsi_cmd	*uscmd;
6196 	struct buf	*bp;
6197 	enum uio_seg	uioseg;
6198 	int	offline_state = 0;
6199 	int	err = 0;
6200 	dev_t dev = un->un_dev;
6201 
6202 	ST_FUNC(ST_DEVINFO, st_uscsi_cmd);
6203 
6204 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
6205 	    "st_uscsi_cmd(dev = 0x%lx)\n", un->un_dev);
6206 
6207 	ASSERT(mutex_owned(ST_MUTEX));
6208 
6209 	/*
6210 	 * We really don't know what commands are coming in here and
6211 	 * we don't want to limit the commands coming in.
6212 	 *
6213 	 * If st_tape_init() gets called from st_strategy(), then we
6214 	 * will hang the process waiting for un->un_sbuf_busy to be cleared,
6215 	 * which it never will, as we set it below.  To prevent
6216 	 * st_tape_init() from getting called, we have to set state to other
6217 	 * than ST_STATE_OFFLINE, so we choose ST_STATE_INITIALIZING, which
6218 	 * achieves this purpose already.
6219 	 *
6220 	 * We use offline_state to preserve the OFFLINE state, if it exists,
6221 	 * so other entry points to the driver might have the chance to call
6222 	 * st_tape_init().
6223 	 */
6224 	if (un->un_state == ST_STATE_OFFLINE) {
6225 		un->un_laststate = ST_STATE_OFFLINE;
6226 		un->un_state = ST_STATE_INITIALIZING;
6227 		offline_state = 1;
6228 	}
6229 
6230 	mutex_exit(ST_MUTEX);
6231 	err = scsi_uscsi_alloc_and_copyin((intptr_t)ucmd, flag, ROUTE, &uscmd);
6232 	mutex_enter(ST_MUTEX);
6233 	if (err != 0) {
6234 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6235 		    "st_uscsi_cmd: scsi_uscsi_alloc_and_copyin failed\n");
6236 		goto exit;
6237 	}
6238 
6239 	uioseg = (flag & FKIOCTL) ? UIO_SYSSPACE : UIO_USERSPACE;
6240 
6241 	/* check to see if this command requires the drive to be reserved */
6242 	if (uscmd->uscsi_cdb != NULL) {
6243 		err = st_check_cdb_for_need_to_reserve(un,
6244 		    (uchar_t *)uscmd->uscsi_cdb);
6245 		if (err) {
6246 			goto exit_free;
6247 		}
6248 		/*
6249 		 * If this is a space command we need to save the starting
6250 		 * point so we can retry from there if the command fails.
6251 		 */
6252 		if ((uscmd->uscsi_cdb[0] == SCMD_SPACE) ||
6253 		    (uscmd->uscsi_cdb[0] == (char)SCMD_SPACE_G4)) {
6254 			(void) st_update_block_pos(un, st_cmd, 0);
6255 		}
6256 	}
6257 
6258 	/*
6259 	 * Forground should not be doing anything while recovery is active.
6260 	 */
6261 	ASSERT(un->un_recov_buf_busy == 0);
6262 
6263 	/*
6264 	 * Get buffer resources...
6265 	 */
6266 	while (un->un_sbuf_busy)
6267 		cv_wait(&un->un_sbuf_cv, ST_MUTEX);
6268 	un->un_sbuf_busy = 1;
6269 
6270 #ifdef STDEBUG
6271 	if ((uscmd->uscsi_cdb != NULL) && (st_debug & 0x7) > 6) {
6272 		int rw = (uscmd->uscsi_flags & USCSI_READ) ? B_READ : B_WRITE;
6273 		st_print_cdb(ST_DEVINFO, st_label, SCSI_DEBUG,
6274 		    "uscsi cdb", uscmd->uscsi_cdb);
6275 		if (uscmd->uscsi_buflen) {
6276 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
6277 			    "uscsi %s of %ld bytes %s %s space\n",
6278 			    (rw == B_READ) ? rd_str : wr_str,
6279 			    uscmd->uscsi_buflen,
6280 			    (rw == B_READ) ? "to" : "from",
6281 			    (uioseg == UIO_SYSSPACE) ? "system" : "user");
6282 		}
6283 	}
6284 #endif /* STDEBUG */
6285 
6286 	/*
6287 	 * Although st_uscsi_cmd() never makes use of these
6288 	 * now, we are just being safe and consistent.
6289 	 */
6290 	uscmd->uscsi_flags &= ~(USCSI_NOINTR | USCSI_NOPARITY |
6291 	    USCSI_OTAG | USCSI_HTAG | USCSI_HEAD);
6292 
6293 	un->un_srqbufp = uscmd->uscsi_rqbuf;
6294 	bp = un->un_sbufp;
6295 	bzero(bp, sizeof (buf_t));
6296 	if (uscmd->uscsi_cdb != NULL) {
6297 		bp->b_forw = (struct buf *)(uintptr_t)uscmd->uscsi_cdb[0];
6298 	}
6299 	bp->b_back = (struct buf *)uscmd;
6300 
6301 	mutex_exit(ST_MUTEX);
6302 	err = scsi_uscsi_handle_cmd(dev, uioseg, uscmd, st_strategy, bp, NULL);
6303 	mutex_enter(ST_MUTEX);
6304 
6305 	/*
6306 	 * If scsi reset successful, don't write any filemarks.
6307 	 */
6308 	if ((err == 0) && (uscmd->uscsi_flags &
6309 	    (USCSI_RESET_LUN | USCSI_RESET_TARGET | USCSI_RESET_ALL))) {
6310 		un->un_fmneeded = 0;
6311 	}
6312 
6313 exit_free:
6314 	/*
6315 	 * Free resources
6316 	 */
6317 	un->un_sbuf_busy = 0;
6318 	un->un_srqbufp = NULL;
6319 
6320 	/*
6321 	 * If was a space command need to update logical block position.
6322 	 * If the command failed such that positioning is invalid, Don't
6323 	 * update the position as the user must do this to validate the
6324 	 * position for data protection.
6325 	 */
6326 	if ((uscmd->uscsi_cdb != NULL) &&
6327 	    ((uscmd->uscsi_cdb[0] == SCMD_SPACE) ||
6328 	    (uscmd->uscsi_cdb[0] == (char)SCMD_SPACE_G4)) &&
6329 	    (un->un_pos.pmode != invalid)) {
6330 		un->un_running.pmode = invalid;
6331 		(void) st_update_block_pos(un, st_cmd, 1);
6332 		/*
6333 		 * Set running position to invalid so it updates on the
6334 		 * next command.
6335 		 */
6336 		un->un_running.pmode = invalid;
6337 	}
6338 	cv_signal(&un->un_sbuf_cv);
6339 	mutex_exit(ST_MUTEX);
6340 	(void) scsi_uscsi_copyout_and_free((intptr_t)ucmd, uscmd);
6341 	mutex_enter(ST_MUTEX);
6342 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
6343 	    "st_uscsi_cmd returns 0x%x\n", err);
6344 
6345 exit:
6346 	/* don't lose offline state */
6347 	if (offline_state) {
6348 		un->un_state = ST_STATE_OFFLINE;
6349 	}
6350 
6351 	ASSERT(mutex_owned(ST_MUTEX));
6352 	return (err);
6353 }
6354 
6355 static int
st_write_fm(dev_t dev,int wfm)6356 st_write_fm(dev_t dev, int wfm)
6357 {
6358 	int i;
6359 	int rval;
6360 
6361 	GET_SOFT_STATE(dev);
6362 
6363 	ST_FUNC(ST_DEVINFO, st_write_fm);
6364 
6365 	ASSERT(mutex_owned(ST_MUTEX));
6366 
6367 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
6368 	    "st_write_fm(dev = 0x%lx, wfm = %d)\n", dev, wfm);
6369 
6370 	/*
6371 	 * write one filemark at the time after EOT
6372 	 */
6373 	if (un->un_pos.eof >= ST_EOT) {
6374 		for (i = 0; i < wfm; i++) {
6375 			rval = st_cmd(un, SCMD_WRITE_FILE_MARK, 1, SYNC_CMD);
6376 			if (rval == EACCES) {
6377 				return (rval);
6378 			}
6379 			if (rval != 0) {
6380 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6381 				    "st_write_fm : EIO : write EOT file mark");
6382 				return (EIO);
6383 			}
6384 		}
6385 	} else {
6386 		rval = st_cmd(un, SCMD_WRITE_FILE_MARK, wfm, SYNC_CMD);
6387 		if (rval == EACCES) {
6388 			return (rval);
6389 		}
6390 		if (rval) {
6391 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6392 			    "st_write_fm : EIO : write file mark");
6393 			return (EIO);
6394 		}
6395 	}
6396 
6397 	ASSERT(mutex_owned(ST_MUTEX));
6398 	return (0);
6399 }
6400 
6401 #ifdef STDEBUG
6402 static void
st_start_dump(struct scsi_tape * un,struct buf * bp)6403 st_start_dump(struct scsi_tape *un, struct buf *bp)
6404 {
6405 	struct scsi_pkt *pkt = BP_PKT(bp);
6406 	uchar_t *cdbp = (uchar_t *)pkt->pkt_cdbp;
6407 
6408 	ST_FUNC(ST_DEVINFO, st_start_dump);
6409 
6410 	if ((st_debug & 0x7) < 6)
6411 		return;
6412 	scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6413 	    "st_start: cmd=0x%p count=%ld resid=%ld flags=0x%x pkt=0x%p\n",
6414 	    (void *)bp->b_forw, bp->b_bcount,
6415 	    bp->b_resid, bp->b_flags, (void *)BP_PKT(bp));
6416 	st_print_cdb(ST_DEVINFO, st_label, SCSI_DEBUG,
6417 	    "st_start: cdb",  (caddr_t)cdbp);
6418 	scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6419 	    "st_start: fileno=%d, blk=%d\n",
6420 	    un->un_pos.fileno, un->un_pos.blkno);
6421 }
6422 #endif
6423 
6424 
6425 /*
6426  * Command start && done functions
6427  */
6428 
6429 /*
6430  * st_start()
6431  *
6432  * Called from:
6433  *  st_strategy() to start a command.
6434  *  st_runout() to retry when scsi_pkt allocation fails on previous attempt(s).
6435  *  st_attach() when resuming from power down state.
6436  *  st_start_restart() to retry transport when device was previously busy.
6437  *  st_done_and_mutex_exit() to start the next command when previous is done.
6438  *
6439  * On entry:
6440  *  scsi_pkt may or may not be allocated.
6441  *
6442  */
6443 static void
st_start(struct scsi_tape * un)6444 st_start(struct scsi_tape *un)
6445 {
6446 	struct buf *bp;
6447 	int status;
6448 	int queued;
6449 
6450 	ST_FUNC(ST_DEVINFO, st_start);
6451 	ASSERT(mutex_owned(ST_MUTEX));
6452 
6453 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
6454 	    "st_start(): dev = 0x%lx\n", un->un_dev);
6455 
6456 	if (un->un_recov_buf_busy) {
6457 		/* recovery commands can happen anytime */
6458 		bp = un->un_recov_buf;
6459 		queued = 0;
6460 	} else if (un->un_sbuf_busy) {
6461 		/* sbuf commands should only happen with an empty queue. */
6462 		ASSERT(un->un_quef == NULL);
6463 		ASSERT(un->un_runqf == NULL);
6464 		bp = un->un_sbufp;
6465 		queued = 0;
6466 	} else if (un->un_quef != NULL) {
6467 		if (un->un_persistence && un->un_persist_errors) {
6468 			return;
6469 		}
6470 		bp = un->un_quef;
6471 		queued = 1;
6472 	} else {
6473 		scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6474 		    "st_start() returning no buf found\n");
6475 		return;
6476 	}
6477 
6478 	ASSERT((bp->b_flags & B_DONE) == 0);
6479 
6480 	/*
6481 	 * Don't send more than un_throttle commands to the HBA
6482 	 */
6483 	if ((un->un_throttle <= 0) || (un->un_ncmds >= un->un_throttle)) {
6484 		/*
6485 		 * if doing recovery we know there is outstanding commands.
6486 		 */
6487 		if (bp != un->un_recov_buf) {
6488 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6489 			    "st_start returning throttle = %d or ncmds = %d\n",
6490 			    un->un_throttle, un->un_ncmds);
6491 			if (un->un_ncmds == 0) {
6492 				typedef void (*func)();
6493 				func fnc = (func)st_runout;
6494 
6495 				scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6496 				    "Sending delayed start to st_runout()\n");
6497 				mutex_exit(ST_MUTEX);
6498 				(void) timeout(fnc, un, drv_usectohz(1000000));
6499 				mutex_enter(ST_MUTEX);
6500 			}
6501 			return;
6502 		}
6503 	}
6504 
6505 	/*
6506 	 * If the buf has no scsi_pkt call st_make_cmd() to get one and
6507 	 * build the command.
6508 	 */
6509 	if (BP_PKT(bp) == NULL) {
6510 		ASSERT((bp->b_flags & B_DONE) == 0);
6511 		st_make_cmd(un, bp, st_runout);
6512 		ASSERT((bp->b_flags & B_DONE) == 0);
6513 		status = geterror(bp);
6514 
6515 		/*
6516 		 * Some HBA's don't call bioerror() to set an error.
6517 		 * And geterror() returns zero if B_ERROR is not set.
6518 		 * So if we get zero we must check b_error.
6519 		 */
6520 		if (status == 0 && bp->b_error != 0) {
6521 			status = bp->b_error;
6522 			bioerror(bp, status);
6523 		}
6524 
6525 		/*
6526 		 * Some HBA's convert DDI_DMA_NORESOURCES into ENOMEM.
6527 		 * In tape ENOMEM has special meaning so we'll change it.
6528 		 */
6529 		if (status == ENOMEM) {
6530 			status = 0;
6531 			bioerror(bp, status);
6532 		}
6533 
6534 		/*
6535 		 * Did it fail and is it retryable?
6536 		 * If so return and wait for the callback through st_runout.
6537 		 * Also looks like scsi_init_pkt() will setup a callback even
6538 		 * if it isn't retryable.
6539 		 */
6540 		if (BP_PKT(bp) == NULL) {
6541 			if (status == 0) {
6542 				/*
6543 				 * If first attempt save state.
6544 				 */
6545 				if (un->un_state != ST_STATE_RESOURCE_WAIT) {
6546 					un->un_laststate = un->un_state;
6547 					un->un_state = ST_STATE_RESOURCE_WAIT;
6548 				}
6549 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
6550 				    "temp no resources for pkt\n");
6551 			} else if (status == EINVAL) {
6552 				scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6553 				    "scsi_init_pkt rejected pkt as too big\n");
6554 				if (un->un_persistence) {
6555 					st_set_pe_flag(un);
6556 				}
6557 			} else {
6558 				/*
6559 				 * Unlikely that it would be retryable then not.
6560 				 */
6561 				if (un->un_state == ST_STATE_RESOURCE_WAIT) {
6562 					un->un_state = un->un_laststate;
6563 				}
6564 				scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
6565 				    "perm no resources for pkt errno = 0x%x\n",
6566 				    status);
6567 			}
6568 			return;
6569 		}
6570 		/*
6571 		 * Worked this time set the state back.
6572 		 */
6573 		if (un->un_state == ST_STATE_RESOURCE_WAIT) {
6574 			un->un_state = un->un_laststate;
6575 		}
6576 	}
6577 
6578 	if (queued) {
6579 		/*
6580 		 * move from waitq to runq
6581 		 */
6582 		(void) st_remove_from_queue(&un->un_quef, &un->un_quel, bp);
6583 		st_add_to_queue(&un->un_runqf, &un->un_runql, un->un_runql, bp);
6584 	}
6585 
6586 
6587 #ifdef STDEBUG
6588 	st_start_dump(un, bp);
6589 #endif
6590 
6591 	/* could not get here if throttle was zero */
6592 	un->un_last_throttle = un->un_throttle;
6593 	un->un_throttle = 0;	/* so nothing else will come in here */
6594 	un->un_ncmds++;
6595 
6596 	ST_DO_KSTATS(bp, kstat_waitq_to_runq);
6597 
6598 	status = st_transport(un, BP_PKT(bp));
6599 
6600 	if (un->un_last_throttle) {
6601 		un->un_throttle = un->un_last_throttle;
6602 	}
6603 
6604 	if (status != TRAN_ACCEPT) {
6605 		ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
6606 		ST_DEBUG(ST_DEVINFO, st_label, CE_WARN,
6607 		    "Unhappy transport packet status 0x%x\n", status);
6608 
6609 		if (status == TRAN_BUSY) {
6610 			pkt_info *pkti = BP_PKT(bp)->pkt_private;
6611 
6612 			/*
6613 			 * If command recovery is enabled and this isn't
6614 			 * a recovery command try command recovery.
6615 			 */
6616 			if (pkti->privatelen == sizeof (recov_info) &&
6617 			    bp != un->un_recov_buf) {
6618 				ST_RECOV(ST_DEVINFO, st_label, CE_WARN,
6619 				    "Command Recovery called on busy send\n");
6620 				if (st_command_recovery(un, BP_PKT(bp),
6621 				    ATTEMPT_RETRY) == JUST_RETURN) {
6622 					return;
6623 				}
6624 			} else {
6625 				mutex_exit(ST_MUTEX);
6626 				if (st_handle_start_busy(un, bp,
6627 				    ST_TRAN_BUSY_TIMEOUT, queued) == 0) {
6628 					mutex_enter(ST_MUTEX);
6629 					return;
6630 				}
6631 				/*
6632 				 * if too many retries, fail the transport
6633 				 */
6634 				mutex_enter(ST_MUTEX);
6635 			}
6636 		}
6637 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
6638 		    "transport rejected %d\n", status);
6639 		bp->b_resid = bp->b_bcount;
6640 
6641 		ST_DO_KSTATS(bp, kstat_waitq_exit);
6642 		ST_DO_ERRSTATS(un, st_transerrs);
6643 		if ((bp == un->un_recov_buf) && (status == TRAN_BUSY)) {
6644 			st_bioerror(bp, EBUSY);
6645 		} else {
6646 			st_bioerror(bp, EIO);
6647 			st_set_pe_flag(un);
6648 		}
6649 		st_done_and_mutex_exit(un, bp);
6650 		mutex_enter(ST_MUTEX);
6651 	}
6652 
6653 	ASSERT(mutex_owned(ST_MUTEX));
6654 }
6655 
6656 /*
6657  * if the transport is busy, then put this bp back on the waitq
6658  */
6659 static int
st_handle_start_busy(struct scsi_tape * un,struct buf * bp,clock_t timeout_interval,int queued)6660 st_handle_start_busy(struct scsi_tape *un, struct buf *bp,
6661     clock_t timeout_interval, int queued)
6662 {
6663 
6664 	pkt_info *pktinfo = BP_PKT(bp)->pkt_private;
6665 
6666 	ST_FUNC(ST_DEVINFO, st_handle_start_busy);
6667 
6668 	mutex_enter(ST_MUTEX);
6669 
6670 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
6671 	    "st_handle_start_busy()\n");
6672 
6673 	/*
6674 	 * Check to see if we hit the retry timeout and one last check for
6675 	 * making sure this is the last on the runq, if it is not, we have
6676 	 * to fail
6677 	 */
6678 	if ((pktinfo->str_retry_cnt++ > st_retry_count) ||
6679 	    ((queued) && (un->un_runql != bp))) {
6680 		mutex_exit(ST_MUTEX);
6681 		return (-1);
6682 	}
6683 
6684 	if (queued) {
6685 		/* put the bp back on the waitq */
6686 		st_add_to_queue(&un->un_quef, &un->un_quel, un->un_quef, bp);
6687 	}
6688 
6689 	/*
6690 	 * Decrement un_ncmds so that this
6691 	 * gets thru' st_start() again.
6692 	 */
6693 	un->un_ncmds--;
6694 
6695 	if (queued) {
6696 		/*
6697 		 * since this is an error case, we won't have to do this list
6698 		 * walking much. We've already made sure this bp was the
6699 		 * last on the runq
6700 		 */
6701 		(void) st_remove_from_queue(&un->un_runqf, &un->un_runql, bp);
6702 
6703 		/*
6704 		 * send a marker pkt, if appropriate
6705 		 */
6706 		st_hba_unflush(un);
6707 
6708 	}
6709 	/*
6710 	 * all queues are aligned, we are just waiting to
6711 	 * transport, don't alloc any more buf p's, when
6712 	 * st_start is reentered.
6713 	 */
6714 	(void) timeout(st_start_restart, un, timeout_interval);
6715 
6716 	mutex_exit(ST_MUTEX);
6717 	return (0);
6718 }
6719 
6720 
6721 /*
6722  * st_runout a callback that is called what a resource allocatation failed
6723  */
6724 static int
st_runout(caddr_t arg)6725 st_runout(caddr_t arg)
6726 {
6727 	struct scsi_tape *un = (struct scsi_tape *)arg;
6728 	struct buf *bp;
6729 	int queued;
6730 
6731 	ASSERT(un != NULL);
6732 
6733 	ST_FUNC(ST_DEVINFO, st_runout);
6734 
6735 	mutex_enter(ST_MUTEX);
6736 
6737 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_runout()\n");
6738 
6739 	if (un->un_recov_buf_busy != 0) {
6740 		bp = un->un_recov_buf;
6741 		queued = 0;
6742 	} else if (un->un_sbuf_busy != 0) {
6743 		/* sbuf commands should only happen with an empty queue. */
6744 		ASSERT(un->un_quef == NULL);
6745 		ASSERT(un->un_runqf == NULL);
6746 		bp = un->un_sbufp;
6747 		queued = 0;
6748 	} else if (un->un_quef != NULL) {
6749 		bp = un->un_quef;
6750 		if (un->un_persistence && un->un_persist_errors) {
6751 			mutex_exit(ST_MUTEX);
6752 			bp->b_resid = bp->b_bcount;
6753 			biodone(bp);
6754 			return (1);
6755 		}
6756 		queued = 1;
6757 	} else {
6758 		ASSERT(1 == 0);
6759 		mutex_exit(ST_MUTEX);
6760 		return (1);
6761 	}
6762 
6763 	/*
6764 	 * failed scsi_init_pkt(). If errno is zero its retryable.
6765 	 */
6766 	if ((bp != NULL) && (geterror(bp) != 0)) {
6767 
6768 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
6769 		    "errors after pkt alloc (b_flags=0x%x, b_error=0x%x)\n",
6770 		    bp->b_flags, geterror(bp));
6771 		ASSERT((bp->b_flags & B_DONE) == 0);
6772 
6773 		if (queued) {
6774 			(void) st_remove_from_queue(&un->un_quef, &un->un_quel,
6775 			    bp);
6776 		}
6777 		mutex_exit(ST_MUTEX);
6778 
6779 		ASSERT((bp->b_flags & B_DONE) == 0);
6780 
6781 		/*
6782 		 * Set resid, Error already set, then unblock calling thread.
6783 		 */
6784 		bp->b_resid = bp->b_bcount;
6785 		biodone(bp);
6786 	} else {
6787 		/*
6788 		 * Try Again
6789 		 */
6790 		st_start(un);
6791 		mutex_exit(ST_MUTEX);
6792 	}
6793 
6794 	/*
6795 	 * Comments courtesy of sd.c
6796 	 * The scsi_init_pkt routine allows for the callback function to
6797 	 * return a 0 indicating the callback should be rescheduled or a 1
6798 	 * indicating not to reschedule. This routine always returns 1
6799 	 * because the driver always provides a callback function to
6800 	 * scsi_init_pkt. This results in a callback always being scheduled
6801 	 * (via the scsi_init_pkt callback implementation) if a resource
6802 	 * failure occurs.
6803 	 */
6804 
6805 	return (1);
6806 }
6807 
6808 /*
6809  * st_done_and_mutex_exit()
6810  *	- remove bp from runq
6811  *	- start up the next request
6812  *	- if this was an asynch bp, clean up
6813  *	- exit with released mutex
6814  */
6815 static void
st_done_and_mutex_exit(struct scsi_tape * un,struct buf * bp)6816 st_done_and_mutex_exit(struct scsi_tape *un, struct buf *bp)
6817 {
6818 	int pe_flagged = 0;
6819 	struct scsi_pkt *pkt = BP_PKT(bp);
6820 	pkt_info *pktinfo = pkt->pkt_private;
6821 
6822 	ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
6823 #if !defined(lint)
6824 	_NOTE(LOCK_RELEASED_AS_SIDE_EFFECT(&un->un_sd->sd_mutex))
6825 #endif
6826 
6827 	ST_FUNC(ST_DEVINFO, st_done_and_mutex_exit);
6828 
6829 	ASSERT(mutex_owned(ST_MUTEX));
6830 
6831 	(void) st_remove_from_queue(&un->un_runqf, &un->un_runql, bp);
6832 
6833 	un->un_ncmds--;
6834 	cv_signal(&un->un_queue_cv);
6835 
6836 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
6837 	    "st_done_and_mutex_exit(): cmd=0x%x count=%ld resid=%ld  flags="
6838 	    "0x%x\n", pkt->pkt_cdbp[0], bp->b_bcount,
6839 	    bp->b_resid, bp->b_flags);
6840 
6841 
6842 	/*
6843 	 * update kstats with transfer count info
6844 	 */
6845 	if (un->un_stats && (bp != un->un_sbufp) && IS_RW(bp)) {
6846 		uint32_t n_done =  bp->b_bcount - bp->b_resid;
6847 		if (bp->b_flags & B_READ) {
6848 			IOSP->reads++;
6849 			IOSP->nread += n_done;
6850 		} else {
6851 			IOSP->writes++;
6852 			IOSP->nwritten += n_done;
6853 		}
6854 	}
6855 
6856 	/*
6857 	 * Start the next one before releasing resources on this one, if
6858 	 * there is something on the queue and persistent errors has not been
6859 	 * flagged
6860 	 */
6861 
6862 	if ((pe_flagged = (un->un_persistence && un->un_persist_errors)) != 0) {
6863 		un->un_last_resid = bp->b_resid;
6864 		un->un_last_count = bp->b_bcount;
6865 	}
6866 
6867 	if (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
6868 		cv_broadcast(&un->un_tape_busy_cv);
6869 	} else if (un->un_quef && un->un_throttle && !pe_flagged &&
6870 	    (bp != un->un_recov_buf)) {
6871 		st_start(un);
6872 	}
6873 
6874 	un->un_retry_ct = max(pktinfo->pkt_retry_cnt, pktinfo->str_retry_cnt);
6875 
6876 	if (bp == un->un_sbufp && (bp->b_flags & B_ASYNC)) {
6877 		/*
6878 		 * Since we marked this ourselves as ASYNC,
6879 		 * there isn't anybody around waiting for
6880 		 * completion any more.
6881 		 */
6882 		uchar_t *cmd = pkt->pkt_cdbp;
6883 		if (*cmd == SCMD_READ || *cmd == SCMD_WRITE) {
6884 			bp->b_un.b_addr = (caddr_t)0;
6885 		}
6886 		ST_DEBUG(ST_DEVINFO, st_label, CE_NOTE,
6887 		    "st_done_and_mutex_exit(async): freeing pkt\n");
6888 		st_print_cdb(ST_DEVINFO, st_label, CE_NOTE,
6889 		    "CDB sent with B_ASYNC",  (caddr_t)cmd);
6890 		if (pkt) {
6891 			scsi_destroy_pkt(pkt);
6892 		}
6893 		un->un_sbuf_busy = 0;
6894 		cv_signal(&un->un_sbuf_cv);
6895 		mutex_exit(ST_MUTEX);
6896 		return;
6897 	}
6898 
6899 	if (bp == un->un_sbufp && BP_UCMD(bp)) {
6900 		/*
6901 		 * Copy status from scsi_pkt to uscsi_cmd
6902 		 * since st_uscsi_cmd needs it
6903 		 */
6904 		BP_UCMD(bp)->uscsi_status = SCBP_C(BP_PKT(bp));
6905 	}
6906 
6907 
6908 #ifdef STDEBUG
6909 	if (((st_debug & 0x7) >= 4) &&
6910 	    (((un->un_pos.blkno % 100) == 0) ||
6911 	    (un->un_persistence && un->un_persist_errors))) {
6912 
6913 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
6914 		    "st_d_a_m_exit(): ncmds = %d, thr = %d, "
6915 		    "un_errno = %d, un_pe = %d\n",
6916 		    un->un_ncmds, un->un_throttle, un->un_errno,
6917 		    un->un_persist_errors);
6918 	}
6919 
6920 #endif
6921 
6922 	mutex_exit(ST_MUTEX);
6923 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
6924 	    "st_done_and_mutex_exit: freeing pkt\n");
6925 
6926 	if (pkt) {
6927 		scsi_destroy_pkt(pkt);
6928 	}
6929 
6930 	biodone(bp);
6931 
6932 	/*
6933 	 * now that we biodoned that command, if persistent errors have been
6934 	 * flagged, flush the waitq
6935 	 */
6936 	if (pe_flagged)
6937 		st_flush(un);
6938 }
6939 
6940 
6941 /*
6942  * Tape error, flush tape driver queue.
6943  */
6944 static void
st_flush(struct scsi_tape * un)6945 st_flush(struct scsi_tape *un)
6946 {
6947 	struct buf *bp;
6948 
6949 	ST_FUNC(ST_DEVINFO, st_flush);
6950 
6951 	mutex_enter(ST_MUTEX);
6952 
6953 	ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
6954 	    "st_flush(), ncmds = %d, quef = 0x%p\n",
6955 	    un->un_ncmds, (void *)un->un_quef);
6956 
6957 	/*
6958 	 * if we still have commands outstanding, wait for them to come in
6959 	 * before flushing the queue, and make sure there is a queue
6960 	 */
6961 	if (un->un_ncmds || !un->un_quef)
6962 		goto exit;
6963 
6964 	/*
6965 	 * we have no more commands outstanding, so let's deal with special
6966 	 * cases in the queue for EOM and FM. If we are here, and un_errno
6967 	 * is 0, then we know there was no error and we return a 0 read or
6968 	 * write before showing errors
6969 	 */
6970 
6971 	/* Flush the wait queue. */
6972 	while ((bp = un->un_quef) != NULL) {
6973 		un->un_quef = bp->b_actf;
6974 
6975 		bp->b_resid = bp->b_bcount;
6976 
6977 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
6978 		    "st_flush() : blkno=%d, err=%d, b_bcount=%ld\n",
6979 		    un->un_pos.blkno, un->un_errno, bp->b_bcount);
6980 
6981 		st_set_pe_errno(un);
6982 
6983 		bioerror(bp, un->un_errno);
6984 
6985 		mutex_exit(ST_MUTEX);
6986 		/* it should have one, but check anyway */
6987 		if (BP_PKT(bp)) {
6988 			scsi_destroy_pkt(BP_PKT(bp));
6989 		}
6990 		biodone(bp);
6991 		mutex_enter(ST_MUTEX);
6992 	}
6993 
6994 	/*
6995 	 * It's not a bad practice to reset the
6996 	 * waitq tail pointer to NULL.
6997 	 */
6998 	un->un_quel = NULL;
6999 
7000 exit:
7001 	/* we mucked with the queue, so let others know about it */
7002 	cv_signal(&un->un_queue_cv);
7003 	mutex_exit(ST_MUTEX);
7004 }
7005 
7006 
7007 /*
7008  * Utility functions
7009  */
7010 static int
st_determine_generic(struct scsi_tape * un)7011 st_determine_generic(struct scsi_tape *un)
7012 {
7013 	int bsize;
7014 	static char *cart = "0.25 inch cartridge";
7015 	char *sizestr;
7016 
7017 	ST_FUNC(ST_DEVINFO, st_determine_generic);
7018 
7019 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7020 	    "st_determine_generic(un = 0x%p)\n", (void*)un);
7021 
7022 	ASSERT(mutex_owned(ST_MUTEX));
7023 
7024 	if (st_modesense(un)) {
7025 		return (-1);
7026 	}
7027 
7028 	bsize = (un->un_mspl->high_bl << 16)	|
7029 	    (un->un_mspl->mid_bl << 8)	|
7030 	    (un->un_mspl->low_bl);
7031 
7032 	if (bsize == 0) {
7033 		un->un_dp->options |= ST_VARIABLE;
7034 		un->un_dp->bsize = 0;
7035 		un->un_bsize = 0;
7036 	} else if (bsize > ST_MAXRECSIZE_FIXED) {
7037 		/*
7038 		 * record size of this device too big.
7039 		 * try and convert it to variable record length.
7040 		 *
7041 		 */
7042 		un->un_dp->options |= ST_VARIABLE;
7043 		if (st_change_block_size(un, 0) != 0) {
7044 			ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
7045 			    "Fixed Record Size %d is too large\n", bsize);
7046 			ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
7047 			    "Cannot switch to variable record size\n");
7048 			un->un_dp->options &= ~ST_VARIABLE;
7049 			return (-1);
7050 		}
7051 	} else if (st_change_block_size(un, 0) == 0) {
7052 		/*
7053 		 * If the drive was set to a non zero block size,
7054 		 * See if it can be set to a zero block size.
7055 		 * If it works, ST_VARIABLE so user can set it as they want.
7056 		 */
7057 		un->un_dp->options |= ST_VARIABLE;
7058 		un->un_dp->bsize = 0;
7059 		un->un_bsize = 0;
7060 	} else {
7061 		un->un_dp->bsize = bsize;
7062 		un->un_bsize = bsize;
7063 	}
7064 
7065 
7066 	switch (un->un_mspl->density) {
7067 	default:
7068 	case 0x0:
7069 		/*
7070 		 * default density, cannot determine any other
7071 		 * information.
7072 		 */
7073 		sizestr = "Unknown type- assuming 0.25 inch cartridge";
7074 		un->un_dp->type = ST_TYPE_DEFAULT;
7075 		un->un_dp->options |= (ST_AUTODEN_OVERRIDE|ST_QIC);
7076 		break;
7077 	case 0x1:
7078 	case 0x2:
7079 	case 0x3:
7080 	case 0x6:
7081 		/*
7082 		 * 1/2" reel
7083 		 */
7084 		sizestr = "0.50 inch reel";
7085 		un->un_dp->type = ST_TYPE_REEL;
7086 		un->un_dp->options |= ST_REEL;
7087 		un->un_dp->densities[0] = 0x1;
7088 		un->un_dp->densities[1] = 0x2;
7089 		un->un_dp->densities[2] = 0x6;
7090 		un->un_dp->densities[3] = 0x3;
7091 		break;
7092 	case 0x4:
7093 	case 0x5:
7094 	case 0x7:
7095 	case 0x0b:
7096 
7097 		/*
7098 		 * Quarter inch.
7099 		 */
7100 		sizestr = cart;
7101 		un->un_dp->type = ST_TYPE_DEFAULT;
7102 		un->un_dp->options |= ST_QIC;
7103 
7104 		un->un_dp->densities[1] = 0x4;
7105 		un->un_dp->densities[2] = 0x5;
7106 		un->un_dp->densities[3] = 0x7;
7107 		un->un_dp->densities[0] = 0x0b;
7108 		break;
7109 
7110 	case 0x0f:
7111 	case 0x10:
7112 	case 0x11:
7113 	case 0x12:
7114 		/*
7115 		 * QIC-120, QIC-150, QIC-320, QIC-600
7116 		 */
7117 		sizestr = cart;
7118 		un->un_dp->type = ST_TYPE_DEFAULT;
7119 		un->un_dp->options |= ST_QIC;
7120 		un->un_dp->densities[0] = 0x0f;
7121 		un->un_dp->densities[1] = 0x10;
7122 		un->un_dp->densities[2] = 0x11;
7123 		un->un_dp->densities[3] = 0x12;
7124 		break;
7125 
7126 	case 0x09:
7127 	case 0x0a:
7128 	case 0x0c:
7129 	case 0x0d:
7130 		/*
7131 		 * 1/2" cartridge tapes. Include HI-TC.
7132 		 */
7133 		sizestr = cart;
7134 		sizestr[2] = '5';
7135 		sizestr[3] = '0';
7136 		un->un_dp->type = ST_TYPE_HIC;
7137 		un->un_dp->densities[0] = 0x09;
7138 		un->un_dp->densities[1] = 0x0a;
7139 		un->un_dp->densities[2] = 0x0c;
7140 		un->un_dp->densities[3] = 0x0d;
7141 		break;
7142 
7143 	case 0x13:
7144 			/* DDS-2/DDS-3 scsi spec densities */
7145 	case 0x24:
7146 	case 0x25:
7147 	case 0x26:
7148 		sizestr = "DAT Data Storage (DDS)";
7149 		un->un_dp->type = ST_TYPE_DAT;
7150 		un->un_dp->options |= ST_AUTODEN_OVERRIDE;
7151 		break;
7152 
7153 	case 0x14:
7154 		/*
7155 		 * Helical Scan (Exabyte) devices
7156 		 */
7157 		sizestr = "8mm helical scan cartridge";
7158 		un->un_dp->type = ST_TYPE_EXABYTE;
7159 		un->un_dp->options |= ST_AUTODEN_OVERRIDE;
7160 		break;
7161 	}
7162 
7163 	/*
7164 	 * Assume LONG ERASE, BSF and BSR
7165 	 */
7166 
7167 	un->un_dp->options |=
7168 	    (ST_LONG_ERASE | ST_UNLOADABLE | ST_BSF | ST_BSR | ST_KNOWS_EOD);
7169 
7170 	/*
7171 	 * Only if mode sense data says no buffered write, set NOBUF
7172 	 */
7173 	if (un->un_mspl->bufm == 0)
7174 		un->un_dp->options |= ST_NOBUF;
7175 
7176 	/*
7177 	 * set up large read and write retry counts
7178 	 */
7179 
7180 	un->un_dp->max_rretries = un->un_dp->max_wretries = 1000;
7181 
7182 	/*
7183 	 * If this is a 0.50 inch reel tape, and
7184 	 * it is *not* variable mode, try and
7185 	 * set it to variable record length
7186 	 * mode.
7187 	 */
7188 	if ((un->un_dp->options & ST_REEL) && un->un_bsize != 0 &&
7189 	    (un->un_dp->options & ST_VARIABLE)) {
7190 		if (st_change_block_size(un, 0) == 0) {
7191 			un->un_dp->bsize = 0;
7192 			un->un_mspl->high_bl = un->un_mspl->mid_bl =
7193 			    un->un_mspl->low_bl = 0;
7194 		}
7195 	}
7196 
7197 	/*
7198 	 * Write to console about type of device found
7199 	 */
7200 	ST_DEBUG6(ST_DEVINFO, st_label, CE_NOTE,
7201 	    "Generic Drive, Vendor=%s\n\t%s", un->un_dp->name,
7202 	    sizestr);
7203 	if (un->un_dp->options & ST_VARIABLE) {
7204 		scsi_log(ST_DEVINFO, st_label, CE_NOTE,
7205 		    "!Variable record length I/O\n");
7206 	} else {
7207 		scsi_log(ST_DEVINFO, st_label, CE_NOTE,
7208 		    "!Fixed record length (%d byte blocks) I/O\n",
7209 		    un->un_dp->bsize);
7210 	}
7211 	ASSERT(mutex_owned(ST_MUTEX));
7212 	return (0);
7213 }
7214 
7215 static int
st_determine_density(struct scsi_tape * un,int rw)7216 st_determine_density(struct scsi_tape *un, int rw)
7217 {
7218 	int rval = 0;
7219 
7220 	ST_FUNC(ST_DEVINFO, st_determine_density);
7221 
7222 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7223 	    "st_determine_density(un = 0x%p, rw = %s)\n",
7224 	    (void*)un, (rw == B_WRITE ? wr_str: rd_str));
7225 
7226 	ASSERT(mutex_owned(ST_MUTEX));
7227 
7228 	/*
7229 	 * If we're past BOT, density is determined already.
7230 	 */
7231 	if (un->un_pos.pmode == logical) {
7232 		if (un->un_pos.lgclblkno != 0) {
7233 			goto exit;
7234 		}
7235 	} else if (un->un_pos.pmode == legacy) {
7236 		if ((un->un_pos.fileno != 0) || (un->un_pos.blkno != 0)) {
7237 			/*
7238 			 * XXX: put in a bitch message about attempting to
7239 			 * XXX: change density past BOT.
7240 			 */
7241 			goto exit;
7242 		}
7243 	} else {
7244 		goto exit;
7245 	}
7246 	if ((un->un_pos.pmode == logical) &&
7247 	    (un->un_pos.lgclblkno != 0)) {
7248 		goto exit;
7249 	}
7250 
7251 
7252 	/*
7253 	 * If we're going to be writing, we set the density
7254 	 */
7255 	if (rw == 0 || rw == B_WRITE) {
7256 		/* un_curdens is used as an index into densities table */
7257 		un->un_curdens = MT_DENSITY(un->un_dev);
7258 		if (st_set_density(un)) {
7259 			rval = -1;
7260 		}
7261 		goto exit;
7262 	}
7263 
7264 	/*
7265 	 * If density is known already,
7266 	 * we don't have to get it again.(?)
7267 	 */
7268 	if (!un->un_density_known) {
7269 		if (st_get_density(un)) {
7270 			rval = -1;
7271 		}
7272 	}
7273 
7274 exit:
7275 	ASSERT(mutex_owned(ST_MUTEX));
7276 	return (rval);
7277 }
7278 
7279 
7280 /*
7281  * Try to determine density. We do this by attempting to read the
7282  * first record off the tape, cycling through the available density
7283  * codes as we go.
7284  */
7285 
7286 static int
st_get_density(struct scsi_tape * un)7287 st_get_density(struct scsi_tape *un)
7288 {
7289 	int succes = 0, rval = -1, i;
7290 	uint_t size;
7291 	uchar_t dens, olddens;
7292 
7293 	ST_FUNC(ST_DEVINFO, st_get_density);
7294 
7295 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7296 	    "st_get_density(un = 0x%p)\n", (void*)un);
7297 
7298 	ASSERT(mutex_owned(ST_MUTEX));
7299 
7300 	/*
7301 	 * If Auto Density override is enabled The drive has
7302 	 * only one density and there is no point in attempting
7303 	 * find the correct one.
7304 	 *
7305 	 * Since most modern drives auto detect the density
7306 	 * and format of the recorded media before they come
7307 	 * ready. What this function does is a legacy behavior
7308 	 * and modern drives not only don't need it, The backup
7309 	 * utilities that do positioning via uscsi find the un-
7310 	 * expected rewinds problematic.
7311 	 *
7312 	 * The drives that need this are old reel to reel devices.
7313 	 * I took a swag and said they must be scsi-1 or older.
7314 	 * I don't beleave there will any of the newer devices
7315 	 * that need this. There will be some scsi-1 devices that
7316 	 * don't need this but I don't think they will be using the
7317 	 * BIG aftermarket backup and restore utilitys.
7318 	 */
7319 	if ((un->un_dp->options & ST_AUTODEN_OVERRIDE) ||
7320 	    (un->un_sd->sd_inq->inq_ansi > 1)) {
7321 		un->un_density_known = 1;
7322 		rval = 0;
7323 		goto exit;
7324 	}
7325 
7326 	/*
7327 	 * This will only work on variable record length tapes
7328 	 * if and only if all variable record length tapes autodensity
7329 	 * select.
7330 	 */
7331 	size = (unsigned)(un->un_dp->bsize ? un->un_dp->bsize : SECSIZE);
7332 	un->un_tmpbuf = kmem_alloc(size, KM_SLEEP);
7333 
7334 	/*
7335 	 * Start at the specified density
7336 	 */
7337 
7338 	dens = olddens = un->un_curdens = MT_DENSITY(un->un_dev);
7339 
7340 	for (i = 0; i < NDENSITIES; i++, ((un->un_curdens == NDENSITIES - 1) ?
7341 	    (un->un_curdens = 0) : (un->un_curdens += 1))) {
7342 		/*
7343 		 * If we've done this density before,
7344 		 * don't bother to do it again.
7345 		 */
7346 		dens = un->un_dp->densities[un->un_curdens];
7347 		if (i > 0 && dens == olddens)
7348 			continue;
7349 		olddens = dens;
7350 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7351 		    "trying density 0x%x\n", dens);
7352 		if (st_set_density(un)) {
7353 			continue;
7354 		}
7355 
7356 		/*
7357 		 * XXX - the creates lots of headaches and slowdowns - must
7358 		 * fix.
7359 		 */
7360 		succes = (st_cmd(un, SCMD_READ, (int)size, SYNC_CMD) == 0);
7361 		if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
7362 			break;
7363 		}
7364 		if (succes) {
7365 			st_init(un);
7366 			rval = 0;
7367 			un->un_density_known = 1;
7368 			break;
7369 		}
7370 	}
7371 	kmem_free(un->un_tmpbuf, size);
7372 	un->un_tmpbuf = 0;
7373 
7374 exit:
7375 	ASSERT(mutex_owned(ST_MUTEX));
7376 	return (rval);
7377 }
7378 
7379 static int
st_set_density(struct scsi_tape * un)7380 st_set_density(struct scsi_tape *un)
7381 {
7382 	int rval = 0;
7383 
7384 	ST_FUNC(ST_DEVINFO, st_set_density);
7385 
7386 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7387 	    "st_set_density(un = 0x%p): density = 0x%x\n", (void*)un,
7388 	    un->un_dp->densities[un->un_curdens]);
7389 
7390 	ASSERT(mutex_owned(ST_MUTEX));
7391 
7392 	un->un_mspl->density = un->un_dp->densities[un->un_curdens];
7393 
7394 	if ((un->un_dp->options & ST_AUTODEN_OVERRIDE) == 0) {
7395 		/*
7396 		 * If auto density override is not set, Use mode select
7397 		 * to set density and compression.
7398 		 */
7399 		if (st_modeselect(un)) {
7400 			rval = -1;
7401 		}
7402 	} else if ((un->un_dp->options & ST_MODE_SEL_COMP) != 0) {
7403 		/*
7404 		 * If auto density and mode select compression are set,
7405 		 * This is a drive with one density code but compression
7406 		 * can be enabled or disabled.
7407 		 * Set compression but no need to set density.
7408 		 */
7409 		rval = st_set_compression(un);
7410 		if ((rval != 0) && (rval != EALREADY)) {
7411 			rval = -1;
7412 		} else {
7413 			rval = 0;
7414 		}
7415 	}
7416 
7417 	/* If sucessful set density and/or compression, mark density known */
7418 	if (rval == 0) {
7419 		un->un_density_known = 1;
7420 	}
7421 
7422 	ASSERT(mutex_owned(ST_MUTEX));
7423 	return (rval);
7424 }
7425 
7426 static int
st_loadtape(struct scsi_tape * un)7427 st_loadtape(struct scsi_tape *un)
7428 {
7429 	int rval;
7430 
7431 	ST_FUNC(ST_DEVINFO, st_loadtape);
7432 
7433 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7434 	    "st_loadtape(un = 0x%p)\n", (void*) un);
7435 
7436 	ASSERT(mutex_owned(ST_MUTEX));
7437 
7438 	rval = st_update_block_pos(un, st_cmd, 0);
7439 	if (rval == EACCES) {
7440 		return (rval);
7441 	}
7442 
7443 	/*
7444 	 * 'LOAD' the tape to BOT by rewinding
7445 	 */
7446 	rval = st_cmd(un, SCMD_REWIND, 1, SYNC_CMD);
7447 	if (rval == 0) {
7448 		st_init(un);
7449 		un->un_density_known = 0;
7450 	}
7451 
7452 	ASSERT(mutex_owned(ST_MUTEX));
7453 	return (rval);
7454 }
7455 
7456 
7457 /*
7458  * Note: QIC devices aren't so smart.  If you try to append
7459  * after EOM, the write can fail because the device doesn't know
7460  * it's at EOM.	 In that case, issue a read.  The read should fail
7461  * because there's no data, but the device knows it's at EOM,
7462  * so a subsequent write should succeed.  To further confuse matters,
7463  * the target returns the same error if the tape is positioned
7464  * such that a write would overwrite existing data.  That's why
7465  * we have to do the append test.  A read in the middle of
7466  * recorded data would succeed, thus indicating we're attempting
7467  * something illegal.
7468  */
7469 
7470 
7471 static void
st_test_append(struct buf * bp)7472 st_test_append(struct buf *bp)
7473 {
7474 	dev_t dev = bp->b_edev;
7475 	struct scsi_tape *un;
7476 	uchar_t status;
7477 	unsigned bcount;
7478 
7479 	un = ddi_get_soft_state(st_state, MTUNIT(dev));
7480 
7481 	ST_FUNC(ST_DEVINFO, st_test_append);
7482 
7483 	ASSERT(mutex_owned(ST_MUTEX));
7484 
7485 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7486 	    "st_test_append(): fileno %d\n", un->un_pos.fileno);
7487 
7488 	un->un_laststate = un->un_state;
7489 	un->un_state = ST_STATE_APPEND_TESTING;
7490 	un->un_test_append = 0;
7491 
7492 	/*
7493 	 * first, map in the buffer, because we're doing a double write --
7494 	 * first into the kernel, then onto the tape.
7495 	 */
7496 	bp_mapin(bp);
7497 
7498 	/*
7499 	 * get a copy of the data....
7500 	 */
7501 	un->un_tmpbuf = kmem_alloc((unsigned)bp->b_bcount, KM_SLEEP);
7502 	bcopy(bp->b_un.b_addr, un->un_tmpbuf, (uint_t)bp->b_bcount);
7503 
7504 	/*
7505 	 * attempt the write..
7506 	 */
7507 
7508 	if (st_cmd(un, (int)SCMD_WRITE, (int)bp->b_bcount, SYNC_CMD) == 0) {
7509 success:
7510 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7511 		    "append write succeeded\n");
7512 		bp->b_resid = un->un_sbufp->b_resid;
7513 		mutex_exit(ST_MUTEX);
7514 		bcount = (unsigned)bp->b_bcount;
7515 		biodone(bp);
7516 		mutex_enter(ST_MUTEX);
7517 		un->un_laststate = un->un_state;
7518 		un->un_state = ST_STATE_OPEN;
7519 		kmem_free(un->un_tmpbuf, bcount);
7520 		un->un_tmpbuf = NULL;
7521 		return;
7522 	}
7523 
7524 	/*
7525 	 * The append failed. Do a short read. If that fails,  we are at EOM
7526 	 * so we can retry the write command. If that succeeds, than we're
7527 	 * all screwed up (the controller reported a real error).
7528 	 *
7529 	 * XXX: should the dummy read be > SECSIZE? should it be the device's
7530 	 * XXX: block size?
7531 	 *
7532 	 */
7533 	status = un->un_status;
7534 	un->un_status = 0;
7535 	(void) st_cmd(un, SCMD_READ, SECSIZE, SYNC_CMD);
7536 	if (un->un_status == KEY_BLANK_CHECK) {
7537 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7538 		    "append at EOM\n");
7539 		/*
7540 		 * Okay- the read failed. We should actually have confused
7541 		 * the controller enough to allow writing. In any case, the
7542 		 * i/o is on its own from here on out.
7543 		 */
7544 		un->un_laststate = un->un_state;
7545 		un->un_state = ST_STATE_OPEN;
7546 		bcopy(bp->b_un.b_addr, un->un_tmpbuf, (uint_t)bp->b_bcount);
7547 		if (st_cmd(un, (int)SCMD_WRITE, (int)bp->b_bcount,
7548 		    SYNC_CMD) == 0) {
7549 			goto success;
7550 		}
7551 	}
7552 
7553 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7554 	    "append write failed- not at EOM\n");
7555 	bp->b_resid = bp->b_bcount;
7556 	st_bioerror(bp, EIO);
7557 
7558 	ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
7559 	    "st_test_append : EIO : append write failed - not at EOM");
7560 
7561 	/*
7562 	 * backspace one record to get back to where we were
7563 	 */
7564 	if (st_cmd(un, SCMD_SPACE, Blk(-1), SYNC_CMD)) {
7565 		un->un_pos.pmode = invalid;
7566 	}
7567 
7568 	un->un_err_resid = bp->b_resid;
7569 	un->un_status = status;
7570 
7571 	/*
7572 	 * Note: biodone will do a bp_mapout()
7573 	 */
7574 	mutex_exit(ST_MUTEX);
7575 	bcount = (unsigned)bp->b_bcount;
7576 	biodone(bp);
7577 	mutex_enter(ST_MUTEX);
7578 	un->un_laststate = un->un_state;
7579 	un->un_state = ST_STATE_OPEN_PENDING_IO;
7580 	kmem_free(un->un_tmpbuf, bcount);
7581 	un->un_tmpbuf = NULL;
7582 }
7583 
7584 /*
7585  * Special command handler
7586  */
7587 
7588 /*
7589  * common st_cmd code. The fourth parameter states
7590  * whether the caller wishes to await the results
7591  * Note the release of the mutex during most of the function
7592  */
7593 static int
st_cmd(struct scsi_tape * un,int com,int64_t count,int wait)7594 st_cmd(struct scsi_tape *un, int com, int64_t count, int wait)
7595 {
7596 	struct buf *bp;
7597 	int err;
7598 	uint_t last_err_resid;
7599 
7600 	ST_FUNC(ST_DEVINFO, st_cmd);
7601 
7602 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
7603 	    "st_cmd(dev = 0x%lx, com = 0x%x, count = %"PRIx64", wait = %d)\n",
7604 	    un->un_dev, com, count, wait);
7605 
7606 	ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
7607 	ASSERT(mutex_owned(ST_MUTEX));
7608 
7609 #ifdef STDEBUG
7610 	if ((st_debug & 0x7)) {
7611 		st_debug_cmds(un, com, count, wait);
7612 	}
7613 #endif
7614 
7615 	st_wait_for_io(un);
7616 
7617 	/* check to see if this command requires the drive to be reserved */
7618 	err = st_check_cmd_for_need_to_reserve(un, com, count);
7619 
7620 	if (err) {
7621 		return (err);
7622 	}
7623 
7624 	/*
7625 	 * A space command is not recoverable if we don't know were we
7626 	 * were when it was issued.
7627 	 */
7628 	if ((com == SCMD_SPACE) || (com == SCMD_SPACE_G4)) {
7629 		(void) st_update_block_pos(un, st_cmd, 0);
7630 	}
7631 
7632 	/*
7633 	 * Forground should not be doing anything while recovery is active.
7634 	 */
7635 	ASSERT(un->un_recov_buf_busy == 0);
7636 
7637 	while (un->un_sbuf_busy)
7638 		cv_wait(&un->un_sbuf_cv, ST_MUTEX);
7639 	un->un_sbuf_busy = 1;
7640 
7641 	bp = un->un_sbufp;
7642 	bzero(bp, sizeof (buf_t));
7643 
7644 	bp->b_flags = (wait) ? B_BUSY : B_BUSY|B_ASYNC;
7645 
7646 	err = st_setup_cmd(un, bp, com, count);
7647 
7648 	un->un_sbuf_busy = 0;
7649 
7650 	/*
7651 	 * If was a space command need to update logical block position.
7652 	 * Only do this if the command was sucessful or it will mask the fact
7653 	 * that the space command failed by promoting the pmode to logical.
7654 	 */
7655 	if (((com == SCMD_SPACE) || (com == SCMD_SPACE_G4)) &&
7656 	    (un->un_pos.pmode != invalid)) {
7657 		un->un_running.pmode = invalid;
7658 		last_err_resid = un->un_err_resid;
7659 		(void) st_update_block_pos(un, st_cmd, 1);
7660 		/*
7661 		 * Set running position to invalid so it updates on the
7662 		 * next command.
7663 		 */
7664 		un->un_running.pmode = invalid;
7665 		un->un_err_resid = last_err_resid;
7666 	}
7667 
7668 	cv_signal(&un->un_sbuf_cv);
7669 
7670 	return (err);
7671 }
7672 
7673 static int
st_setup_cmd(struct scsi_tape * un,buf_t * bp,int com,int64_t count)7674 st_setup_cmd(struct scsi_tape *un, buf_t *bp, int com, int64_t count)
7675 {
7676 	int err;
7677 	dev_t dev = un->un_dev;
7678 
7679 	ST_FUNC(ST_DEVINFO, st_setup_cmd);
7680 	/*
7681 	 * Set count to the actual size of the data tranfer.
7682 	 * For commands with no data transfer, set bp->b_bcount
7683 	 * to the value to be used when constructing the
7684 	 * cdb in st_make_cmd().
7685 	 */
7686 	switch (com) {
7687 	case SCMD_READ:
7688 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7689 		    "special read %"PRId64"\n", count);
7690 		bp->b_flags |= B_READ;
7691 		bp->b_un.b_addr = un->un_tmpbuf;
7692 		break;
7693 
7694 	case SCMD_WRITE:
7695 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7696 		    "special write %"PRId64"\n", count);
7697 		bp->b_un.b_addr = un->un_tmpbuf;
7698 		break;
7699 
7700 	case SCMD_WRITE_FILE_MARK:
7701 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7702 		    "write %"PRId64" file marks\n", count);
7703 		bp->b_bcount = count;
7704 		count = 0;
7705 		break;
7706 
7707 	case SCMD_REWIND:
7708 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "rewind\n");
7709 		bp->b_bcount = count;
7710 		count = 0;
7711 		break;
7712 
7713 	case SCMD_SPACE:
7714 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "space\n");
7715 		/*
7716 		 * If the user could have entered a number that will
7717 		 * not fit in the 12 bit count field of space(8),
7718 		 * use space(16).
7719 		 */
7720 		if (((int64_t)SPACE_CNT(count) > 0x7fffff) ||
7721 		    ((int64_t)SPACE_CNT(count) < -(0x7fffff))) {
7722 			com = SCMD_SPACE_G4;
7723 		}
7724 		bp->b_bcount = count;
7725 		count = 0;
7726 		break;
7727 
7728 	case SCMD_RESERVE:
7729 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "reserve");
7730 		bp->b_bcount = 0;
7731 		count = 0;
7732 		break;
7733 
7734 	case SCMD_RELEASE:
7735 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "release");
7736 		bp->b_bcount = 0;
7737 		count = 0;
7738 		break;
7739 
7740 	case SCMD_LOAD:
7741 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7742 		    "%s tape\n", (count & LD_LOAD) ? "load" : "unload");
7743 		bp->b_bcount = count;
7744 		count = 0;
7745 		break;
7746 
7747 	case SCMD_ERASE:
7748 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7749 		    "erase tape\n");
7750 		bp->b_bcount = count;
7751 		count = 0;
7752 		break;
7753 
7754 	case SCMD_MODE_SENSE:
7755 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7756 		    "mode sense\n");
7757 		bp->b_flags |= B_READ;
7758 		bp->b_un.b_addr = (caddr_t)(un->un_mspl);
7759 		break;
7760 
7761 	case SCMD_MODE_SELECT:
7762 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7763 		    "mode select\n");
7764 		bp->b_un.b_addr = (caddr_t)(un->un_mspl);
7765 		break;
7766 
7767 	case SCMD_READ_BLKLIM:
7768 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7769 		    "read block limits\n");
7770 		bp->b_bcount = count;
7771 		bp->b_flags |= B_READ;
7772 		bp->b_un.b_addr = (caddr_t)(un->un_rbl);
7773 		break;
7774 
7775 	case SCMD_TEST_UNIT_READY:
7776 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7777 		    "test unit ready\n");
7778 		bp->b_bcount = 0;
7779 		count = 0;
7780 		break;
7781 
7782 	case SCMD_DOORLOCK:
7783 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7784 		    "%s tape\n", (count & MR_LOCK) ? "lock" : "unlock");
7785 		bp->b_bcount = count = 0;
7786 		break;
7787 
7788 	case SCMD_READ_POSITION:
7789 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7790 		    "read position\n");
7791 		switch (un->un_read_pos_type) {
7792 		case LONG_POS:
7793 			count = sizeof (tape_position_long_t);
7794 			break;
7795 		case EXT_POS:
7796 			count = min(count, sizeof (tape_position_ext_t));
7797 			break;
7798 		case SHORT_POS:
7799 			count = sizeof (tape_position_t);
7800 			break;
7801 		default:
7802 			ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
7803 			    "Unknown read position type 0x%x in "
7804 			    "st_make_cmd()\n", un->un_read_pos_type);
7805 		}
7806 		bp->b_bcount = count;
7807 		bp->b_flags |= B_READ;
7808 		bp->b_un.b_addr = (caddr_t)un->un_read_pos_data;
7809 		break;
7810 
7811 	default:
7812 		ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
7813 		    "Unhandled scsi command 0x%x in st_setup_cmd()\n", com);
7814 	}
7815 
7816 	mutex_exit(ST_MUTEX);
7817 
7818 	if (count > 0) {
7819 		int flg = (bp->b_flags & B_READ) ? B_READ : B_WRITE;
7820 		/*
7821 		 * We're going to do actual I/O.
7822 		 * Set things up for physio.
7823 		 */
7824 		struct iovec aiov;
7825 		struct uio auio;
7826 		struct uio *uio = &auio;
7827 
7828 		bzero(&auio, sizeof (struct uio));
7829 		bzero(&aiov, sizeof (struct iovec));
7830 		aiov.iov_base = bp->b_un.b_addr;
7831 		aiov.iov_len = count;
7832 
7833 		uio->uio_iov = &aiov;
7834 		uio->uio_iovcnt = 1;
7835 		uio->uio_resid = aiov.iov_len;
7836 		uio->uio_segflg = UIO_SYSSPACE;
7837 
7838 		/*
7839 		 * Let physio do the rest...
7840 		 */
7841 		bp->b_forw = (struct buf *)(uintptr_t)com;
7842 		bp->b_back = NULL;
7843 		err = physio(st_strategy, bp, dev, flg, st_minphys, uio);
7844 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7845 		    "st_setup_cmd: physio returns %d\n", err);
7846 	} else {
7847 		/*
7848 		 * Mimic physio
7849 		 */
7850 		bp->b_forw = (struct buf *)(uintptr_t)com;
7851 		bp->b_back = NULL;
7852 		bp->b_edev = dev;
7853 		bp->b_dev = cmpdev(dev);
7854 		bp->b_blkno = 0;
7855 		bp->b_resid = 0;
7856 		(void) st_strategy(bp);
7857 		if (bp->b_flags & B_ASYNC) {
7858 			/*
7859 			 * This is an async command- the caller won't wait
7860 			 * and doesn't care about errors.
7861 			 */
7862 			mutex_enter(ST_MUTEX);
7863 			return (0);
7864 		}
7865 
7866 		/*
7867 		 * BugTraq #4260046
7868 		 * ----------------
7869 		 * Restore Solaris 2.5.1 behavior, namely call biowait
7870 		 * unconditionally. The old comment said...
7871 		 *
7872 		 * "if strategy was flagged with  persistent errors, we would
7873 		 *  have an error here, and the bp would never be sent, so we
7874 		 *  don't want to wait on a bp that was never sent...or hang"
7875 		 *
7876 		 * The new rationale, courtesy of Chitrank...
7877 		 *
7878 		 * "we should unconditionally biowait() here because
7879 		 *  st_strategy() will do a biodone() in the persistent error
7880 		 *  case and the following biowait() will return immediately.
7881 		 *  If not, in the case of "errors after pkt alloc" in
7882 		 *  st_start(), we will not biowait here which will cause the
7883 		 *  next biowait() to return immediately which will cause
7884 		 *  us to send out the next command. In the case where both of
7885 		 *  these use the sbuf, when the first command completes we'll
7886 		 *  free the packet attached to sbuf and the same pkt will
7887 		 *  get freed again when we complete the second command.
7888 		 *  see esc 518987.  BTW, it is necessary to do biodone() in
7889 		 *  st_start() for the pkt alloc failure case because physio()
7890 		 *  does biowait() and will hang if we don't do biodone()"
7891 		 */
7892 
7893 		err = biowait(bp);
7894 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
7895 		    "st_setup_cmd: biowait returns %d\n", err);
7896 	}
7897 
7898 	mutex_enter(ST_MUTEX);
7899 
7900 	return (err);
7901 }
7902 
7903 static int
st_set_compression(struct scsi_tape * un)7904 st_set_compression(struct scsi_tape *un)
7905 {
7906 	int rval;
7907 	int turn_compression_on;
7908 	minor_t minor;
7909 
7910 	ST_FUNC(ST_DEVINFO, st_set_compression);
7911 
7912 	/*
7913 	 * Drive either dosn't have compression or it is controlled with
7914 	 * special density codes. Return ENOTTY so caller
7915 	 * knows nothing was done.
7916 	 */
7917 	if ((un->un_dp->options & ST_MODE_SEL_COMP) == 0) {
7918 		un->un_comp_page = 0;
7919 		return (ENOTTY);
7920 	}
7921 
7922 	/* set compression based on minor node opened */
7923 	minor = MT_DENSITY(un->un_dev);
7924 
7925 	/*
7926 	 * If this the compression density or
7927 	 * the drive has two densities and uses mode select for
7928 	 * control of compression turn on compression for MT_DENSITY2
7929 	 * as well.
7930 	 */
7931 	if ((minor == ST_COMPRESSION_DENSITY) ||
7932 	    (minor == MT_DENSITY(MT_DENSITY2)) &&
7933 	    (un->un_dp->densities[0] == un->un_dp->densities[1]) &&
7934 	    (un->un_dp->densities[2] == un->un_dp->densities[3]) &&
7935 	    (un->un_dp->densities[0] != un->un_dp->densities[2])) {
7936 
7937 		turn_compression_on = 1;
7938 	} else {
7939 		turn_compression_on = 0;
7940 	}
7941 
7942 	un->un_mspl->high_bl = (uchar_t)(un->un_bsize >> 16);
7943 	un->un_mspl->mid_bl  = (uchar_t)(un->un_bsize >> 8);
7944 	un->un_mspl->low_bl  = (uchar_t)(un->un_bsize);
7945 
7946 	/*
7947 	 * Need to determine which page does the device use for compression.
7948 	 * First try the data compression page. If this fails try the device
7949 	 * configuration page
7950 	 */
7951 
7952 	if ((un->un_comp_page & ST_DEV_DATACOMP_PAGE) == ST_DEV_DATACOMP_PAGE) {
7953 		rval = st_set_datacomp_page(un, turn_compression_on);
7954 		if (rval == EALREADY) {
7955 			return (rval);
7956 		}
7957 		if (rval != 0) {
7958 			if (un->un_status == KEY_ILLEGAL_REQUEST) {
7959 				/*
7960 				 * This device does not support data
7961 				 * compression page
7962 				 */
7963 				un->un_comp_page = ST_DEV_CONFIG_PAGE;
7964 			} else if (un->un_state >= ST_STATE_OPEN) {
7965 				un->un_pos.pmode = invalid;
7966 				rval = EIO;
7967 			} else {
7968 				rval = -1;
7969 			}
7970 		} else {
7971 			un->un_comp_page = ST_DEV_DATACOMP_PAGE;
7972 		}
7973 	}
7974 
7975 	if ((un->un_comp_page & ST_DEV_CONFIG_PAGE) == ST_DEV_CONFIG_PAGE) {
7976 		rval = st_set_devconfig_page(un, turn_compression_on);
7977 		if (rval == EALREADY) {
7978 			return (rval);
7979 		}
7980 		if (rval != 0) {
7981 			if (un->un_status == KEY_ILLEGAL_REQUEST) {
7982 				/*
7983 				 * This device does not support
7984 				 * compression at all advice the
7985 				 * user and unset ST_MODE_SEL_COMP
7986 				 */
7987 				un->un_dp->options &= ~ST_MODE_SEL_COMP;
7988 				un->un_comp_page = 0;
7989 				scsi_log(ST_DEVINFO, st_label, CE_NOTE,
7990 				    "Device Does Not Support Compression\n");
7991 			} else if (un->un_state >= ST_STATE_OPEN) {
7992 				un->un_pos.pmode = invalid;
7993 				rval = EIO;
7994 			} else {
7995 				rval = -1;
7996 			}
7997 		}
7998 	}
7999 
8000 	return (rval);
8001 }
8002 
8003 /*
8004  * set or unset compression thru device configuration page.
8005  */
8006 static int
st_set_devconfig_page(struct scsi_tape * un,int compression_on)8007 st_set_devconfig_page(struct scsi_tape *un, int compression_on)
8008 {
8009 	unsigned char cflag;
8010 	int rval = 0;
8011 
8012 
8013 	ST_FUNC(ST_DEVINFO, st_set_devconfig_page);
8014 
8015 	ASSERT(mutex_owned(ST_MUTEX));
8016 
8017 	/*
8018 	 * if the mode sense page is not the correct one, load the correct one.
8019 	 */
8020 	if (un->un_mspl->page_code != ST_DEV_CONFIG_PAGE) {
8021 		rval = st_gen_mode_sense(un, st_uscsi_cmd, ST_DEV_CONFIG_PAGE,
8022 		    un->un_mspl, sizeof (struct seq_mode));
8023 		if (rval)
8024 			return (rval);
8025 	}
8026 
8027 	/*
8028 	 * Figure what to set compression flag to.
8029 	 */
8030 	if (compression_on) {
8031 		/* They have selected a compression node */
8032 		if (un->un_dp->type == ST_TYPE_FUJI) {
8033 			cflag = 0x84;   /* use EDRC */
8034 		} else {
8035 			cflag = ST_DEV_CONFIG_DEF_COMP;
8036 		}
8037 	} else {
8038 		cflag = ST_DEV_CONFIG_NO_COMP;
8039 	}
8040 
8041 	/*
8042 	 * If compression is already set the way it was requested.
8043 	 * And if this not the first time we has tried.
8044 	 */
8045 	if ((cflag == un->un_mspl->page.dev.comp_alg) &&
8046 	    (un->un_comp_page == ST_DEV_CONFIG_PAGE)) {
8047 		return (EALREADY);
8048 	}
8049 
8050 	un->un_mspl->page.dev.comp_alg = cflag;
8051 	/*
8052 	 * need to send mode select even if correct compression is
8053 	 * already set since need to set density code
8054 	 */
8055 
8056 #ifdef STDEBUG
8057 	if ((st_debug & 0x7) >= 6) {
8058 		st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG,
8059 		    "st_set_devconfig_page: sense data for mode select",
8060 		    (char *)un->un_mspl, sizeof (struct seq_mode));
8061 	}
8062 #endif
8063 	rval = st_gen_mode_select(un, st_uscsi_cmd, un->un_mspl,
8064 	    sizeof (struct seq_mode));
8065 
8066 	return (rval);
8067 }
8068 
8069 /*
8070  * set/reset compression bit thru data compression page
8071  */
8072 static int
st_set_datacomp_page(struct scsi_tape * un,int compression_on)8073 st_set_datacomp_page(struct scsi_tape *un, int compression_on)
8074 {
8075 	int compression_on_already;
8076 	int rval = 0;
8077 
8078 
8079 	ST_FUNC(ST_DEVINFO, st_set_datacomp_page);
8080 
8081 	ASSERT(mutex_owned(ST_MUTEX));
8082 
8083 	/*
8084 	 * if the mode sense page is not the correct one, load the correct one.
8085 	 */
8086 	if (un->un_mspl->page_code != ST_DEV_DATACOMP_PAGE) {
8087 		rval = st_gen_mode_sense(un, st_uscsi_cmd, ST_DEV_DATACOMP_PAGE,
8088 		    un->un_mspl, sizeof (struct seq_mode));
8089 		if (rval)
8090 			return (rval);
8091 	}
8092 
8093 	/*
8094 	 * If drive is not capable of compression (at this time)
8095 	 * return EALREADY so caller doesn't think that this page
8096 	 * is not supported. This check is for drives that can
8097 	 * disable compression from the front panel or configuration.
8098 	 * I doubt that a drive that supports this page is not really
8099 	 * capable of compression.
8100 	 */
8101 	if (un->un_mspl->page.comp.dcc == 0) {
8102 		return (EALREADY);
8103 	}
8104 
8105 	/* See if compression currently turned on */
8106 	if (un->un_mspl->page.comp.dce) {
8107 		compression_on_already = 1;
8108 	} else {
8109 		compression_on_already = 0;
8110 	}
8111 
8112 	/*
8113 	 * If compression is already set the way it was requested.
8114 	 * And if this not the first time we has tried.
8115 	 */
8116 	if ((compression_on == compression_on_already) &&
8117 	    (un->un_comp_page == ST_DEV_DATACOMP_PAGE)) {
8118 		return (EALREADY);
8119 	}
8120 
8121 	/*
8122 	 * if we are already set to the appropriate compression
8123 	 * mode, don't set it again
8124 	 */
8125 	if (compression_on) {
8126 		/* compression selected */
8127 		un->un_mspl->page.comp.dce = 1;
8128 	} else {
8129 		un->un_mspl->page.comp.dce = 0;
8130 	}
8131 
8132 
8133 #ifdef STDEBUG
8134 	if ((st_debug & 0x7) >= 6) {
8135 		st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG,
8136 		    "st_set_datacomp_page: sense data for mode select",
8137 		    (char *)un->un_mspl, sizeof (struct seq_mode));
8138 	}
8139 #endif
8140 	rval = st_gen_mode_select(un, st_uscsi_cmd, un->un_mspl,
8141 	    sizeof (struct seq_mode));
8142 
8143 	return (rval);
8144 }
8145 
8146 static int
st_modesense(struct scsi_tape * un)8147 st_modesense(struct scsi_tape *un)
8148 {
8149 	int rval;
8150 	uchar_t page;
8151 
8152 	ST_FUNC(ST_DEVINFO, st_modesense);
8153 
8154 	page = un->un_comp_page;
8155 
8156 	switch (page) {
8157 	case ST_DEV_DATACOMP_PAGE:
8158 	case ST_DEV_CONFIG_PAGE: /* FALLTHROUGH */
8159 		rval = st_gen_mode_sense(un, st_uscsi_cmd, page, un->un_mspl,
8160 		    sizeof (struct seq_mode));
8161 		break;
8162 
8163 	case ST_DEV_DATACOMP_PAGE | ST_DEV_CONFIG_PAGE:
8164 		if (un->un_dp->options & ST_MODE_SEL_COMP) {
8165 			page = ST_DEV_DATACOMP_PAGE;
8166 			rval = st_gen_mode_sense(un, st_uscsi_cmd, page,
8167 			    un->un_mspl, sizeof (struct seq_mode));
8168 			if (rval == 0 && un->un_mspl->page_code == page) {
8169 				un->un_comp_page = page;
8170 				break;
8171 			}
8172 			page = ST_DEV_CONFIG_PAGE;
8173 			rval = st_gen_mode_sense(un, st_uscsi_cmd, page,
8174 			    un->un_mspl, sizeof (struct seq_mode));
8175 			if (rval == 0 && un->un_mspl->page_code == page) {
8176 				un->un_comp_page = page;
8177 				break;
8178 			}
8179 			un->un_dp->options &= ~ST_MODE_SEL_COMP;
8180 			un->un_comp_page = 0;
8181 		} else {
8182 			un->un_comp_page = 0;
8183 		}
8184 
8185 	default:	/* FALLTHROUGH */
8186 		rval = st_cmd(un, SCMD_MODE_SENSE, MSIZE, SYNC_CMD);
8187 	}
8188 	return (rval);
8189 }
8190 
8191 static int
st_modeselect(struct scsi_tape * un)8192 st_modeselect(struct scsi_tape *un)
8193 {
8194 	int rval = 0;
8195 	int ix;
8196 
8197 	ST_FUNC(ST_DEVINFO, st_modeselect);
8198 
8199 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
8200 	    "st_modeselect(dev = 0x%lx): density = 0x%x\n",
8201 	    un->un_dev, un->un_mspl->density);
8202 
8203 	ASSERT(mutex_owned(ST_MUTEX));
8204 
8205 	/*
8206 	 * The parameter list should be the same for all of the
8207 	 * cases that follow so set them here
8208 	 *
8209 	 * Try mode select first if if fails set fields manually
8210 	 */
8211 	rval = st_modesense(un);
8212 	if (rval != 0) {
8213 		ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
8214 		    "st_modeselect: First mode sense failed\n");
8215 		un->un_mspl->bd_len  = 8;
8216 		un->un_mspl->high_nb = 0;
8217 		un->un_mspl->mid_nb  = 0;
8218 		un->un_mspl->low_nb  = 0;
8219 	}
8220 	un->un_mspl->high_bl = (uchar_t)(un->un_bsize >> 16);
8221 	un->un_mspl->mid_bl  = (uchar_t)(un->un_bsize >> 8);
8222 	un->un_mspl->low_bl  = (uchar_t)(un->un_bsize);
8223 
8224 
8225 	/*
8226 	 * If configured to use a specific density code for a media type.
8227 	 * curdens is previously set by the minor node opened.
8228 	 * If the media type doesn't match the minor node we change it so it
8229 	 * looks like the correct one was opened.
8230 	 */
8231 	if (un->un_dp->options & ST_KNOWS_MEDIA) {
8232 		uchar_t best;
8233 
8234 		for (best = 0xff, ix = 0; ix < NDENSITIES; ix++) {
8235 			if (un->un_mspl->media_type ==
8236 			    un->un_dp->mediatype[ix]) {
8237 				best = ix;
8238 				/*
8239 				 * It matches but it might not be the only one.
8240 				 * Use the highest matching media type but not
8241 				 * to exceed the density selected by the open.
8242 				 */
8243 				if (ix < un->un_curdens) {
8244 					continue;
8245 				}
8246 				un->un_curdens = ix;
8247 				break;
8248 			}
8249 		}
8250 		/* If a match was found best will not be 0xff any more */
8251 		if (best < NDENSITIES) {
8252 			ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
8253 			    "found media 0x%X using density 0x%X\n",
8254 			    un->un_mspl->media_type,
8255 			    un->un_dp->densities[best]);
8256 			un->un_mspl->density = un->un_dp->densities[best];
8257 		} else {
8258 			/* Otherwise set density based on minor node opened */
8259 			un->un_mspl->density =
8260 			    un->un_dp->densities[un->un_curdens];
8261 		}
8262 	} else {
8263 		un->un_mspl->density = un->un_dp->densities[un->un_curdens];
8264 	}
8265 
8266 	if (un->un_dp->options & ST_NOBUF) {
8267 		un->un_mspl->bufm = 0;
8268 	} else {
8269 		un->un_mspl->bufm = 1;
8270 	}
8271 
8272 	rval = st_set_compression(un);
8273 
8274 	/*
8275 	 * If st_set_compression returned invalid or already it
8276 	 * found no need to do the mode select.
8277 	 * So do it here.
8278 	 */
8279 	if ((rval == ENOTTY) || (rval == EALREADY)) {
8280 
8281 		/* Zero non-writeable fields */
8282 		un->un_mspl->data_len = 0;
8283 		un->un_mspl->media_type = 0;
8284 		un->un_mspl->wp = 0;
8285 
8286 		/* need to set the density code */
8287 		rval = st_cmd(un, SCMD_MODE_SELECT, MSIZE, SYNC_CMD);
8288 		if (rval != 0) {
8289 			if (un->un_state >= ST_STATE_OPEN) {
8290 				ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
8291 				    "unable to set tape mode\n");
8292 				un->un_pos.pmode = invalid;
8293 				rval = EIO;
8294 			} else {
8295 				rval = -1;
8296 			}
8297 		}
8298 	}
8299 
8300 	/*
8301 	 * The spec recommends to send a mode sense after a mode select
8302 	 */
8303 	(void) st_modesense(un);
8304 
8305 	ASSERT(mutex_owned(ST_MUTEX));
8306 
8307 	return (rval);
8308 }
8309 
8310 /*
8311  * st_gen_mode_sense
8312  *
8313  * generic mode sense.. it allows for any page
8314  */
8315 static int
st_gen_mode_sense(struct scsi_tape * un,ubufunc_t ubf,int page,struct seq_mode * page_data,int page_size)8316 st_gen_mode_sense(struct scsi_tape *un, ubufunc_t ubf, int page,
8317     struct seq_mode *page_data, int page_size)
8318 {
8319 
8320 	int r;
8321 	char	cdb[CDB_GROUP0];
8322 	struct uscsi_cmd *com;
8323 	struct scsi_arq_status status;
8324 
8325 	ST_FUNC(ST_DEVINFO, st_gen_mode_sense);
8326 
8327 	com = kmem_zalloc(sizeof (*com), KM_SLEEP);
8328 
8329 	bzero(cdb, CDB_GROUP0);
8330 	cdb[0] = SCMD_MODE_SENSE;
8331 	cdb[2] = (char)page;
8332 	cdb[4] = (char)page_size;
8333 
8334 	com->uscsi_cdb = cdb;
8335 	com->uscsi_cdblen = CDB_GROUP0;
8336 	com->uscsi_bufaddr = (caddr_t)page_data;
8337 	com->uscsi_buflen = page_size;
8338 	com->uscsi_rqlen = sizeof (status);
8339 	com->uscsi_rqbuf = (caddr_t)&status;
8340 	com->uscsi_timeout = un->un_dp->non_motion_timeout;
8341 	com->uscsi_flags = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
8342 
8343 	r = ubf(un, com, FKIOCTL);
8344 	kmem_free(com, sizeof (*com));
8345 	return (r);
8346 }
8347 
8348 /*
8349  * st_gen_mode_select
8350  *
8351  * generic mode select.. it allows for any page
8352  */
8353 static int
st_gen_mode_select(struct scsi_tape * un,ubufunc_t ubf,struct seq_mode * page_data,int page_size)8354 st_gen_mode_select(struct scsi_tape *un, ubufunc_t ubf,
8355     struct seq_mode *page_data, int page_size)
8356 {
8357 
8358 	int r;
8359 	char cdb[CDB_GROUP0];
8360 	struct uscsi_cmd *com;
8361 	struct scsi_arq_status status;
8362 
8363 	ST_FUNC(ST_DEVINFO, st_gen_mode_select);
8364 
8365 	/* Zero non-writeable fields */
8366 	page_data->data_len = 0;
8367 	page_data->media_type = 0;
8368 	page_data->wp = 0;
8369 
8370 	/*
8371 	 * If mode select has any page data, zero the ps (Page Savable) bit.
8372 	 */
8373 	if (page_size > MSIZE) {
8374 		page_data->ps = 0;
8375 	}
8376 
8377 
8378 	com = kmem_zalloc(sizeof (*com), KM_SLEEP);
8379 
8380 	/*
8381 	 * then, do a mode select to set what ever info
8382 	 */
8383 	bzero(cdb, CDB_GROUP0);
8384 	cdb[0] = SCMD_MODE_SELECT;
8385 	cdb[1] = 0x10;		/* set PF bit for many third party drives */
8386 	cdb[4] = (char)page_size;
8387 
8388 	com->uscsi_cdb = cdb;
8389 	com->uscsi_cdblen = CDB_GROUP0;
8390 	com->uscsi_bufaddr = (caddr_t)page_data;
8391 	com->uscsi_buflen = page_size;
8392 	com->uscsi_rqlen = sizeof (status);
8393 	com->uscsi_rqbuf = (caddr_t)&status;
8394 	com->uscsi_timeout = un->un_dp->non_motion_timeout;
8395 	com->uscsi_flags = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_WRITE;
8396 
8397 	r = ubf(un, com, FKIOCTL);
8398 
8399 	kmem_free(com, sizeof (*com));
8400 	return (r);
8401 }
8402 
8403 static int
st_read_block_limits(struct scsi_tape * un,struct read_blklim * read_blk)8404 st_read_block_limits(struct scsi_tape *un, struct read_blklim *read_blk)
8405 {
8406 	int rval;
8407 	char cdb[CDB_GROUP0];
8408 	struct uscsi_cmd *com;
8409 	struct scsi_arq_status status;
8410 
8411 	ST_FUNC(ST_DEVINFO, st_read_block_limits);
8412 
8413 	com = kmem_zalloc(sizeof (*com), KM_SLEEP);
8414 
8415 	bzero(cdb, CDB_GROUP0);
8416 	cdb[0] = SCMD_READ_BLKLIM;
8417 
8418 	com->uscsi_cdb = cdb;
8419 	com->uscsi_cdblen = CDB_GROUP0;
8420 	com->uscsi_bufaddr = (caddr_t)read_blk;
8421 	com->uscsi_buflen = sizeof (struct read_blklim);
8422 	com->uscsi_rqlen = sizeof (status);
8423 	com->uscsi_rqbuf = (caddr_t)&status;
8424 	com->uscsi_timeout = un->un_dp->non_motion_timeout;
8425 	com->uscsi_flags = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
8426 
8427 	rval = st_uscsi_cmd(un, com, FKIOCTL);
8428 	if (com->uscsi_status || com->uscsi_resid) {
8429 		rval = -1;
8430 	}
8431 
8432 	kmem_free(com, sizeof (*com));
8433 	return (rval);
8434 }
8435 
8436 static int
st_report_density_support(struct scsi_tape * un,uchar_t * density_data,size_t buflen)8437 st_report_density_support(struct scsi_tape *un, uchar_t *density_data,
8438     size_t buflen)
8439 {
8440 	int rval;
8441 	char cdb[CDB_GROUP1];
8442 	struct uscsi_cmd *com;
8443 	struct scsi_arq_status status;
8444 
8445 	ST_FUNC(ST_DEVINFO, st_report_density_support);
8446 
8447 	com = kmem_zalloc(sizeof (*com), KM_SLEEP);
8448 
8449 	bzero(cdb, CDB_GROUP1);
8450 	cdb[0] = SCMD_REPORT_DENSITIES;
8451 	cdb[7] = (buflen & 0xff00) >> 8;
8452 	cdb[8] = buflen & 0xff;
8453 
8454 	com->uscsi_cdb = cdb;
8455 	com->uscsi_cdblen = CDB_GROUP1;
8456 	com->uscsi_bufaddr = (caddr_t)density_data;
8457 	com->uscsi_buflen = buflen;
8458 	com->uscsi_rqlen = sizeof (status);
8459 	com->uscsi_rqbuf = (caddr_t)&status;
8460 	com->uscsi_timeout = un->un_dp->non_motion_timeout;
8461 	com->uscsi_flags = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
8462 
8463 	rval = st_uscsi_cmd(un, com, FKIOCTL);
8464 	if (com->uscsi_status || com->uscsi_resid) {
8465 		rval = -1;
8466 	}
8467 
8468 	kmem_free(com, sizeof (*com));
8469 	return (rval);
8470 }
8471 
8472 static int
st_report_supported_operation(struct scsi_tape * un,uchar_t * oper_data,uchar_t option_code,ushort_t service_action)8473 st_report_supported_operation(struct scsi_tape *un, uchar_t *oper_data,
8474     uchar_t option_code, ushort_t service_action)
8475 {
8476 	int rval;
8477 	char cdb[CDB_GROUP5];
8478 	struct uscsi_cmd *com;
8479 	struct scsi_arq_status status;
8480 	uint32_t allo_length;
8481 
8482 	ST_FUNC(ST_DEVINFO, st_report_supported_operation);
8483 
8484 	allo_length = sizeof (struct one_com_des) +
8485 	    sizeof (struct com_timeout_des);
8486 	com = kmem_zalloc(sizeof (*com), KM_SLEEP);
8487 
8488 	bzero(cdb, CDB_GROUP5);
8489 	cdb[0] = (char)SCMD_MAINTENANCE_IN;
8490 	cdb[1] = SSVC_ACTION_GET_SUPPORTED_OPERATIONS;
8491 	if (service_action) {
8492 		cdb[2] = (char)(ONE_COMMAND_DATA_FORMAT | 0x80); /* RCTD */
8493 		cdb[4] = (service_action & 0xff00) >> 8;
8494 		cdb[5] = service_action & 0xff;
8495 	} else {
8496 		cdb[2] = (char)(ONE_COMMAND_NO_SERVICE_DATA_FORMAT |
8497 		    0x80); /* RCTD */
8498 	}
8499 	cdb[3] = option_code;
8500 	cdb[6] = (allo_length & 0xff000000) >> 24;
8501 	cdb[7] = (allo_length & 0xff0000) >> 16;
8502 	cdb[8] = (allo_length & 0xff00) >> 8;
8503 	cdb[9] = allo_length & 0xff;
8504 
8505 	com->uscsi_cdb = cdb;
8506 	com->uscsi_cdblen = CDB_GROUP5;
8507 	com->uscsi_bufaddr = (caddr_t)oper_data;
8508 	com->uscsi_buflen = allo_length;
8509 	com->uscsi_rqlen = sizeof (status);
8510 	com->uscsi_rqbuf = (caddr_t)&status;
8511 	com->uscsi_timeout = un->un_dp->non_motion_timeout;
8512 	com->uscsi_flags = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
8513 
8514 	rval = st_uscsi_cmd(un, com, FKIOCTL);
8515 	if (com->uscsi_status) {
8516 		rval = -1;
8517 	}
8518 
8519 	kmem_free(com, sizeof (*com));
8520 	return (rval);
8521 }
8522 
8523 /*
8524  * Changes devices blocksize and bsize to requested blocksize nblksz.
8525  * Returns returned value from first failed call or zero on success.
8526  */
8527 static int
st_change_block_size(struct scsi_tape * un,uint32_t nblksz)8528 st_change_block_size(struct scsi_tape *un, uint32_t nblksz)
8529 {
8530 	struct seq_mode *current;
8531 	int rval;
8532 	uint32_t oldblksz;
8533 
8534 	ST_FUNC(ST_DEVINFO, st_change_block_size);
8535 
8536 	current = kmem_zalloc(MSIZE, KM_SLEEP);
8537 
8538 	/*
8539 	 * If we haven't got the compression page yet, do that first.
8540 	 */
8541 	if (un->un_comp_page == (ST_DEV_DATACOMP_PAGE | ST_DEV_CONFIG_PAGE)) {
8542 		(void) st_modesense(un);
8543 	}
8544 
8545 	/* Read current settings */
8546 	rval = st_gen_mode_sense(un, st_uscsi_cmd, 0, current, MSIZE);
8547 	if (rval != 0) {
8548 		scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
8549 		    "mode sense for change block size failed: rval = %d", rval);
8550 		goto finish;
8551 	}
8552 
8553 	/* Figure the current block size */
8554 	oldblksz =
8555 	    (current->high_bl << 16) |
8556 	    (current->mid_bl << 8) |
8557 	    (current->low_bl);
8558 
8559 	/* If current block size is the same as requested were done */
8560 	if (oldblksz == nblksz) {
8561 		un->un_bsize = nblksz;
8562 		rval = 0;
8563 		goto finish;
8564 	}
8565 
8566 	/* Change to requested block size */
8567 	current->high_bl = (uchar_t)(nblksz >> 16);
8568 	current->mid_bl  = (uchar_t)(nblksz >> 8);
8569 	current->low_bl  = (uchar_t)(nblksz);
8570 
8571 	/* Attempt to change block size */
8572 	rval = st_gen_mode_select(un, st_uscsi_cmd, current, MSIZE);
8573 	if (rval != 0) {
8574 		scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
8575 		    "Set new block size failed: rval = %d", rval);
8576 		goto finish;
8577 	}
8578 
8579 	/* Read back and verify setting */
8580 	rval = st_modesense(un);
8581 	if (rval == 0) {
8582 		un->un_bsize =
8583 		    (un->un_mspl->high_bl << 16) |
8584 		    (un->un_mspl->mid_bl << 8) |
8585 		    (un->un_mspl->low_bl);
8586 
8587 		if (un->un_bsize != nblksz) {
8588 			scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
8589 			    "Blocksize set does not equal requested blocksize"
8590 			    "(read: %u requested: %u)\n", nblksz, un->un_bsize);
8591 			rval = EIO;
8592 		}
8593 	}
8594 finish:
8595 	kmem_free(current, MSIZE);
8596 	return (rval);
8597 }
8598 
8599 
8600 static void
st_init(struct scsi_tape * un)8601 st_init(struct scsi_tape *un)
8602 {
8603 	ST_FUNC(ST_DEVINFO, st_init);
8604 
8605 	ASSERT(mutex_owned(ST_MUTEX));
8606 
8607 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
8608 	    "st_init(): dev = 0x%lx, will reset fileno, blkno, eof\n",
8609 	    un->un_dev);
8610 
8611 	un->un_pos.blkno = 0;
8612 	un->un_pos.fileno = 0;
8613 	un->un_lastop = ST_OP_NIL;
8614 	un->un_pos.eof = ST_NO_EOF;
8615 	un->un_pwr_mgmt = ST_PWR_NORMAL;
8616 	if (st_error_level != SCSI_ERR_ALL) {
8617 		if (DEBUGGING) {
8618 			st_error_level = SCSI_ERR_ALL;
8619 		} else {
8620 			st_error_level = SCSI_ERR_RETRYABLE;
8621 		}
8622 	}
8623 }
8624 
8625 
8626 static void
st_make_cmd(struct scsi_tape * un,struct buf * bp,int (* func)(caddr_t))8627 st_make_cmd(struct scsi_tape *un, struct buf *bp, int (*func)(caddr_t))
8628 {
8629 	struct scsi_pkt *pkt;
8630 	struct uscsi_cmd *ucmd;
8631 	recov_info *ri;
8632 	int tval = 0;
8633 	int64_t count;
8634 	uint32_t additional = 0;
8635 	uint32_t address = 0;
8636 	union scsi_cdb *ucdb;
8637 	int flags = 0;
8638 	int cdb_len = CDB_GROUP0; /* default */
8639 	uchar_t com;
8640 	char fixbit;
8641 	char short_fm = 0;
8642 	optype prev_op = un->un_lastop;
8643 	int stat_size =
8644 	    (un->un_arq_enabled ? sizeof (struct scsi_arq_status) : 1);
8645 
8646 	ST_FUNC(ST_DEVINFO, st_make_cmd);
8647 
8648 	ASSERT(mutex_owned(ST_MUTEX));
8649 
8650 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
8651 	    "st_make_cmd(): dev = 0x%lx\n", un->un_dev);
8652 
8653 
8654 	/*
8655 	 * fixbit is for setting the Fixed Mode and Suppress Incorrect
8656 	 * Length Indicator bits on read/write commands, for setting
8657 	 * the Long bit on erase commands, and for setting the Code
8658 	 * Field bits on space commands.
8659 	 */
8660 
8661 	/* regular raw I/O */
8662 	if ((bp != un->un_sbufp) && (bp != un->un_recov_buf)) {
8663 		pkt = scsi_init_pkt(ROUTE, NULL, bp,
8664 		    CDB_GROUP0, stat_size, st_recov_sz, 0, func,
8665 		    (caddr_t)un);
8666 		if (pkt == NULL) {
8667 			scsi_log(ST_DEVINFO, st_label, CE_NOTE,
8668 			    "Read Write scsi_init_pkt() failure\n");
8669 			goto exit;
8670 		}
8671 		ASSERT(pkt->pkt_resid == 0);
8672 #ifdef STDEBUG
8673 		bzero(pkt->pkt_private, st_recov_sz);
8674 		bzero(pkt->pkt_scbp, stat_size);
8675 #endif
8676 		ri = (recov_info *)pkt->pkt_private;
8677 		ri->privatelen = st_recov_sz;
8678 		if (un->un_bsize == 0) {
8679 			count = bp->b_bcount;
8680 			fixbit = 0;
8681 		} else {
8682 			count = bp->b_bcount / un->un_bsize;
8683 			fixbit = 1;
8684 		}
8685 		if (bp->b_flags & B_READ) {
8686 			com = SCMD_READ;
8687 			un->un_lastop = ST_OP_READ;
8688 			if ((un->un_bsize == 0) && /* Not Fixed Block */
8689 			    (un->un_dp->options & ST_READ_IGNORE_ILI)) {
8690 				fixbit = 2;
8691 			}
8692 		} else {
8693 			com = SCMD_WRITE;
8694 			un->un_lastop = ST_OP_WRITE;
8695 		}
8696 		tval = un->un_dp->io_timeout;
8697 
8698 		/*
8699 		 * For really large xfers, increase timeout
8700 		 */
8701 		if (bp->b_bcount > (10 * ONE_MEG))
8702 			tval *= bp->b_bcount/(10 * ONE_MEG);
8703 
8704 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8705 		    "%s %d amt 0x%lx\n", (com == SCMD_WRITE) ?
8706 		    wr_str: rd_str, un->un_pos.blkno, bp->b_bcount);
8707 
8708 	} else if ((ucmd = BP_UCMD(bp)) != NULL) {
8709 		/*
8710 		 * uscsi - build command, allocate scsi resources
8711 		 */
8712 		st_make_uscsi_cmd(un, ucmd, bp, func);
8713 		goto exit;
8714 
8715 	} else {				/* special I/O */
8716 		struct buf *allocbp = NULL;
8717 		com = (uchar_t)(uintptr_t)bp->b_forw;
8718 		count = bp->b_bcount;
8719 
8720 		switch (com) {
8721 		case SCMD_READ:
8722 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8723 			    "special read %"PRId64"\n", count);
8724 			if (un->un_bsize == 0) {
8725 				fixbit = 2;	/* suppress SILI */
8726 			} else {
8727 				fixbit = 1;	/* Fixed Block Mode */
8728 				count /= un->un_bsize;
8729 			}
8730 			allocbp = bp;
8731 			un->un_lastop = ST_OP_READ;
8732 			tval = un->un_dp->io_timeout;
8733 			break;
8734 
8735 		case SCMD_WRITE:
8736 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8737 			    "special write %"PRId64"\n", count);
8738 			if (un->un_bsize != 0) {
8739 				fixbit = 1;	/* Fixed Block Mode */
8740 				count /= un->un_bsize;
8741 			} else {
8742 				fixbit = 0;
8743 			}
8744 			allocbp = bp;
8745 			un->un_lastop = ST_OP_WRITE;
8746 			tval = un->un_dp->io_timeout;
8747 			break;
8748 
8749 		case SCMD_WRITE_FILE_MARK:
8750 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8751 			    "write %"PRId64" file marks\n", count);
8752 			un->un_lastop = ST_OP_WEOF;
8753 			fixbit = 0;
8754 			tval = un->un_dp->io_timeout;
8755 			/*
8756 			 * If ST_SHORT_FILEMARKS bit is ON for EXABYTE
8757 			 * device, set the Vendor Unique bit to
8758 			 * write Short File Mark.
8759 			 */
8760 			if ((un->un_dp->options & ST_SHORT_FILEMARKS) &&
8761 			    ((un->un_dp->type == ST_TYPE_EXB8500) ||
8762 			    (un->un_dp->type == ST_TYPE_EXABYTE))) {
8763 				/*
8764 				 * Now the Vendor Unique bit 7 in Byte 5 of CDB
8765 				 * is set to to write Short File Mark
8766 				 */
8767 				short_fm = 1;
8768 			}
8769 			break;
8770 
8771 		case SCMD_REWIND:
8772 			/*
8773 			 * In the case of rewind we're gona do the rewind with
8774 			 * the immediate bit set so status will be retured when
8775 			 * the command is accepted by the device. We clear the
8776 			 * B_ASYNC flag so we wait for that acceptance.
8777 			 */
8778 			fixbit = 0;
8779 			if (bp->b_flags & B_ASYNC) {
8780 				allocbp = bp;
8781 				if (count) {
8782 					fixbit = 1;
8783 					bp->b_flags &= ~B_ASYNC;
8784 				}
8785 			}
8786 			count = 0;
8787 			bp->b_bcount = 0;
8788 			un->un_lastop = ST_OP_CTL;
8789 			tval = un->un_dp->rewind_timeout;
8790 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8791 			    "rewind\n");
8792 			break;
8793 
8794 		case SCMD_SPACE_G4:
8795 			cdb_len = CDB_GROUP4;
8796 			fixbit = SPACE_TYPE(bp->b_bcount);
8797 			count = SPACE_CNT(bp->b_bcount);
8798 			ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
8799 			    " %s space %s %"PRId64" from file %d blk %d\n",
8800 			    bp->b_bcount & SP_BACKSP ? "backward" : "forward",
8801 			    space_strs[fixbit & 7], count,
8802 			    un->un_pos.fileno, un->un_pos.blkno);
8803 			address = (count >> 48) & 0x1fff;
8804 			additional = (count >> 16) & 0xffffffff;
8805 			count &= 0xffff;
8806 			count <<= 16;
8807 			un->un_lastop = ST_OP_CTL;
8808 			tval = un->un_dp->space_timeout;
8809 			break;
8810 
8811 		case SCMD_SPACE:
8812 			fixbit = SPACE_TYPE(bp->b_bcount);
8813 			count = SPACE_CNT(bp->b_bcount);
8814 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8815 			    " %s space %s %"PRId64" from file %d blk %d\n",
8816 			    bp->b_bcount & SP_BACKSP ? "backward" : "forward",
8817 			    space_strs[fixbit & 7], count,
8818 			    un->un_pos.fileno, un->un_pos.blkno);
8819 			count &= 0xffffffff;
8820 			un->un_lastop = ST_OP_CTL;
8821 			tval = un->un_dp->space_timeout;
8822 			break;
8823 
8824 		case SCMD_LOAD:
8825 			ASSERT(count < 10);
8826 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8827 			    "%s tape\n", load_strs[count]);
8828 			fixbit = 0;
8829 
8830 			/* Loading or Unloading */
8831 			if (count & LD_LOAD) {
8832 				tval = un->un_dp->load_timeout;
8833 			} else {
8834 				tval = un->un_dp->unload_timeout;
8835 			}
8836 			/* Is Retension requested */
8837 			if (count & LD_RETEN) {
8838 				tval += un->un_dp->rewind_timeout;
8839 			}
8840 			un->un_lastop = ST_OP_CTL;
8841 			break;
8842 
8843 		case SCMD_ERASE:
8844 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8845 			    "erase tape\n");
8846 			ASSERT(count == 1); /* mt sets this */
8847 			if (count == 1) {
8848 				/*
8849 				 * do long erase
8850 				 */
8851 				fixbit = 1; /* Long */
8852 
8853 				/* Drive might not honor immidiate bit */
8854 				tval = un->un_dp->erase_timeout;
8855 			} else {
8856 				/* Short Erase */
8857 				tval = un->un_dp->erase_timeout;
8858 				fixbit = 0;
8859 			}
8860 			un->un_lastop = ST_OP_CTL;
8861 			count = 0;
8862 			break;
8863 
8864 		case SCMD_MODE_SENSE:
8865 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8866 			    "mode sense\n");
8867 			allocbp = bp;
8868 			fixbit = 0;
8869 			tval = un->un_dp->non_motion_timeout;
8870 			un->un_lastop = ST_OP_CTL;
8871 			break;
8872 
8873 		case SCMD_MODE_SELECT:
8874 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8875 			    "mode select\n");
8876 			allocbp = bp;
8877 			fixbit = 0;
8878 			tval = un->un_dp->non_motion_timeout;
8879 			un->un_lastop = ST_OP_CTL;
8880 			break;
8881 
8882 		case SCMD_RESERVE:
8883 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8884 			    "reserve\n");
8885 			fixbit = 0;
8886 			tval = un->un_dp->non_motion_timeout;
8887 			un->un_lastop = ST_OP_CTL;
8888 			break;
8889 
8890 		case SCMD_RELEASE:
8891 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8892 			    "release\n");
8893 			fixbit = 0;
8894 			tval = un->un_dp->non_motion_timeout;
8895 			un->un_lastop = ST_OP_CTL;
8896 			break;
8897 
8898 		case SCMD_READ_BLKLIM:
8899 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8900 			    "read block limits\n");
8901 			allocbp = bp;
8902 			fixbit = count = 0;
8903 			tval = un->un_dp->non_motion_timeout;
8904 			un->un_lastop = ST_OP_CTL;
8905 			break;
8906 
8907 		case SCMD_TEST_UNIT_READY:
8908 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8909 			    "test unit ready\n");
8910 			fixbit = 0;
8911 			tval = un->un_dp->non_motion_timeout;
8912 			un->un_lastop = ST_OP_CTL;
8913 			break;
8914 
8915 		case SCMD_DOORLOCK:
8916 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8917 			    "prevent/allow media removal\n");
8918 			fixbit = 0;
8919 			tval = un->un_dp->non_motion_timeout;
8920 			un->un_lastop = ST_OP_CTL;
8921 			break;
8922 
8923 		case SCMD_READ_POSITION:
8924 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
8925 			    "read position\n");
8926 			fixbit = un->un_read_pos_type;
8927 			cdb_len = CDB_GROUP1;
8928 			tval = un->un_dp->non_motion_timeout;
8929 			allocbp = bp;
8930 			un->un_lastop = ST_OP_CTL;
8931 			switch (un->un_read_pos_type) {
8932 			case LONG_POS:
8933 				count = 0;
8934 				break;
8935 			case EXT_POS:
8936 				count = sizeof (tape_position_ext_t);
8937 				break;
8938 			case SHORT_POS:
8939 				count = 0;
8940 				break;
8941 			default:
8942 				ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
8943 				    "Unknown read position type 0x%x in "
8944 				    " st_make_cmd()\n", un->un_read_pos_type);
8945 			}
8946 			break;
8947 
8948 		default:
8949 			ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
8950 			    "Unhandled scsi command 0x%x in st_make_cmd()\n",
8951 			    com);
8952 		}
8953 
8954 		pkt = scsi_init_pkt(ROUTE, NULL, allocbp, cdb_len, stat_size,
8955 		    st_recov_sz, 0, func, (caddr_t)un);
8956 		if (pkt == NULL) {
8957 			scsi_log(ST_DEVINFO, st_label, CE_NOTE,
8958 			    "generic command scsi_init_pkt() failure\n");
8959 			goto exit;
8960 		}
8961 
8962 		ASSERT(pkt->pkt_resid == 0);
8963 #ifdef STDEBUG
8964 		bzero(pkt->pkt_private, st_recov_sz);
8965 		bzero(pkt->pkt_scbp, stat_size);
8966 #endif
8967 		ri = (recov_info *)pkt->pkt_private;
8968 		ri->privatelen = st_recov_sz;
8969 		if (allocbp) {
8970 			ASSERT(geterror(allocbp) == 0);
8971 		}
8972 
8973 	}
8974 
8975 	ucdb = (union scsi_cdb *)pkt->pkt_cdbp;
8976 
8977 	(void) scsi_setup_cdb(ucdb, com, address, (uint_t)count, additional);
8978 	FILL_SCSI1_LUN(un->un_sd, pkt);
8979 	/*
8980 	 * Initialize the SILI/Fixed bits of the byte 1 of cdb.
8981 	 */
8982 	ucdb->t_code = fixbit;
8983 	ucdb->g0_vu_1 = short_fm;
8984 	pkt->pkt_flags = flags;
8985 
8986 	ASSERT(tval);
8987 	pkt->pkt_time = tval;
8988 	if (bp == un->un_recov_buf) {
8989 		pkt->pkt_comp = st_recov_cb;
8990 	} else {
8991 		pkt->pkt_comp = st_intr;
8992 	}
8993 
8994 	st_add_recovery_info_to_pkt(un, bp, pkt);
8995 
8996 	/*
8997 	 * If we just write data to tape and did a command that doesn't
8998 	 * change position, we still need to write a filemark.
8999 	 */
9000 	if ((prev_op == ST_OP_WRITE) || (prev_op == ST_OP_WEOF)) {
9001 		recov_info *rcvi = pkt->pkt_private;
9002 		cmd_attribute const *atrib;
9003 
9004 		if (rcvi->privatelen == sizeof (recov_info)) {
9005 			atrib = rcvi->cmd_attrib;
9006 		} else {
9007 			atrib = st_lookup_cmd_attribute(com);
9008 		}
9009 		if (atrib->chg_tape_direction == DIR_NONE) {
9010 			un->un_lastop = prev_op;
9011 		}
9012 	}
9013 
9014 exit:
9015 	ASSERT(mutex_owned(ST_MUTEX));
9016 }
9017 
9018 
9019 /*
9020  * Build a command based on a uscsi command;
9021  */
9022 static void
st_make_uscsi_cmd(struct scsi_tape * un,struct uscsi_cmd * ucmd,struct buf * bp,int (* func)(caddr_t))9023 st_make_uscsi_cmd(struct scsi_tape *un, struct uscsi_cmd *ucmd,
9024     struct buf *bp, int (*func)(caddr_t))
9025 {
9026 	struct scsi_pkt *pkt;
9027 	recov_info *ri;
9028 	caddr_t cdb;
9029 	int	cdblen;
9030 	int	stat_size = 1;
9031 	int	flags = 0;
9032 
9033 	ST_FUNC(ST_DEVINFO, st_make_uscsi_cmd);
9034 
9035 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
9036 	    "st_make_uscsi_cmd(): dev = 0x%lx\n", un->un_dev);
9037 
9038 	if (ucmd->uscsi_flags & USCSI_RQENABLE) {
9039 		if (un->un_arq_enabled) {
9040 			if (ucmd->uscsi_rqlen > SENSE_LENGTH) {
9041 				stat_size = (int)(ucmd->uscsi_rqlen) +
9042 				    sizeof (struct scsi_arq_status) -
9043 				    sizeof (struct scsi_extended_sense);
9044 				flags = PKT_XARQ;
9045 			} else {
9046 				stat_size = sizeof (struct scsi_arq_status);
9047 			}
9048 		}
9049 	}
9050 
9051 	ASSERT(mutex_owned(ST_MUTEX));
9052 
9053 	cdb = ucmd->uscsi_cdb;
9054 	cdblen = ucmd->uscsi_cdblen;
9055 
9056 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
9057 	    "st_make_uscsi_cmd: buflen=%ld bcount=%ld\n",
9058 	    ucmd->uscsi_buflen, bp->b_bcount);
9059 	pkt = scsi_init_pkt(ROUTE, NULL,
9060 	    (bp->b_bcount > 0) ? bp : NULL,
9061 	    cdblen, stat_size, st_recov_sz, flags, func, (caddr_t)un);
9062 	if (pkt == NULL) {
9063 		scsi_log(ST_DEVINFO, st_label, CE_NOTE,
9064 		    "uscsi command scsi_init_pkt() failure\n");
9065 		goto exit;
9066 	}
9067 
9068 	ASSERT(pkt->pkt_resid == 0);
9069 #ifdef STDEBUG
9070 	bzero(pkt->pkt_private, st_recov_sz);
9071 	bzero(pkt->pkt_scbp, stat_size);
9072 #endif
9073 	ri = (recov_info *)pkt->pkt_private;
9074 	ri->privatelen = st_recov_sz;
9075 
9076 	bcopy(cdb, pkt->pkt_cdbp, (uint_t)cdblen);
9077 
9078 #ifdef STDEBUG
9079 	if ((st_debug & 0x7) >= 6) {
9080 		st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG,
9081 		    "pkt_cdbp", (char *)cdb, cdblen);
9082 	}
9083 #endif
9084 
9085 	if (ucmd->uscsi_flags & USCSI_SILENT) {
9086 		pkt->pkt_flags |= FLAG_SILENT;
9087 	}
9088 
9089 	(void) scsi_uscsi_pktinit(ucmd, pkt);
9090 
9091 	pkt->pkt_time = ucmd->uscsi_timeout;
9092 	if (bp == un->un_recov_buf) {
9093 		pkt->pkt_comp = st_recov_cb;
9094 	} else {
9095 		pkt->pkt_comp = st_intr;
9096 	}
9097 
9098 	st_add_recovery_info_to_pkt(un, bp, pkt);
9099 exit:
9100 	ASSERT(mutex_owned(ST_MUTEX));
9101 }
9102 
9103 
9104 /*
9105  * restart cmd currently at the head of the runq
9106  *
9107  * If scsi_transport() succeeds or the retries
9108  * count exhausted, restore the throttle that was
9109  * zeroed out in st_handle_intr_busy().
9110  *
9111  */
9112 static void
st_intr_restart(void * arg)9113 st_intr_restart(void *arg)
9114 {
9115 	struct scsi_tape *un = arg;
9116 	struct buf *bp;
9117 	int queued;
9118 	int status = TRAN_ACCEPT;
9119 
9120 	mutex_enter(ST_MUTEX);
9121 
9122 	ST_FUNC(ST_DEVINFO, st_intr_restart);
9123 
9124 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
9125 	    "st_intr_restart(), un = 0x%p\n", (void *)un);
9126 
9127 	un->un_hib_tid = 0;
9128 
9129 	if (un->un_recov_buf_busy != 0) {
9130 		bp = un->un_recov_buf;
9131 		queued = 0;
9132 	} else if (un->un_sbuf_busy != 0) {
9133 		bp = un->un_sbufp;
9134 		queued = 0;
9135 	} else if (un->un_quef != NULL) {
9136 		bp = un->un_quef;
9137 		queued = 1;
9138 	} else {
9139 		mutex_exit(ST_MUTEX);
9140 		return;
9141 	}
9142 
9143 	/*
9144 	 * Here we know :
9145 	 *	throttle = 0, via st_handle_intr_busy
9146 	 */
9147 
9148 	if (queued) {
9149 		/*
9150 		 * move from waitq to runq, if there is anything on the waitq
9151 		 */
9152 		(void) st_remove_from_queue(&un->un_quef, &un->un_quef, bp);
9153 
9154 		if (un->un_runqf) {
9155 			/*
9156 			 * not good, we don't want to requeue something after
9157 			 * another.
9158 			 */
9159 			goto done_error;
9160 		} else {
9161 			un->un_runqf = bp;
9162 			un->un_runql = bp;
9163 		}
9164 	}
9165 
9166 	ST_CDB(ST_DEVINFO, "Interrupt restart CDB",
9167 	    (char *)BP_PKT(bp)->pkt_cdbp);
9168 
9169 	ST_DO_KSTATS(bp, kstat_waitq_to_runq);
9170 
9171 	status = st_transport(un, BP_PKT(bp));
9172 
9173 	if (status != TRAN_ACCEPT) {
9174 		ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
9175 
9176 		if (status == TRAN_BUSY) {
9177 			pkt_info *pkti = BP_PKT(bp)->pkt_private;
9178 
9179 			if (pkti->privatelen == sizeof (recov_info) &&
9180 			    un->un_unit_attention_flags &&
9181 			    bp != un->un_recov_buf) {
9182 			un->un_unit_attention_flags = 0;
9183 				ST_RECOV(ST_DEVINFO, st_label, CE_WARN,
9184 				    "Command Recovery called on busy resend\n");
9185 				if (st_command_recovery(un, BP_PKT(bp),
9186 				    ATTEMPT_RETRY) == JUST_RETURN) {
9187 					mutex_exit(ST_MUTEX);
9188 					return;
9189 				}
9190 			}
9191 			mutex_exit(ST_MUTEX);
9192 			if (st_handle_intr_busy(un, bp,
9193 			    ST_TRAN_BUSY_TIMEOUT) == 0)
9194 				return;	/* timeout is setup again */
9195 			mutex_enter(ST_MUTEX);
9196 		}
9197 
9198 done_error:
9199 		ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
9200 		    "restart transport rejected\n");
9201 		bp->b_resid = bp->b_bcount;
9202 
9203 		if (un->un_last_throttle) {
9204 			un->un_throttle = un->un_last_throttle;
9205 		}
9206 		if (status != TRAN_ACCEPT) {
9207 			ST_DO_ERRSTATS(un, st_transerrs);
9208 		}
9209 		ST_DO_KSTATS(bp, kstat_waitq_exit);
9210 		ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
9211 		    "busy restart aborted\n");
9212 		st_set_pe_flag(un);
9213 		st_bioerror(bp, EIO);
9214 		st_done_and_mutex_exit(un, bp);
9215 	} else {
9216 		if (un->un_last_throttle) {
9217 			un->un_throttle = un->un_last_throttle;
9218 		}
9219 		mutex_exit(ST_MUTEX);
9220 	}
9221 }
9222 
9223 /*
9224  * st_check_media():
9225  * Periodically check the media state using scsi_watch service;
9226  * this service calls back after TUR and possibly request sense
9227  * the callback handler (st_media_watch_cb()) decodes the request sense
9228  * data (if any)
9229  */
9230 
9231 static int
st_check_media(dev_t dev,enum mtio_state state)9232 st_check_media(dev_t dev, enum mtio_state state)
9233 {
9234 	int rval = 0;
9235 	enum mtio_state	prev_state;
9236 	opaque_t token = NULL;
9237 
9238 	GET_SOFT_STATE(dev);
9239 
9240 	ST_FUNC(ST_DEVINFO, st_check_media);
9241 
9242 	mutex_enter(ST_MUTEX);
9243 
9244 	ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9245 	    "st_check_media:state=%x, mediastate=%x\n",
9246 	    state, un->un_mediastate);
9247 
9248 	prev_state = un->un_mediastate;
9249 
9250 	/*
9251 	 * is there anything to do?
9252 	 */
9253 retry:
9254 	if (state == un->un_mediastate || un->un_mediastate == MTIO_NONE) {
9255 		/*
9256 		 * submit the request to the scsi_watch service;
9257 		 * scsi_media_watch_cb() does the real work
9258 		 */
9259 		mutex_exit(ST_MUTEX);
9260 		token = scsi_watch_request_submit(ST_SCSI_DEVP,
9261 		    st_check_media_time, SENSE_LENGTH,
9262 		    st_media_watch_cb, (caddr_t)dev);
9263 		if (token == NULL) {
9264 			rval = EAGAIN;
9265 			goto done;
9266 		}
9267 		mutex_enter(ST_MUTEX);
9268 
9269 		un->un_swr_token = token;
9270 		un->un_specified_mediastate = state;
9271 
9272 		/*
9273 		 * now wait for media change
9274 		 * we will not be signalled unless mediastate == state but it
9275 		 * still better to test for this condition, since there
9276 		 * is a 5 sec cv_broadcast delay when
9277 		 *  mediastate == MTIO_INSERTED
9278 		 */
9279 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9280 		    "st_check_media:waiting for media state change\n");
9281 		while (un->un_mediastate == state) {
9282 			if (cv_wait_sig(&un->un_state_cv, ST_MUTEX) == 0) {
9283 				mutex_exit(ST_MUTEX);
9284 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9285 				    "st_check_media:waiting for media state "
9286 				    "was interrupted\n");
9287 				rval = EINTR;
9288 				goto done;
9289 			}
9290 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9291 			    "st_check_media:received signal, state=%x\n",
9292 			    un->un_mediastate);
9293 		}
9294 	}
9295 
9296 	/*
9297 	 * if we transitioned to MTIO_INSERTED, media has really been
9298 	 * inserted.  If TUR fails, it is probably a exabyte slow spin up.
9299 	 * Reset and retry the state change.  If everything is ok, replay
9300 	 * the open() logic.
9301 	 */
9302 	if ((un->un_mediastate == MTIO_INSERTED) &&
9303 	    (un->un_state == ST_STATE_OFFLINE)) {
9304 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9305 		    "st_check_media: calling st_cmd to confirm inserted\n");
9306 
9307 		/*
9308 		 * set this early so that TUR will make it through strategy
9309 		 * without triggering a st_tape_init().  We needed it set
9310 		 * before calling st_tape_init() ourselves anyway.  If TUR
9311 		 * fails, set it back
9312 		 */
9313 		un->un_state = ST_STATE_INITIALIZING;
9314 
9315 		/*
9316 		 * If not reserved fail as getting reservation conflict
9317 		 * will make this hang forever.
9318 		 */
9319 		if ((un->un_rsvd_status &
9320 		    (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) == 0) {
9321 			mutex_exit(ST_MUTEX);
9322 			rval = EACCES;
9323 			goto done;
9324 		}
9325 		rval = st_cmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
9326 		if (rval == EACCES) {
9327 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9328 			    "st_check_media: TUR got Reservation Conflict\n");
9329 			mutex_exit(ST_MUTEX);
9330 			goto done;
9331 		}
9332 		if (rval) {
9333 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9334 			    "st_check_media: TUR failed, going to retry\n");
9335 			un->un_mediastate = prev_state;
9336 			un->un_state = ST_STATE_OFFLINE;
9337 			goto retry;
9338 		}
9339 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9340 		    "st_check_media: media inserted\n");
9341 
9342 		/* this also rewinds the tape */
9343 		rval = st_tape_init(un);
9344 		if (rval != 0) {
9345 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9346 			    "st_check_media : OFFLINE init failure ");
9347 			un->un_state = ST_STATE_OFFLINE;
9348 			un->un_pos.pmode = invalid;
9349 		} else {
9350 			un->un_state = ST_STATE_OPEN_PENDING_IO;
9351 		}
9352 	} else if ((un->un_mediastate == MTIO_EJECTED) &&
9353 	    (un->un_state != ST_STATE_OFFLINE)) {
9354 		/*
9355 		 * supported devices must be rewound before ejection
9356 		 * rewind resets fileno & blkno
9357 		 */
9358 		un->un_laststate = un->un_state;
9359 		un->un_state = ST_STATE_OFFLINE;
9360 	}
9361 	mutex_exit(ST_MUTEX);
9362 done:
9363 	if (token) {
9364 		(void) scsi_watch_request_terminate(token,
9365 		    SCSI_WATCH_TERMINATE_WAIT);
9366 		mutex_enter(ST_MUTEX);
9367 		un->un_swr_token = (opaque_t)NULL;
9368 		mutex_exit(ST_MUTEX);
9369 	}
9370 
9371 	ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG, "st_check_media: done\n");
9372 
9373 	return (rval);
9374 }
9375 
9376 /*
9377  * st_media_watch_cb() is called by scsi_watch_thread for
9378  * verifying the request sense data (if any)
9379  */
9380 static int
st_media_watch_cb(caddr_t arg,struct scsi_watch_result * resultp)9381 st_media_watch_cb(caddr_t arg, struct scsi_watch_result *resultp)
9382 {
9383 	struct scsi_status *statusp = resultp->statusp;
9384 	struct scsi_extended_sense *sensep = resultp->sensep;
9385 	uchar_t actual_sense_length = resultp->actual_sense_length;
9386 	struct scsi_tape *un;
9387 	enum mtio_state state = MTIO_NONE;
9388 	int instance;
9389 	dev_t dev = (dev_t)arg;
9390 
9391 	instance = MTUNIT(dev);
9392 	if ((un = ddi_get_soft_state(st_state, instance)) == NULL) {
9393 		return (-1);
9394 	}
9395 
9396 	mutex_enter(ST_MUTEX);
9397 	ST_FUNC(ST_DEVINFO, st_media_watch_cb);
9398 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
9399 	    "st_media_watch_cb: status=%x, sensep=%p, len=%x\n",
9400 	    *((char *)statusp), (void *)sensep,
9401 	    actual_sense_length);
9402 
9403 
9404 	/*
9405 	 * if there was a check condition then sensep points to valid
9406 	 * sense data
9407 	 * if status was not a check condition but a reservation or busy
9408 	 * status then the new state is MTIO_NONE
9409 	 */
9410 	if (sensep) {
9411 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9412 		    "st_media_watch_cb: KEY=%x, ASC=%x, ASCQ=%x\n",
9413 		    sensep->es_key, sensep->es_add_code, sensep->es_qual_code);
9414 
9415 		switch (un->un_dp->type) {
9416 		default:
9417 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9418 			    "st_media_watch_cb: unknown drive type %d, "
9419 			    "default to ST_TYPE_HP\n", un->un_dp->type);
9420 		/* FALLTHROUGH */
9421 
9422 		case ST_TYPE_STC3490:	/* STK 4220 1/2" cartridge */
9423 		case ST_TYPE_FUJI:	/* 1/2" cartridge */
9424 		case ST_TYPE_HP:	/* HP 88780 1/2" reel */
9425 			if (un->un_dp->type == ST_TYPE_FUJI) {
9426 				ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9427 				    "st_media_watch_cb: ST_TYPE_FUJI\n");
9428 			} else {
9429 				ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9430 				    "st_media_watch_cb: ST_TYPE_HP\n");
9431 			}
9432 			switch (sensep->es_key) {
9433 			case KEY_UNIT_ATTENTION:
9434 				/* not ready to ready transition */
9435 				/* hp/es_qual_code == 80 on>off>on */
9436 				/* hp/es_qual_code == 0 on>off>unld>ld>on */
9437 				if (sensep->es_add_code == 0x28) {
9438 					state = MTIO_INSERTED;
9439 				}
9440 				break;
9441 			case KEY_NOT_READY:
9442 				/* in process, rewinding or loading */
9443 				if ((sensep->es_add_code == 0x04) &&
9444 				    (sensep->es_qual_code == 0x00)) {
9445 					state = MTIO_EJECTED;
9446 				}
9447 				break;
9448 			}
9449 			break;
9450 
9451 		case ST_TYPE_EXB8500:	/* Exabyte 8500 */
9452 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9453 			    "st_media_watch_cb: ST_TYPE_EXB8500\n");
9454 			switch (sensep->es_key) {
9455 			case KEY_UNIT_ATTENTION:
9456 				/* operator medium removal request */
9457 				if ((sensep->es_add_code == 0x5a) &&
9458 				    (sensep->es_qual_code == 0x01)) {
9459 					state = MTIO_EJECTED;
9460 				/* not ready to ready transition */
9461 				} else if ((sensep->es_add_code == 0x28) &&
9462 				    (sensep->es_qual_code == 0x00)) {
9463 					state = MTIO_INSERTED;
9464 				}
9465 				break;
9466 			case KEY_NOT_READY:
9467 				/* medium not present */
9468 				if (sensep->es_add_code == 0x3a) {
9469 					state = MTIO_EJECTED;
9470 				}
9471 				break;
9472 			}
9473 			break;
9474 		case ST_TYPE_EXABYTE:	/* Exabyte 8200 */
9475 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9476 			    "st_media_watch_cb: ST_TYPE_EXABYTE\n");
9477 			switch (sensep->es_key) {
9478 			case KEY_NOT_READY:
9479 				if ((sensep->es_add_code == 0x04) &&
9480 				    (sensep->es_qual_code == 0x00)) {
9481 					/* volume not mounted? */
9482 					state = MTIO_EJECTED;
9483 				} else if (sensep->es_add_code == 0x3a) {
9484 					state = MTIO_EJECTED;
9485 				}
9486 				break;
9487 			case KEY_UNIT_ATTENTION:
9488 				state = MTIO_EJECTED;
9489 				break;
9490 			}
9491 			break;
9492 
9493 		case ST_TYPE_DLT:		/* quantum DLT4xxx */
9494 			switch (sensep->es_key) {
9495 			case KEY_UNIT_ATTENTION:
9496 				if (sensep->es_add_code == 0x28) {
9497 					state = MTIO_INSERTED;
9498 				}
9499 				break;
9500 			case KEY_NOT_READY:
9501 				if (sensep->es_add_code == 0x04) {
9502 					/* in transition but could be either */
9503 					state = un->un_specified_mediastate;
9504 				} else if ((sensep->es_add_code == 0x3a) &&
9505 				    (sensep->es_qual_code == 0x00)) {
9506 					state = MTIO_EJECTED;
9507 				}
9508 				break;
9509 			}
9510 			break;
9511 		}
9512 	} else if (*((char *)statusp) == STATUS_GOOD) {
9513 		state = MTIO_INSERTED;
9514 	}
9515 
9516 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9517 	    "st_media_watch_cb:state=%x, specified=%x\n",
9518 	    state, un->un_specified_mediastate);
9519 
9520 	/*
9521 	 * now signal the waiting thread if this is *not* the specified state;
9522 	 * delay the signal if the state is MTIO_INSERTED
9523 	 * to allow the target to recover
9524 	 */
9525 	if (state != un->un_specified_mediastate) {
9526 		un->un_mediastate = state;
9527 		if (state == MTIO_INSERTED) {
9528 			/*
9529 			 * delay the signal to give the drive a chance
9530 			 * to do what it apparently needs to do
9531 			 */
9532 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9533 			    "st_media_watch_cb:delayed cv_broadcast\n");
9534 			un->un_delay_tid = timeout(st_delayed_cv_broadcast,
9535 			    un, drv_usectohz((clock_t)MEDIA_ACCESS_DELAY));
9536 		} else {
9537 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
9538 			    "st_media_watch_cb:immediate cv_broadcast\n");
9539 			cv_broadcast(&un->un_state_cv);
9540 		}
9541 	}
9542 	mutex_exit(ST_MUTEX);
9543 	return (0);
9544 }
9545 
9546 /*
9547  * delayed cv_broadcast to allow for target to recover
9548  * from media insertion
9549  */
9550 static void
st_delayed_cv_broadcast(void * arg)9551 st_delayed_cv_broadcast(void *arg)
9552 {
9553 	struct scsi_tape *un = arg;
9554 
9555 	ST_FUNC(ST_DEVINFO, st_delayed_cv_broadcast);
9556 
9557 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
9558 	    "st_delayed_cv_broadcast:delayed cv_broadcast\n");
9559 
9560 	mutex_enter(ST_MUTEX);
9561 	cv_broadcast(&un->un_state_cv);
9562 	mutex_exit(ST_MUTEX);
9563 }
9564 
9565 /*
9566  * restart cmd currently at the start of the waitq
9567  */
9568 static void
st_start_restart(void * arg)9569 st_start_restart(void *arg)
9570 {
9571 	struct scsi_tape *un = arg;
9572 
9573 	ST_FUNC(ST_DEVINFO, st_start_restart);
9574 
9575 	ASSERT(un != NULL);
9576 
9577 	mutex_enter(ST_MUTEX);
9578 
9579 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_tran_restart()\n");
9580 
9581 	st_start(un);
9582 
9583 	mutex_exit(ST_MUTEX);
9584 }
9585 
9586 
9587 /*
9588  * Command completion processing
9589  *
9590  */
9591 static void
st_intr(struct scsi_pkt * pkt)9592 st_intr(struct scsi_pkt *pkt)
9593 {
9594 	recov_info *rcv = pkt->pkt_private;
9595 	struct buf *bp = rcv->cmd_bp;
9596 	struct scsi_tape *un;
9597 	errstate action = COMMAND_DONE;
9598 	clock_t	timout;
9599 	int	status;
9600 
9601 	un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
9602 
9603 	ST_FUNC(ST_DEVINFO, st_intr);
9604 
9605 	ASSERT(un != NULL);
9606 
9607 	mutex_enter(ST_MUTEX);
9608 
9609 	ASSERT(bp != un->un_recov_buf);
9610 
9611 	un->un_rqs_state &= ~(ST_RQS_ERROR);
9612 
9613 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_intr()\n");
9614 
9615 	if (pkt->pkt_reason != CMD_CMPLT) {
9616 		ST_DEBUG(ST_DEVINFO, st_label, CE_WARN,
9617 		    "Unhappy packet status reason = %s statistics = 0x%x\n",
9618 		    scsi_rname(pkt->pkt_reason), pkt->pkt_statistics);
9619 
9620 		/* If device has gone away not much else to do */
9621 		if (pkt->pkt_reason == CMD_DEV_GONE) {
9622 			action = COMMAND_DONE_ERROR;
9623 		} else if ((pkt == un->un_rqs) ||
9624 		    (un->un_state == ST_STATE_SENSING)) {
9625 			ASSERT(pkt == un->un_rqs);
9626 			ASSERT(un->un_state == ST_STATE_SENSING);
9627 			un->un_state = un->un_laststate;
9628 			rcv->cmd_bp = un->un_rqs_bp;
9629 			ST_DO_ERRSTATS(un, st_transerrs);
9630 			action = COMMAND_DONE_ERROR;
9631 		} else {
9632 			action = st_handle_incomplete(un, bp);
9633 		}
9634 	/*
9635 	 * At this point we know that the command was successfully
9636 	 * completed. Now what?
9637 	 */
9638 	} else if ((pkt == un->un_rqs) || (un->un_state == ST_STATE_SENSING)) {
9639 		/*
9640 		 * okay. We were running a REQUEST SENSE. Find
9641 		 * out what to do next.
9642 		 */
9643 		ASSERT(pkt == un->un_rqs);
9644 		ASSERT(un->un_state == ST_STATE_SENSING);
9645 		scsi_sync_pkt(pkt);
9646 		action = st_handle_sense(un, bp, &un->un_pos);
9647 		/*
9648 		 * Make rqs isn't going to be retied.
9649 		 */
9650 		if (action != QUE_BUSY_COMMAND && action != QUE_COMMAND) {
9651 			/*
9652 			 * set pkt back to original packet in case we will have
9653 			 * to requeue it
9654 			 */
9655 			pkt = BP_PKT(bp);
9656 			rcv->cmd_bp = un->un_rqs_bp;
9657 			/*
9658 			 * some actions are based on un_state, hence
9659 			 * restore the state st was in before ST_STATE_SENSING.
9660 			 */
9661 			un->un_state = un->un_laststate;
9662 		}
9663 
9664 	} else if (un->un_arq_enabled && (pkt->pkt_state & STATE_ARQ_DONE)) {
9665 		/*
9666 		 * the transport layer successfully completed an autorqsense
9667 		 */
9668 		action = st_handle_autosense(un, bp, &un->un_pos);
9669 
9670 	} else  if ((SCBP(pkt)->sts_busy) ||
9671 	    (SCBP(pkt)->sts_chk) ||
9672 	    (SCBP(pkt)->sts_vu7)) {
9673 		/*
9674 		 * Okay, we weren't running a REQUEST SENSE. Call a routine
9675 		 * to see if the status bits we're okay. If a request sense
9676 		 * is to be run, that will happen.
9677 		 */
9678 		action = st_check_error(un, pkt);
9679 	}
9680 
9681 	if (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
9682 		switch (action) {
9683 			case QUE_COMMAND:
9684 				/*
9685 				 * return cmd to head to the queue
9686 				 * since we are suspending so that
9687 				 * it gets restarted during resume
9688 				 */
9689 				st_add_to_queue(&un->un_runqf, &un->un_runql,
9690 				    un->un_runqf, bp);
9691 
9692 				action = JUST_RETURN;
9693 				break;
9694 
9695 			case QUE_SENSE:
9696 				action = COMMAND_DONE_ERROR;
9697 				break;
9698 
9699 			default:
9700 				break;
9701 		}
9702 	}
9703 
9704 	/*
9705 	 * check for undetected path failover.
9706 	 */
9707 	if (un->un_multipath) {
9708 
9709 		struct uscsi_cmd *ucmd = BP_UCMD(bp);
9710 		int pkt_valid = 0;
9711 
9712 		if (ucmd) {
9713 			/*
9714 			 * Also copies path instance to the uscsi structure.
9715 			 */
9716 			pkt_valid = scsi_uscsi_pktfini(pkt, ucmd);
9717 
9718 			/*
9719 			 * scsi_uscsi_pktfini() zeros pkt_path_instance.
9720 			 */
9721 			pkt->pkt_path_instance = ucmd->uscsi_path_instance;
9722 		} else {
9723 			pkt_valid = scsi_pkt_allocated_correctly(pkt);
9724 		}
9725 
9726 		/*
9727 		 * If the scsi_pkt was not allocated correctly the
9728 		 * pkt_path_instance is not even there.
9729 		 */
9730 		if ((pkt_valid != 0) &&
9731 		    (un->un_last_path_instance != pkt->pkt_path_instance)) {
9732 			/*
9733 			 * Don't recover the path change if it was done
9734 			 * intentionally or if the device has not completely
9735 			 * opened yet.
9736 			 */
9737 			if (((pkt->pkt_flags & FLAG_PKT_PATH_INSTANCE) == 0) &&
9738 			    (un->un_state > ST_STATE_OPENING)) {
9739 				ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
9740 				    "Failover detected, action is %s\n",
9741 				    errstatenames[action]);
9742 				if (action == COMMAND_DONE) {
9743 					action = PATH_FAILED;
9744 				}
9745 			}
9746 			un->un_last_path_instance = pkt->pkt_path_instance;
9747 		}
9748 	}
9749 
9750 	/*
9751 	 * Restore old state if we were sensing.
9752 	 */
9753 	if (un->un_state == ST_STATE_SENSING && action != QUE_SENSE) {
9754 		un->un_state = un->un_laststate;
9755 	}
9756 
9757 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
9758 	    "st_intr: pkt=%p, bp=%p, action=%s, status=%x\n",
9759 	    (void *)pkt, (void *)bp, errstatenames[action], SCBP_C(pkt));
9760 
9761 again:
9762 	switch (action) {
9763 	case COMMAND_DONE_EACCES:
9764 		/* this is to report a reservation conflict */
9765 		st_bioerror(bp, EACCES);
9766 		ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
9767 		    "Reservation Conflict \n");
9768 		un->un_pos.pmode = invalid;
9769 
9770 		/*FALLTHROUGH*/
9771 	case COMMAND_DONE_ERROR:
9772 		if (un->un_pos.eof < ST_EOT_PENDING &&
9773 		    un->un_state >= ST_STATE_OPEN) {
9774 			/*
9775 			 * all errors set state of the tape to 'unknown'
9776 			 * unless we're at EOT or are doing append testing.
9777 			 * If sense key was illegal request, preserve state.
9778 			 */
9779 			if (un->un_status != KEY_ILLEGAL_REQUEST) {
9780 				un->un_pos.pmode = invalid;
9781 			}
9782 		}
9783 
9784 		un->un_err_resid = bp->b_resid = bp->b_bcount;
9785 		/*
9786 		 * since we have an error (COMMAND_DONE_ERROR), we want to
9787 		 * make sure an error ocurrs, so make sure at least EIO is
9788 		 * returned
9789 		 */
9790 		if (geterror(bp) == 0)
9791 			st_bioerror(bp, EIO);
9792 
9793 		st_set_pe_flag(un);
9794 		if (!(un->un_rqs_state & ST_RQS_ERROR) &&
9795 		    (un->un_errno == EIO)) {
9796 			un->un_rqs_state &= ~(ST_RQS_VALID);
9797 		}
9798 		break;
9799 
9800 	case COMMAND_DONE_ERROR_RECOVERED:
9801 		un->un_err_resid = bp->b_resid = bp->b_bcount;
9802 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
9803 		    "st_intr(): COMMAND_DONE_ERROR_RECOVERED");
9804 		if (geterror(bp) == 0) {
9805 			st_bioerror(bp, EIO);
9806 		}
9807 		st_set_pe_flag(un);
9808 		if (!(un->un_rqs_state & ST_RQS_ERROR) &&
9809 		    (un->un_errno == EIO)) {
9810 			un->un_rqs_state &= ~(ST_RQS_VALID);
9811 		}
9812 		/*FALLTHROUGH*/
9813 	case COMMAND_DONE:
9814 		st_set_state(un, bp);
9815 		break;
9816 
9817 	case QUE_SENSE:
9818 		if ((un->un_ncmds > 1) && !un->un_flush_on_errors)
9819 			goto sense_error;
9820 
9821 		if (un->un_state != ST_STATE_SENSING) {
9822 			un->un_laststate = un->un_state;
9823 			un->un_state = ST_STATE_SENSING;
9824 		}
9825 
9826 		/*
9827 		 * zero the sense data.
9828 		 */
9829 		bzero(un->un_rqs->pkt_scbp, SENSE_LENGTH);
9830 
9831 		/*
9832 		 * If this is not a retry on QUE_SENSE point to the original
9833 		 * bp of the command that got us here.
9834 		 */
9835 		if (pkt != un->un_rqs) {
9836 			((recov_info *)un->un_rqs->pkt_private)->cmd_bp = bp;
9837 		}
9838 
9839 		if (un->un_throttle) {
9840 			un->un_last_throttle = un->un_throttle;
9841 			un->un_throttle = 0;
9842 		}
9843 
9844 		ST_CDB(ST_DEVINFO, "Queue sense CDB",
9845 		    (char *)BP_PKT(bp)->pkt_cdbp);
9846 
9847 		/*
9848 		 * never retry this, some other command will have nuked the
9849 		 * sense, anyway
9850 		 */
9851 		status = st_transport(un, un->un_rqs);
9852 
9853 		if (un->un_last_throttle) {
9854 			un->un_throttle = un->un_last_throttle;
9855 		}
9856 
9857 		if (status == TRAN_ACCEPT) {
9858 			mutex_exit(ST_MUTEX);
9859 			return;
9860 		}
9861 		if (status != TRAN_BUSY)
9862 			ST_DO_ERRSTATS(un, st_transerrs);
9863 sense_error:
9864 		un->un_pos.pmode = invalid;
9865 		st_bioerror(bp, EIO);
9866 		st_set_pe_flag(un);
9867 		break;
9868 
9869 	case QUE_BUSY_COMMAND:
9870 		/* longish timeout */
9871 		timout = ST_STATUS_BUSY_TIMEOUT;
9872 		goto que_it_up;
9873 
9874 	case QUE_COMMAND:
9875 		/* short timeout */
9876 		timout = ST_TRAN_BUSY_TIMEOUT;
9877 que_it_up:
9878 		/*
9879 		 * let st_handle_intr_busy put this bp back on waitq and make
9880 		 * checks to see if it is ok to requeue the command.
9881 		 */
9882 		ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
9883 
9884 		/*
9885 		 * Save the throttle before setting up the timeout
9886 		 */
9887 		if (un->un_throttle) {
9888 			un->un_last_throttle = un->un_throttle;
9889 		}
9890 		mutex_exit(ST_MUTEX);
9891 		if (st_handle_intr_busy(un, bp, timout) == 0)
9892 			return;		/* timeout is setup again */
9893 
9894 		mutex_enter(ST_MUTEX);
9895 		un->un_pos.pmode = invalid;
9896 		un->un_err_resid = bp->b_resid = bp->b_bcount;
9897 		st_bioerror(bp, EIO);
9898 		st_set_pe_flag(un);
9899 		break;
9900 
9901 	case QUE_LAST_COMMAND:
9902 
9903 		if ((un->un_ncmds > 1) && !un->un_flush_on_errors) {
9904 			scsi_log(ST_DEVINFO, st_label, CE_CONT,
9905 			    "un_ncmds: %d can't retry cmd \n", un->un_ncmds);
9906 			goto last_command_error;
9907 		}
9908 		mutex_exit(ST_MUTEX);
9909 		if (st_handle_intr_retry_lcmd(un, bp) == 0)
9910 			return;
9911 		mutex_enter(ST_MUTEX);
9912 last_command_error:
9913 		un->un_err_resid = bp->b_resid = bp->b_bcount;
9914 		un->un_pos.pmode = invalid;
9915 		st_bioerror(bp, EIO);
9916 		st_set_pe_flag(un);
9917 		break;
9918 
9919 	case COMMAND_TIMEOUT:
9920 	case DEVICE_RESET:
9921 	case DEVICE_TAMPER:
9922 	case ATTEMPT_RETRY:
9923 	case PATH_FAILED:
9924 		ST_RECOV(ST_DEVINFO, st_label, CE_WARN,
9925 		    "Command Recovery called on %s status\n",
9926 		    errstatenames[action]);
9927 		action = st_command_recovery(un, pkt, action);
9928 		goto again;
9929 
9930 	default:
9931 		ASSERT(0);
9932 		/* FALLTHRU */
9933 	case JUST_RETURN:
9934 		ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
9935 		mutex_exit(ST_MUTEX);
9936 		return;
9937 	}
9938 
9939 	ST_DO_KSTATS(bp, kstat_runq_exit);
9940 	st_done_and_mutex_exit(un, bp);
9941 }
9942 
9943 static errstate
st_handle_incomplete(struct scsi_tape * un,struct buf * bp)9944 st_handle_incomplete(struct scsi_tape *un, struct buf *bp)
9945 {
9946 	static char *fail = "SCSI transport failed: reason '%s': %s\n";
9947 	recov_info *rinfo;
9948 	errstate rval = COMMAND_DONE_ERROR;
9949 	struct scsi_pkt *pkt = (un->un_state == ST_STATE_SENSING) ?
9950 	    un->un_rqs : BP_PKT(bp);
9951 	int result;
9952 
9953 	ST_FUNC(ST_DEVINFO, st_handle_incomplete);
9954 
9955 	rinfo = (recov_info *)pkt->pkt_private;
9956 
9957 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
9958 	    "st_handle_incomplete(): dev = 0x%lx\n", un->un_dev);
9959 
9960 	ASSERT(mutex_owned(ST_MUTEX));
9961 
9962 	/* prevent infinite number of retries */
9963 	if (rinfo->pkt_retry_cnt++ > st_retry_count) {
9964 		ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
9965 		    "Recovery stopped for incomplete %s command, "
9966 		    "retries exhausted",
9967 		    st_print_scsi_cmd(pkt->pkt_cdbp[0]));
9968 		return (COMMAND_DONE_ERROR);
9969 	}
9970 
9971 	switch (pkt->pkt_reason) {
9972 	case CMD_INCOMPLETE:	/* tran stopped with not normal state */
9973 		/*
9974 		 * this occurs when accessing a powered down drive, no
9975 		 * need to complain; just fail the open
9976 		 */
9977 		ST_CDB(ST_DEVINFO, "Incomplete CDB", (char *)pkt->pkt_cdbp);
9978 
9979 		/*
9980 		 * if we have commands outstanding in HBA, and a command
9981 		 * comes back incomplete, we're hosed, so reset target
9982 		 * If we have the bus, but cmd_incomplete, we probably just
9983 		 * have a failed selection, so don't reset the target, just
9984 		 * requeue the command and try again
9985 		 */
9986 		if ((un->un_ncmds > 1) || (pkt->pkt_state != STATE_GOT_BUS)) {
9987 			goto reset_target;
9988 		}
9989 
9990 		/*
9991 		 * Retry selection a couple more times if we're
9992 		 * open.  If opening, we only try just once to
9993 		 * reduce probe time for nonexistant devices.
9994 		 */
9995 		if ((un->un_laststate > ST_STATE_OPENING) &&
9996 		    (rinfo->pkt_retry_cnt < st_selection_retry_count)) {
9997 			/* XXX check retriable? */
9998 			rval = QUE_COMMAND;
9999 		}
10000 		ST_DO_ERRSTATS(un, st_transerrs);
10001 		break;
10002 
10003 	case CMD_ABORTED:
10004 		/*
10005 		 * most likely this is caused by flush-on-error support. If
10006 		 * it was not there, the we're in trouble.
10007 		 */
10008 		if (!un->un_flush_on_errors) {
10009 			un->un_status = SUN_KEY_FATAL;
10010 			goto reset_target;
10011 		}
10012 
10013 		st_set_pe_errno(un);
10014 		bioerror(bp, un->un_errno);
10015 		if (un->un_errno)
10016 			return (COMMAND_DONE_ERROR);
10017 		else
10018 			return (COMMAND_DONE);
10019 
10020 	case CMD_TIMEOUT:	/* Command timed out */
10021 		un->un_status = SUN_KEY_TIMEOUT;
10022 		return (COMMAND_TIMEOUT);
10023 
10024 	case CMD_TRAN_ERR:
10025 	case CMD_RESET:
10026 		if (pkt->pkt_statistics & (STAT_BUS_RESET | STAT_DEV_RESET)) {
10027 			if ((un->un_rsvd_status &
10028 			    (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) ==
10029 			    ST_RESERVE) {
10030 				un->un_rsvd_status |= ST_LOST_RESERVE;
10031 				ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
10032 				    "Lost Reservation\n");
10033 			}
10034 			rval = DEVICE_RESET;
10035 			return (rval);
10036 		}
10037 		if (pkt->pkt_statistics & (STAT_ABORTED | STAT_TERMINATED)) {
10038 			rval = DEVICE_RESET;
10039 			return (rval);
10040 		}
10041 		/*FALLTHROUGH*/
10042 	default:
10043 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
10044 		    "Unhandled packet status reason = %s statistics = 0x%x\n",
10045 		    scsi_rname(pkt->pkt_reason), pkt->pkt_statistics);
10046 reset_target:
10047 
10048 		ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10049 		    "transport completed with %s\n",
10050 		    scsi_rname(pkt->pkt_reason));
10051 		ST_DO_ERRSTATS(un, st_transerrs);
10052 		if ((pkt->pkt_state & STATE_GOT_TARGET) &&
10053 		    ((pkt->pkt_statistics & (STAT_BUS_RESET | STAT_DEV_RESET |
10054 		    STAT_ABORTED)) == 0)) {
10055 
10056 			/*
10057 			 * If we haven't reserved the drive don't reset it.
10058 			 */
10059 			if ((un->un_rsvd_status &
10060 			    (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) == 0) {
10061 				return (rval);
10062 			}
10063 
10064 			/*
10065 			 * if we aren't lost yet we will be soon.
10066 			 */
10067 			un->un_pos.pmode = invalid;
10068 
10069 			result = st_reset(un, RESET_LUN);
10070 
10071 			if ((result == 0) && (un->un_state >= ST_STATE_OPEN)) {
10072 				/* no hope left to recover */
10073 				scsi_log(ST_DEVINFO, st_label, CE_WARN,
10074 				    "recovery by resets failed\n");
10075 				return (rval);
10076 			}
10077 		}
10078 	}
10079 
10080 
10081 	if (un->un_pwr_mgmt == ST_PWR_SUSPENDED) {
10082 		rval = QUE_COMMAND;
10083 	} else if (bp == un->un_sbufp) {
10084 		if (rinfo->privatelen == sizeof (recov_info)) {
10085 			if (rinfo->cmd_attrib->retriable) {
10086 				/*
10087 				 * These commands can be rerun
10088 				 * with impunity
10089 				 */
10090 				rval = QUE_COMMAND;
10091 			}
10092 		} else {
10093 			cmd_attribute const *attrib;
10094 			attrib = st_lookup_cmd_attribute(pkt->pkt_cdbp[0]);
10095 			if (attrib->retriable) {
10096 				rval = QUE_COMMAND;
10097 			}
10098 		}
10099 	}
10100 
10101 	if (un->un_state >= ST_STATE_OPEN) {
10102 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
10103 		    fail, scsi_rname(pkt->pkt_reason),
10104 		    (rval == COMMAND_DONE_ERROR)?
10105 		    "giving up" : "retrying command");
10106 	}
10107 	return (rval);
10108 }
10109 
10110 /*
10111  * if the device is busy, then put this bp back on the waitq, on the
10112  * interrupt thread, where we want the head of the queue and not the
10113  * end
10114  *
10115  * The callers of this routine should take measures to save the
10116  * un_throttle in un_last_throttle which will be restored in
10117  * st_intr_restart(). The only exception should be st_intr_restart()
10118  * calling this routine for which the saving is already done.
10119  */
10120 static int
st_handle_intr_busy(struct scsi_tape * un,struct buf * bp,clock_t timeout_interval)10121 st_handle_intr_busy(struct scsi_tape *un, struct buf *bp,
10122 	clock_t timeout_interval)
10123 {
10124 
10125 	int queued;
10126 	int rval = 0;
10127 	pkt_info *pktinfo = BP_PKT(bp)->pkt_private;
10128 
10129 	mutex_enter(ST_MUTEX);
10130 
10131 	ST_FUNC(ST_DEVINFO, st_handle_intr_busy);
10132 
10133 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10134 	    "st_handle_intr_busy(), un = 0x%p\n", (void *)un);
10135 
10136 	if ((bp != un->un_sbufp) && (bp != un->un_recov_buf)) {
10137 		queued = 1;
10138 	} else {
10139 		queued = 0;
10140 	}
10141 
10142 	/*
10143 	 * Check to see if we hit the retry timeout. We check to make sure
10144 	 * this is the first one on the runq and make sure we have not
10145 	 * queued up any more, so this one has to be the last on the list
10146 	 * also. If it is not, we have to fail.  If it is not the first, but
10147 	 * is the last we are in trouble anyway, as we are in the interrupt
10148 	 * context here.
10149 	 */
10150 	if ((pktinfo->str_retry_cnt++ > st_retry_count) ||
10151 	    ((un->un_runqf != bp) && (un->un_runql != bp) && (queued))) {
10152 		rval = -1;
10153 		goto exit;
10154 	}
10155 
10156 	/* put the bp back on the waitq */
10157 	if (queued) {
10158 		(void) st_remove_from_queue(&un->un_runqf, &un->un_runql, bp);
10159 		st_add_to_queue(&un->un_quef, &un->un_quel, un->un_quef, bp);
10160 	}
10161 
10162 	/*
10163 	 * We don't want any other commands being started in the mean time.
10164 	 * If start had just released mutex after putting something on the
10165 	 * runq, we won't even get here.
10166 	 */
10167 	un->un_throttle = 0;
10168 
10169 	/*
10170 	 * send a marker pkt, if appropriate
10171 	 */
10172 	st_hba_unflush(un);
10173 
10174 	/*
10175 	 * all queues are aligned, we are just waiting to
10176 	 * transport
10177 	 */
10178 	un->un_hib_tid = timeout(st_intr_restart, un, timeout_interval);
10179 
10180 exit:
10181 	mutex_exit(ST_MUTEX);
10182 	return (rval);
10183 }
10184 
10185 /*
10186  * To get one error entry from error stack
10187  */
10188 static int
st_get_error_entry(struct scsi_tape * un,intptr_t arg,int flag)10189 st_get_error_entry(struct scsi_tape *un, intptr_t arg, int flag)
10190 {
10191 #ifdef _MULTI_DATAMODEL
10192 	/*
10193 	 * For use when a 32 bit app makes a call into a
10194 	 * 64 bit ioctl
10195 	 */
10196 	struct mterror_entry32 err_entry32;
10197 #endif /* _MULTI_DATAMODEL */
10198 
10199 	int rval = 0;
10200 	struct mterror_entry err_entry;
10201 	struct mterror_entry_stack *err_link_entry_p;
10202 	size_t arq_status_len_in, arq_status_len_kr;
10203 
10204 	ST_FUNC(ST_DEVINFO, st_get_error_entry);
10205 
10206 	ASSERT(mutex_owned(ST_MUTEX));
10207 
10208 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10209 	    "st_get_error_entry()\n");
10210 
10211 	/*
10212 	 * if error record stack empty, return ENXIO
10213 	 */
10214 	if (un->un_error_entry_stk == NULL) {
10215 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10216 		    "st_get_error_entry: Error Entry Stack Empty!\n");
10217 		rval = ENXIO;
10218 		goto ret;
10219 	}
10220 
10221 	/*
10222 	 * get the top entry from stack
10223 	 */
10224 	err_link_entry_p = un->un_error_entry_stk;
10225 	arq_status_len_kr =
10226 	    err_link_entry_p->mtees_entry.mtee_arq_status_len;
10227 
10228 #ifdef _MULTI_DATAMODEL
10229 	switch (ddi_model_convert_from(flag & FMODELS)) {
10230 	case DDI_MODEL_ILP32:
10231 		if (ddi_copyin((void *)arg, &err_entry32,
10232 		    MTERROR_ENTRY_SIZE_32, flag)) {
10233 			rval = EFAULT;
10234 			goto ret;
10235 		}
10236 
10237 		arq_status_len_in =
10238 		    (size_t)err_entry32.mtee_arq_status_len;
10239 
10240 		err_entry32.mtee_cdb_len =
10241 		    (size32_t)err_link_entry_p->mtees_entry.mtee_cdb_len;
10242 
10243 		if (arq_status_len_in > arq_status_len_kr)
10244 			err_entry32.mtee_arq_status_len =
10245 			    (size32_t)arq_status_len_kr;
10246 
10247 		if (ddi_copyout(
10248 		    err_link_entry_p->mtees_entry.mtee_cdb_buf,
10249 		    (void *)(uintptr_t)err_entry32.mtee_cdb_buf,
10250 		    err_entry32.mtee_cdb_len, flag)) {
10251 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10252 			    "st_get_error_entry: Copy cdb buffer error!");
10253 			rval = EFAULT;
10254 		}
10255 
10256 		if (ddi_copyout(
10257 		    err_link_entry_p->mtees_entry.mtee_arq_status,
10258 		    (void *)(uintptr_t)err_entry32.mtee_arq_status,
10259 		    err_entry32.mtee_arq_status_len, flag)) {
10260 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10261 			    "st_get_error_entry: copy arq status error!");
10262 			rval = EFAULT;
10263 		}
10264 
10265 		if (ddi_copyout(&err_entry32, (void *)arg,
10266 		    MTERROR_ENTRY_SIZE_32, flag)) {
10267 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10268 			    "st_get_error_entry: copy arq status out error!");
10269 			rval = EFAULT;
10270 		}
10271 		break;
10272 
10273 	case DDI_MODEL_NONE:
10274 		if (ddi_copyin((void *)arg, &err_entry,
10275 		    MTERROR_ENTRY_SIZE_64, flag)) {
10276 			rval = EFAULT;
10277 			goto ret;
10278 		}
10279 		arq_status_len_in = err_entry.mtee_arq_status_len;
10280 
10281 		err_entry.mtee_cdb_len =
10282 		    err_link_entry_p->mtees_entry.mtee_cdb_len;
10283 
10284 		if (arq_status_len_in > arq_status_len_kr)
10285 			err_entry.mtee_arq_status_len =
10286 			    arq_status_len_kr;
10287 
10288 		if (ddi_copyout(
10289 		    err_link_entry_p->mtees_entry.mtee_cdb_buf,
10290 		    err_entry.mtee_cdb_buf,
10291 		    err_entry.mtee_cdb_len, flag)) {
10292 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10293 			    "st_get_error_entry: Copy cdb buffer error!");
10294 			rval = EFAULT;
10295 		}
10296 
10297 		if (ddi_copyout(
10298 		    err_link_entry_p->mtees_entry.mtee_arq_status,
10299 		    err_entry.mtee_arq_status,
10300 		    err_entry.mtee_arq_status_len, flag)) {
10301 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10302 			    "st_get_error_entry: copy arq status error!");
10303 			rval = EFAULT;
10304 		}
10305 
10306 		if (ddi_copyout(&err_entry, (void *)arg,
10307 		    MTERROR_ENTRY_SIZE_64, flag)) {
10308 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10309 			    "st_get_error_entry: copy arq status out error!");
10310 			rval = EFAULT;
10311 		}
10312 		break;
10313 	}
10314 #else /* _MULTI_DATAMODEL */
10315 	if (ddi_copyin((void *)arg, &err_entry,
10316 	    MTERROR_ENTRY_SIZE_64, flag)) {
10317 		rval = EFAULT;
10318 		goto ret;
10319 	}
10320 	arq_status_len_in = err_entry.mtee_arq_status_len;
10321 
10322 	err_entry.mtee_cdb_len =
10323 	    err_link_entry_p->mtees_entry.mtee_cdb_len;
10324 
10325 	if (arq_status_len_in > arq_status_len_kr)
10326 		err_entry.mtee_arq_status_len =
10327 		    arq_status_len_kr;
10328 
10329 	if (ddi_copyout(
10330 	    err_link_entry_p->mtees_entry.mtee_cdb_buf,
10331 	    err_entry.mtee_cdb_buf,
10332 	    err_entry.mtee_cdb_len, flag)) {
10333 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10334 		    "st_get_error_entry: Copy cdb buffer error!");
10335 		rval = EFAULT;
10336 	}
10337 
10338 	if (ddi_copyout(
10339 	    err_link_entry_p->mtees_entry.mtee_arq_status,
10340 	    err_entry.mtee_arq_status,
10341 	    err_entry.mtee_arq_status_len, flag)) {
10342 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10343 		    "st_get_error_entry: copy arq status buffer error!");
10344 		rval = EFAULT;
10345 	}
10346 
10347 	if (ddi_copyout(&err_entry, (void *)arg,
10348 	    MTERROR_ENTRY_SIZE_64, flag)) {
10349 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10350 		    "st_get_error_entry: copy arq status out error!");
10351 		rval = EFAULT;
10352 	}
10353 #endif /* _MULTI_DATAMODEL */
10354 
10355 	/*
10356 	 * update stack
10357 	 */
10358 	un->un_error_entry_stk = err_link_entry_p->mtees_nextp;
10359 
10360 	kmem_free(err_link_entry_p->mtees_entry.mtee_cdb_buf,
10361 	    err_link_entry_p->mtees_entry.mtee_cdb_len);
10362 	err_link_entry_p->mtees_entry.mtee_cdb_buf = NULL;
10363 
10364 	kmem_free(err_link_entry_p->mtees_entry.mtee_arq_status,
10365 	    SECMDS_STATUS_SIZE);
10366 	err_link_entry_p->mtees_entry.mtee_arq_status = NULL;
10367 
10368 	kmem_free(err_link_entry_p, MTERROR_LINK_ENTRY_SIZE);
10369 	err_link_entry_p = NULL;
10370 ret:
10371 	return (rval);
10372 }
10373 
10374 /*
10375  * MTIOCGETERROR ioctl needs to retrieve the current sense data along with
10376  * the scsi CDB command which causes the error and generates sense data and
10377  * the scsi status.
10378  *
10379  *      error-record stack
10380  *
10381  *
10382  *             TOP                                     BOTTOM
10383  *              ------------------------------------------
10384  *              |   0   |   1   |   2   |   ...  |   n   |
10385  *              ------------------------------------------
10386  *                  ^
10387  *                  |
10388  *       pointer to error entry
10389  *
10390  * when st driver generates one sense data record, it creates a error-entry
10391  * and pushes it onto the stack.
10392  *
10393  */
10394 
10395 static void
st_update_error_stack(struct scsi_tape * un,struct scsi_pkt * pkt,struct scsi_arq_status * cmd)10396 st_update_error_stack(struct scsi_tape *un,
10397 			struct scsi_pkt *pkt,
10398 			struct scsi_arq_status *cmd)
10399 {
10400 	struct mterror_entry_stack *err_entry_tmp;
10401 	uchar_t *cdbp = (uchar_t *)pkt->pkt_cdbp;
10402 	size_t cdblen = scsi_cdb_size[CDB_GROUPID(cdbp[0])];
10403 
10404 	ST_FUNC(ST_DEVINFO, st_update_error_stack);
10405 
10406 	ASSERT(mutex_owned(ST_MUTEX));
10407 
10408 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10409 	    "st_update_error_stack()\n");
10410 
10411 	ASSERT(cmd);
10412 	ASSERT(cdbp);
10413 	if (cdblen == 0) {
10414 		ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10415 		    "st_update_error_stack: CDB length error!\n");
10416 		return;
10417 	}
10418 
10419 	err_entry_tmp = kmem_alloc(MTERROR_LINK_ENTRY_SIZE, KM_SLEEP);
10420 	ASSERT(err_entry_tmp != NULL);
10421 
10422 	err_entry_tmp->mtees_entry.mtee_cdb_buf =
10423 	    kmem_alloc(cdblen, KM_SLEEP);
10424 	ASSERT(err_entry_tmp->mtees_entry.mtee_cdb_buf != NULL);
10425 
10426 	err_entry_tmp->mtees_entry.mtee_arq_status =
10427 	    kmem_alloc(SECMDS_STATUS_SIZE, KM_SLEEP);
10428 	ASSERT(err_entry_tmp->mtees_entry.mtee_arq_status != NULL);
10429 
10430 	/*
10431 	 * copy cdb command & length to current error entry
10432 	 */
10433 	err_entry_tmp->mtees_entry.mtee_cdb_len = cdblen;
10434 	bcopy(cdbp, err_entry_tmp->mtees_entry.mtee_cdb_buf, cdblen);
10435 
10436 	/*
10437 	 * copy scsi status length to current error entry
10438 	 */
10439 	err_entry_tmp->mtees_entry.mtee_arq_status_len =
10440 	    SECMDS_STATUS_SIZE;
10441 
10442 	/*
10443 	 * copy sense data and scsi status to current error entry
10444 	 */
10445 	bcopy(cmd, err_entry_tmp->mtees_entry.mtee_arq_status,
10446 	    SECMDS_STATUS_SIZE);
10447 
10448 	err_entry_tmp->mtees_nextp = un->un_error_entry_stk;
10449 	un->un_error_entry_stk = err_entry_tmp;
10450 
10451 }
10452 
10453 /*
10454  * Empty all the error entry in stack
10455  */
10456 static void
st_empty_error_stack(struct scsi_tape * un)10457 st_empty_error_stack(struct scsi_tape *un)
10458 {
10459 	struct mterror_entry_stack *linkp;
10460 
10461 	ST_FUNC(ST_DEVINFO, st_empty_error_stack);
10462 
10463 	ASSERT(mutex_owned(ST_MUTEX));
10464 
10465 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10466 	    "st_empty_entry_stack()\n");
10467 
10468 	while (un->un_error_entry_stk != NULL) {
10469 		linkp = un->un_error_entry_stk;
10470 		un->un_error_entry_stk =
10471 		    un->un_error_entry_stk->mtees_nextp;
10472 
10473 		if (linkp->mtees_entry.mtee_cdb_buf != NULL)
10474 			kmem_free(linkp->mtees_entry.mtee_cdb_buf,
10475 			    linkp->mtees_entry.mtee_cdb_len);
10476 
10477 		if (linkp->mtees_entry.mtee_arq_status != NULL)
10478 			kmem_free(linkp->mtees_entry.mtee_arq_status,
10479 			    linkp->mtees_entry.mtee_arq_status_len);
10480 
10481 		kmem_free(linkp, MTERROR_LINK_ENTRY_SIZE);
10482 		linkp = NULL;
10483 	}
10484 }
10485 
10486 static errstate
st_handle_sense(struct scsi_tape * un,struct buf * bp,tapepos_t * pos)10487 st_handle_sense(struct scsi_tape *un, struct buf *bp, tapepos_t *pos)
10488 {
10489 	struct scsi_pkt *pkt = BP_PKT(bp);
10490 	struct scsi_pkt *rqpkt = un->un_rqs;
10491 	struct scsi_arq_status arqstat;
10492 	recov_info *rcif = pkt->pkt_private;
10493 
10494 	errstate rval = COMMAND_DONE_ERROR;
10495 	int amt;
10496 
10497 	ST_FUNC(ST_DEVINFO, st_handle_sense);
10498 
10499 	ASSERT(mutex_owned(ST_MUTEX));
10500 
10501 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10502 	    "st_handle_sense()\n");
10503 
10504 	if (SCBP(rqpkt)->sts_busy) {
10505 		if (rcif->privatelen == sizeof (recov_info)) {
10506 			ST_RECOV(ST_DEVINFO, st_label, CE_WARN,
10507 			    "Attempt recovery of busy unit on request sense\n");
10508 			rval = ATTEMPT_RETRY;
10509 		} else if (rcif->pkt_retry_cnt++ < st_retry_count) {
10510 			ST_DEBUG4(ST_DEVINFO, st_label, CE_WARN,
10511 			    "Retry busy unit on request sense\n");
10512 			rval = QUE_BUSY_COMMAND;
10513 		}
10514 		return (rval);
10515 	} else if (SCBP(rqpkt)->sts_chk) {
10516 		ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10517 		    "Check Condition on REQUEST SENSE\n");
10518 		return (rval);
10519 	}
10520 
10521 	/*
10522 	 * Make sure there is sense data to look at.
10523 	 */
10524 	if ((rqpkt->pkt_state & (STATE_GOT_BUS | STATE_GOT_TARGET |
10525 	    STATE_SENT_CMD | STATE_GOT_STATUS)) != (STATE_GOT_BUS |
10526 	    STATE_GOT_TARGET | STATE_SENT_CMD | STATE_GOT_STATUS)) {
10527 		return (rval);
10528 	}
10529 
10530 	/* was there enough data? */
10531 	amt = (int)MAX_SENSE_LENGTH - rqpkt->pkt_resid;
10532 	if ((rqpkt->pkt_state & STATE_XFERRED_DATA) == 0 ||
10533 	    (amt < SUN_MIN_SENSE_LENGTH)) {
10534 		ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10535 		    "REQUEST SENSE couldn't get sense data\n");
10536 		return (rval);
10537 	}
10538 
10539 	bcopy(SCBP(pkt), &arqstat.sts_status,
10540 	    sizeof (struct scsi_status));
10541 	bcopy(SCBP(rqpkt), &arqstat.sts_rqpkt_status,
10542 	    sizeof (struct scsi_status));
10543 	arqstat.sts_rqpkt_reason = rqpkt->pkt_reason;
10544 	arqstat.sts_rqpkt_resid = rqpkt->pkt_resid;
10545 	arqstat.sts_rqpkt_state = rqpkt->pkt_state;
10546 	arqstat.sts_rqpkt_statistics = rqpkt->pkt_statistics;
10547 	bcopy(ST_RQSENSE, &arqstat.sts_sensedata, SENSE_LENGTH);
10548 
10549 	/*
10550 	 * copy one arqstat entry in the sense data buffer
10551 	 */
10552 	st_update_error_stack(un, pkt, &arqstat);
10553 	return (st_decode_sense(un, bp, amt, &arqstat, pos));
10554 }
10555 
10556 static errstate
st_handle_autosense(struct scsi_tape * un,struct buf * bp,tapepos_t * pos)10557 st_handle_autosense(struct scsi_tape *un, struct buf *bp, tapepos_t *pos)
10558 {
10559 	struct scsi_pkt *pkt = BP_PKT(bp);
10560 	struct scsi_arq_status *arqstat =
10561 	    (struct scsi_arq_status *)pkt->pkt_scbp;
10562 	errstate rval = COMMAND_DONE_ERROR;
10563 	int amt;
10564 
10565 	ST_FUNC(ST_DEVINFO, st_handle_autosense);
10566 
10567 	ASSERT(mutex_owned(ST_MUTEX));
10568 
10569 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10570 	    "st_handle_autosense()\n");
10571 
10572 	if (arqstat->sts_rqpkt_status.sts_busy) {
10573 		ST_DEBUG4(ST_DEVINFO, st_label, CE_WARN,
10574 		    "busy unit on request sense\n");
10575 		/*
10576 		 * we return QUE_SENSE so st_intr will setup the SENSE cmd.
10577 		 * the disadvantage is that we do not have any delay for the
10578 		 * second retry of rqsense and we have to keep a packet around
10579 		 */
10580 		return (QUE_SENSE);
10581 
10582 	} else if (arqstat->sts_rqpkt_reason != CMD_CMPLT) {
10583 		ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10584 		    "transport error on REQUEST SENSE\n");
10585 		if ((arqstat->sts_rqpkt_state & STATE_GOT_TARGET) &&
10586 		    ((arqstat->sts_rqpkt_statistics &
10587 		    (STAT_BUS_RESET | STAT_DEV_RESET | STAT_ABORTED)) == 0)) {
10588 			if (st_reset(un, RESET_LUN) == 0) {
10589 				ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10590 				    "recovery by resets failed\n");
10591 			}
10592 		}
10593 		return (rval);
10594 
10595 	} else if (arqstat->sts_rqpkt_status.sts_chk) {
10596 		ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10597 		    "Check Condition on REQUEST SENSE\n");
10598 		return (rval);
10599 	}
10600 
10601 
10602 	/* was there enough data? */
10603 	if (pkt->pkt_state & STATE_XARQ_DONE) {
10604 		amt = (int)MAX_SENSE_LENGTH - arqstat->sts_rqpkt_resid;
10605 	} else {
10606 		if (arqstat->sts_rqpkt_resid > SENSE_LENGTH) {
10607 			amt = (int)MAX_SENSE_LENGTH - arqstat->sts_rqpkt_resid;
10608 		} else {
10609 			amt = (int)SENSE_LENGTH - arqstat->sts_rqpkt_resid;
10610 		}
10611 	}
10612 	if ((arqstat->sts_rqpkt_state & STATE_XFERRED_DATA) == 0 ||
10613 	    (amt < SUN_MIN_SENSE_LENGTH)) {
10614 		ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
10615 		    "REQUEST SENSE couldn't get sense data\n");
10616 		return (rval);
10617 	}
10618 
10619 	if (pkt->pkt_state & STATE_XARQ_DONE) {
10620 		bcopy(&arqstat->sts_sensedata, ST_RQSENSE, MAX_SENSE_LENGTH);
10621 	} else {
10622 		bcopy(&arqstat->sts_sensedata, ST_RQSENSE, SENSE_LENGTH);
10623 	}
10624 
10625 	/*
10626 	 * copy one arqstat entry in the sense data buffer
10627 	 */
10628 	st_update_error_stack(un, pkt, arqstat);
10629 
10630 	return (st_decode_sense(un, bp, amt, arqstat, pos));
10631 }
10632 
10633 static errstate
st_decode_sense(struct scsi_tape * un,struct buf * bp,int amt,struct scsi_arq_status * statusp,tapepos_t * pos)10634 st_decode_sense(struct scsi_tape *un, struct buf *bp, int amt,
10635     struct scsi_arq_status *statusp, tapepos_t *pos)
10636 {
10637 	struct scsi_pkt *pkt = BP_PKT(bp);
10638 	recov_info *ri = pkt->pkt_private;
10639 	errstate rval = COMMAND_DONE_ERROR;
10640 	cmd_attribute const *attrib;
10641 	long resid;
10642 	struct scsi_extended_sense *sensep = ST_RQSENSE;
10643 	int severity;
10644 	int get_error;
10645 
10646 	ST_FUNC(ST_DEVINFO, st_decode_sense);
10647 
10648 	ASSERT(mutex_owned(ST_MUTEX));
10649 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
10650 	    "st_decode_sense()\n");
10651 
10652 	/*
10653 	 * For uscsi commands, squirrel away a copy of the
10654 	 * results of the Request Sense.
10655 	 */
10656 	if (USCSI_CMD(bp)) {
10657 		struct uscsi_cmd *ucmd = BP_UCMD(bp);
10658 		ucmd->uscsi_rqstatus = *(uchar_t *)statusp;
10659 		if (ucmd->uscsi_rqlen && un->un_srqbufp) {
10660 			uchar_t rqlen = min((uchar_t)amt, ucmd->uscsi_rqlen);
10661 			ucmd->uscsi_rqresid = ucmd->uscsi_rqlen - rqlen;
10662 			bcopy(ST_RQSENSE, un->un_srqbufp, rqlen);
10663 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
10664 			    "st_decode_sense: stat=0x%x resid=0x%x\n",
10665 			    ucmd->uscsi_rqstatus, ucmd->uscsi_rqresid);
10666 		}
10667 	}
10668 
10669 	if (ri->privatelen == sizeof (recov_info)) {
10670 		attrib = ri->cmd_attrib;
10671 	} else {
10672 		attrib = st_lookup_cmd_attribute(pkt->pkt_cdbp[0]);
10673 	}
10674 
10675 	/*
10676 	 * If the drive is an MT-02, reposition the
10677 	 * secondary error code into the proper place.
10678 	 *
10679 	 * XXX	MT-02 is non-CCS tape, so secondary error code
10680 	 * is in byte 8.  However, in SCSI-2, tape has CCS definition
10681 	 * so it's in byte 12.
10682 	 */
10683 	if (un->un_dp->type == ST_TYPE_EMULEX) {
10684 		sensep->es_code = sensep->es_add_info[0];
10685 	}
10686 
10687 	ST_CDB(ST_DEVINFO, "st_decode_sense failed CDB",
10688 	    (caddr_t)&CDBP(pkt)->scc_cmd);
10689 
10690 	ST_SENSE(ST_DEVINFO, "st_decode_sense sense data", (caddr_t)statusp,
10691 	    sizeof (*statusp));
10692 
10693 	/* for normal I/O check extract the resid values. */
10694 	if (bp != un->un_sbufp && bp != un->un_recov_buf) {
10695 		if (sensep->es_valid) {
10696 			resid =
10697 			    (sensep->es_info_1 << 24) |
10698 			    (sensep->es_info_2 << 16) |
10699 			    (sensep->es_info_3 << 8)  |
10700 			    (sensep->es_info_4);
10701 			/* If fixed block */
10702 			if (un->un_bsize) {
10703 				resid *= un->un_bsize;
10704 			}
10705 		} else if (pkt->pkt_state & STATE_XFERRED_DATA) {
10706 			resid = pkt->pkt_resid;
10707 		} else {
10708 			resid = bp->b_bcount;
10709 		}
10710 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10711 		    "st_decode_sense (rw): xferred bit = %d, resid=%ld (%d), "
10712 		    "pkt_resid=%ld\n", pkt->pkt_state & STATE_XFERRED_DATA,
10713 		    resid,
10714 		    (sensep->es_info_1 << 24) |
10715 		    (sensep->es_info_2 << 16) |
10716 		    (sensep->es_info_3 << 8)  |
10717 		    (sensep->es_info_4),
10718 		    pkt->pkt_resid);
10719 		/*
10720 		 * The problem is, what should we believe?
10721 		 */
10722 		if (resid && (pkt->pkt_resid == 0)) {
10723 			pkt->pkt_resid = resid;
10724 		}
10725 	} else {
10726 		/*
10727 		 * If the command is SCMD_SPACE, we need to get the
10728 		 * residual as returned in the sense data, to adjust
10729 		 * our idea of current tape position correctly
10730 		 */
10731 		if ((sensep->es_valid) &&
10732 		    (CDBP(pkt)->scc_cmd == SCMD_LOCATE) ||
10733 		    (CDBP(pkt)->scc_cmd == SCMD_LOCATE_G4) ||
10734 		    (CDBP(pkt)->scc_cmd == SCMD_SPACE) ||
10735 		    (CDBP(pkt)->scc_cmd == SCMD_SPACE_G4) ||
10736 		    (CDBP(pkt)->scc_cmd == SCMD_WRITE_FILE_MARK)) {
10737 			resid =
10738 			    (sensep->es_info_1 << 24) |
10739 			    (sensep->es_info_2 << 16) |
10740 			    (sensep->es_info_3 << 8)  |
10741 			    (sensep->es_info_4);
10742 			bp->b_resid = resid;
10743 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10744 			    "st_decode_sense(other):	resid=%ld\n", resid);
10745 		} else {
10746 			/*
10747 			 * If the special command is SCMD_READ,
10748 			 * the correct resid will be set later.
10749 			 */
10750 			if (attrib->get_cnt != NULL) {
10751 				resid = attrib->get_cnt(pkt->pkt_cdbp);
10752 			} else {
10753 				resid = bp->b_bcount;
10754 			}
10755 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10756 			    "st_decode_sense(special read):  resid=%ld\n",
10757 			    resid);
10758 		}
10759 	}
10760 
10761 	if ((un->un_state >= ST_STATE_OPEN) &&
10762 	    (DEBUGGING || st_error_level == SCSI_ERR_ALL)) {
10763 		st_print_cdb(ST_DEVINFO, st_label, CE_NOTE,
10764 		    "Failed CDB", (char *)pkt->pkt_cdbp);
10765 		st_clean_print(ST_DEVINFO, st_label, CE_CONT,
10766 		    "sense data", (char *)sensep, amt);
10767 		scsi_log(ST_DEVINFO, st_label, CE_CONT,
10768 		    "count 0x%lx resid 0x%lx pktresid 0x%lx\n",
10769 		    bp->b_bcount, resid, pkt->pkt_resid);
10770 	}
10771 
10772 	switch (un->un_status = sensep->es_key) {
10773 	case KEY_NO_SENSE:
10774 		severity = SCSI_ERR_INFO;
10775 
10776 		/*
10777 		 * Erase, locate or rewind operation in progress, retry
10778 		 * ASC  ASCQ
10779 		 *  00   18    Erase operation in progress
10780 		 *  00   19    Locate operation in progress
10781 		 *  00   1A    Rewind operation in progress
10782 		 */
10783 		if (sensep->es_add_code == 0 &&
10784 		    ((sensep->es_qual_code == 0x18) ||
10785 		    (sensep->es_qual_code == 0x19) ||
10786 		    (sensep->es_qual_code == 0x1a))) {
10787 			rval = QUE_BUSY_COMMAND;
10788 			break;
10789 		}
10790 
10791 		goto common;
10792 
10793 	case KEY_RECOVERABLE_ERROR:
10794 		severity = SCSI_ERR_RECOVERED;
10795 		if ((sensep->es_class == CLASS_EXTENDED_SENSE) &&
10796 		    (sensep->es_code == ST_DEFERRED_ERROR)) {
10797 			if (un->un_dp->options &
10798 			    ST_RETRY_ON_RECOVERED_DEFERRED_ERROR) {
10799 				rval = QUE_LAST_COMMAND;
10800 				scsi_errmsg(ST_SCSI_DEVP, pkt, st_label,
10801 				    severity, pos->lgclblkno,
10802 				    un->un_err_pos.lgclblkno, scsi_cmds,
10803 				    sensep);
10804 				scsi_log(ST_DEVINFO, st_label, CE_CONT,
10805 				    "Command will be retried\n");
10806 			} else {
10807 				severity = SCSI_ERR_FATAL;
10808 				rval = COMMAND_DONE_ERROR_RECOVERED;
10809 				ST_DO_ERRSTATS(un, st_softerrs);
10810 				scsi_errmsg(ST_SCSI_DEVP, pkt, st_label,
10811 				    severity, pos->lgclblkno,
10812 				    un->un_err_pos.lgclblkno, scsi_cmds,
10813 				    sensep);
10814 			}
10815 			break;
10816 		}
10817 common:
10818 		/*
10819 		 * XXX only want reads to be stopped by filemarks.
10820 		 * Don't want them to be stopped by EOT.  EOT matters
10821 		 * only on write.
10822 		 */
10823 		if (sensep->es_filmk && !sensep->es_eom) {
10824 			rval = COMMAND_DONE;
10825 		} else if (sensep->es_eom) {
10826 			rval = COMMAND_DONE;
10827 		} else if (sensep->es_ili) {
10828 			/*
10829 			 * Fun with variable length record devices:
10830 			 * for specifying larger blocks sizes than the
10831 			 * actual physical record size.
10832 			 */
10833 			if (un->un_bsize == 0 && resid > 0) {
10834 				/*
10835 				 * XXX! Ugly.
10836 				 * The requested blocksize is > tape blocksize,
10837 				 * so this is ok, so we just return the
10838 				 * actual size xferred.
10839 				 */
10840 				pkt->pkt_resid = resid;
10841 				rval = COMMAND_DONE;
10842 			} else if (un->un_bsize == 0 && resid < 0) {
10843 				/*
10844 				 * The requested blocksize is < tape blocksize,
10845 				 * so this is not ok, so we err with ENOMEM
10846 				 */
10847 				rval = COMMAND_DONE_ERROR_RECOVERED;
10848 				st_bioerror(bp, ENOMEM);
10849 			} else {
10850 				ST_DO_ERRSTATS(un, st_softerrs);
10851 				severity = SCSI_ERR_FATAL;
10852 				rval = COMMAND_DONE_ERROR;
10853 				st_bioerror(bp, EINVAL);
10854 				un->un_running.pmode = invalid;
10855 			}
10856 		} else {
10857 			/*
10858 			 * we hope and pray for this just being
10859 			 * something we can ignore (ie. a
10860 			 * truly recoverable soft error)
10861 			 */
10862 			rval = COMMAND_DONE;
10863 		}
10864 		if (sensep->es_filmk) {
10865 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10866 			    "filemark\n");
10867 			un->un_status = SUN_KEY_EOF;
10868 			pos->eof = ST_EOF_PENDING;
10869 			st_set_pe_flag(un);
10870 		}
10871 
10872 		/*
10873 		 * ignore eom when reading, a fmk should terminate reading
10874 		 */
10875 		if ((sensep->es_eom) &&
10876 		    (CDBP(pkt)->scc_cmd != SCMD_READ)) {
10877 			if ((sensep->es_add_code == 0) &&
10878 			    (sensep->es_qual_code == 4)) {
10879 				ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10880 				    "bot\n");
10881 				un->un_status = SUN_KEY_BOT;
10882 				pos->eof = ST_NO_EOF;
10883 				pos->lgclblkno = 0;
10884 				pos->fileno = 0;
10885 				pos->blkno = 0;
10886 				if (pos->pmode != legacy)
10887 					pos->pmode = legacy;
10888 			} else {
10889 				ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10890 				    "eom\n");
10891 				un->un_status = SUN_KEY_EOT;
10892 				pos->eof = ST_EOM;
10893 			}
10894 			st_set_pe_flag(un);
10895 		}
10896 
10897 		break;
10898 
10899 	case KEY_ILLEGAL_REQUEST:
10900 
10901 		if (un->un_laststate >= ST_STATE_OPEN) {
10902 			ST_DO_ERRSTATS(un, st_softerrs);
10903 			severity = SCSI_ERR_FATAL;
10904 		} else {
10905 			severity = SCSI_ERR_INFO;
10906 		}
10907 		break;
10908 
10909 	case KEY_MEDIUM_ERROR:
10910 		ST_DO_ERRSTATS(un, st_harderrs);
10911 		severity = SCSI_ERR_FATAL;
10912 		un->un_pos.pmode = invalid;
10913 		un->un_running.pmode = invalid;
10914 check_keys:
10915 		/*
10916 		 * attempt to process the keys in the presence of
10917 		 * other errors
10918 		 */
10919 		if (sensep->es_ili && rval != COMMAND_DONE_ERROR) {
10920 			/*
10921 			 * Fun with variable length record devices:
10922 			 * for specifying larger blocks sizes than the
10923 			 * actual physical record size.
10924 			 */
10925 			if (un->un_bsize == 0 && resid > 0) {
10926 				/*
10927 				 * XXX! Ugly
10928 				 */
10929 				pkt->pkt_resid = resid;
10930 			} else if (un->un_bsize == 0 && resid < 0) {
10931 				st_bioerror(bp, EINVAL);
10932 			} else {
10933 				severity = SCSI_ERR_FATAL;
10934 				rval = COMMAND_DONE_ERROR;
10935 				st_bioerror(bp, EINVAL);
10936 			}
10937 		}
10938 		if (sensep->es_filmk) {
10939 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
10940 			    "filemark\n");
10941 			un->un_status = SUN_KEY_EOF;
10942 			pos->eof = ST_EOF_PENDING;
10943 			st_set_pe_flag(un);
10944 		}
10945 
10946 		/*
10947 		 * ignore eom when reading, a fmk should terminate reading
10948 		 */
10949 		if ((sensep->es_eom) &&
10950 		    (CDBP(pkt)->scc_cmd != SCMD_READ)) {
10951 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG, "eom\n");
10952 			un->un_status = SUN_KEY_EOT;
10953 			pos->eof = ST_EOM;
10954 			st_set_pe_flag(un);
10955 		}
10956 
10957 		break;
10958 
10959 	case KEY_VOLUME_OVERFLOW:
10960 		ST_DO_ERRSTATS(un, st_softerrs);
10961 		pos->eof = ST_EOM;
10962 		severity = SCSI_ERR_FATAL;
10963 		rval = COMMAND_DONE_ERROR;
10964 		goto check_keys;
10965 
10966 	case KEY_HARDWARE_ERROR:
10967 		ST_DO_ERRSTATS(un, st_harderrs);
10968 		severity = SCSI_ERR_FATAL;
10969 		rval = COMMAND_DONE_ERROR;
10970 		if (un->un_dp->options & ST_EJECT_ON_CHANGER_FAILURE)
10971 			un->un_eject_tape_on_failure = st_check_asc_ascq(un);
10972 		break;
10973 
10974 	case KEY_BLANK_CHECK:
10975 		ST_DO_ERRSTATS(un, st_softerrs);
10976 		severity = SCSI_ERR_INFO;
10977 
10978 		/*
10979 		 * if not a special request and some data was xferred then it
10980 		 * it is not an error yet
10981 		 */
10982 		if (bp != un->un_sbufp && (bp->b_flags & B_READ)) {
10983 			/*
10984 			 * no error for read with or without data xferred
10985 			 */
10986 			un->un_status = SUN_KEY_EOT;
10987 			pos->eof = ST_EOT;
10988 			rval = COMMAND_DONE_ERROR;
10989 			un->un_running.pmode = invalid;
10990 			st_set_pe_flag(un);
10991 			goto check_keys;
10992 		} else if (bp != un->un_sbufp &&
10993 		    (pkt->pkt_state & STATE_XFERRED_DATA)) {
10994 			rval = COMMAND_DONE;
10995 		} else {
10996 			rval = COMMAND_DONE_ERROR_RECOVERED;
10997 		}
10998 
10999 		if (un->un_laststate >= ST_STATE_OPEN) {
11000 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
11001 			    "blank check\n");
11002 			pos->eof = ST_EOM;
11003 		}
11004 		if ((CDBP(pkt)->scc_cmd == SCMD_LOCATE) ||
11005 		    (CDBP(pkt)->scc_cmd == SCMD_LOCATE_G4) ||
11006 		    (CDBP(pkt)->scc_cmd == SCMD_SPACE) &&
11007 		    (un->un_dp->options & ST_KNOWS_EOD)) {
11008 			/*
11009 			 * we were doing a fast forward by skipping
11010 			 * multiple fmk at the time
11011 			 */
11012 			st_bioerror(bp, EIO);
11013 			severity = SCSI_ERR_RECOVERED;
11014 			rval	 = COMMAND_DONE;
11015 		}
11016 		st_set_pe_flag(un);
11017 		goto check_keys;
11018 
11019 	case KEY_WRITE_PROTECT:
11020 		if (st_wrongtapetype(un)) {
11021 			un->un_status = SUN_KEY_WRONGMEDIA;
11022 			ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11023 			    "wrong tape for writing- use DC6150 tape "
11024 			    "(or equivalent)\n");
11025 			severity = SCSI_ERR_UNKNOWN;
11026 		} else {
11027 			severity = SCSI_ERR_FATAL;
11028 		}
11029 		ST_DO_ERRSTATS(un, st_harderrs);
11030 		rval = COMMAND_DONE_ERROR;
11031 		st_bioerror(bp, EACCES);
11032 		break;
11033 
11034 	case KEY_UNIT_ATTENTION:
11035 		ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11036 		    "KEY_UNIT_ATTENTION : un_state = %d\n", un->un_state);
11037 
11038 		un->un_unit_attention_flags |= 1;
11039 		/*
11040 		 * If we have detected a Bus Reset and the tape
11041 		 * drive has been reserved.
11042 		 */
11043 		if (ST_RQSENSE->es_add_code == 0x29) {
11044 			rval = DEVICE_RESET;
11045 			if ((un->un_rsvd_status &
11046 			    (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) ==
11047 			    ST_RESERVE) {
11048 				un->un_rsvd_status |= ST_LOST_RESERVE;
11049 				ST_DEBUG(ST_DEVINFO, st_label, CE_WARN,
11050 				    "st_decode_sense: Lost Reservation\n");
11051 			}
11052 		}
11053 
11054 		/*
11055 		 * If this is a recovery command and retrable, retry.
11056 		 */
11057 		if (bp == un->un_recov_buf) {
11058 			severity = SCSI_ERR_INFO;
11059 			if (attrib->retriable &&
11060 			    ri->pkt_retry_cnt++ < st_retry_count) {
11061 				rval = QUE_COMMAND;
11062 			} else {
11063 				rval = COMMAND_DONE_ERROR;
11064 			}
11065 			break; /* Don't set position invalid */
11066 		}
11067 
11068 		/*
11069 		 * If ST_APPLICATION_RESERVATIONS is set,
11070 		 * If the asc/ascq indicates that the reservation
11071 		 * has been cleared just allow the write to continue
11072 		 * which would force a scsi 2 reserve.
11073 		 * If preempted that persistent reservation
11074 		 * the scsi 2 reserve would get a reservation conflict.
11075 		 */
11076 		if ((un->un_rsvd_status &
11077 		    ST_APPLICATION_RESERVATIONS) != 0) {
11078 			/*
11079 			 * RESERVATIONS PREEMPTED
11080 			 * With MPxIO this could be a fail over? XXX
11081 			 */
11082 			if (ST_RQSENSE->es_add_code == 0x2a &&
11083 			    ST_RQSENSE->es_qual_code == 0x03) {
11084 				severity = SCSI_ERR_INFO;
11085 				rval = COMMAND_DONE_ERROR;
11086 				pos->pmode = invalid;
11087 				break;
11088 			/*
11089 			 * RESERVATIONS RELEASED
11090 			 */
11091 			} else if (ST_RQSENSE->es_add_code == 0x2a &&
11092 			    ST_RQSENSE->es_qual_code == 0x04) {
11093 				severity = SCSI_ERR_INFO;
11094 				rval = COMMAND_DONE;
11095 				break;
11096 			}
11097 		}
11098 
11099 		if (un->un_state <= ST_STATE_OPENING) {
11100 			/*
11101 			 * Look, the tape isn't open yet, now determine
11102 			 * if the cause is a BUS RESET, Save the file
11103 			 * and Block positions for the callers to
11104 			 * recover from the loss of position.
11105 			 */
11106 			severity = SCSI_ERR_INFO;
11107 			if ((pos->pmode != invalid) &&
11108 			    (rval == DEVICE_RESET) &&
11109 			    (un->un_restore_pos != 1)) {
11110 				un->un_save_fileno = pos->fileno;
11111 				un->un_save_blkno = pos->blkno;
11112 				un->un_restore_pos = 1;
11113 			}
11114 
11115 			if (attrib->retriable &&
11116 			    ri->pkt_retry_cnt++ < st_retry_count) {
11117 				rval = QUE_COMMAND;
11118 			} else if (rval == DEVICE_RESET) {
11119 				break;
11120 			} else {
11121 				rval = COMMAND_DONE_ERROR;
11122 			}
11123 		/*
11124 		 * Means it thinks the mode parameters have changed.
11125 		 * This is the result of a reset clearing settings or
11126 		 * another initiator changing what we set.
11127 		 */
11128 		}
11129 		if (ST_RQSENSE->es_add_code == 0x2a) {
11130 			if (ST_RQSENSE->es_qual_code == 0x1) {
11131 				/* Error recovery will modeselect and retry. */
11132 				rval = DEVICE_TAMPER;
11133 				severity = SCSI_ERR_INFO;
11134 				break; /* don't set position invalid */
11135 			}
11136 			if (ST_RQSENSE->es_qual_code == 0x0 ||
11137 			    ST_RQSENSE->es_qual_code == 0x2 ||
11138 			    ST_RQSENSE->es_qual_code == 0x3 ||
11139 			    ST_RQSENSE->es_qual_code == 0x4 ||
11140 			    ST_RQSENSE->es_qual_code == 0x5 ||
11141 			    ST_RQSENSE->es_qual_code == 0x6 ||
11142 			    ST_RQSENSE->es_qual_code == 0x7) {
11143 				rval = DEVICE_TAMPER;
11144 				severity = SCSI_ERR_INFO;
11145 			}
11146 		} else if (ST_RQSENSE->es_add_code == 0x28 &&
11147 		    ((ST_RQSENSE->es_qual_code == 0x0) ||
11148 		    ST_RQSENSE->es_qual_code == 0x5)) {
11149 			/*
11150 			 * Not Ready to Ready change, Media may have changed.
11151 			 */
11152 			rval = DEVICE_TAMPER;
11153 			severity = SCSI_ERR_RETRYABLE;
11154 		} else {
11155 			if (rval != DEVICE_RESET) {
11156 				rval = COMMAND_DONE_ERROR;
11157 			} else {
11158 				/*
11159 				 * Returning DEVICE_RESET will call
11160 				 * error recovery.
11161 				 */
11162 				severity = SCSI_ERR_INFO;
11163 				break; /* don't set position invalid */
11164 			}
11165 			/*
11166 			 * Check if it is an Unexpected Unit Attention.
11167 			 * If state is >= ST_STATE_OPEN, we have
11168 			 * already done the initialization .
11169 			 * In this case it is Fatal Error
11170 			 * since no further reading/writing
11171 			 * can be done with fileno set to < 0.
11172 			 */
11173 			if (un->un_state >= ST_STATE_OPEN) {
11174 				ST_DO_ERRSTATS(un, st_harderrs);
11175 				severity = SCSI_ERR_FATAL;
11176 			} else {
11177 				severity = SCSI_ERR_INFO;
11178 			}
11179 		}
11180 
11181 		pos->pmode = invalid;
11182 
11183 		break;
11184 
11185 	case KEY_NOT_READY:
11186 		/*
11187 		 * If in process of getting ready retry.
11188 		 */
11189 		if (sensep->es_add_code == 0x04) {
11190 			switch (sensep->es_qual_code) {
11191 			case 0x07:
11192 				/*
11193 				 * We get here when the tape is rewinding.
11194 				 * QUE_BUSY_COMMAND retries every 10 seconds.
11195 				 */
11196 				if (ri->pkt_retry_cnt++ <
11197 				    (un->un_dp->rewind_timeout / 10)) {
11198 					rval = QUE_BUSY_COMMAND;
11199 					severity = SCSI_ERR_INFO;
11200 				} else {
11201 					/* give up */
11202 					rval = COMMAND_DONE_ERROR;
11203 					severity = SCSI_ERR_FATAL;
11204 				}
11205 				break;
11206 			case 0x01:
11207 				if (ri->pkt_retry_cnt++ < st_retry_count) {
11208 					rval = QUE_COMMAND;
11209 					severity = SCSI_ERR_INFO;
11210 					break;
11211 				}
11212 			default: /* FALLTHRU */
11213 				/* give up */
11214 				rval = COMMAND_DONE_ERROR;
11215 				severity = SCSI_ERR_FATAL;
11216 			}
11217 		} else {
11218 			/* give up */
11219 			rval = COMMAND_DONE_ERROR;
11220 			severity = SCSI_ERR_FATAL;
11221 		}
11222 
11223 		/*
11224 		 * If this was an error and after device opened
11225 		 * do error stats.
11226 		 */
11227 		if (rval == COMMAND_DONE_ERROR &&
11228 		    un->un_state > ST_STATE_OPENING) {
11229 			ST_DO_ERRSTATS(un, st_harderrs);
11230 		}
11231 
11232 		if (ST_RQSENSE->es_add_code == 0x3a) {
11233 			if (st_error_level >= SCSI_ERR_FATAL)
11234 				scsi_log(ST_DEVINFO, st_label, CE_NOTE,
11235 				    "Tape not inserted in drive\n");
11236 			un->un_mediastate = MTIO_EJECTED;
11237 			cv_broadcast(&un->un_state_cv);
11238 		}
11239 		if ((un->un_dp->options & ST_EJECT_ON_CHANGER_FAILURE) &&
11240 		    (rval != QUE_COMMAND))
11241 			un->un_eject_tape_on_failure = st_check_asc_ascq(un);
11242 		break;
11243 
11244 	case KEY_ABORTED_COMMAND:
11245 		/* XXX Do drives return this when they see a lost light? */
11246 		/* Testing would say yes */
11247 
11248 		if (ri->pkt_retry_cnt++ < st_retry_count) {
11249 			rval = ATTEMPT_RETRY;
11250 			severity = SCSI_ERR_RETRYABLE;
11251 			goto check_keys;
11252 		}
11253 		/*
11254 		 * Probably a parity error...
11255 		 * if we retry here then this may cause data to be
11256 		 * written twice or data skipped during reading
11257 		 */
11258 		ST_DO_ERRSTATS(un, st_harderrs);
11259 		severity = SCSI_ERR_FATAL;
11260 		rval = COMMAND_DONE_ERROR;
11261 		goto check_keys;
11262 
11263 	default:
11264 		/*
11265 		 * Undecoded sense key.	 Try retries and hope
11266 		 * that will fix the problem.  Otherwise, we're
11267 		 * dead.
11268 		 */
11269 		ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11270 		    "Unhandled Sense Key '%s'\n",
11271 		    sense_keys[un->un_status]);
11272 		ST_DO_ERRSTATS(un, st_harderrs);
11273 		severity = SCSI_ERR_FATAL;
11274 		rval = COMMAND_DONE_ERROR;
11275 		goto check_keys;
11276 	}
11277 
11278 	if ((!(pkt->pkt_flags & FLAG_SILENT) &&
11279 	    un->un_state >= ST_STATE_OPEN) && (DEBUGGING ||
11280 	    (un->un_laststate > ST_STATE_OPENING) &&
11281 	    (severity >= st_error_level))) {
11282 
11283 		scsi_errmsg(ST_SCSI_DEVP, pkt, st_label, severity,
11284 		    pos->lgclblkno, un->un_err_pos.lgclblkno,
11285 		    scsi_cmds, sensep);
11286 		if (sensep->es_filmk) {
11287 			scsi_log(ST_DEVINFO, st_label, CE_CONT,
11288 			    "File Mark Detected\n");
11289 		}
11290 		if (sensep->es_eom) {
11291 			scsi_log(ST_DEVINFO, st_label, CE_CONT,
11292 			    "End-of-Media Detected\n");
11293 		}
11294 		if (sensep->es_ili) {
11295 			scsi_log(ST_DEVINFO, st_label, CE_CONT,
11296 			    "Incorrect Length Indicator Set\n");
11297 		}
11298 	}
11299 	get_error = geterror(bp);
11300 	if (((rval == COMMAND_DONE_ERROR) ||
11301 	    (rval == COMMAND_DONE_ERROR_RECOVERED)) &&
11302 	    ((get_error == EIO) || (get_error == 0))) {
11303 		un->un_rqs_state |= (ST_RQS_ERROR | ST_RQS_VALID);
11304 		bcopy(ST_RQSENSE, un->un_uscsi_rqs_buf, SENSE_LENGTH);
11305 		if (un->un_rqs_state & ST_RQS_READ) {
11306 			un->un_rqs_state &= ~(ST_RQS_READ);
11307 		} else {
11308 			un->un_rqs_state |= ST_RQS_OVR;
11309 		}
11310 	}
11311 
11312 	return (rval);
11313 }
11314 
11315 
11316 static int
st_handle_intr_retry_lcmd(struct scsi_tape * un,struct buf * bp)11317 st_handle_intr_retry_lcmd(struct scsi_tape *un, struct buf *bp)
11318 {
11319 	int status = TRAN_ACCEPT;
11320 	pkt_info *pktinfo = BP_PKT(bp)->pkt_private;
11321 
11322 	mutex_enter(ST_MUTEX);
11323 
11324 	ST_FUNC(ST_DEVINFO, st_handle_intr_retry_lcmd);
11325 
11326 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
11327 	    "st_handle_intr_rtr_lcmd(), un = 0x%p\n", (void *)un);
11328 
11329 	/*
11330 	 * Check to see if we hit the retry timeout. We check to make sure
11331 	 * this is the first one on the runq and make sure we have not
11332 	 * queued up any more, so this one has to be the last on the list
11333 	 * also. If it is not, we have to fail.  If it is not the first, but
11334 	 * is the last we are in trouble anyway, as we are in the interrupt
11335 	 * context here.
11336 	 */
11337 	if ((pktinfo->pkt_retry_cnt > st_retry_count) ||
11338 	    ((un->un_runqf != bp) && (un->un_runql != bp))) {
11339 		goto exit;
11340 	}
11341 
11342 	if (un->un_throttle) {
11343 		un->un_last_throttle = un->un_throttle;
11344 		un->un_throttle = 0;
11345 	}
11346 
11347 	/*
11348 	 * Here we know : bp is the first and last one on the runq
11349 	 * it is not necessary to put it back on the head of the
11350 	 * waitq and then move from waitq to runq. Save this queuing
11351 	 * and call scsi_transport.
11352 	 */
11353 	ST_CDB(ST_DEVINFO, "Retry lcmd CDB", (char *)BP_PKT(bp)->pkt_cdbp);
11354 
11355 	status = st_transport(un, BP_PKT(bp));
11356 
11357 	if (status == TRAN_ACCEPT) {
11358 		if (un->un_last_throttle) {
11359 			un->un_throttle = un->un_last_throttle;
11360 		}
11361 		mutex_exit(ST_MUTEX);
11362 
11363 		ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11364 		    "restart transport \n");
11365 		return (0);
11366 	}
11367 
11368 	ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
11369 	mutex_exit(ST_MUTEX);
11370 
11371 	if (status == TRAN_BUSY) {
11372 		if (st_handle_intr_busy(un, bp, ST_TRAN_BUSY_TIMEOUT) == 0) {
11373 			return (0);
11374 		}
11375 	}
11376 	ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11377 	    "restart transport rejected\n");
11378 	mutex_enter(ST_MUTEX);
11379 	ST_DO_ERRSTATS(un, st_transerrs);
11380 	if (un->un_last_throttle) {
11381 		un->un_throttle = un->un_last_throttle;
11382 	}
11383 exit:
11384 	mutex_exit(ST_MUTEX);
11385 	return (-1);
11386 }
11387 
11388 static int
st_wrongtapetype(struct scsi_tape * un)11389 st_wrongtapetype(struct scsi_tape *un)
11390 {
11391 
11392 	ST_FUNC(ST_DEVINFO, st_wrongtapetype);
11393 
11394 	ASSERT(mutex_owned(ST_MUTEX));
11395 
11396 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_wrongtapetype()\n");
11397 
11398 	/*
11399 	 * Hack to handle  600A, 600XTD, 6150 && 660 vs. 300XL tapes...
11400 	 */
11401 	if (un->un_dp && (un->un_dp->options & ST_QIC) && un->un_mspl) {
11402 		switch (un->un_dp->type) {
11403 		case ST_TYPE_WANGTEK:
11404 		case ST_TYPE_ARCHIVE:
11405 			/*
11406 			 * If this really worked, we could go off of
11407 			 * the density codes set in the modesense
11408 			 * page. For this drive, 0x10 == QIC-120,
11409 			 * 0xf == QIC-150, and 0x5 should be for
11410 			 * both QIC-24 and, maybe, QIC-11. However,
11411 			 * the h/w doesn't do what the manual says
11412 			 * that it should, so we'll key off of
11413 			 * getting a WRITE PROTECT error AND wp *not*
11414 			 * set in the mode sense information.
11415 			 */
11416 			/*
11417 			 * XXX but we already know that status is
11418 			 * write protect, so don't check it again.
11419 			 */
11420 
11421 			if (un->un_status == KEY_WRITE_PROTECT &&
11422 			    un->un_mspl->wp == 0) {
11423 				return (1);
11424 			}
11425 			break;
11426 		default:
11427 			break;
11428 		}
11429 	}
11430 	return (0);
11431 }
11432 
11433 static errstate
st_check_error(struct scsi_tape * un,struct scsi_pkt * pkt)11434 st_check_error(struct scsi_tape *un, struct scsi_pkt *pkt)
11435 {
11436 	errstate action;
11437 	recov_info *rcvi = pkt->pkt_private;
11438 	buf_t *bp = rcvi->cmd_bp;
11439 	struct scsi_arq_status *stat = (struct scsi_arq_status *)pkt->pkt_scbp;
11440 
11441 	ST_FUNC(ST_DEVINFO, st_check_error);
11442 
11443 	ASSERT(mutex_owned(ST_MUTEX));
11444 
11445 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_check_error()\n");
11446 
11447 	switch (SCBP_C(pkt)) {
11448 	case STATUS_RESERVATION_CONFLICT:
11449 		/*
11450 		 * Command recovery is enabled, not just opening,
11451 		 * we had the drive reserved and we thing its ours.
11452 		 * Call recovery to attempt to take it back.
11453 		 */
11454 		if ((rcvi->privatelen == sizeof (recov_info)) &&
11455 		    (bp != un->un_recov_buf) &&
11456 		    (un->un_state > ST_STATE_OPEN_PENDING_IO) &&
11457 		    ((un->un_rsvd_status & (ST_RESERVE |
11458 		    ST_APPLICATION_RESERVATIONS)) != 0)) {
11459 			action = ATTEMPT_RETRY;
11460 			un->un_rsvd_status |= ST_LOST_RESERVE;
11461 		} else {
11462 			action = COMMAND_DONE_EACCES;
11463 			un->un_rsvd_status |= ST_RESERVATION_CONFLICT;
11464 		}
11465 		break;
11466 
11467 	case STATUS_BUSY:
11468 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG, "unit busy\n");
11469 		if (rcvi->privatelen == sizeof (recov_info) &&
11470 		    un->un_multipath && (pkt->pkt_state == (STATE_GOT_BUS |
11471 		    STATE_GOT_TARGET | STATE_SENT_CMD | STATE_GOT_STATUS))) {
11472 			/*
11473 			 * Status returned by scsi_vhci indicating path
11474 			 * has failed over.
11475 			 */
11476 			action = PATH_FAILED;
11477 			break;
11478 		}
11479 		/* FALLTHRU */
11480 	case STATUS_QFULL:
11481 		if (rcvi->privatelen == sizeof (recov_info)) {
11482 			/*
11483 			 * If recovery is inabled use it instead of
11484 			 * blind reties.
11485 			 */
11486 			action = ATTEMPT_RETRY;
11487 		} else if (rcvi->pkt_retry_cnt++ < st_retry_count) {
11488 			action = QUE_BUSY_COMMAND;
11489 		} else if ((un->un_rsvd_status &
11490 		    (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) == 0) {
11491 			/*
11492 			 * If this is a command done before reserve is done
11493 			 * don't reset.
11494 			 */
11495 			action = COMMAND_DONE_ERROR;
11496 		} else {
11497 			ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
11498 			    "unit busy too long\n");
11499 			(void) st_reset(un, RESET_ALL);
11500 			action = COMMAND_DONE_ERROR;
11501 		}
11502 		break;
11503 
11504 	case STATUS_CHECK:
11505 	case STATUS_TERMINATED:
11506 		/*
11507 		 * we should only get here if the auto rqsense failed
11508 		 * thru a uscsi cmd without autorequest sense
11509 		 * so we just try again
11510 		 */
11511 		if (un->un_arq_enabled &&
11512 		    stat->sts_rqpkt_reason == CMD_CMPLT &&
11513 		    (stat->sts_rqpkt_state & (STATE_GOT_BUS |
11514 		    STATE_GOT_TARGET | STATE_SENT_CMD | STATE_GOT_STATUS)) ==
11515 		    (STATE_GOT_BUS | STATE_GOT_TARGET | STATE_SENT_CMD |
11516 		    STATE_GOT_STATUS)) {
11517 
11518 			ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
11519 			    "Really got sense data\n");
11520 			action = st_decode_sense(un, bp, MAX_SENSE_LENGTH -
11521 			    pkt->pkt_resid, stat, &un->un_pos);
11522 		} else {
11523 			ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
11524 			    "Trying to queue sense command\n");
11525 			action = QUE_SENSE;
11526 		}
11527 		break;
11528 
11529 	case STATUS_TASK_ABORT:
11530 		/*
11531 		 * This is an aborted task. This can be a reset on the other
11532 		 * port of a multiport drive. Lets try and recover it.
11533 		 */
11534 		action = DEVICE_RESET;
11535 		break;
11536 
11537 	default:
11538 		action = COMMAND_DONE;
11539 		ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
11540 		    "Unexpected scsi status byte 0x%x\n", SCBP_C(pkt));
11541 	}
11542 	return (action);
11543 }
11544 
11545 static void
st_calc_bnum(struct scsi_tape * un,struct buf * bp,struct scsi_pkt * pkt)11546 st_calc_bnum(struct scsi_tape *un, struct buf *bp, struct scsi_pkt *pkt)
11547 {
11548 	int nblks;
11549 	int nfiles;
11550 	long count;
11551 	recov_info *ri = pkt->pkt_private;
11552 	cmd_attribute const *attrib;
11553 
11554 	ST_FUNC(ST_DEVINFO, st_calc_bnum);
11555 
11556 	ASSERT(mutex_owned(ST_MUTEX));
11557 
11558 	if (ri->privatelen == sizeof (recov_info)) {
11559 		attrib = ri->cmd_attrib;
11560 		ASSERT(attrib->recov_pos_type == POS_EXPECTED);
11561 		ASSERT(attrib->chg_tape_pos);
11562 	} else {
11563 		ri = NULL;
11564 		attrib = st_lookup_cmd_attribute(pkt->pkt_cdbp[0]);
11565 	}
11566 
11567 	count = bp->b_bcount - bp->b_resid;
11568 
11569 	/* Command reads or writes data */
11570 	if (attrib->transfers_data != TRAN_NONE) {
11571 		if (count == 0) {
11572 			if (attrib->transfers_data == TRAN_WRTE) {
11573 				ASSERT(un->un_pos.eof == ST_EOM);
11574 				nblks = 0;
11575 				nfiles = 0;
11576 			} else {
11577 				ASSERT(un->un_pos.eof == ST_EOF_PENDING);
11578 				nblks = 0;
11579 				nfiles = 1;
11580 			}
11581 		} else if (un->un_bsize == 0) {
11582 			/*
11583 			 * If variable block mode.
11584 			 * Fixed bit in CBD should be zero.
11585 			 */
11586 			ASSERT((pkt->pkt_cdbp[1] & 1) == 0);
11587 			nblks = 1;
11588 			un->un_kbytes_xferred += (count / ONE_K);
11589 			nfiles = 0;
11590 		} else {
11591 			/*
11592 			 * If fixed block mode.
11593 			 * Fixed bit in CBD should be one.
11594 			 */
11595 			ASSERT((pkt->pkt_cdbp[1] & 1) == 1);
11596 			nblks = (count / un->un_bsize);
11597 			un->un_kbytes_xferred += (nblks * un->un_bsize) / ONE_K;
11598 			nfiles = 0;
11599 		}
11600 		/*
11601 		 * So its possable to read some blocks and hit a filemark.
11602 		 * Example reading in fixed block mode where more then one
11603 		 * block at a time is requested. In this case because the
11604 		 * filemark is hit something less then the requesed number
11605 		 * of blocks is read.
11606 		 */
11607 		if (un->un_pos.eof == ST_EOF_PENDING && bp->b_resid) {
11608 			nfiles = 1;
11609 		}
11610 	} else {
11611 		nblks = 0;
11612 		nfiles = count;
11613 	}
11614 
11615 	/*
11616 	 * If some command failed after this one started and it seems
11617 	 * to have finshed without error count the position.
11618 	 */
11619 	if (un->un_persistence && un->un_persist_errors) {
11620 		ASSERT(un->un_pos.pmode != invalid);
11621 	}
11622 
11623 	if (attrib->chg_tape_direction == DIR_FORW) {
11624 		un->un_pos.blkno += nblks;
11625 		un->un_pos.lgclblkno += nblks;
11626 		un->un_pos.lgclblkno += nfiles;
11627 	} else if (attrib->chg_tape_direction == DIR_REVC) {
11628 		un->un_pos.blkno -= nblks;
11629 		un->un_pos.lgclblkno -= nblks;
11630 		un->un_pos.lgclblkno -= nfiles;
11631 	} else {
11632 		ASSERT(0);
11633 	}
11634 
11635 	/* recovery disabled */
11636 	if (ri == NULL) {
11637 		un->un_running.pmode = invalid;
11638 		return;
11639 	}
11640 
11641 	/*
11642 	 * If we didn't just read a filemark.
11643 	 */
11644 	if (un->un_pos.eof != ST_EOF_PENDING) {
11645 		ASSERT(nblks != 0 && nfiles == 0);
11646 		/*
11647 		 * If Previously calulated expected position does not match
11648 		 * debug the expected position.
11649 		 */
11650 		if ((ri->pos.pmode != invalid) && nblks &&
11651 		    ((un->un_pos.blkno != ri->pos.blkno) ||
11652 		    (un->un_pos.lgclblkno != ri->pos.lgclblkno))) {
11653 #ifdef STDEBUG
11654 			st_print_position(ST_DEVINFO, st_label, CE_NOTE,
11655 			    "Expected", &ri->pos);
11656 			st_print_position(ST_DEVINFO, st_label, CE_NOTE,
11657 			    "But Got", &un->un_pos);
11658 #endif
11659 			un->un_running.pmode = invalid;
11660 		}
11661 	} else {
11662 		ASSERT(nfiles != 0);
11663 		if (un->un_running.pmode != invalid) {
11664 			/*
11665 			 * blkno and lgclblkno already counted in
11666 			 * st_add_recovery_info_to_pkt(). Since a block was not
11667 			 * read and a filemark was.
11668 			 */
11669 			if (attrib->chg_tape_direction == DIR_FORW) {
11670 				un->un_running.fileno++;
11671 				un->un_running.blkno = 0;
11672 			} else if (attrib->chg_tape_direction == DIR_REVC) {
11673 				un->un_running.fileno--;
11674 				un->un_running.blkno = LASTBLK;
11675 			}
11676 		}
11677 	}
11678 }
11679 
11680 static void
st_set_state(struct scsi_tape * un,struct buf * bp)11681 st_set_state(struct scsi_tape *un, struct buf *bp)
11682 {
11683 	struct scsi_pkt *sp = BP_PKT(bp);
11684 	struct uscsi_cmd *ucmd;
11685 
11686 	ST_FUNC(ST_DEVINFO, st_set_state);
11687 
11688 	ASSERT(mutex_owned(ST_MUTEX));
11689 	ASSERT(bp != un->un_recov_buf);
11690 
11691 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
11692 	    "st_set_state(): eof=%x	fmneeded=%x  pkt_resid=0x%lx (%ld)\n",
11693 	    un->un_pos.eof, un->un_fmneeded, sp->pkt_resid, sp->pkt_resid);
11694 
11695 	if (bp != un->un_sbufp) {
11696 #ifdef STDEBUG
11697 		if (DEBUGGING && sp->pkt_resid) {
11698 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
11699 			    "pkt_resid %ld bcount %ld\n",
11700 			    sp->pkt_resid, bp->b_bcount);
11701 		}
11702 #endif
11703 		bp->b_resid = sp->pkt_resid;
11704 		if (geterror(bp) != EIO) {
11705 			st_calc_bnum(un, bp, sp);
11706 		}
11707 		if (bp->b_flags & B_READ) {
11708 			un->un_lastop = ST_OP_READ;
11709 			un->un_fmneeded = 0;
11710 		} else {
11711 			un->un_lastop = ST_OP_WRITE;
11712 			if (un->un_dp->options & ST_REEL) {
11713 				un->un_fmneeded = 2;
11714 			} else {
11715 				un->un_fmneeded = 1;
11716 			}
11717 		}
11718 		/*
11719 		 * all is honky dory at this point, so let's
11720 		 * readjust the throttle, to increase speed, if we
11721 		 * have not throttled down.
11722 		 */
11723 		if (un->un_throttle) {
11724 			un->un_throttle = un->un_max_throttle;
11725 		}
11726 	} else {
11727 		optype new_lastop = ST_OP_NIL;
11728 		uchar_t cmd = (uchar_t)(intptr_t)bp->b_forw;
11729 
11730 		switch (cmd) {
11731 		case SCMD_WRITE:
11732 		case SCMD_WRITE_G4:
11733 			bp->b_resid = sp->pkt_resid;
11734 			new_lastop = ST_OP_WRITE;
11735 			if (geterror(bp) == EIO) {
11736 				break;
11737 			}
11738 			st_calc_bnum(un, bp, sp);
11739 			if (un->un_dp->options & ST_REEL) {
11740 				un->un_fmneeded = 2;
11741 			} else {
11742 				un->un_fmneeded = 1;
11743 			}
11744 			break;
11745 		case SCMD_READ:
11746 		case SCMD_READ_G4:
11747 			bp->b_resid = sp->pkt_resid;
11748 			new_lastop = ST_OP_READ;
11749 			un->un_lastop = ST_OP_READ;
11750 			if (geterror(bp) == EIO) {
11751 				break;
11752 			}
11753 			st_calc_bnum(un, bp, sp);
11754 			un->un_fmneeded = 0;
11755 			break;
11756 		case SCMD_WRITE_FILE_MARK_G4:
11757 		case SCMD_WRITE_FILE_MARK:
11758 		{
11759 			int fmdone;
11760 
11761 			if (un->un_pos.eof != ST_EOM) {
11762 				un->un_pos.eof = ST_NO_EOF;
11763 			}
11764 			fmdone = (bp->b_bcount - bp->b_resid);
11765 			if (fmdone > 0) {
11766 				un->un_lastop = new_lastop = ST_OP_WEOF;
11767 				un->un_pos.lgclblkno += fmdone;
11768 				un->un_pos.fileno += fmdone;
11769 				un->un_pos.blkno = 0;
11770 			} else {
11771 				new_lastop = ST_OP_CTL;
11772 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
11773 				    "Flushed buffer\n");
11774 			}
11775 			if (fmdone > un->un_fmneeded) {
11776 				un->un_fmneeded = 0;
11777 			} else {
11778 				un->un_fmneeded -= fmdone;
11779 			}
11780 			break;
11781 		}
11782 		case SCMD_REWIND:
11783 			un->un_pos.eof = ST_NO_EOF;
11784 			un->un_pos.fileno = 0;
11785 			un->un_pos.blkno = 0;
11786 			un->un_pos.lgclblkno = 0;
11787 			if (un->un_pos.pmode != legacy)
11788 				un->un_pos.pmode = legacy;
11789 			new_lastop = ST_OP_CTL;
11790 			un->un_restore_pos = 0;
11791 			break;
11792 
11793 		case SCMD_SPACE:
11794 		case SCMD_SPACE_G4:
11795 		{
11796 			int64_t count;
11797 			int64_t resid;
11798 			int64_t done;
11799 			cmd_attribute const *attrib;
11800 			recov_info *ri = sp->pkt_private;
11801 
11802 			if (ri->privatelen == sizeof (recov_info)) {
11803 				attrib = ri->cmd_attrib;
11804 			} else {
11805 				attrib =
11806 				    st_lookup_cmd_attribute(sp->pkt_cdbp[0]);
11807 			}
11808 
11809 			resid = (int64_t)SPACE_CNT(bp->b_resid);
11810 			count = (int64_t)attrib->get_cnt(sp->pkt_cdbp);
11811 
11812 			if (count >= 0) {
11813 				done = (count - resid);
11814 			} else {
11815 				done = ((-count) - resid);
11816 			}
11817 			if (done > 0) {
11818 				un->un_lastop = new_lastop = ST_OP_CTL;
11819 			} else {
11820 				new_lastop = ST_OP_CTL;
11821 			}
11822 
11823 			ST_SPAC(ST_DEVINFO, st_label, CE_WARN,
11824 			    "space cmd: cdb[1] = %s\n"
11825 			    "space data:       = 0x%lx\n"
11826 			    "space count:      = %"PRId64"\n"
11827 			    "space resid:      = %"PRId64"\n"
11828 			    "spaces done:      = %"PRId64"\n"
11829 			    "fileno before     = %d\n"
11830 			    "blkno before      = %d\n",
11831 			    space_strs[sp->pkt_cdbp[1] & 7],
11832 			    bp->b_bcount,
11833 			    count, resid, done,
11834 			    un->un_pos.fileno, un->un_pos.blkno);
11835 
11836 			switch (sp->pkt_cdbp[1]) {
11837 			case SPACE_TYPE(SP_FLM):
11838 				/* Space file forward */
11839 				if (count >= 0) {
11840 					if (un->un_pos.eof <= ST_EOF) {
11841 						un->un_pos.eof = ST_NO_EOF;
11842 					}
11843 					un->un_pos.fileno += done;
11844 					un->un_pos.blkno = 0;
11845 					break;
11846 				}
11847 				/* Space file backward */
11848 				if (done > un->un_pos.fileno) {
11849 					un->un_pos.fileno = 0;
11850 					un->un_pos.blkno = 0;
11851 				} else {
11852 					un->un_pos.fileno -= done;
11853 					un->un_pos.blkno = LASTBLK;
11854 					un->un_running.pmode = invalid;
11855 				}
11856 				break;
11857 			case SPACE_TYPE(SP_BLK):
11858 				/* Space block forward */
11859 				if (count >= 0) {
11860 					un->un_pos.blkno += done;
11861 					break;
11862 				}
11863 				/* Space block backward */
11864 				if (un->un_pos.eof >= ST_EOF_PENDING) {
11865 				/*
11866 				 * we stepped back into
11867 				 * a previous file; we are not
11868 				 * making an effort to pretend that
11869 				 * we are still in the current file
11870 				 * ie. logical == physical position
11871 				 * and leave it to st_ioctl to correct
11872 				 */
11873 					if (done > un->un_pos.blkno) {
11874 						un->un_pos.blkno = 0;
11875 					} else {
11876 						un->un_pos.fileno--;
11877 						un->un_pos.blkno = LASTBLK;
11878 						un->un_running.pmode = invalid;
11879 					}
11880 				} else {
11881 					un->un_pos.blkno -= done;
11882 				}
11883 				break;
11884 			case SPACE_TYPE(SP_SQFLM):
11885 				un->un_pos.pmode = logical;
11886 				un->un_pos.blkno = 0;
11887 				un->un_lastop = new_lastop = ST_OP_CTL;
11888 				break;
11889 			case SPACE_TYPE(SP_EOD):
11890 				un->un_pos.pmode = logical;
11891 				un->un_pos.eof = ST_EOM;
11892 				un->un_status = KEY_BLANK_CHECK;
11893 				break;
11894 			default:
11895 				un->un_pos.pmode = invalid;
11896 				scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
11897 				    "Unsupported space cmd: %s\n",
11898 				    space_strs[sp->pkt_cdbp[1] & 7]);
11899 
11900 				un->un_lastop = new_lastop = ST_OP_CTL;
11901 			}
11902 
11903 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
11904 			    "after_space rs %"PRId64" fil %d blk %d\n",
11905 			    resid, un->un_pos.fileno, un->un_pos.blkno);
11906 
11907 			break;
11908 		}
11909 		case SCMD_LOAD:
11910 			if ((bp->b_bcount & (LD_LOAD | LD_EOT)) == LD_LOAD) {
11911 				un->un_pos.fileno = 0;
11912 				if (un->un_pos.pmode != legacy)
11913 					un->un_pos.pmode = legacy;
11914 			} else {
11915 				un->un_state = ST_STATE_OFFLINE;
11916 				un->un_pos.pmode = invalid;
11917 
11918 			}
11919 			/*
11920 			 * If we are loading or unloading we expect the media id
11921 			 * to change. Lets make it unknown.
11922 			 */
11923 			if (un->un_media_id != bogusID && un->un_media_id_len) {
11924 				kmem_free(un->un_media_id, un->un_media_id_len);
11925 				un->un_media_id = NULL;
11926 				un->un_media_id_len = 0;
11927 			}
11928 			un->un_density_known = 0;
11929 			un->un_pos.eof = ST_NO_EOF;
11930 			un->un_pos.blkno = 0;
11931 			un->un_lastop = new_lastop = ST_OP_CTL;
11932 			break;
11933 		case SCMD_ERASE:
11934 			un->un_pos.eof = ST_NO_EOF;
11935 			un->un_pos.blkno = 0;
11936 			un->un_pos.fileno = 0;
11937 			un->un_pos.lgclblkno = 0;
11938 			if (un->un_pos.pmode != legacy)
11939 				un->un_pos.pmode = legacy;
11940 			new_lastop = ST_OP_CTL;
11941 			break;
11942 		case SCMD_RESERVE:
11943 			un->un_rsvd_status |= ST_RESERVE;
11944 			un->un_rsvd_status &=
11945 			    ~(ST_RELEASE | ST_LOST_RESERVE |
11946 			    ST_RESERVATION_CONFLICT | ST_INITIATED_RESET);
11947 			new_lastop = ST_OP_CTL;
11948 			break;
11949 		case SCMD_RELEASE:
11950 			un->un_rsvd_status |= ST_RELEASE;
11951 			un->un_rsvd_status &=
11952 			    ~(ST_RESERVE | ST_LOST_RESERVE |
11953 			    ST_RESERVATION_CONFLICT | ST_INITIATED_RESET);
11954 			new_lastop = ST_OP_CTL;
11955 			break;
11956 		case SCMD_PERSISTENT_RESERVE_IN:
11957 			ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11958 			    "PGR_IN command\n");
11959 			new_lastop = ST_OP_CTL;
11960 			break;
11961 		case SCMD_PERSISTENT_RESERVE_OUT:
11962 			switch (sp->pkt_cdbp[1] & ST_SA_MASK) {
11963 			case ST_SA_SCSI3_RESERVE:
11964 			case ST_SA_SCSI3_PREEMPT:
11965 			case ST_SA_SCSI3_PREEMPTANDABORT:
11966 				un->un_rsvd_status |=
11967 				    (ST_APPLICATION_RESERVATIONS | ST_RESERVE);
11968 				un->un_rsvd_status &= ~(ST_RELEASE |
11969 				    ST_LOST_RESERVE | ST_RESERVATION_CONFLICT |
11970 				    ST_INITIATED_RESET);
11971 				ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11972 				    "PGR Reserve and set: entering"
11973 				    " ST_APPLICATION_RESERVATIONS mode");
11974 				break;
11975 			case ST_SA_SCSI3_REGISTER:
11976 				ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11977 				    "PGR Reserve register key");
11978 				un->un_rsvd_status |= ST_INIT_RESERVE;
11979 				break;
11980 			case ST_SA_SCSI3_CLEAR:
11981 				un->un_rsvd_status &= ~ST_INIT_RESERVE;
11982 				/* FALLTHROUGH */
11983 			case ST_SA_SCSI3_RELEASE:
11984 				un->un_rsvd_status &=
11985 				    ~(ST_APPLICATION_RESERVATIONS | ST_RESERVE |
11986 				    ST_LOST_RESERVE | ST_RESERVATION_CONFLICT |
11987 				    ST_INITIATED_RESET);
11988 				un->un_rsvd_status |= ST_RELEASE;
11989 				ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
11990 				    "PGR Release and reset: exiting"
11991 				    " ST_APPLICATION_RESERVATIONS mode");
11992 				break;
11993 			}
11994 			new_lastop = ST_OP_CTL;
11995 			break;
11996 		case SCMD_TEST_UNIT_READY:
11997 		case SCMD_READ_BLKLIM:
11998 		case SCMD_REQUEST_SENSE:
11999 		case SCMD_INQUIRY:
12000 		case SCMD_RECOVER_BUF:
12001 		case SCMD_MODE_SELECT:
12002 		case SCMD_MODE_SENSE:
12003 		case SCMD_DOORLOCK:
12004 		case SCMD_READ_BUFFER:
12005 		case SCMD_REPORT_DENSITIES:
12006 		case SCMD_LOG_SELECT_G1:
12007 		case SCMD_LOG_SENSE_G1:
12008 		case SCMD_REPORT_LUNS:
12009 		case SCMD_READ_ATTRIBUTE:
12010 		case SCMD_WRITE_ATTRIBUTE:
12011 		case SCMD_SVC_ACTION_IN_G5:
12012 		case SCMD_SECURITY_PROTO_IN:
12013 		case SCMD_SECURITY_PROTO_OUT:
12014 			new_lastop = ST_OP_CTL;
12015 			break;
12016 		case SCMD_READ_POSITION:
12017 			new_lastop = ST_OP_CTL;
12018 			/*
12019 			 * Only if the buf used was un_sbufp.
12020 			 * Among other things the prevents read positions used
12021 			 * as part of error recovery from messing up our
12022 			 * current position as they will use un_recov_buf.
12023 			 */
12024 			if (USCSI_CMD(bp)) {
12025 				(void) st_get_read_pos(un, bp);
12026 			}
12027 			break;
12028 		case SCMD_LOCATE:
12029 		case SCMD_LOCATE_G4:
12030 			/* Locate makes position mode no longer legacy */
12031 			un->un_lastop = new_lastop = ST_OP_CTL;
12032 			break;
12033 		case SCMD_MAINTENANCE_IN:
12034 			switch (sp->pkt_cdbp[1]) {
12035 			case SSVC_ACTION_GET_SUPPORTED_OPERATIONS:
12036 			case SSVC_ACTION_SET_TARGET_PORT_GROUPS:
12037 				new_lastop = ST_OP_CTL;
12038 				break;
12039 			}
12040 			if (new_lastop != ST_OP_NIL) {
12041 				break;
12042 			}
12043 		default:
12044 			/*
12045 			 * Unknown command, If was USCSI and USCSI_SILENT
12046 			 * flag was not set, set position to unknown.
12047 			 */
12048 			if ((((ucmd = BP_UCMD(bp)) != NULL) &&
12049 			    (ucmd->uscsi_flags & USCSI_SILENT) == 0)) {
12050 				ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
12051 				    "unknown cmd 0x%X caused loss of state\n",
12052 				    cmd);
12053 			} else {
12054 				/*
12055 				 * keep the old agreement to allow unknown
12056 				 * commands with the USCSI_SILENT set.
12057 				 * This prevents ASSERT below.
12058 				 */
12059 				new_lastop = ST_OP_CTL;
12060 				break;
12061 			}
12062 			/* FALLTHROUGH */
12063 		case SCMD_WRITE_BUFFER: /* Writes new firmware to device */
12064 			un->un_pos.pmode = invalid;
12065 			un->un_lastop = new_lastop = ST_OP_CTL;
12066 			break;
12067 		}
12068 
12069 		/* new_lastop should have been changed */
12070 		ASSERT(new_lastop != ST_OP_NIL);
12071 
12072 		/* If un_lastop should copy new_lastop  */
12073 		if (((un->un_lastop == ST_OP_WRITE) ||
12074 		    (un->un_lastop == ST_OP_WEOF)) &&
12075 		    new_lastop != ST_OP_CTL) {
12076 			un->un_lastop = new_lastop;
12077 		}
12078 	}
12079 
12080 	/*
12081 	 * In the st driver we have a logical and physical file position.
12082 	 * Under BSD behavior, when you get a zero read, the logical position
12083 	 * is before the filemark but after the last record of the file.
12084 	 * The physical position is after the filemark. MTIOCGET should always
12085 	 * return the logical file position.
12086 	 *
12087 	 * The next read gives a silent skip to the next file.
12088 	 * Under SVR4, the logical file position remains before the filemark
12089 	 * until the file is closed or a space operation is performed.
12090 	 * Hence set err_resid and err_file before changing fileno if case
12091 	 * BSD Behaviour.
12092 	 */
12093 	un->un_err_resid = bp->b_resid;
12094 	COPY_POS(&un->un_err_pos, &un->un_pos);
12095 
12096 
12097 	/*
12098 	 * If we've seen a filemark via the last read operation
12099 	 * advance the file counter, but mark things such that
12100 	 * the next read operation gets a zero count. We have
12101 	 * to put this here to handle the case of sitting right
12102 	 * at the end of a tape file having seen the file mark,
12103 	 * but the tape is closed and then re-opened without
12104 	 * any further i/o. That is, the position information
12105 	 * must be updated before a close.
12106 	 */
12107 
12108 	if (un->un_lastop == ST_OP_READ && un->un_pos.eof == ST_EOF_PENDING) {
12109 		/*
12110 		 * If we're a 1/2" tape, and we get a filemark
12111 		 * right on block 0, *AND* we were not in the
12112 		 * first file on the tape, and we've hit logical EOM.
12113 		 * We'll mark the state so that later we do the
12114 		 * right thing (in st_close(), st_strategy() or
12115 		 * st_ioctl()).
12116 		 *
12117 		 */
12118 		if ((un->un_dp->options & ST_REEL) &&
12119 		    !(un->un_dp->options & ST_READ_IGNORE_EOFS) &&
12120 		    un->un_pos.blkno == 0 && un->un_pos.fileno > 0) {
12121 			un->un_pos.eof = ST_EOT_PENDING;
12122 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
12123 			    "eot pending\n");
12124 			un->un_pos.fileno++;
12125 			un->un_pos.blkno = 0;
12126 		} else if (BP_UCMD(bp)) {
12127 			/*
12128 			 * Uscsi reads have no concept of Berkley ver System IV.
12129 			 * Counts here must match raw device.
12130 			 * A non-full resid implies fix block mode where an
12131 			 * attempt to read X blocks resulted in less then X.
12132 			 */
12133 			if (bp->b_resid != bp->b_bcount) {
12134 				un->un_pos.eof = ST_EOF;
12135 			} else {
12136 				/* Read over a file mark */
12137 				un->un_pos.fileno++;
12138 				/* logical block is counted up elsewhere */
12139 				/* we're before the first block in next file */
12140 				un->un_pos.blkno = 0;
12141 				/* EOF is no longer pending */
12142 				un->un_pos.eof = ST_NO_EOF;
12143 			}
12144 		} else if (BSD_BEHAVIOR) {
12145 			/*
12146 			 * If the read of the filemark was a side effect
12147 			 * of reading some blocks (i.e., data was actually
12148 			 * read), then the EOF mark is pending and the
12149 			 * bump into the next file awaits the next read
12150 			 * operation (which will return a zero count), or
12151 			 * a close or a space operation, else the bump
12152 			 * into the next file occurs now.
12153 			 */
12154 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
12155 			    "resid=%lx, bcount=%lx\n",
12156 			    bp->b_resid, bp->b_bcount);
12157 
12158 			if (bp->b_resid != bp->b_bcount) {
12159 				un->un_pos.eof = ST_EOF;
12160 			} else {
12161 				un->un_silent_skip = 1;
12162 				un->un_pos.eof = ST_NO_EOF;
12163 				un->un_pos.fileno++;
12164 				un->un_pos.lgclblkno++;
12165 				un->un_save_blkno = un->un_pos.blkno;
12166 				un->un_pos.blkno = 0;
12167 			}
12168 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
12169 			    "eof of file %d, eof=%d\n",
12170 			    un->un_pos.fileno, un->un_pos.eof);
12171 		} else if (SVR4_BEHAVIOR) {
12172 			/*
12173 			 * If the read of the filemark was a side effect
12174 			 * of reading some blocks (i.e., data was actually
12175 			 * read), then the next read should return 0
12176 			 */
12177 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
12178 			    "resid=%lx, bcount=%lx\n",
12179 			    bp->b_resid, bp->b_bcount);
12180 			if (bp->b_resid == bp->b_bcount) {
12181 				un->un_pos.eof = ST_EOF;
12182 			}
12183 			ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
12184 			    "eof of file=%d, eof=%d\n",
12185 			    un->un_pos.fileno, un->un_pos.eof);
12186 		}
12187 	}
12188 }
12189 
12190 /*
12191  * set the correct un_errno, to take corner cases into consideration
12192  */
12193 static void
st_set_pe_errno(struct scsi_tape * un)12194 st_set_pe_errno(struct scsi_tape *un)
12195 {
12196 	ST_FUNC(ST_DEVINFO, st_set_pe_errno);
12197 
12198 	ASSERT(mutex_owned(ST_MUTEX));
12199 
12200 	/* if errno is already set, don't reset it */
12201 	if (un->un_errno)
12202 		return;
12203 
12204 	/* here un_errno == 0 */
12205 	/*
12206 	 * if the last transfer before flushing all the
12207 	 * waiting I/O's, was 0 (resid = count), then we
12208 	 * want to give the user an error on all the rest,
12209 	 * so here.  If there was a transfer, we set the
12210 	 * resid and counts to 0, and let it drop through,
12211 	 * giving a zero return.  the next I/O will then
12212 	 * give an error.
12213 	 */
12214 	if (un->un_last_resid == un->un_last_count) {
12215 		switch (un->un_pos.eof) {
12216 		case ST_EOM:
12217 			un->un_errno = ENOMEM;
12218 			break;
12219 		case ST_EOT:
12220 		case ST_EOF:
12221 			un->un_errno = EIO;
12222 			break;
12223 		}
12224 	} else {
12225 		/*
12226 		 * we know they did not have a zero, so make
12227 		 * sure they get one
12228 		 */
12229 		un->un_last_resid = un->un_last_count = 0;
12230 	}
12231 }
12232 
12233 
12234 /*
12235  * send in a marker pkt to terminate flushing of commands by BBA (via
12236  * flush-on-errors) property.  The HBA will always return TRAN_ACCEPT
12237  */
12238 static void
st_hba_unflush(struct scsi_tape * un)12239 st_hba_unflush(struct scsi_tape *un)
12240 {
12241 	ST_FUNC(ST_DEVINFO, st_hba_unflush);
12242 
12243 	ASSERT(mutex_owned(ST_MUTEX));
12244 
12245 	if (!un->un_flush_on_errors)
12246 		return;
12247 
12248 #ifdef FLUSH_ON_ERRORS
12249 
12250 	if (!un->un_mkr_pkt) {
12251 		un->un_mkr_pkt = scsi_init_pkt(ROUTE, NULL, (struct buf *)NULL,
12252 		    NULL, 0, 0, 0, SLEEP_FUNC, NULL);
12253 
12254 		/* we slept, so it must be there */
12255 		pkt->pkt_flags |= FLAG_FLUSH_MARKER;
12256 	}
12257 
12258 	st_transport(un, un->un_mkr_pkt);
12259 #endif
12260 }
12261 
12262 static char *
st_print_scsi_cmd(char cmd)12263 st_print_scsi_cmd(char cmd)
12264 {
12265 	char tmp[64];
12266 	char *cpnt;
12267 
12268 	cpnt = scsi_cmd_name(cmd, scsi_cmds, tmp);
12269 	/* tmp goes out of scope on return and caller sees garbage */
12270 	if (cpnt == tmp) {
12271 		cpnt = "Unknown Command";
12272 	}
12273 	return (cpnt);
12274 }
12275 
12276 static void
st_print_cdb(dev_info_t * dip,char * label,uint_t level,char * title,char * cdb)12277 st_print_cdb(dev_info_t *dip, char *label, uint_t level,
12278     char *title, char *cdb)
12279 {
12280 	int len = scsi_cdb_size[CDB_GROUPID(cdb[0])];
12281 	char buf[256];
12282 	struct scsi_tape *un;
12283 	int instance = ddi_get_instance(dip);
12284 
12285 	un = ddi_get_soft_state(st_state, instance);
12286 
12287 	ST_FUNC(dip, st_print_cdb);
12288 
12289 	/* force one line output so repeated commands are printed once */
12290 	if ((st_debug & 0x180) == 0x100) {
12291 		scsi_log(dip, label, level, "node %s cmd %s\n",
12292 		    st_dev_name(un->un_dev), st_print_scsi_cmd(*cdb));
12293 		return;
12294 	}
12295 
12296 	/* force one line output so repeated CDB's are printed once */
12297 	if ((st_debug & 0x180) == 0x80) {
12298 		st_clean_print(dip, label, level, NULL, cdb, len);
12299 	} else {
12300 		(void) sprintf(buf, "%s for cmd(%s)", title,
12301 		    st_print_scsi_cmd(*cdb));
12302 		st_clean_print(dip, label, level, buf, cdb, len);
12303 	}
12304 }
12305 
12306 static void
st_clean_print(dev_info_t * dev,char * label,uint_t level,char * title,char * data,int len)12307 st_clean_print(dev_info_t *dev, char *label, uint_t level,
12308     char *title, char *data, int len)
12309 {
12310 	int	i;
12311 	int 	c;
12312 	char	*format;
12313 	char	buf[256];
12314 	uchar_t	byte;
12315 
12316 	ST_FUNC(dev, st_clean_print);
12317 
12318 
12319 	if (title) {
12320 		(void) sprintf(buf, "%s:\n", title);
12321 		scsi_log(dev, label, level, "%s", buf);
12322 		level = CE_CONT;
12323 	}
12324 
12325 	for (i = 0; i < len; ) {
12326 		buf[0] = 0;
12327 		for (c = 0; c < 8 && i < len; c++, i++) {
12328 			byte = (uchar_t)data[i];
12329 			if (byte < 0x10)
12330 				format = "0x0%x ";
12331 			else
12332 				format = "0x%x ";
12333 			(void) sprintf(&buf[(int)strlen(buf)], format, byte);
12334 		}
12335 		(void) sprintf(&buf[(int)strlen(buf)], "\n");
12336 
12337 		scsi_log(dev, label, level, "%s\n", buf);
12338 		level = CE_CONT;
12339 	}
12340 }
12341 
12342 /*
12343  * Conditionally enabled debugging
12344  */
12345 #ifdef	STDEBUG
12346 static void
st_debug_cmds(struct scsi_tape * un,int com,int count,int wait)12347 st_debug_cmds(struct scsi_tape *un, int com, int count, int wait)
12348 {
12349 	char tmpbuf[64];
12350 
12351 	ST_FUNC(ST_DEVINFO, st_debug_cmds);
12352 
12353 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
12354 	    "cmd=%s count=0x%x (%d)	 %ssync\n",
12355 	    scsi_cmd_name(com, scsi_cmds, tmpbuf),
12356 	    count, count,
12357 	    wait == ASYNC_CMD ? "a" : "");
12358 }
12359 #endif	/* STDEBUG */
12360 
12361 /*
12362  * Returns pointer to name of minor node name of device 'dev'.
12363  */
12364 static char *
st_dev_name(dev_t dev)12365 st_dev_name(dev_t dev)
12366 {
12367 	struct scsi_tape *un;
12368 	const char density[] = { 'l', 'm', 'h', 'c' };
12369 	static char name[32];
12370 	minor_t minor;
12371 	int instance;
12372 	int nprt = 0;
12373 
12374 	minor = getminor(dev);
12375 	instance = ((minor & 0xff80) >> 5) | (minor & 3);
12376 	un = ddi_get_soft_state(st_state, instance);
12377 	if (un) {
12378 		ST_FUNC(ST_DEVINFO, st_dev_name);
12379 	}
12380 
12381 	name[nprt] = density[(minor & MT_DENSITY_MASK) >> 3];
12382 
12383 	if (minor & MT_BSD) {
12384 		name[++nprt] = 'b';
12385 	}
12386 
12387 	if (minor & MT_NOREWIND) {
12388 		name[++nprt] = 'n';
12389 	}
12390 
12391 	/* NULL terminator */
12392 	name[++nprt] = 0;
12393 
12394 	return (name);
12395 }
12396 
12397 /*
12398  * Soft error reporting, so far unique to each drive
12399  *
12400  * Currently supported: exabyte and DAT soft error reporting
12401  */
12402 static int
st_report_exabyte_soft_errors(dev_t dev,int flag)12403 st_report_exabyte_soft_errors(dev_t dev, int flag)
12404 {
12405 	uchar_t *sensep;
12406 	int amt;
12407 	int rval = 0;
12408 	char cdb[CDB_GROUP0], *c = cdb;
12409 	struct uscsi_cmd *com;
12410 
12411 	GET_SOFT_STATE(dev);
12412 
12413 	ST_FUNC(ST_DEVINFO, st_report_exabyte_soft_errors);
12414 
12415 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
12416 	    "st_report_exabyte_soft_errors(dev = 0x%lx, flag = %d)\n",
12417 	    dev, flag);
12418 
12419 	ASSERT(mutex_owned(ST_MUTEX));
12420 
12421 	com = kmem_zalloc(sizeof (*com), KM_SLEEP);
12422 	sensep = kmem_zalloc(TAPE_SENSE_LENGTH, KM_SLEEP);
12423 
12424 	*c++ = SCMD_REQUEST_SENSE;
12425 	*c++ = 0;
12426 	*c++ = 0;
12427 	*c++ = 0;
12428 	*c++ = TAPE_SENSE_LENGTH;
12429 	/*
12430 	 * set CLRCNT (byte 5, bit 7 which clears the error counts)
12431 	 */
12432 	*c   = (char)0x80;
12433 
12434 	com->uscsi_cdb = cdb;
12435 	com->uscsi_cdblen = CDB_GROUP0;
12436 	com->uscsi_bufaddr = (caddr_t)sensep;
12437 	com->uscsi_buflen = TAPE_SENSE_LENGTH;
12438 	com->uscsi_flags = USCSI_DIAGNOSE | USCSI_SILENT | USCSI_READ;
12439 	com->uscsi_timeout = un->un_dp->non_motion_timeout;
12440 
12441 	rval = st_uscsi_cmd(un, com, FKIOCTL);
12442 	if (rval || com->uscsi_status) {
12443 		goto done;
12444 	}
12445 
12446 	/*
12447 	 * was there enough data?
12448 	 */
12449 	amt = (int)TAPE_SENSE_LENGTH - com->uscsi_resid;
12450 
12451 	if ((amt >= 19) && un->un_kbytes_xferred) {
12452 		uint_t count, error_rate;
12453 		uint_t rate;
12454 
12455 		if (sensep[21] & CLN) {
12456 			scsi_log(ST_DEVINFO, st_label, CE_WARN,
12457 			    "Periodic head cleaning required");
12458 		}
12459 		if (un->un_kbytes_xferred < (EXABYTE_MIN_TRANSFER/ONE_K)) {
12460 			goto done;
12461 		}
12462 		/*
12463 		 * check if soft error reporting needs to be done.
12464 		 */
12465 		count = sensep[16] << 16 | sensep[17] << 8 | sensep[18];
12466 		count &= 0xffffff;
12467 		error_rate = (count * 100)/un->un_kbytes_xferred;
12468 
12469 #ifdef	STDEBUG
12470 		if (st_soft_error_report_debug) {
12471 			scsi_log(ST_DEVINFO, st_label, CE_NOTE,
12472 			    "Exabyte Soft Error Report:\n");
12473 			scsi_log(ST_DEVINFO, st_label, CE_CONT,
12474 			    "read/write error counter: %d\n", count);
12475 			scsi_log(ST_DEVINFO, st_label, CE_CONT,
12476 			    "number of bytes transferred: %dK\n",
12477 			    un->un_kbytes_xferred);
12478 			scsi_log(ST_DEVINFO, st_label, CE_CONT,
12479 			    "error_rate: %d%%\n", error_rate);
12480 
12481 			if (amt >= 22) {
12482 				scsi_log(ST_DEVINFO, st_label, CE_CONT,
12483 				    "unit sense: 0x%b 0x%b 0x%b\n",
12484 				    sensep[19], SENSE_19_BITS,
12485 				    sensep[20], SENSE_20_BITS,
12486 				    sensep[21], SENSE_21_BITS);
12487 			}
12488 			if (amt >= 27) {
12489 				scsi_log(ST_DEVINFO, st_label, CE_CONT,
12490 				    "tracking retry counter: %d\n",
12491 				    sensep[26]);
12492 				scsi_log(ST_DEVINFO, st_label, CE_CONT,
12493 				    "read/write retry counter: %d\n",
12494 				    sensep[27]);
12495 			}
12496 		}
12497 #endif
12498 
12499 		if (flag & FWRITE) {
12500 			rate = EXABYTE_WRITE_ERROR_THRESHOLD;
12501 		} else {
12502 			rate = EXABYTE_READ_ERROR_THRESHOLD;
12503 		}
12504 		if (error_rate >= rate) {
12505 			scsi_log(ST_DEVINFO, st_label, CE_WARN,
12506 			    "Soft error rate (%d%%) during %s was too high",
12507 			    error_rate,
12508 			    ((flag & FWRITE) ? wrg_str : rdg_str));
12509 			scsi_log(ST_DEVINFO, st_label, CE_CONT,
12510 			    "Please, replace tape cartridge\n");
12511 		}
12512 	}
12513 
12514 done:
12515 	kmem_free(com, sizeof (*com));
12516 	kmem_free(sensep, TAPE_SENSE_LENGTH);
12517 
12518 	if (rval != 0) {
12519 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
12520 		    "exabyte soft error reporting failed\n");
12521 	}
12522 	return (rval);
12523 }
12524 
12525 /*
12526  * this is very specific to Archive 4mm dat
12527  */
12528 #define	ONE_GIG	(ONE_K * ONE_K * ONE_K)
12529 
12530 static int
st_report_dat_soft_errors(dev_t dev,int flag)12531 st_report_dat_soft_errors(dev_t dev, int flag)
12532 {
12533 	uchar_t *sensep;
12534 	int amt, i;
12535 	int rval = 0;
12536 	char cdb[CDB_GROUP1], *c = cdb;
12537 	struct uscsi_cmd *com;
12538 	struct scsi_arq_status status;
12539 
12540 	GET_SOFT_STATE(dev);
12541 
12542 	ST_FUNC(ST_DEVINFO, st_report_dat_soft_errors);
12543 
12544 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
12545 	    "st_report_dat_soft_errors(dev = 0x%lx, flag = %d)\n", dev, flag);
12546 
12547 	ASSERT(mutex_owned(ST_MUTEX));
12548 
12549 	com = kmem_zalloc(sizeof (*com), KM_SLEEP);
12550 	sensep = kmem_zalloc(LOG_SENSE_LENGTH, KM_SLEEP);
12551 
12552 	*c++ = SCMD_LOG_SENSE_G1;
12553 	*c++ = 0;
12554 	*c++ = (flag & FWRITE) ? 0x42 : 0x43;
12555 	*c++ = 0;
12556 	*c++ = 0;
12557 	*c++ = 0;
12558 	*c++ = 2;
12559 	*c++ = 0;
12560 	*c++ = (char)LOG_SENSE_LENGTH;
12561 	*c   = 0;
12562 	com->uscsi_cdb    = cdb;
12563 	com->uscsi_cdblen  = CDB_GROUP1;
12564 	com->uscsi_bufaddr = (caddr_t)sensep;
12565 	com->uscsi_buflen  = LOG_SENSE_LENGTH;
12566 	com->uscsi_rqlen = sizeof (status);
12567 	com->uscsi_rqbuf = (caddr_t)&status;
12568 	com->uscsi_flags   = USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
12569 	com->uscsi_timeout = un->un_dp->non_motion_timeout;
12570 	rval = st_uscsi_cmd(un, com, FKIOCTL);
12571 	if (rval) {
12572 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
12573 		    "DAT soft error reporting failed\n");
12574 	}
12575 	if (rval || com->uscsi_status) {
12576 		goto done;
12577 	}
12578 
12579 	/*
12580 	 * was there enough data?
12581 	 */
12582 	amt = (int)LOG_SENSE_LENGTH - com->uscsi_resid;
12583 
12584 	if ((amt >= MIN_LOG_SENSE_LENGTH) && un->un_kbytes_xferred) {
12585 		int total, retries, param_code;
12586 
12587 		total = -1;
12588 		retries = -1;
12589 		amt = sensep[3] + 4;
12590 
12591 
12592 #ifdef STDEBUG
12593 		if (st_soft_error_report_debug) {
12594 			(void) printf("logsense:");
12595 			for (i = 0; i < MIN_LOG_SENSE_LENGTH; i++) {
12596 				if (i % 16 == 0) {
12597 					(void) printf("\t\n");
12598 				}
12599 				(void) printf(" %x", sensep[i]);
12600 			}
12601 			(void) printf("\n");
12602 		}
12603 #endif
12604 
12605 		/*
12606 		 * parse the param_codes
12607 		 */
12608 		if (sensep[0] == 2 || sensep[0] == 3) {
12609 			for (i = 4; i < amt; i++) {
12610 				param_code = (sensep[i++] << 8);
12611 				param_code += sensep[i++];
12612 				i++; /* skip control byte */
12613 				if (param_code == 5) {
12614 					if (sensep[i++] == 4) {
12615 						total = (sensep[i++] << 24);
12616 						total += (sensep[i++] << 16);
12617 						total += (sensep[i++] << 8);
12618 						total += sensep[i];
12619 					}
12620 				} else if (param_code == 0x8007) {
12621 					if (sensep[i++] == 2) {
12622 						retries = sensep[i++] << 8;
12623 						retries += sensep[i];
12624 					}
12625 				} else {
12626 					i += sensep[i];
12627 				}
12628 			}
12629 		}
12630 
12631 		/*
12632 		 * if the log sense returned valid numbers then determine
12633 		 * the read and write error thresholds based on the amount of
12634 		 * data transferred
12635 		 */
12636 
12637 		if (total > 0 && retries > 0) {
12638 			short normal_retries = 0;
12639 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
12640 			    "total xferred (%s) =%x, retries=%x\n",
12641 			    ((flag & FWRITE) ? wrg_str : rdg_str),
12642 			    total, retries);
12643 
12644 			if (flag & FWRITE) {
12645 				if (total <=
12646 				    WRITE_SOFT_ERROR_WARNING_THRESHOLD) {
12647 					normal_retries =
12648 					    DAT_SMALL_WRITE_ERROR_THRESHOLD;
12649 				} else {
12650 					normal_retries =
12651 					    DAT_LARGE_WRITE_ERROR_THRESHOLD;
12652 				}
12653 			} else {
12654 				if (total <=
12655 				    READ_SOFT_ERROR_WARNING_THRESHOLD) {
12656 					normal_retries =
12657 					    DAT_SMALL_READ_ERROR_THRESHOLD;
12658 				} else {
12659 					normal_retries =
12660 					    DAT_LARGE_READ_ERROR_THRESHOLD;
12661 				}
12662 			}
12663 
12664 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
12665 			"normal retries=%d\n", normal_retries);
12666 
12667 			if (retries >= normal_retries) {
12668 				scsi_log(ST_DEVINFO, st_label, CE_WARN,
12669 				    "Soft error rate (retries = %d) during "
12670 				    "%s was too high",  retries,
12671 				    ((flag & FWRITE) ? wrg_str : rdg_str));
12672 				scsi_log(ST_DEVINFO, st_label, CE_CONT,
12673 				    "Periodic head cleaning required "
12674 				    "and/or replace tape cartridge\n");
12675 			}
12676 
12677 		} else if (total == -1 || retries == -1) {
12678 			scsi_log(ST_DEVINFO, st_label, CE_WARN,
12679 			    "log sense parameter code does not make sense\n");
12680 		}
12681 	}
12682 
12683 	/*
12684 	 * reset all values
12685 	 */
12686 	c = cdb;
12687 	*c++ = SCMD_LOG_SELECT_G1;
12688 	*c++ = 2;	/* this resets all values */
12689 	*c++ = (char)0xc0;
12690 	*c++ = 0;
12691 	*c++ = 0;
12692 	*c++ = 0;
12693 	*c++ = 0;
12694 	*c++ = 0;
12695 	*c++ = 0;
12696 	*c   = 0;
12697 	com->uscsi_bufaddr = NULL;
12698 	com->uscsi_buflen  = 0;
12699 	com->uscsi_flags   = USCSI_DIAGNOSE | USCSI_SILENT;
12700 	rval = st_uscsi_cmd(un, com, FKIOCTL);
12701 	if (rval) {
12702 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
12703 		    "DAT soft error reset failed\n");
12704 	}
12705 done:
12706 	kmem_free(com, sizeof (*com));
12707 	kmem_free(sensep, LOG_SENSE_LENGTH);
12708 	return (rval);
12709 }
12710 
12711 static int
st_report_soft_errors(dev_t dev,int flag)12712 st_report_soft_errors(dev_t dev, int flag)
12713 {
12714 	GET_SOFT_STATE(dev);
12715 
12716 	ST_FUNC(ST_DEVINFO, st_report_soft_errors);
12717 
12718 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
12719 	    "st_report_soft_errors(dev = 0x%lx, flag = %d)\n", dev, flag);
12720 
12721 	ASSERT(mutex_owned(ST_MUTEX));
12722 
12723 	switch (un->un_dp->type) {
12724 	case ST_TYPE_EXB8500:
12725 	case ST_TYPE_EXABYTE:
12726 		return (st_report_exabyte_soft_errors(dev, flag));
12727 		/*NOTREACHED*/
12728 	case ST_TYPE_PYTHON:
12729 		return (st_report_dat_soft_errors(dev, flag));
12730 		/*NOTREACHED*/
12731 	default:
12732 		un->un_dp->options &= ~ST_SOFT_ERROR_REPORTING;
12733 		return (-1);
12734 	}
12735 }
12736 
12737 /*
12738  * persistent error routines
12739  */
12740 
12741 /*
12742  * enable persistent errors, and set the throttle appropriately, checking
12743  * for flush-on-errors capability
12744  */
12745 static void
st_turn_pe_on(struct scsi_tape * un)12746 st_turn_pe_on(struct scsi_tape *un)
12747 {
12748 	ST_FUNC(ST_DEVINFO, st_turn_pe_on);
12749 
12750 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_pe_on\n");
12751 	ASSERT(mutex_owned(ST_MUTEX));
12752 
12753 	un->un_persistence = 1;
12754 
12755 	/*
12756 	 * only use flush-on-errors if auto-request-sense and untagged-qing are
12757 	 * enabled.  This will simplify the error handling for request senses
12758 	 */
12759 
12760 	if (un->un_arq_enabled && un->un_untagged_qing) {
12761 		uchar_t f_o_e;
12762 
12763 		mutex_exit(ST_MUTEX);
12764 		f_o_e = (scsi_ifsetcap(ROUTE, "flush-on-errors", 1, 1) == 1) ?
12765 		    1 : 0;
12766 		mutex_enter(ST_MUTEX);
12767 
12768 		un->un_flush_on_errors = f_o_e;
12769 	} else {
12770 		un->un_flush_on_errors = 0;
12771 	}
12772 
12773 	if (un->un_flush_on_errors)
12774 		un->un_max_throttle = (uchar_t)st_max_throttle;
12775 	else
12776 		un->un_max_throttle = 1;
12777 
12778 	if (un->un_dp->options & ST_RETRY_ON_RECOVERED_DEFERRED_ERROR)
12779 		un->un_max_throttle = 1;
12780 
12781 	/* this will send a marker pkt */
12782 	st_clear_pe(un);
12783 }
12784 
12785 /*
12786  * This turns persistent errors permanently off
12787  */
12788 static void
st_turn_pe_off(struct scsi_tape * un)12789 st_turn_pe_off(struct scsi_tape *un)
12790 {
12791 	ST_FUNC(ST_DEVINFO, st_turn_pe_off);
12792 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_pe_off\n");
12793 	ASSERT(mutex_owned(ST_MUTEX));
12794 
12795 	/* turn it off for good */
12796 	un->un_persistence = 0;
12797 
12798 	/* this will send a marker pkt */
12799 	st_clear_pe(un);
12800 
12801 	/* turn off flush on error capability, if enabled */
12802 	if (un->un_flush_on_errors) {
12803 		mutex_exit(ST_MUTEX);
12804 		(void) scsi_ifsetcap(ROUTE, "flush-on-errors", 0, 1);
12805 		mutex_enter(ST_MUTEX);
12806 	}
12807 
12808 
12809 	un->un_flush_on_errors = 0;
12810 }
12811 
12812 /*
12813  * This clear persistent errors, allowing more commands through, and also
12814  * sending a marker packet.
12815  */
12816 static void
st_clear_pe(struct scsi_tape * un)12817 st_clear_pe(struct scsi_tape *un)
12818 {
12819 	ST_FUNC(ST_DEVINFO, st_clear_pe);
12820 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_pe_clear\n");
12821 	ASSERT(mutex_owned(ST_MUTEX));
12822 
12823 	un->un_persist_errors = 0;
12824 	un->un_throttle = un->un_last_throttle = 1;
12825 	un->un_errno = 0;
12826 	st_hba_unflush(un);
12827 }
12828 
12829 /*
12830  * This will flag persistent errors, shutting everything down, if the
12831  * application had enabled persistent errors via MTIOCPERSISTENT
12832  */
12833 static void
st_set_pe_flag(struct scsi_tape * un)12834 st_set_pe_flag(struct scsi_tape *un)
12835 {
12836 	ST_FUNC(ST_DEVINFO, st_set_pe_flag);
12837 	ASSERT(mutex_owned(ST_MUTEX));
12838 
12839 	if (un->un_persistence) {
12840 		ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG, "st_pe_flag\n");
12841 		un->un_persist_errors = 1;
12842 		un->un_throttle = un->un_last_throttle = 0;
12843 		cv_broadcast(&un->un_sbuf_cv);
12844 	}
12845 }
12846 
12847 static int
st_do_reserve(struct scsi_tape * un)12848 st_do_reserve(struct scsi_tape *un)
12849 {
12850 	int rval;
12851 	int was_lost = un->un_rsvd_status & ST_LOST_RESERVE;
12852 
12853 	ST_FUNC(ST_DEVINFO, st_do_reserve);
12854 
12855 	/*
12856 	 * Issue a Throw-Away reserve command to clear the
12857 	 * check condition.
12858 	 * If the current behaviour of reserve/release is to
12859 	 * hold reservation across opens , and if a Bus reset
12860 	 * has been issued between opens then this command
12861 	 * would set the ST_LOST_RESERVE flags in rsvd_status.
12862 	 * In this case return an EACCES so that user knows that
12863 	 * reservation has been lost in between opens.
12864 	 * If this error is not returned and we continue with
12865 	 * successful open , then user may think position of the
12866 	 * tape is still the same but inreality we would rewind the
12867 	 * tape and continue from BOT.
12868 	 */
12869 	rval = st_reserve_release(un, ST_RESERVE, st_uscsi_cmd);
12870 	if (rval) {
12871 		if ((un->un_rsvd_status & ST_LOST_RESERVE_BETWEEN_OPENS) ==
12872 		    ST_LOST_RESERVE_BETWEEN_OPENS) {
12873 			un->un_rsvd_status &= ~(ST_LOST_RESERVE | ST_RESERVE);
12874 			un->un_errno = EACCES;
12875 			return (EACCES);
12876 		}
12877 		rval = st_reserve_release(un, ST_RESERVE, st_uscsi_cmd);
12878 	}
12879 	if (rval == 0) {
12880 		un->un_rsvd_status |= ST_INIT_RESERVE;
12881 	}
12882 	if (was_lost) {
12883 		un->un_running.pmode = invalid;
12884 	}
12885 
12886 	return (rval);
12887 }
12888 
12889 static int
st_check_cdb_for_need_to_reserve(struct scsi_tape * un,uchar_t * cdb)12890 st_check_cdb_for_need_to_reserve(struct scsi_tape *un, uchar_t *cdb)
12891 {
12892 	int rval;
12893 	cmd_attribute const *attrib;
12894 
12895 	ST_FUNC(ST_DEVINFO, st_check_cdb_for_need_to_reserve);
12896 
12897 	/*
12898 	 * If already reserved no need to do it again.
12899 	 * Also if Reserve and Release are disabled Just return.
12900 	 */
12901 	if ((un->un_rsvd_status & (ST_APPLICATION_RESERVATIONS)) ||
12902 	    ((un->un_rsvd_status & (ST_RESERVE | ST_LOST_RESERVE)) ==
12903 	    ST_RESERVE) || (un->un_dp->options & ST_NO_RESERVE_RELEASE)) {
12904 		ST_DEBUG6(ST_DEVINFO, st_label, CE_NOTE,
12905 		    "st_check_cdb_for_need_to_reserve() reserve unneeded %s",
12906 		    st_print_scsi_cmd((uchar_t)cdb[0]));
12907 		return (0);
12908 	}
12909 
12910 	/* See if command is on the list */
12911 	attrib = st_lookup_cmd_attribute(cdb[0]);
12912 
12913 	if (attrib == NULL) {
12914 		rval = 1; /* Not found, when in doubt reserve */
12915 	} else if ((attrib->requires_reserve) != 0) {
12916 		rval = 1;
12917 	} else if ((attrib->reserve_byte) != 0) {
12918 		/*
12919 		 * cmd is on list.
12920 		 * if byte is zero always allowed.
12921 		 */
12922 		rval = 1;
12923 	} else if (((cdb[attrib->reserve_byte]) &
12924 	    (attrib->reserve_mask)) != 0) {
12925 		rval = 1;
12926 	} else {
12927 		rval = 0;
12928 	}
12929 
12930 	if (rval) {
12931 		ST_DEBUG6(ST_DEVINFO, st_label, CE_NOTE,
12932 		    "Command %s requires reservation",
12933 		    st_print_scsi_cmd(cdb[0]));
12934 
12935 		rval = st_do_reserve(un);
12936 	}
12937 
12938 	return (rval);
12939 }
12940 
12941 static int
st_check_cmd_for_need_to_reserve(struct scsi_tape * un,uchar_t cmd,int cnt)12942 st_check_cmd_for_need_to_reserve(struct scsi_tape *un, uchar_t cmd, int cnt)
12943 {
12944 	int rval;
12945 	cmd_attribute const *attrib;
12946 
12947 	ST_FUNC(ST_DEVINFO, st_check_cmd_for_need_to_reserve);
12948 
12949 	/*
12950 	 * Do not reserve when already reserved, when not supported or when
12951 	 * auto-rewinding on device closure.
12952 	 */
12953 	if ((un->un_rsvd_status & (ST_APPLICATION_RESERVATIONS)) ||
12954 	    ((un->un_rsvd_status & (ST_RESERVE | ST_LOST_RESERVE)) ==
12955 	    ST_RESERVE) || (un->un_dp->options & ST_NO_RESERVE_RELEASE) ||
12956 	    ((un->un_state == ST_STATE_CLOSING) && (cmd == SCMD_REWIND))) {
12957 		ST_DEBUG6(ST_DEVINFO, st_label, CE_NOTE,
12958 		    "st_check_cmd_for_need_to_reserve() reserve unneeded %s",
12959 		    st_print_scsi_cmd(cmd));
12960 		return (0);
12961 	}
12962 
12963 	/* search for this command on the list */
12964 	attrib = st_lookup_cmd_attribute(cmd);
12965 
12966 	if (attrib == NULL) {
12967 		rval = 1; /* Not found, when in doubt reserve */
12968 	} else if ((attrib->requires_reserve) != 0) {
12969 		rval = 1;
12970 	} else if ((attrib->reserve_byte) != 0) {
12971 		/*
12972 		 * cmd is on list.
12973 		 * if byte is zero always allowed.
12974 		 */
12975 		rval = 1;
12976 	} else if (((attrib->reserve_mask) & cnt) != 0) {
12977 		rval = 1;
12978 	} else {
12979 		rval = 0;
12980 	}
12981 
12982 	if (rval) {
12983 		ST_DEBUG6(ST_DEVINFO, st_label, CE_NOTE,
12984 		    "Cmd %s requires reservation", st_print_scsi_cmd(cmd));
12985 
12986 		rval = st_do_reserve(un);
12987 	}
12988 
12989 	return (rval);
12990 }
12991 
12992 static int
st_reserve_release(struct scsi_tape * un,int cmd,ubufunc_t ubf)12993 st_reserve_release(struct scsi_tape *un, int cmd, ubufunc_t ubf)
12994 {
12995 	struct uscsi_cmd	uscsi_cmd;
12996 	int			rval;
12997 	char			cdb[CDB_GROUP0];
12998 	struct scsi_arq_status	stat;
12999 
13000 
13001 
13002 	ST_FUNC(ST_DEVINFO, st_reserve_release);
13003 
13004 	ASSERT(mutex_owned(ST_MUTEX));
13005 
13006 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
13007 	    "st_reserve_release: %s \n",
13008 	    (cmd == ST_RELEASE)?  "Releasing":"Reserving");
13009 
13010 	bzero(&cdb, CDB_GROUP0);
13011 	if (cmd == ST_RELEASE) {
13012 		cdb[0] = SCMD_RELEASE;
13013 	} else {
13014 		cdb[0] = SCMD_RESERVE;
13015 	}
13016 	bzero(&uscsi_cmd, sizeof (struct uscsi_cmd));
13017 	uscsi_cmd.uscsi_flags = USCSI_WRITE | USCSI_RQENABLE;
13018 	uscsi_cmd.uscsi_cdb = cdb;
13019 	uscsi_cmd.uscsi_cdblen = CDB_GROUP0;
13020 	uscsi_cmd.uscsi_timeout = un->un_dp->non_motion_timeout;
13021 	uscsi_cmd.uscsi_rqbuf = (caddr_t)&stat;
13022 	uscsi_cmd.uscsi_rqlen = sizeof (stat);
13023 
13024 	rval = ubf(un, &uscsi_cmd, FKIOCTL);
13025 
13026 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
13027 	    "st_reserve_release: rval(1)=%d\n", rval);
13028 
13029 	if (rval) {
13030 		if (uscsi_cmd.uscsi_status == STATUS_RESERVATION_CONFLICT) {
13031 			rval = EACCES;
13032 		}
13033 		/*
13034 		 * dynamically turn off reserve/release support
13035 		 * in case of drives which do not support
13036 		 * reserve/release command(ATAPI drives).
13037 		 */
13038 		if (un->un_status == KEY_ILLEGAL_REQUEST) {
13039 			if ((un->un_dp->options & ST_NO_RESERVE_RELEASE) == 0) {
13040 				un->un_dp->options |= ST_NO_RESERVE_RELEASE;
13041 				ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
13042 				    "Tape unit does not support "
13043 				    "reserve/release \n");
13044 			}
13045 			rval = 0;
13046 		}
13047 	}
13048 	return (rval);
13049 }
13050 
13051 static int
st_take_ownership(struct scsi_tape * un,ubufunc_t ubf)13052 st_take_ownership(struct scsi_tape *un, ubufunc_t ubf)
13053 {
13054 	int rval;
13055 
13056 	ST_FUNC(ST_DEVINFO, st_take_ownership);
13057 
13058 	ASSERT(mutex_owned(ST_MUTEX));
13059 
13060 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
13061 	    "st_take_ownership: Entering ...\n");
13062 
13063 
13064 	rval = st_reserve_release(un, ST_RESERVE, ubf);
13065 	/*
13066 	 * XXX -> Should reset be done only if we get EACCES.
13067 	 * .
13068 	 */
13069 	if (rval) {
13070 		if (st_reset(un, RESET_LUN) == 0) {
13071 			return (EIO);
13072 		}
13073 		un->un_rsvd_status &=
13074 		    ~(ST_LOST_RESERVE | ST_RESERVATION_CONFLICT);
13075 
13076 		mutex_exit(ST_MUTEX);
13077 		delay(drv_usectohz(ST_RESERVATION_DELAY));
13078 		mutex_enter(ST_MUTEX);
13079 		/*
13080 		 * remove the check condition.
13081 		 */
13082 		(void) st_reserve_release(un, ST_RESERVE, ubf);
13083 		rval = st_reserve_release(un, ST_RESERVE, ubf);
13084 		if (rval != 0) {
13085 			if ((st_reserve_release(un, ST_RESERVE, ubf))
13086 			    != 0) {
13087 				rval = (un->un_rsvd_status &
13088 				    ST_RESERVATION_CONFLICT) ? EACCES : EIO;
13089 				return (rval);
13090 			}
13091 		}
13092 		/*
13093 		 * Set tape state to ST_STATE_OFFLINE , in case if
13094 		 * the user wants to continue and start using
13095 		 * the tape.
13096 		 */
13097 		un->un_state = ST_STATE_OFFLINE;
13098 		un->un_rsvd_status |= ST_INIT_RESERVE;
13099 	}
13100 	return (rval);
13101 }
13102 
13103 static int
st_create_errstats(struct scsi_tape * un,int instance)13104 st_create_errstats(struct scsi_tape *un, int instance)
13105 {
13106 	char	kstatname[KSTAT_STRLEN];
13107 
13108 	ST_FUNC(ST_DEVINFO, st_create_errstats);
13109 
13110 	/*
13111 	 * Create device error kstats
13112 	 */
13113 
13114 	if (un->un_errstats == (kstat_t *)0) {
13115 		(void) sprintf(kstatname, "st%d,err", instance);
13116 		un->un_errstats = kstat_create("sterr", instance, kstatname,
13117 		    "device_error", KSTAT_TYPE_NAMED,
13118 		    sizeof (struct st_errstats) / sizeof (kstat_named_t),
13119 		    KSTAT_FLAG_PERSISTENT);
13120 
13121 		if (un->un_errstats) {
13122 			struct st_errstats	*stp;
13123 
13124 			stp = (struct st_errstats *)un->un_errstats->ks_data;
13125 			kstat_named_init(&stp->st_softerrs, "Soft Errors",
13126 			    KSTAT_DATA_ULONG);
13127 			kstat_named_init(&stp->st_harderrs, "Hard Errors",
13128 			    KSTAT_DATA_ULONG);
13129 			kstat_named_init(&stp->st_transerrs, "Transport Errors",
13130 			    KSTAT_DATA_ULONG);
13131 			kstat_named_init(&stp->st_vid, "Vendor",
13132 			    KSTAT_DATA_CHAR);
13133 			kstat_named_init(&stp->st_pid, "Product",
13134 			    KSTAT_DATA_CHAR);
13135 			kstat_named_init(&stp->st_revision, "Revision",
13136 			    KSTAT_DATA_CHAR);
13137 			kstat_named_init(&stp->st_serial, "Serial No",
13138 			    KSTAT_DATA_CHAR);
13139 			un->un_errstats->ks_private = un;
13140 			un->un_errstats->ks_update = nulldev;
13141 			kstat_install(un->un_errstats);
13142 			/*
13143 			 * Fill in the static data
13144 			 */
13145 			(void) strncpy(&stp->st_vid.value.c[0],
13146 			    ST_INQUIRY->inq_vid, 8);
13147 			/*
13148 			 * XXX:  Emulex MT-02 (and emulators) predates
13149 			 *	 SCSI-1 and has no vid & pid inquiry data.
13150 			 */
13151 			if (ST_INQUIRY->inq_len != 0) {
13152 				(void) strncpy(&stp->st_pid.value.c[0],
13153 				    ST_INQUIRY->inq_pid, 16);
13154 				(void) strncpy(&stp->st_revision.value.c[0],
13155 				    ST_INQUIRY->inq_revision, 4);
13156 			}
13157 		}
13158 	}
13159 	return (0);
13160 }
13161 
13162 static int
st_validate_tapemarks(struct scsi_tape * un,ubufunc_t ubf,tapepos_t * pos)13163 st_validate_tapemarks(struct scsi_tape *un, ubufunc_t ubf, tapepos_t *pos)
13164 {
13165 	int rval;
13166 	bufunc_t bf = (ubf == st_uscsi_rcmd) ? st_rcmd : st_cmd;
13167 
13168 	ST_FUNC(ST_DEVINFO, st_validate_tapemarks);
13169 
13170 	ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
13171 	ASSERT(mutex_owned(ST_MUTEX));
13172 
13173 	/* Can't restore an invalid position */
13174 	if (pos->pmode == invalid) {
13175 		return (4);
13176 	}
13177 
13178 	/*
13179 	 * Assumtions:
13180 	 *	If a position was read and is in logical position mode.
13181 	 *	If a drive supports read position it supports locate.
13182 	 *	If the read position type is not NO_POS. even though
13183 	 *	   a read position make not have been attemped yet.
13184 	 *
13185 	 *	The drive can locate to the position.
13186 	 */
13187 	if (pos->pmode == logical || un->un_read_pos_type != NO_POS) {
13188 		/*
13189 		 * If position mode is logical or legacy mode try
13190 		 * to locate there as it is faster.
13191 		 * If it fails try the old way.
13192 		 */
13193 		scsi_log(ST_DEVINFO, st_label, CE_NOTE,
13194 		    "Restoring tape position to lgclblkbo=0x%"PRIx64"....",
13195 		    pos->lgclblkno);
13196 
13197 		if (st_logical_block_locate(un, st_uscsi_cmd, &un->un_pos,
13198 		    pos->lgclblkno, pos->partition) == 0) {
13199 			/* Assume we are there copy rest of position back */
13200 			if (un->un_pos.lgclblkno == pos->lgclblkno) {
13201 				COPY_POS(&un->un_pos, pos);
13202 			}
13203 			return (0);
13204 		}
13205 
13206 		/*
13207 		 * If logical block locate failed to restore a logical
13208 		 * position, can't recover.
13209 		 */
13210 		if (pos->pmode == logical) {
13211 			return (-1);
13212 		}
13213 	}
13214 
13215 
13216 	scsi_log(ST_DEVINFO, st_label, CE_NOTE,
13217 	    "Restoring tape position at fileno=%x, blkno=%x....",
13218 	    pos->fileno, pos->blkno);
13219 
13220 	/*
13221 	 * Rewind ? Oh yeah, Fidelity has got the STK F/W changed
13222 	 * so as not to rewind tape on RESETS: Gee, Has life ever
13223 	 * been simple in tape land ?
13224 	 */
13225 	rval = bf(un, SCMD_REWIND, 0, SYNC_CMD);
13226 	if (rval) {
13227 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
13228 		    "Failed to restore the last file and block position: In"
13229 		    " this state, Tape will be loaded at BOT during next open");
13230 		un->un_pos.pmode = invalid;
13231 		return (rval);
13232 	}
13233 
13234 	/* If the position was as the result of back space file */
13235 	if (pos->blkno > (INF / 2)) {
13236 		/* Go one extra file forward */
13237 		pos->fileno++;
13238 		/* Figure how many blocks to back into the previous file */
13239 		pos->blkno = -(INF - pos->blkno);
13240 	}
13241 
13242 	/* Go to requested fileno */
13243 	if (pos->fileno) {
13244 		rval = st_cmd(un, SCMD_SPACE, Fmk(pos->fileno), SYNC_CMD);
13245 		if (rval) {
13246 			scsi_log(ST_DEVINFO, st_label, CE_WARN,
13247 			    "Failed to restore the last file position: In this "
13248 			    " state, Tape will be loaded at BOT during next"
13249 			    " open %d", __LINE__);
13250 			un->un_pos.pmode = invalid;
13251 			pos->pmode = invalid;
13252 			return (rval);
13253 		}
13254 	}
13255 
13256 	/*
13257 	 * If backing into a file we already did an extra file forward.
13258 	 * Now we have to back over the filemark to get to the end of
13259 	 * the previous file. The blkno has been ajusted to a negative
13260 	 * value so we will get to the expected location.
13261 	 */
13262 	if (pos->blkno) {
13263 		rval = bf(un, SCMD_SPACE, Fmk(-1), SYNC_CMD);
13264 		if (rval) {
13265 			scsi_log(ST_DEVINFO, st_label, CE_WARN,
13266 			    "Failed to restore the last file position: In this "
13267 			    " state, Tape will be loaded at BOT during next"
13268 			    " open %d", __LINE__);
13269 			un->un_pos.pmode = invalid;
13270 			pos->pmode = invalid;
13271 			return (rval);
13272 		}
13273 	}
13274 
13275 	/*
13276 	 * The position mode, block and fileno should be correct,
13277 	 * This updates eof and logical position information.
13278 	 */
13279 	un->un_pos.eof = pos->eof;
13280 	un->un_pos.lgclblkno = pos->lgclblkno;
13281 
13282 	return (0);
13283 }
13284 
13285 /*
13286  * check sense key, ASC, ASCQ in order to determine if the tape needs
13287  * to be ejected
13288  */
13289 
13290 static int
st_check_asc_ascq(struct scsi_tape * un)13291 st_check_asc_ascq(struct scsi_tape *un)
13292 {
13293 	struct scsi_extended_sense *sensep = ST_RQSENSE;
13294 	struct tape_failure_code   *code;
13295 
13296 	ST_FUNC(ST_DEVINFO, st_check_asc_ascq);
13297 
13298 	for (code = st_tape_failure_code; code->key != 0xff; code++) {
13299 		if ((code->key  == sensep->es_key) &&
13300 		    (code->add_code  == sensep->es_add_code) &&
13301 		    (code->qual_code == sensep->es_qual_code))
13302 			return (1);
13303 	}
13304 	return (0);
13305 }
13306 
13307 /*
13308  * st_logpage_supported() sends a Log Sense command with
13309  * page code = 0 = Supported Log Pages Page to the device,
13310  * to see whether the page 'page' is supported.
13311  * Return values are:
13312  * -1 if the Log Sense command fails
13313  * 0 if page is not supported
13314  * 1 if page is supported
13315  */
13316 
13317 static int
st_logpage_supported(struct scsi_tape * un,uchar_t page)13318 st_logpage_supported(struct scsi_tape *un, uchar_t page)
13319 {
13320 	uchar_t *sp, *sensep;
13321 	unsigned length;
13322 	struct uscsi_cmd *com;
13323 	struct scsi_arq_status status;
13324 	int rval;
13325 	char cdb[CDB_GROUP1] = {
13326 		SCMD_LOG_SENSE_G1,
13327 		0,
13328 		SUPPORTED_LOG_PAGES_PAGE,
13329 		0,
13330 		0,
13331 		0,
13332 		0,
13333 		0,
13334 		(char)LOG_SENSE_LENGTH,
13335 		0
13336 	};
13337 
13338 	ST_FUNC(ST_DEVINFO, st_logpage_supported);
13339 
13340 	ASSERT(mutex_owned(ST_MUTEX));
13341 
13342 	com = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
13343 	sensep = kmem_zalloc(LOG_SENSE_LENGTH, KM_SLEEP);
13344 
13345 	com->uscsi_cdb = cdb;
13346 	com->uscsi_cdblen = CDB_GROUP1;
13347 	com->uscsi_bufaddr = (caddr_t)sensep;
13348 	com->uscsi_buflen = LOG_SENSE_LENGTH;
13349 	com->uscsi_rqlen = sizeof (status);
13350 	com->uscsi_rqbuf = (caddr_t)&status;
13351 	com->uscsi_flags =
13352 	    USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
13353 	com->uscsi_timeout = un->un_dp->non_motion_timeout;
13354 	rval = st_uscsi_cmd(un, com, FKIOCTL);
13355 	if (rval || com->uscsi_status) {
13356 		/* uscsi-command failed */
13357 		rval = -1;
13358 	} else {
13359 
13360 		sp = sensep + 3;
13361 
13362 		for (length = *sp++; length > 0; length--, sp++) {
13363 
13364 			if (*sp == page) {
13365 				rval = 1;
13366 				break;
13367 			}
13368 		}
13369 	}
13370 	kmem_free(com, sizeof (struct uscsi_cmd));
13371 	kmem_free(sensep, LOG_SENSE_LENGTH);
13372 	return (rval);
13373 }
13374 
13375 
13376 /*
13377  * st_check_clean_bit() gets the status of the tape's cleaning bit.
13378  *
13379  * If the device does support the TapeAlert log page, then the cleaning bit
13380  * information will be read from this page. Otherwise we will see if one of
13381  * ST_CLN_TYPE_1, ST_CLN_TYPE_2 or ST_CLN_TYPE_3 is set in the properties of
13382  * the device, which means, that we can get the cleaning bit information via
13383  * a RequestSense command.
13384  * If both methods of getting cleaning bit information are not supported
13385  * st_check_clean_bit() will return with 0. Otherwise st_check_clean_bit()
13386  * returns with
13387  * - MTF_TAPE_CLN_SUPPORTED if cleaning bit is not set or
13388  * - MTF_TAPE_CLN_SUPPORTED | MTF_TAPE_HEAD_DIRTY if cleaning bit is set.
13389  * If the call to st_uscsi_cmd() to do the Log Sense or the Request Sense
13390  * command fails, or if the amount of Request Sense data is not enough, then
13391  *  st_check_clean_bit() returns with -1.
13392  */
13393 
13394 static int
st_check_clean_bit(struct scsi_tape * un)13395 st_check_clean_bit(struct scsi_tape *un)
13396 {
13397 	int rval = 0;
13398 
13399 	ST_FUNC(ST_DEVINFO, st_check_clean_bit);
13400 
13401 	ASSERT(mutex_owned(ST_MUTEX));
13402 
13403 	if (un->un_HeadClean & TAPE_ALERT_NOT_SUPPORTED) {
13404 		return (rval);
13405 	}
13406 
13407 	if (un->un_HeadClean == TAPE_ALERT_SUPPORT_UNKNOWN) {
13408 
13409 		rval = st_logpage_supported(un, TAPE_SEQUENTIAL_PAGE);
13410 		if (rval == -1) {
13411 			return (0);
13412 		}
13413 		if (rval == 1) {
13414 
13415 			un->un_HeadClean |= TAPE_SEQUENTIAL_SUPPORTED;
13416 		}
13417 
13418 		rval = st_logpage_supported(un, TAPE_ALERT_PAGE);
13419 		if (rval == -1) {
13420 			return (0);
13421 		}
13422 		if (rval == 1) {
13423 
13424 			un->un_HeadClean |= TAPE_ALERT_SUPPORTED;
13425 		}
13426 
13427 		if (un->un_HeadClean == TAPE_ALERT_SUPPORT_UNKNOWN) {
13428 
13429 			un->un_HeadClean = TAPE_ALERT_NOT_SUPPORTED;
13430 		}
13431 	}
13432 
13433 	rval = 0;
13434 
13435 	if (un->un_HeadClean & TAPE_SEQUENTIAL_SUPPORTED) {
13436 
13437 		rval = st_check_sequential_clean_bit(un);
13438 		if (rval == -1) {
13439 			return (0);
13440 		}
13441 	}
13442 
13443 	if ((rval == 0) && (un->un_HeadClean & TAPE_ALERT_SUPPORTED)) {
13444 
13445 		rval = st_check_alert_flags(un);
13446 		if (rval == -1) {
13447 			return (0);
13448 		}
13449 	}
13450 
13451 	if ((rval == 0) && (un->un_dp->options & ST_CLN_MASK)) {
13452 
13453 		rval = st_check_sense_clean_bit(un);
13454 		if (rval == -1) {
13455 			return (0);
13456 		}
13457 	}
13458 
13459 	/*
13460 	 * If found a supported means to check need to clean.
13461 	 */
13462 	if (rval & MTF_TAPE_CLN_SUPPORTED) {
13463 
13464 		/*
13465 		 * head needs to be cleaned.
13466 		 */
13467 		if (rval & MTF_TAPE_HEAD_DIRTY) {
13468 
13469 			/*
13470 			 * Print log message only first time
13471 			 * found needing cleaned.
13472 			 */
13473 			if ((un->un_HeadClean & TAPE_PREVIOUSLY_DIRTY) == 0) {
13474 
13475 				scsi_log(ST_DEVINFO, st_label, CE_WARN,
13476 				    "Periodic head cleaning required");
13477 
13478 				un->un_HeadClean |= TAPE_PREVIOUSLY_DIRTY;
13479 			}
13480 
13481 		} else {
13482 
13483 			un->un_HeadClean &= ~TAPE_PREVIOUSLY_DIRTY;
13484 		}
13485 	}
13486 
13487 	return (rval);
13488 }
13489 
13490 
13491 static int
st_check_sequential_clean_bit(struct scsi_tape * un)13492 st_check_sequential_clean_bit(struct scsi_tape *un)
13493 {
13494 	int rval;
13495 	int ix;
13496 	ushort_t parameter;
13497 	struct uscsi_cmd *cmd;
13498 	struct log_sequential_page *sp;
13499 	struct log_sequential_page_parameter *prm;
13500 	struct scsi_arq_status status;
13501 	char cdb[CDB_GROUP1] = {
13502 		SCMD_LOG_SENSE_G1,
13503 		0,
13504 		TAPE_SEQUENTIAL_PAGE | CURRENT_CUMULATIVE_VALUES,
13505 		0,
13506 		0,
13507 		0,
13508 		0,
13509 		(char)(sizeof (struct log_sequential_page) >> 8),
13510 		(char)(sizeof (struct log_sequential_page)),
13511 		0
13512 	};
13513 
13514 	ST_FUNC(ST_DEVINFO, st_check_sequential_clean_bit);
13515 
13516 	cmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
13517 	sp  = kmem_zalloc(sizeof (struct log_sequential_page), KM_SLEEP);
13518 
13519 	cmd->uscsi_flags   =
13520 	    USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
13521 	cmd->uscsi_timeout = un->un_dp->non_motion_timeout;
13522 	cmd->uscsi_cdb	   = cdb;
13523 	cmd->uscsi_cdblen  = CDB_GROUP1;
13524 	cmd->uscsi_bufaddr = (caddr_t)sp;
13525 	cmd->uscsi_buflen  = sizeof (struct log_sequential_page);
13526 	cmd->uscsi_rqlen   = sizeof (status);
13527 	cmd->uscsi_rqbuf   = (caddr_t)&status;
13528 
13529 	rval = st_uscsi_cmd(un, cmd, FKIOCTL);
13530 
13531 	if (rval || cmd->uscsi_status || cmd->uscsi_resid) {
13532 
13533 		rval = -1;
13534 
13535 	} else if (sp->log_page.code != TAPE_SEQUENTIAL_PAGE) {
13536 
13537 		rval = -1;
13538 	}
13539 
13540 	prm = &sp->param[0];
13541 
13542 	for (ix = 0; rval == 0 && ix < TAPE_SEQUENTIAL_PAGE_PARA; ix++) {
13543 
13544 		if (prm->log_param.length == 0) {
13545 			break;
13546 		}
13547 
13548 		parameter = (((prm->log_param.pc_hi << 8) & 0xff00) +
13549 		    (prm->log_param.pc_lo & 0xff));
13550 
13551 		if (parameter == SEQUENTIAL_NEED_CLN) {
13552 
13553 			rval = MTF_TAPE_CLN_SUPPORTED;
13554 			if (prm->param_value[prm->log_param.length - 1]) {
13555 
13556 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13557 				    "sequential log says head dirty\n");
13558 				rval |= MTF_TAPE_HEAD_DIRTY;
13559 			}
13560 		}
13561 		prm = (struct log_sequential_page_parameter *)
13562 		    &prm->param_value[prm->log_param.length];
13563 	}
13564 
13565 	kmem_free(cmd, sizeof (struct uscsi_cmd));
13566 	kmem_free(sp,  sizeof (struct log_sequential_page));
13567 
13568 	return (rval);
13569 }
13570 
13571 
13572 static int
st_check_alert_flags(struct scsi_tape * un)13573 st_check_alert_flags(struct scsi_tape *un)
13574 {
13575 	struct st_tape_alert *ta;
13576 	struct uscsi_cmd *com;
13577 	struct scsi_arq_status status;
13578 	unsigned ix, length;
13579 	int rval;
13580 	tape_alert_flags flag;
13581 	char cdb[CDB_GROUP1] = {
13582 		SCMD_LOG_SENSE_G1,
13583 		0,
13584 		TAPE_ALERT_PAGE | CURRENT_THRESHOLD_VALUES,
13585 		0,
13586 		0,
13587 		0,
13588 		0,
13589 		(char)(sizeof (struct st_tape_alert) >> 8),
13590 		(char)(sizeof (struct st_tape_alert)),
13591 		0
13592 	};
13593 
13594 	ST_FUNC(ST_DEVINFO, st_check_alert_clean_bit);
13595 
13596 	com = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
13597 	ta  = kmem_zalloc(sizeof (struct st_tape_alert), KM_SLEEP);
13598 
13599 	com->uscsi_cdb = cdb;
13600 	com->uscsi_cdblen = CDB_GROUP1;
13601 	com->uscsi_bufaddr = (caddr_t)ta;
13602 	com->uscsi_buflen = sizeof (struct st_tape_alert);
13603 	com->uscsi_rqlen = sizeof (status);
13604 	com->uscsi_rqbuf = (caddr_t)&status;
13605 	com->uscsi_flags =
13606 	    USCSI_DIAGNOSE | USCSI_RQENABLE | USCSI_READ;
13607 	com->uscsi_timeout = un->un_dp->non_motion_timeout;
13608 
13609 	rval = st_uscsi_cmd(un, com, FKIOCTL);
13610 
13611 	if (rval || com->uscsi_status || com->uscsi_resid) {
13612 
13613 		rval = -1; /* uscsi-command failed */
13614 
13615 	} else if (ta->log_page.code != TAPE_ALERT_PAGE) {
13616 
13617 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13618 		"Not Alert Log Page returned 0x%X\n", ta->log_page.code);
13619 		rval = -1;
13620 	}
13621 
13622 	length = (ta->log_page.length_hi << 8) + ta->log_page.length_lo;
13623 
13624 
13625 	if (length != TAPE_ALERT_PARAMETER_LENGTH) {
13626 
13627 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13628 		    "TapeAlert length %d\n", length);
13629 	}
13630 
13631 
13632 	for (ix = 0; ix < TAPE_ALERT_MAX_PARA; ix++) {
13633 
13634 		/*
13635 		 * if rval is bad before the first pass don't bother
13636 		 */
13637 		if (ix == 0 && rval != 0) {
13638 
13639 			break;
13640 		}
13641 
13642 		flag = ((ta->param[ix].log_param.pc_hi << 8) +
13643 		    ta->param[ix].log_param.pc_lo);
13644 
13645 		if ((ta->param[ix].param_value & 1) == 0) {
13646 			continue;
13647 		}
13648 		/*
13649 		 * check to see if current parameter is of interest.
13650 		 * CLEAN_FOR_ERRORS is vendor specific to 9840 9940 stk's.
13651 		 */
13652 		if ((flag == TAF_CLEAN_NOW) ||
13653 		    (flag == TAF_CLEAN_PERIODIC) ||
13654 		    ((flag == CLEAN_FOR_ERRORS) &&
13655 		    (un->un_dp->type == ST_TYPE_STK9840))) {
13656 
13657 			rval = MTF_TAPE_CLN_SUPPORTED;
13658 
13659 
13660 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13661 			    "alert_page drive needs clean %d\n", flag);
13662 			un->un_HeadClean |= TAPE_ALERT_STILL_DIRTY;
13663 			rval |= MTF_TAPE_HEAD_DIRTY;
13664 
13665 		} else if (flag == TAF_CLEANING_MEDIA) {
13666 
13667 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13668 			    "alert_page drive was cleaned\n");
13669 			un->un_HeadClean &= ~TAPE_ALERT_STILL_DIRTY;
13670 		}
13671 
13672 	}
13673 
13674 	/*
13675 	 * Report it as dirty till we see it cleaned
13676 	 */
13677 	if (un->un_HeadClean & TAPE_ALERT_STILL_DIRTY) {
13678 
13679 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13680 		    "alert_page still dirty\n");
13681 		rval |= MTF_TAPE_HEAD_DIRTY;
13682 	}
13683 
13684 	kmem_free(com, sizeof (struct uscsi_cmd));
13685 	kmem_free(ta,  sizeof (struct st_tape_alert));
13686 
13687 	return (rval);
13688 }
13689 
13690 
13691 static int
st_check_sense_clean_bit(struct scsi_tape * un)13692 st_check_sense_clean_bit(struct scsi_tape *un)
13693 {
13694 	uchar_t *sensep;
13695 	char cdb[CDB_GROUP0];
13696 	struct uscsi_cmd *com;
13697 	ushort_t byte_pos;
13698 	uchar_t bit_mask;
13699 	unsigned length;
13700 	int index;
13701 	int rval;
13702 
13703 	ST_FUNC(ST_DEVINFO, st_check_sense_clean_bit);
13704 
13705 	/*
13706 	 * Since this tape does not support Tape Alert,
13707 	 * we now try to get the cleanbit status via
13708 	 * Request Sense.
13709 	 */
13710 
13711 	if ((un->un_dp->options & ST_CLN_MASK) == ST_CLN_TYPE_1) {
13712 
13713 		index = 0;
13714 
13715 	} else if ((un->un_dp->options & ST_CLN_MASK) == ST_CLN_TYPE_2) {
13716 
13717 		index = 1;
13718 
13719 	} else if ((un->un_dp->options & ST_CLN_MASK) == ST_CLN_TYPE_3) {
13720 
13721 		index = 2;
13722 
13723 	} else {
13724 
13725 		return (-1);
13726 	}
13727 
13728 	byte_pos  = st_cln_bit_position[index].cln_bit_byte;
13729 	bit_mask  = st_cln_bit_position[index].cln_bit_mask;
13730 	length = byte_pos + 1;
13731 
13732 	com    = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
13733 	sensep = kmem_zalloc(length, KM_SLEEP);
13734 
13735 	cdb[0] = SCMD_REQUEST_SENSE;
13736 	cdb[1] = 0;
13737 	cdb[2] = 0;
13738 	cdb[3] = 0;
13739 	cdb[4] = (char)length;
13740 	cdb[5] = 0;
13741 
13742 	com->uscsi_cdb = cdb;
13743 	com->uscsi_cdblen = CDB_GROUP0;
13744 	com->uscsi_bufaddr = (caddr_t)sensep;
13745 	com->uscsi_buflen = length;
13746 	com->uscsi_flags =
13747 	    USCSI_DIAGNOSE | USCSI_SILENT | USCSI_READ;
13748 	com->uscsi_timeout = un->un_dp->non_motion_timeout;
13749 
13750 	rval = st_uscsi_cmd(un, com, FKIOCTL);
13751 
13752 	if (rval || com->uscsi_status || com->uscsi_resid) {
13753 
13754 		rval = -1;
13755 
13756 	} else {
13757 
13758 		rval = MTF_TAPE_CLN_SUPPORTED;
13759 		if ((sensep[byte_pos] & bit_mask) == bit_mask) {
13760 
13761 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13762 			    "sense data says head dirty\n");
13763 			rval |= MTF_TAPE_HEAD_DIRTY;
13764 		}
13765 	}
13766 
13767 	kmem_free(com, sizeof (struct uscsi_cmd));
13768 	kmem_free(sensep, length);
13769 	return (rval);
13770 }
13771 
13772 /*
13773  * st_clear_unit_attention
13774  *
13775  *  	run test unit ready's to clear out outstanding
13776  * 	unit attentions.
13777  * 	returns zero for SUCCESS or the errno from st_cmd call
13778  */
13779 static int
st_clear_unit_attentions(dev_t dev_instance,int max_trys)13780 st_clear_unit_attentions(dev_t dev_instance, int max_trys)
13781 {
13782 	int	i    = 0;
13783 	int	rval;
13784 
13785 	GET_SOFT_STATE(dev_instance);
13786 	ST_FUNC(ST_DEVINFO, st_clear_unit_attentions);
13787 
13788 	do {
13789 		rval = st_cmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
13790 	} while ((rval != 0) && (rval != ENXIO) && (++i < max_trys));
13791 	return (rval);
13792 }
13793 
13794 static void
st_calculate_timeouts(struct scsi_tape * un)13795 st_calculate_timeouts(struct scsi_tape *un)
13796 {
13797 	ST_FUNC(ST_DEVINFO, st_calculate_timeouts);
13798 
13799 	if (un->un_dp->non_motion_timeout == 0) {
13800 		if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13801 			un->un_dp->non_motion_timeout =
13802 			    st_io_time * st_long_timeout_x;
13803 		} else {
13804 			un->un_dp->non_motion_timeout = (ushort_t)st_io_time;
13805 		}
13806 	}
13807 
13808 	if (un->un_dp->io_timeout == 0) {
13809 		if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13810 			un->un_dp->io_timeout = st_io_time * st_long_timeout_x;
13811 		} else {
13812 			un->un_dp->io_timeout = (ushort_t)st_io_time;
13813 		}
13814 	}
13815 
13816 	if (un->un_dp->rewind_timeout == 0) {
13817 		if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13818 			un->un_dp->rewind_timeout =
13819 			    st_space_time * st_long_timeout_x;
13820 		} else {
13821 			un->un_dp->rewind_timeout = (ushort_t)st_space_time;
13822 		}
13823 	}
13824 
13825 	if (un->un_dp->space_timeout == 0) {
13826 		if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13827 			un->un_dp->space_timeout =
13828 			    st_space_time * st_long_timeout_x;
13829 		} else {
13830 			un->un_dp->space_timeout = (ushort_t)st_space_time;
13831 		}
13832 	}
13833 
13834 	if (un->un_dp->load_timeout == 0) {
13835 		if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13836 			un->un_dp->load_timeout =
13837 			    st_space_time * st_long_timeout_x;
13838 		} else {
13839 			un->un_dp->load_timeout = (ushort_t)st_space_time;
13840 		}
13841 	}
13842 
13843 	if (un->un_dp->unload_timeout == 0) {
13844 		if (un->un_dp->options & ST_LONG_TIMEOUTS) {
13845 			un->un_dp->unload_timeout =
13846 			    st_space_time * st_long_timeout_x;
13847 		} else {
13848 			un->un_dp->unload_timeout = (ushort_t)st_space_time;
13849 		}
13850 	}
13851 
13852 	if (un->un_dp->erase_timeout == 0) {
13853 		if (un->un_dp->options & ST_LONG_ERASE) {
13854 			un->un_dp->erase_timeout =
13855 			    st_space_time * st_long_space_time_x;
13856 		} else {
13857 			un->un_dp->erase_timeout = (ushort_t)st_space_time;
13858 		}
13859 	}
13860 }
13861 
13862 
13863 static writablity
st_is_not_wormable(struct scsi_tape * un)13864 st_is_not_wormable(struct scsi_tape *un)
13865 {
13866 	ST_FUNC(ST_DEVINFO, st_is_not_wormable);
13867 	return (RDWR);
13868 }
13869 
13870 static writablity
st_is_hp_dat_tape_worm(struct scsi_tape * un)13871 st_is_hp_dat_tape_worm(struct scsi_tape *un)
13872 {
13873 	writablity wrt;
13874 
13875 	ST_FUNC(ST_DEVINFO, st_is_hp_dat_tape_worm);
13876 
13877 	/* Mode sense should be current */
13878 	if (un->un_mspl->media_type == 1) {
13879 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13880 		    "Drive has WORM media loaded\n");
13881 		wrt = WORM;
13882 	} else {
13883 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13884 		    "Drive has non WORM media loaded\n");
13885 		wrt = RDWR;
13886 	}
13887 	return (wrt);
13888 }
13889 
13890 #define	HP_DAT_INQUIRY 0x4A
13891 static writablity
st_is_hp_dat_worm(struct scsi_tape * un)13892 st_is_hp_dat_worm(struct scsi_tape *un)
13893 {
13894 	char *buf;
13895 	int result;
13896 	writablity wrt;
13897 
13898 	ST_FUNC(ST_DEVINFO, st_is_hp_dat_worm);
13899 
13900 	buf = kmem_zalloc(HP_DAT_INQUIRY, KM_SLEEP);
13901 
13902 	result = st_get_special_inquiry(un, HP_DAT_INQUIRY, buf, 0);
13903 
13904 	if (result != 0) {
13905 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13906 		    "Read Standard Inquiry for WORM support failed");
13907 		wrt = FAILED;
13908 	} else if ((buf[40] & 1) == 0) {
13909 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13910 		    "Drive is NOT WORMable\n");
13911 		/* This drive doesn't support it so don't check again */
13912 		un->un_dp->options &= ~ST_WORMABLE;
13913 		wrt = RDWR;
13914 		un->un_wormable = st_is_not_wormable;
13915 	} else {
13916 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13917 		    "Drive supports WORM version %d\n", buf[40] >> 1);
13918 		un->un_wormable = st_is_hp_dat_tape_worm;
13919 		wrt = un->un_wormable(un);
13920 	}
13921 
13922 	kmem_free(buf, HP_DAT_INQUIRY);
13923 
13924 	/*
13925 	 * If drive doesn't support it no point in checking further.
13926 	 */
13927 	return (wrt);
13928 }
13929 
13930 static writablity
st_is_hp_lto_tape_worm(struct scsi_tape * un)13931 st_is_hp_lto_tape_worm(struct scsi_tape *un)
13932 {
13933 	writablity wrt;
13934 
13935 	ST_FUNC(ST_DEVINFO, st_is_hp_lto_tape_worm);
13936 
13937 	/* Mode sense should be current */
13938 	switch (un->un_mspl->media_type) {
13939 	case 0x00:
13940 		switch (un->un_mspl->density) {
13941 		case 0x40:
13942 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13943 			    "Drive has standard Gen I media loaded\n");
13944 			break;
13945 		case 0x42:
13946 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13947 			    "Drive has standard Gen II media loaded\n");
13948 			break;
13949 		case 0x44:
13950 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13951 			    "Drive has standard Gen III media loaded\n");
13952 			break;
13953 		case 0x46:
13954 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13955 			    "Drive has standard Gen IV media loaded\n");
13956 			break;
13957 		default:
13958 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13959 			    "Drive has standard unknown 0x%X media loaded\n",
13960 			    un->un_mspl->density);
13961 		}
13962 		wrt = RDWR;
13963 		break;
13964 	case 0x01:
13965 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13966 		    "Drive has WORM medium loaded\n");
13967 		wrt = WORM;
13968 		break;
13969 	case 0x80:
13970 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13971 		    "Drive has CD-ROM emulation medium loaded\n");
13972 		wrt = WORM;
13973 		break;
13974 	default:
13975 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
13976 		    "Drive has an unexpected medium type 0x%X loaded\n",
13977 		    un->un_mspl->media_type);
13978 		wrt = RDWR;
13979 	}
13980 
13981 	return (wrt);
13982 }
13983 
13984 #define	LTO_REQ_INQUIRY 44
13985 static writablity
st_is_hp_lto_worm(struct scsi_tape * un)13986 st_is_hp_lto_worm(struct scsi_tape *un)
13987 {
13988 	char *buf;
13989 	int result;
13990 	writablity wrt;
13991 
13992 	ST_FUNC(ST_DEVINFO, st_is_hp_lto_worm);
13993 
13994 	buf = kmem_zalloc(LTO_REQ_INQUIRY, KM_SLEEP);
13995 
13996 	result = st_get_special_inquiry(un, LTO_REQ_INQUIRY, buf, 0);
13997 
13998 	if (result != 0) {
13999 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14000 		    "Read Standard Inquiry for WORM support failed");
14001 		wrt = FAILED;
14002 	} else if ((buf[40] & 1) == 0) {
14003 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14004 		    "Drive is NOT WORMable\n");
14005 		/* This drive doesn't support it so don't check again */
14006 		un->un_dp->options &= ~ST_WORMABLE;
14007 		wrt = RDWR;
14008 		un->un_wormable = st_is_not_wormable;
14009 	} else {
14010 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14011 		    "Drive supports WORM version %d\n", buf[40] >> 1);
14012 		un->un_wormable = st_is_hp_lto_tape_worm;
14013 		wrt = un->un_wormable(un);
14014 	}
14015 
14016 	kmem_free(buf, LTO_REQ_INQUIRY);
14017 
14018 	/*
14019 	 * If drive doesn't support it no point in checking further.
14020 	 */
14021 	return (wrt);
14022 }
14023 
14024 static writablity
st_is_t10_worm_device(struct scsi_tape * un)14025 st_is_t10_worm_device(struct scsi_tape *un)
14026 {
14027 	writablity wrt;
14028 
14029 	ST_FUNC(ST_DEVINFO, st_is_t10_worm_device);
14030 
14031 	if (un->un_mspl->media_type == 0x3c) {
14032 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14033 		    "Drive has WORM media loaded\n");
14034 		wrt = WORM;
14035 	} else {
14036 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14037 		    "Drive has non WORM media loaded\n");
14038 		wrt = RDWR;
14039 	}
14040 	return (wrt);
14041 }
14042 
14043 #define	SEQ_CAP_PAGE	(char)0xb0
14044 static writablity
st_is_t10_worm(struct scsi_tape * un)14045 st_is_t10_worm(struct scsi_tape *un)
14046 {
14047 	char *buf;
14048 	int result;
14049 	writablity wrt;
14050 
14051 	ST_FUNC(ST_DEVINFO, st_is_t10_worm);
14052 
14053 	buf = kmem_zalloc(6, KM_SLEEP);
14054 
14055 	result = st_get_special_inquiry(un, 6, buf, SEQ_CAP_PAGE);
14056 
14057 	if (result != 0) {
14058 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14059 		    "Read Vitial Inquiry for Sequental Capability"
14060 		    " WORM support failed %x", result);
14061 		wrt = FAILED;
14062 	} else if ((buf[4] & 1) == 0) {
14063 		ASSERT(buf[1] == SEQ_CAP_PAGE);
14064 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14065 		    "Drive is NOT WORMable\n");
14066 		/* This drive doesn't support it so don't check again */
14067 		un->un_dp->options &= ~ST_WORMABLE;
14068 		wrt = RDWR;
14069 		un->un_wormable = st_is_not_wormable;
14070 	} else {
14071 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14072 		    "Drive supports WORM\n");
14073 		un->un_wormable = st_is_t10_worm_device;
14074 		wrt = un->un_wormable(un);
14075 	}
14076 
14077 	kmem_free(buf, 6);
14078 
14079 	return (wrt);
14080 }
14081 
14082 
14083 #define	STK_REQ_SENSE 26
14084 
14085 static writablity
st_is_stk_worm(struct scsi_tape * un)14086 st_is_stk_worm(struct scsi_tape *un)
14087 {
14088 	char cdb[CDB_GROUP0] = {SCMD_REQUEST_SENSE, 0, 0, 0, STK_REQ_SENSE, 0};
14089 	struct scsi_extended_sense *sense;
14090 	struct uscsi_cmd *cmd;
14091 	char *buf;
14092 	int result;
14093 	writablity wrt;
14094 
14095 	ST_FUNC(ST_DEVINFO, st_is_stk_worm);
14096 
14097 	cmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
14098 	buf = kmem_alloc(STK_REQ_SENSE, KM_SLEEP);
14099 	sense = (struct scsi_extended_sense *)buf;
14100 
14101 	cmd->uscsi_flags = USCSI_READ;
14102 	cmd->uscsi_timeout = un->un_dp->non_motion_timeout;
14103 	cmd->uscsi_cdb = &cdb[0];
14104 	cmd->uscsi_bufaddr = buf;
14105 	cmd->uscsi_buflen = STK_REQ_SENSE;
14106 	cmd->uscsi_cdblen = CDB_GROUP0;
14107 	cmd->uscsi_rqlen = 0;
14108 	cmd->uscsi_rqbuf = NULL;
14109 
14110 	result = st_uscsi_cmd(un, cmd, FKIOCTL);
14111 
14112 	if (result != 0 || cmd->uscsi_status != 0) {
14113 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14114 		    "Request Sense for WORM failed");
14115 		wrt = RDWR;
14116 	} else if (sense->es_add_len + 8 < 24) {
14117 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14118 		    "Drive didn't send enough sense data for WORM byte %d\n",
14119 		    sense->es_add_len + 8);
14120 		wrt = RDWR;
14121 		un->un_wormable = st_is_not_wormable;
14122 	} else if ((buf[24]) & 0x02) {
14123 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14124 		    "Drive has WORM tape loaded\n");
14125 		wrt = WORM;
14126 		un->un_wormable = st_is_stk_worm;
14127 	} else {
14128 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14129 		    "Drive has normal tape loaded\n");
14130 		wrt = RDWR;
14131 		un->un_wormable = st_is_stk_worm;
14132 	}
14133 
14134 	kmem_free(buf, STK_REQ_SENSE);
14135 	kmem_free(cmd, sizeof (struct uscsi_cmd));
14136 	return (wrt);
14137 }
14138 
14139 #define	DLT_INQ_SZ 44
14140 
14141 static writablity
st_is_dlt_tape_worm(struct scsi_tape * un)14142 st_is_dlt_tape_worm(struct scsi_tape *un)
14143 {
14144 	caddr_t buf;
14145 	int result;
14146 	writablity wrt;
14147 
14148 	ST_FUNC(ST_DEVINFO, st_is_dlt_tape_worm);
14149 
14150 	buf = kmem_alloc(DLT_INQ_SZ, KM_SLEEP);
14151 
14152 	/* Read Attribute Media Type */
14153 
14154 	result = st_read_attributes(un, 0x0408, buf, 10, st_uscsi_cmd);
14155 
14156 	/*
14157 	 * If this quantum drive is attached via an HBA that cannot
14158 	 * support thr read attributes command return error in the
14159 	 * hope that someday they will support the t10 method.
14160 	 */
14161 	if (result == EINVAL && un->un_max_cdb_sz < CDB_GROUP4) {
14162 		scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
14163 		    "Read Attribute Command for WORM Media detection is not "
14164 		    "supported on the HBA that this drive is attached to.");
14165 		wrt = RDWR;
14166 		un->un_wormable = st_is_not_wormable;
14167 		goto out;
14168 	}
14169 
14170 	if (result != 0) {
14171 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14172 		    "Read Attribute Command for WORM Media returned 0x%x",
14173 		    result);
14174 		wrt = RDWR;
14175 		un->un_dp->options &= ~ST_WORMABLE;
14176 		goto out;
14177 	}
14178 
14179 	if ((uchar_t)buf[9] == 0x80) {
14180 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14181 		    "Drive media is WORM\n");
14182 		wrt = WORM;
14183 	} else {
14184 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14185 		    "Drive media is not WORM Media 0x%x\n", (uchar_t)buf[9]);
14186 		wrt = RDWR;
14187 	}
14188 
14189 out:
14190 	kmem_free(buf, DLT_INQ_SZ);
14191 	return (wrt);
14192 }
14193 
14194 static writablity
st_is_dlt_worm(struct scsi_tape * un)14195 st_is_dlt_worm(struct scsi_tape *un)
14196 {
14197 	caddr_t buf;
14198 	int result;
14199 	writablity wrt;
14200 
14201 	ST_FUNC(ST_DEVINFO, st_is_dlt_worm);
14202 
14203 	buf = kmem_alloc(DLT_INQ_SZ, KM_SLEEP);
14204 
14205 	result = st_get_special_inquiry(un, DLT_INQ_SZ, buf, 0xC0);
14206 
14207 	if (result != 0) {
14208 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14209 		    "Read Vendor Specific Inquiry for WORM support failed");
14210 		wrt = RDWR;
14211 		goto out;
14212 	}
14213 
14214 	if ((buf[2] & 1) == 0) {
14215 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14216 		    "Drive is not WORMable\n");
14217 		wrt = RDWR;
14218 		un->un_dp->options &= ~ST_WORMABLE;
14219 		un->un_wormable = st_is_not_wormable;
14220 		goto out;
14221 	} else {
14222 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14223 		    "Drive is WORMable\n");
14224 		un->un_wormable = st_is_dlt_tape_worm;
14225 		wrt = un->un_wormable(un);
14226 	}
14227 out:
14228 	kmem_free(buf, DLT_INQ_SZ);
14229 
14230 	return (wrt);
14231 }
14232 
14233 typedef struct {
14234 	struct modeheader_seq header;
14235 #if defined(_BIT_FIELDS_LTOH) /* X86 */
14236 	uchar_t pagecode	:6,
14237 				:2;
14238 	uchar_t page_len;
14239 	uchar_t syslogalive	:2,
14240 		device		:1,
14241 		abs		:1,
14242 		ulpbot		:1,
14243 		prth		:1,
14244 		ponej		:1,
14245 		ait		:1;
14246 	uchar_t span;
14247 
14248 	uchar_t			:6,
14249 		worm		:1,
14250 		mic		:1;
14251 	uchar_t worm_cap	:1,
14252 				:7;
14253 	uint32_t		:32;
14254 #else /* SPARC */
14255 	uchar_t			:2,
14256 		pagecode	:6;
14257 	uchar_t page_len;
14258 	uchar_t ait		:1,
14259 		device		:1,
14260 		abs		:1,
14261 		ulpbot		:1,
14262 		prth		:1,
14263 		ponej		:1,
14264 		syslogalive	:2;
14265 	uchar_t span;
14266 	uchar_t mic		:1,
14267 		worm		:1,
14268 				:6;
14269 	uchar_t			:7,
14270 		worm_cap	:1;
14271 	uint32_t		:32;
14272 #endif
14273 }ait_dev_con;
14274 
14275 #define	AIT_DEV_PAGE 0x31
14276 static writablity
st_is_sony_worm(struct scsi_tape * un)14277 st_is_sony_worm(struct scsi_tape *un)
14278 {
14279 	int result;
14280 	writablity wrt;
14281 	ait_dev_con *ait_conf;
14282 
14283 	ST_FUNC(ST_DEVINFO, st_is_sony_worm);
14284 
14285 	ait_conf = kmem_zalloc(sizeof (ait_dev_con), KM_SLEEP);
14286 
14287 	result = st_gen_mode_sense(un, st_uscsi_cmd, AIT_DEV_PAGE,
14288 	    (struct seq_mode *)ait_conf, sizeof (ait_dev_con));
14289 
14290 	if (result == 0) {
14291 
14292 		if (ait_conf->pagecode != AIT_DEV_PAGE) {
14293 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14294 			    "returned page 0x%x not 0x%x AIT_DEV_PAGE\n",
14295 			    ait_conf->pagecode, AIT_DEV_PAGE);
14296 			wrt = RDWR;
14297 			un->un_wormable = st_is_not_wormable;
14298 
14299 		} else if (ait_conf->worm_cap) {
14300 
14301 			un->un_wormable = st_is_sony_worm;
14302 
14303 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14304 			    "Drives is WORMable\n");
14305 			if (ait_conf->worm) {
14306 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14307 				    "Media is WORM\n");
14308 				wrt = WORM;
14309 			} else {
14310 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14311 				    "Media is not WORM\n");
14312 				wrt = RDWR;
14313 			}
14314 
14315 		} else {
14316 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14317 			    "Drives not is WORMable\n");
14318 			wrt = RDWR;
14319 			/* No further checking required */
14320 			un->un_dp->options &= ~ST_WORMABLE;
14321 		}
14322 
14323 	} else {
14324 
14325 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14326 		    "AIT device config mode sense page read command failed"
14327 		    " result = %d ", result);
14328 		wrt = FAILED;
14329 		un->un_wormable = st_is_not_wormable;
14330 	}
14331 
14332 	kmem_free(ait_conf, sizeof (ait_dev_con));
14333 	return (wrt);
14334 }
14335 
14336 static writablity
st_is_drive_worm(struct scsi_tape * un)14337 st_is_drive_worm(struct scsi_tape *un)
14338 {
14339 	writablity wrt;
14340 
14341 	ST_FUNC(ST_DEVINFO, st_is_sony_worm);
14342 
14343 	switch (un->un_dp->type) {
14344 	case MT_ISDLT:
14345 		wrt = st_is_dlt_worm(un);
14346 		break;
14347 
14348 	case MT_ISSTK9840:
14349 		wrt = st_is_stk_worm(un);
14350 		break;
14351 
14352 	case MT_IS8MM:
14353 	case MT_ISAIT:
14354 		wrt = st_is_sony_worm(un);
14355 		break;
14356 
14357 	case MT_LTO:
14358 		if (strncmp("HP ", un->un_dp->vid, 3) == 0) {
14359 			wrt = st_is_hp_lto_worm(un);
14360 		} else {
14361 			wrt = st_is_t10_worm(un);
14362 		}
14363 		break;
14364 
14365 	case MT_ISDAT:
14366 		if (strncmp("HP ", un->un_dp->vid, 3) == 0) {
14367 			wrt = st_is_hp_dat_worm(un);
14368 		} else {
14369 			wrt = st_is_t10_worm(un);
14370 		}
14371 		break;
14372 
14373 	default:
14374 		wrt = FAILED;
14375 		break;
14376 	}
14377 
14378 	/*
14379 	 * If any of the above failed try the t10 standard method.
14380 	 */
14381 	if (wrt == FAILED) {
14382 		wrt = st_is_t10_worm(un);
14383 	}
14384 
14385 	/*
14386 	 * Unknown method for detecting WORM media.
14387 	 */
14388 	if (wrt == FAILED) {
14389 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14390 		    "Unknown method for WORM media detection\n");
14391 		wrt = RDWR;
14392 		un->un_dp->options &= ~ST_WORMABLE;
14393 	}
14394 
14395 	return (wrt);
14396 }
14397 
14398 static int
st_read_attributes(struct scsi_tape * un,uint16_t attribute,void * pnt,size_t size,ubufunc_t bufunc)14399 st_read_attributes(struct scsi_tape *un, uint16_t attribute, void *pnt,
14400     size_t size, ubufunc_t bufunc)
14401 {
14402 	char cdb[CDB_GROUP4];
14403 	int result;
14404 	struct uscsi_cmd *cmd;
14405 	struct scsi_arq_status status;
14406 
14407 	caddr_t buf = (caddr_t)pnt;
14408 
14409 	ST_FUNC(ST_DEVINFO, st_read_attributes);
14410 
14411 	if (un->un_sd->sd_inq->inq_ansi < 3) {
14412 		return (ENOTTY);
14413 	}
14414 
14415 	cmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
14416 
14417 	cdb[0] = (char)SCMD_READ_ATTRIBUTE;
14418 	cdb[1] = 0;
14419 	cdb[2] = 0;
14420 	cdb[3] = 0;
14421 	cdb[4] = 0;
14422 	cdb[5] = 0;
14423 	cdb[6] = 0;
14424 	cdb[7] = 0;
14425 	cdb[8] = (char)(attribute >> 8);
14426 	cdb[9] = (char)(attribute);
14427 	cdb[10] = (char)(size >> 24);
14428 	cdb[11] = (char)(size >> 16);
14429 	cdb[12] = (char)(size >> 8);
14430 	cdb[13] = (char)(size);
14431 	cdb[14] = 0;
14432 	cdb[15] = 0;
14433 
14434 
14435 	cmd->uscsi_flags = USCSI_READ | USCSI_RQENABLE | USCSI_DIAGNOSE;
14436 	cmd->uscsi_timeout = un->un_dp->non_motion_timeout;
14437 	cmd->uscsi_cdb = &cdb[0];
14438 	cmd->uscsi_bufaddr = (caddr_t)buf;
14439 	cmd->uscsi_buflen = size;
14440 	cmd->uscsi_cdblen = sizeof (cdb);
14441 	cmd->uscsi_rqlen = sizeof (status);
14442 	cmd->uscsi_rqbuf = (caddr_t)&status;
14443 
14444 	result = bufunc(un, cmd, FKIOCTL);
14445 
14446 	if (result != 0 || cmd->uscsi_status != 0) {
14447 		ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
14448 		    "st_read_attribute failed: result %d status %d\n",
14449 		    result, cmd->uscsi_status);
14450 		/*
14451 		 * If this returns invalid operation code don't try again.
14452 		 */
14453 		if (un->un_sd->sd_sense->es_key == KEY_ILLEGAL_REQUEST &&
14454 		    un->un_sd->sd_sense->es_add_code == 0x20) {
14455 			result = ENOTTY;
14456 		} else if (result == 0) {
14457 			result = EIO;
14458 		}
14459 
14460 	} else {
14461 
14462 		/*
14463 		 * The attribute retured should match the attribute requested.
14464 		 */
14465 		if (buf[4] != cdb[8] || buf[5] != cdb[9]) {
14466 			scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
14467 			    "st_read_attribute got wrong data back expected "
14468 			    "0x%x got 0x%x\n", attribute, buf[6] << 8 | buf[7]);
14469 			st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG,
14470 			    "bad? data", buf, size);
14471 			result = EIO;
14472 		}
14473 	}
14474 
14475 	kmem_free(cmd, sizeof (struct uscsi_cmd));
14476 
14477 	return (result);
14478 }
14479 
14480 static int
st_get_special_inquiry(struct scsi_tape * un,uchar_t size,caddr_t dest,uchar_t page)14481 st_get_special_inquiry(struct scsi_tape *un, uchar_t size, caddr_t dest,
14482     uchar_t page)
14483 {
14484 	char cdb[CDB_GROUP0];
14485 	struct scsi_extended_sense *sense;
14486 	struct uscsi_cmd *cmd;
14487 	int result;
14488 
14489 	ST_FUNC(ST_DEVINFO, st_get_special_inquiry);
14490 
14491 	cdb[0] = SCMD_INQUIRY;
14492 	cdb[1] = page ? 1 : 0;
14493 	cdb[2] = page;
14494 	cdb[3] = 0;
14495 	cdb[4] = size;
14496 	cdb[5] = 0;
14497 
14498 	cmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
14499 	sense = kmem_alloc(sizeof (struct scsi_extended_sense), KM_SLEEP);
14500 
14501 	cmd->uscsi_flags = USCSI_READ | USCSI_RQENABLE;
14502 	cmd->uscsi_timeout = un->un_dp->non_motion_timeout;
14503 	cmd->uscsi_cdb = &cdb[0];
14504 	cmd->uscsi_bufaddr = dest;
14505 	cmd->uscsi_buflen = size;
14506 	cmd->uscsi_cdblen = CDB_GROUP0;
14507 	cmd->uscsi_rqlen = sizeof (struct scsi_extended_sense);
14508 	cmd->uscsi_rqbuf = (caddr_t)sense;
14509 
14510 	result = st_uscsi_cmd(un, cmd, FKIOCTL);
14511 
14512 	if (result != 0 || cmd->uscsi_status != 0) {
14513 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
14514 		    "st_get_special_inquiry() failed for page %x", page);
14515 		if (result == 0) {
14516 			result = EIO;
14517 		}
14518 	}
14519 
14520 	kmem_free(sense, sizeof (struct scsi_extended_sense));
14521 	kmem_free(cmd, sizeof (struct uscsi_cmd));
14522 
14523 	return (result);
14524 }
14525 
14526 
14527 static int
st_update_block_pos(struct scsi_tape * un,bufunc_t bf,int post_space)14528 st_update_block_pos(struct scsi_tape *un, bufunc_t bf, int post_space)
14529 {
14530 	int rval = ENOTTY;
14531 	uchar_t status = un->un_status;
14532 	posmode previous_pmode = un->un_running.pmode;
14533 
14534 	ST_FUNC(ST_DEVINFO, st_update_block_pos);
14535 
14536 	while (un->un_read_pos_type != NO_POS) {
14537 		rval = bf(un, SCMD_READ_POSITION, 32, SYNC_CMD);
14538 
14539 		/*
14540 		 * If read position command returned good status
14541 		 * Parse the data to see if the position can be interpreted.
14542 		 */
14543 		if ((rval == 0) &&
14544 		    ((rval = st_interpret_read_pos(un, &un->un_pos,
14545 		    un->un_read_pos_type, 32, (caddr_t)un->un_read_pos_data,
14546 		    post_space)) == 0)) {
14547 			/*
14548 			 * Update the running position as well if un_pos was
14549 			 * ok. But only if recovery is enabled.
14550 			 */
14551 			if (st_recov_sz != sizeof (recov_info)) {
14552 				break;
14553 			}
14554 			rval = st_interpret_read_pos(un, &un->un_running,
14555 			    un->un_read_pos_type, 32,
14556 			    (caddr_t)un->un_read_pos_data, post_space);
14557 			un->un_status = status;
14558 			break;
14559 		} else if (un->un_status == KEY_UNIT_ATTENTION) {
14560 			un->un_running.pmode = previous_pmode;
14561 			continue;
14562 		} else if (un->un_status != KEY_ILLEGAL_REQUEST) {
14563 			scsi_log(ST_DEVINFO, st_label, CE_NOTE,
14564 			    "st_update_block_pos() read position cmd 0x%x"
14565 			    " returned 0x%x un_status = %d",
14566 			    un->un_read_pos_type, rval, un->un_status);
14567 			/* ENOTTY means it read garbage. try something else. */
14568 			if (rval == ENOTTY) {
14569 				rval = EIO; /* so ENOTTY is not final rval */
14570 			} else {
14571 				break;
14572 			}
14573 		} else {
14574 			ST_DEBUG4(ST_DEVINFO, st_label, CE_NOTE,
14575 			    "st_update_block_pos() read position cmd %x"
14576 			    " returned %x", un->un_read_pos_type, rval);
14577 			un->un_running.pmode = previous_pmode;
14578 		}
14579 
14580 		switch (un->un_read_pos_type) {
14581 		case SHORT_POS:
14582 			un->un_read_pos_type = NO_POS;
14583 			break;
14584 
14585 		case LONG_POS:
14586 			un->un_read_pos_type = EXT_POS;
14587 			break;
14588 
14589 		case EXT_POS:
14590 			un->un_read_pos_type = SHORT_POS;
14591 			break;
14592 
14593 		default:
14594 			ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
14595 			    "Unexpected read position type 0x%x",
14596 			    un->un_read_pos_type);
14597 		}
14598 		un->un_status = KEY_NO_SENSE;
14599 	}
14600 
14601 	return (rval);
14602 }
14603 
14604 static int
st_get_read_pos(struct scsi_tape * un,buf_t * bp)14605 st_get_read_pos(struct scsi_tape *un, buf_t *bp)
14606 {
14607 	int result;
14608 	size_t d_sz;
14609 	caddr_t pos_info;
14610 	struct uscsi_cmd *cmd = (struct uscsi_cmd *)bp->b_back;
14611 
14612 	ST_FUNC(ST_DEVINFO, st_get_read_pos);
14613 
14614 	if (cmd->uscsi_bufaddr == NULL || cmd->uscsi_buflen <= 0) {
14615 		return (0);
14616 	}
14617 
14618 	if (bp_mapin_common(bp, VM_NOSLEEP) == NULL) {
14619 
14620 		scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
14621 		    "bp_mapin_common() failed");
14622 
14623 		return (EIO);
14624 	}
14625 
14626 	d_sz = bp->b_bcount - bp->b_resid;
14627 	if (d_sz == 0) {
14628 		bp_mapout(bp);
14629 		return (EIO);
14630 	}
14631 
14632 	/*
14633 	 * Copy the buf to a double-word aligned memory that can hold the
14634 	 * tape_position_t data structure.
14635 	 */
14636 	if ((pos_info = kmem_alloc(d_sz, KM_NOSLEEP)) == NULL) {
14637 		scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
14638 		    "kmem_alloc() failed");
14639 		bp_mapout(bp);
14640 		return (EIO);
14641 	}
14642 	bcopy(bp->b_un.b_addr, pos_info, d_sz);
14643 
14644 #ifdef STDEBUG
14645 	if ((st_debug & 0x7) > 2) {
14646 		st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG,
14647 		    "st_get_read_pos() position info",
14648 		    pos_info, bp->b_bcount);
14649 	}
14650 #endif
14651 
14652 	result = st_interpret_read_pos(un, &un->un_pos, cmd->uscsi_cdb[1],
14653 	    d_sz, pos_info, 0);
14654 
14655 	COPY_POS(&un->un_running, &un->un_pos);
14656 
14657 	kmem_free(pos_info, d_sz);
14658 	bp_mapout(bp);
14659 
14660 	return (result);
14661 }
14662 
14663 #if defined(_BIG_ENDIAN)
14664 
14665 #define	FIX_ENDIAN16(x)
14666 #define	FIX_ENDIAN32(x)
14667 #define	FIX_ENDIAN64(x)
14668 
14669 #elif defined(_LITTLE_ENDIAN)
14670 
14671 static void
st_swap16(uint16_t * val)14672 st_swap16(uint16_t *val)
14673 {
14674 	uint16_t tmp;
14675 
14676 	tmp = (*val >>  8) & 0xff;
14677 	tmp |= (*val <<  8) & 0xff00;
14678 
14679 	*val = tmp;
14680 }
14681 
14682 static void
st_swap32(uint32_t * val)14683 st_swap32(uint32_t *val)
14684 {
14685 	uint32_t tmp;
14686 
14687 	tmp =  (*val >> 24) & 0xff;
14688 	tmp |= (*val >>  8) & 0xff00;
14689 	tmp |= (*val <<  8) & 0xff0000;
14690 	tmp |= (*val << 24) & 0xff000000;
14691 
14692 	*val = tmp;
14693 }
14694 
14695 static void
st_swap64(uint64_t * val)14696 st_swap64(uint64_t *val)
14697 {
14698 	uint32_t low;
14699 	uint32_t high;
14700 
14701 	low =  (uint32_t)(*val);
14702 	high = (uint32_t)(*val >> 32);
14703 
14704 	st_swap32(&low);
14705 	st_swap32(&high);
14706 
14707 	*val =  high;
14708 	*val |= ((uint64_t)low << 32);
14709 }
14710 
14711 #define	FIX_ENDIAN16(x) st_swap16(x)
14712 #define	FIX_ENDIAN32(x) st_swap32(x)
14713 #define	FIX_ENDIAN64(x) st_swap64(x)
14714 #endif
14715 
14716 /*
14717  * st_interpret_read_pos()
14718  *
14719  * Returns:
14720  *	0	If secsessful.
14721  *	EIO	If read postion responce data was unuseable or invalid.
14722  *	ERANGE	If the position of the drive is too large for the read_p_type.
14723  *	ENOTTY	If the responce data looks invalid for the read position type.
14724  */
14725 
14726 static int
st_interpret_read_pos(struct scsi_tape const * un,tapepos_t * dest,read_p_types type,size_t data_sz,const caddr_t responce,int post_space)14727 st_interpret_read_pos(struct scsi_tape const *un, tapepos_t *dest,
14728     read_p_types type, size_t data_sz, const caddr_t responce, int post_space)
14729 {
14730 	int rval = 0;
14731 	int flag = 0;
14732 	tapepos_t org;
14733 
14734 	ST_FUNC(ST_DEVINFO, st_interpret_read_pos);
14735 
14736 	/*
14737 	 * We expect the position value to change after a space command.
14738 	 * So if post_space is set we don't print out what has changed.
14739 	 */
14740 	if ((dest != &un->un_pos) && (post_space == 0) &&
14741 	    (st_recov_sz == sizeof (recov_info))) {
14742 		COPY_POS(&org, dest);
14743 		flag = 1;
14744 	}
14745 
14746 	/*
14747 	 * See what kind of read position was requested.
14748 	 */
14749 	switch (type) {
14750 
14751 	case SHORT_POS: /* Short data format */
14752 	{
14753 		tape_position_t *pos_info = (tape_position_t *)responce;
14754 		uint32_t value;
14755 
14756 		/* If reserved fields are non zero don't use the data */
14757 		if (pos_info->reserved0 || pos_info->reserved1 ||
14758 		    pos_info->reserved2[0] || pos_info->reserved2[1] ||
14759 		    pos_info->reserved3) {
14760 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14761 			    "Invalid Read Short Position Data returned\n");
14762 			rval = EIO;
14763 			break;
14764 		}
14765 		/*
14766 		 * Position is to large to use this type of read position.
14767 		 */
14768 		if (pos_info->posi_err == 1) {
14769 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14770 			    "Drive reported position error\n");
14771 			rval = ERANGE;
14772 			break;
14773 		}
14774 		/*
14775 		 * If your at the begining of partition and end at the same
14776 		 * time it's very small partition or bad data.
14777 		 */
14778 		if (pos_info->begin_of_part && pos_info->end_of_part) {
14779 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14780 			    "SHORT_POS returned begin and end of"
14781 			    " partition\n");
14782 			rval = EIO;
14783 			break;
14784 		}
14785 
14786 		if (pos_info->blk_posi_unkwn == 0) {
14787 
14788 			value = pos_info->host_block;
14789 			FIX_ENDIAN32(&value);
14790 
14791 			/*
14792 			 * If the tape is rewound the host blcok should be 0.
14793 			 */
14794 			if ((pos_info->begin_of_part == 1) &&
14795 			    (value != 0)) {
14796 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14797 				    "SHORT_POS returned begin of partition"
14798 				    " but host block was 0x%x\n", value);
14799 				rval = EIO;
14800 				break;
14801 			}
14802 
14803 			if (dest->lgclblkno != value) {
14804 				if (flag)
14805 					flag++;
14806 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14807 				    "SHORT_POS current logical 0x%"PRIx64" read"
14808 				    " 0x%x\n", dest->lgclblkno, value);
14809 			}
14810 
14811 			dest->lgclblkno = (uint64_t)value;
14812 
14813 			/*
14814 			 * If the begining of partition is true and the
14815 			 * block number is zero we will beleive that it is
14816 			 * rewound. Promote the pmode to legacy.
14817 			 */
14818 			if ((pos_info->begin_of_part == 1) &&
14819 			    (value == 0)) {
14820 				dest->blkno = 0;
14821 				dest->fileno = 0;
14822 				if (dest->pmode != legacy)
14823 					dest->pmode = legacy;
14824 			/*
14825 			 * otherwise if the pmode was invalid,
14826 			 * promote it to logical.
14827 			 */
14828 			} else if (dest->pmode == invalid) {
14829 				dest->pmode = logical;
14830 			}
14831 
14832 			if (dest->partition != pos_info->partition_number) {
14833 				if (flag)
14834 					flag++;
14835 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14836 				    "SHORT_POS current partition %d read %d\n",
14837 				    dest->partition,
14838 				    pos_info->partition_number);
14839 			}
14840 
14841 			dest->partition = pos_info->partition_number;
14842 
14843 		} else {
14844 			dest->pmode = invalid;
14845 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14846 			    "Tape drive reported block position as unknown\n");
14847 		}
14848 		break;
14849 	}
14850 
14851 	case LONG_POS: /* Long data format */
14852 	{
14853 		uint64_t value;
14854 		tape_position_long_t *long_pos_info =
14855 		    (tape_position_long_t *)responce;
14856 
14857 		/* If reserved fields are non zero don't use the data */
14858 		if ((long_pos_info->reserved0) ||
14859 		    (long_pos_info->reserved1) ||
14860 		    (long_pos_info->reserved2)) {
14861 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14862 			    "Invalid Read Long Position Data returned\n");
14863 			rval = ENOTTY;
14864 			break;
14865 		}
14866 
14867 		/* Is position Valid */
14868 		if (long_pos_info->blk_posi_unkwn == 0) {
14869 			uint32_t part;
14870 
14871 			value = long_pos_info->block_number;
14872 			FIX_ENDIAN64(&value);
14873 
14874 			/*
14875 			 * If it says we are at the begining of partition
14876 			 * the block value better be 0.
14877 			 */
14878 			if ((long_pos_info->begin_of_part == 1) &&
14879 			    (value != 0)) {
14880 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14881 				    "LONG_POS returned begin of partition but"
14882 				    " block number was 0x%"PRIx64"\n", value);
14883 				rval = ENOTTY;
14884 				break;
14885 			}
14886 			/*
14887 			 * Can't be at the start and the end of the partition
14888 			 * at the same time if the partition is larger the 0.
14889 			 */
14890 			if (long_pos_info->begin_of_part &&
14891 			    long_pos_info->end_of_part) {
14892 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14893 				    "LONG_POS returned begin and end of"
14894 				    " partition\n");
14895 				rval = ENOTTY;
14896 				break;
14897 			}
14898 
14899 			/*
14900 			 * If the logical block number is not what we expected.
14901 			 */
14902 			if (dest->lgclblkno != value) {
14903 				if (flag)
14904 					flag++;
14905 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14906 				    "LONG_POS current logical 0x%"PRIx64
14907 				    " read 0x%"PRIx64"\n",
14908 				    dest->lgclblkno, value);
14909 			}
14910 			dest->lgclblkno = value;
14911 
14912 			/*
14913 			 * If the begining of partition is true and the
14914 			 * block number is zero we will beleive that it is
14915 			 * rewound. Promote the pmode to legacy.
14916 			 */
14917 			if ((long_pos_info->begin_of_part == 1) &&
14918 			    (long_pos_info->block_number == 0)) {
14919 				dest->blkno = 0;
14920 				dest->fileno = 0;
14921 				if (dest->pmode != legacy)
14922 					dest->pmode = legacy;
14923 			/*
14924 			 * otherwise if the pmode was invalid,
14925 			 * promote it to logical.
14926 			 */
14927 			} else if (dest->pmode == invalid) {
14928 				dest->pmode = logical;
14929 			}
14930 
14931 			part = long_pos_info->partition;
14932 			FIX_ENDIAN32(&part);
14933 			if (dest->partition != part) {
14934 				if (flag)
14935 					flag++;
14936 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14937 				    "LONG_POS current partition %d"
14938 				    " read %d\n", dest->partition, part);
14939 			}
14940 			dest->partition = part;
14941 		} else {
14942 			/*
14943 			 * If the drive doesn't know location,
14944 			 * we don't either.
14945 			 */
14946 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14947 			    "Tape drive reported block position as unknown\n");
14948 			dest->pmode = invalid;
14949 		}
14950 
14951 		/* Is file position valid */
14952 		if (long_pos_info->mrk_posi_unkwn == 0) {
14953 			value = long_pos_info->file_number;
14954 			FIX_ENDIAN64(&value);
14955 			/*
14956 			 * If it says we are at the begining of partition
14957 			 * the block value better be 0.
14958 			 */
14959 			if ((long_pos_info->begin_of_part == 1) &&
14960 			    (value != 0)) {
14961 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14962 				    "LONG_POS returned begin of partition but"
14963 				    " block number was 0x%"PRIx64"\n", value);
14964 				rval = ENOTTY;
14965 				break;
14966 			}
14967 			if (((dest->pmode == legacy) ||
14968 			    (dest->pmode == logical)) &&
14969 			    (dest->fileno != value)) {
14970 				if (flag)
14971 					flag++;
14972 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
14973 				    "LONG_POS fileno 0x%"PRIx64
14974 				    " not un_pos %x\n", value,
14975 				    dest->fileno);
14976 			} else if (dest->pmode == invalid) {
14977 				dest->pmode = logical;
14978 			}
14979 			dest->fileno = (int32_t)value;
14980 		}
14981 
14982 		if (dest->pmode != invalid && long_pos_info->end_of_part) {
14983 			dest->eof = ST_EOT;
14984 		}
14985 
14986 		break;
14987 	}
14988 
14989 	case EXT_POS: /* Extended data format */
14990 	{
14991 		uint64_t value;
14992 		uint16_t len;
14993 		tape_position_ext_t *ext_pos_info =
14994 		    (tape_position_ext_t *)responce;
14995 
14996 		/* Make sure that there is enough data there */
14997 		if (data_sz < 16) {
14998 			break;
14999 		}
15000 
15001 		/* If reserved fields are non zero don't use the data */
15002 		if (ext_pos_info->reserved0 || ext_pos_info->reserved1) {
15003 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
15004 			    "EXT_POS reserved fields not zero\n");
15005 			rval = ENOTTY;
15006 			break;
15007 		}
15008 
15009 		/*
15010 		 * In the unlikely event of overflowing 64 bits of position.
15011 		 */
15012 		if (ext_pos_info->posi_err != 0) {
15013 			rval = ERANGE;
15014 			break;
15015 		}
15016 
15017 		len = ext_pos_info->parameter_len;
15018 		FIX_ENDIAN16(&len);
15019 
15020 		if (len != 0x1c) {
15021 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
15022 			    "EXT_POS parameter_len should be 0x1c was 0x%x\n",
15023 			    len);
15024 			rval = ENOTTY;
15025 			break;
15026 		}
15027 
15028 		/* Is block position information valid */
15029 		if (ext_pos_info->blk_posi_unkwn == 0) {
15030 
15031 			value = ext_pos_info->host_block;
15032 			FIX_ENDIAN64(&value);
15033 			if ((ext_pos_info->begin_of_part == 1) &&
15034 			    (value != 0)) {
15035 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
15036 				    "EXT_POS returned begining of partition but"
15037 				    " the host block was 0x%"PRIx64"\n", value);
15038 				rval = ENOTTY;
15039 				break;
15040 			}
15041 
15042 			if (dest->lgclblkno != value) {
15043 				if (flag)
15044 					flag++;
15045 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
15046 				    "EXT_POS current logical 0x%"PRIx64
15047 				    " read 0x%"PRIx64"\n",
15048 				    dest->lgclblkno, value);
15049 			}
15050 			dest->lgclblkno = value;
15051 
15052 			/*
15053 			 * If the begining of partition is true and the
15054 			 * block number is zero we will beleive that it is
15055 			 * rewound. Promote the pmode to legacy.
15056 			 */
15057 			if ((ext_pos_info->begin_of_part == 1) &&
15058 			    (ext_pos_info->host_block == 0)) {
15059 				dest->blkno = 0;
15060 				dest->fileno = 0;
15061 				if (dest->pmode != legacy) {
15062 					dest->pmode = legacy;
15063 				}
15064 			/*
15065 			 * otherwise if the pmode was invalid,
15066 			 * promote it to logical.
15067 			 */
15068 			} else if (dest->pmode == invalid) {
15069 				dest->pmode = logical;
15070 			}
15071 
15072 			if (dest->partition != ext_pos_info->partition) {
15073 				if (flag)
15074 					flag++;
15075 				ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
15076 				    "EXT_POS current partition %d read %d\n",
15077 				    dest->partition,
15078 				    ext_pos_info->partition);
15079 			}
15080 			dest->partition = ext_pos_info->partition;
15081 
15082 		} else {
15083 			dest->pmode = invalid;
15084 		}
15085 		break;
15086 	}
15087 
15088 	default:
15089 		ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
15090 		    "Got unexpected SCMD_READ_POSITION type %d\n", type);
15091 		rval = EIO;
15092 	}
15093 
15094 	if ((flag > 1) && (rval == 0) && (org.pmode != invalid)) {
15095 		st_print_position(ST_DEVINFO, st_label, CE_NOTE,
15096 		    "position read in", &org);
15097 		st_print_position(ST_DEVINFO, st_label, CE_NOTE,
15098 		    "position read out", dest);
15099 	}
15100 
15101 	return (rval);
15102 }
15103 
15104 static int
st_logical_block_locate(struct scsi_tape * un,ubufunc_t ubf,tapepos_t * pos,uint64_t lblk,uchar_t partition)15105 st_logical_block_locate(struct scsi_tape *un, ubufunc_t ubf, tapepos_t *pos,
15106     uint64_t lblk, uchar_t partition)
15107 {
15108 	int rval;
15109 	char cdb[CDB_GROUP4];
15110 	struct uscsi_cmd *cmd;
15111 	struct scsi_extended_sense sense;
15112 	bufunc_t bf = (ubf == st_uscsi_cmd) ? st_cmd : st_rcmd;
15113 
15114 	ST_FUNC(ST_DEVINFO, st_logical_block_locate);
15115 	/*
15116 	 * Not sure what to do when doing recovery and not wanting
15117 	 * to update un_pos
15118 	 */
15119 
15120 	cmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
15121 
15122 	if (lblk <= INT32_MAX) {
15123 		cmd->uscsi_cdblen = CDB_GROUP1;
15124 		cdb[0] = SCMD_LOCATE;
15125 		cdb[1] = pos->partition == partition ? 0 : 2;
15126 		cdb[2] = 0;
15127 		cdb[3] = (char)(lblk >> 24);
15128 		cdb[4] = (char)(lblk >> 16);
15129 		cdb[5] = (char)(lblk >> 8);
15130 		cdb[6] = (char)(lblk);
15131 		cdb[7] = 0;
15132 		cdb[8] = partition;
15133 		cdb[9] = 0;
15134 	} else {
15135 		/*
15136 		 * If the drive doesn't give a 64 bit read position data
15137 		 * it is unlikely it will accept 64 bit locates.
15138 		 */
15139 		if (un->un_read_pos_type != LONG_POS) {
15140 			kmem_free(cmd, sizeof (struct uscsi_cmd));
15141 			return (ERANGE);
15142 		}
15143 		cmd->uscsi_cdblen = CDB_GROUP4;
15144 		cdb[0] = (char)SCMD_LOCATE_G4;
15145 		cdb[1] = pos->partition == partition ? 0 : 2;
15146 		cdb[2] = 0;
15147 		cdb[3] = partition;
15148 		cdb[4] = (char)(lblk >> 56);
15149 		cdb[5] = (char)(lblk >> 48);
15150 		cdb[6] = (char)(lblk >> 40);
15151 		cdb[7] = (char)(lblk >> 32);
15152 		cdb[8] = (char)(lblk >> 24);
15153 		cdb[9] = (char)(lblk >> 16);
15154 		cdb[10] = (char)(lblk >> 8);
15155 		cdb[11] = (char)(lblk);
15156 		cdb[12] = 0;
15157 		cdb[13] = 0;
15158 		cdb[14] = 0;
15159 		cdb[15] = 0;
15160 	}
15161 
15162 
15163 	cmd->uscsi_flags = USCSI_WRITE | USCSI_DIAGNOSE | USCSI_RQENABLE;
15164 	cmd->uscsi_rqbuf = (caddr_t)&sense;
15165 	cmd->uscsi_rqlen = sizeof (sense);
15166 	cmd->uscsi_timeout = un->un_dp->space_timeout;
15167 	cmd->uscsi_cdb = cdb;
15168 
15169 	rval = ubf(un, cmd, FKIOCTL);
15170 
15171 	pos->pmode = logical;
15172 	pos->eof = ST_NO_EOF;
15173 
15174 	if (lblk > INT32_MAX) {
15175 		/*
15176 		 * XXX This is a work around till we handle Descriptor format
15177 		 * sense data. Since we are sending a command where the standard
15178 		 * sense data can not correctly represent a correct residual in
15179 		 * 4 bytes.
15180 		 */
15181 		if (un->un_status == KEY_ILLEGAL_REQUEST) {
15182 			scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15183 			    "Big LOCATE ILLEGAL_REQUEST: rval = %d\n", rval);
15184 			/* Doesn't like big locate command */
15185 			un->un_status = 0;
15186 			rval = ERANGE;
15187 		} else if ((un->un_pos.pmode == invalid) || (rval != 0)) {
15188 			/* Aborted big locate command */
15189 			scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15190 			    "Big LOCATE resulted in invalid pos: rval = %d\n",
15191 			    rval);
15192 			un->un_status = 0;
15193 			rval = EIO;
15194 		} else if (st_update_block_pos(un, bf, 1)) {
15195 			/* read position failed */
15196 			scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15197 			    "Big LOCATE and read pos: rval = %d\n", rval);
15198 			rval = EIO;
15199 		} else if (lblk > un->un_pos.lgclblkno) {
15200 			/* read position worked but position was not expected */
15201 			scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15202 			    "Big LOCATE and recover read less then desired 0x%"
15203 			    PRIx64"\n", un->un_pos.lgclblkno);
15204 			un->un_err_resid = lblk - un->un_pos.lgclblkno;
15205 			un->un_status = KEY_BLANK_CHECK;
15206 			rval = ESPIPE;
15207 		} else if (lblk == un->un_pos.lgclblkno) {
15208 			/* read position was what was expected */
15209 			scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15210 			    "Big LOCATE and recover seems to have worked\n");
15211 			un->un_err_resid = 0;
15212 			rval = 0;
15213 		} else {
15214 			ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
15215 			    "BIGLOCATE end up going backwards");
15216 			un->un_err_resid = lblk;
15217 			rval = EIO;
15218 		}
15219 
15220 	} else if (rval == 0) {
15221 		/* Worked as requested */
15222 		pos->lgclblkno = lblk;
15223 
15224 	} else if (((cmd->uscsi_status & ST_STATUS_MASK) == STATUS_CHECK) &&
15225 	    (cmd->uscsi_resid != 0)) {
15226 		/* Got part way there but wasn't enough blocks on tape */
15227 		pos->lgclblkno = lblk - cmd->uscsi_resid;
15228 		un->un_err_resid = cmd->uscsi_resid;
15229 		un->un_status = KEY_BLANK_CHECK;
15230 		rval = ESPIPE;
15231 
15232 	} else if (st_update_block_pos(un, bf, 1) == 0) {
15233 		/* Got part way there but drive didn't tell what we missed by */
15234 		un->un_err_resid = lblk - pos->lgclblkno;
15235 		un->un_status = KEY_BLANK_CHECK;
15236 		rval = ESPIPE;
15237 
15238 	} else {
15239 		scsi_log(ST_DEVINFO, st_label, SCSI_DEBUG,
15240 		    "Failed LOCATE and recover pos: rval = %d status = %d\n",
15241 		    rval, cmd->uscsi_status);
15242 		un->un_err_resid = lblk;
15243 		un->un_status = KEY_ILLEGAL_REQUEST;
15244 		pos->pmode = invalid;
15245 		rval = EIO;
15246 	}
15247 
15248 	kmem_free(cmd, sizeof (struct uscsi_cmd));
15249 
15250 	return (rval);
15251 }
15252 
15253 static int
st_mtfsf_ioctl(struct scsi_tape * un,int64_t files)15254 st_mtfsf_ioctl(struct scsi_tape *un, int64_t files)
15255 {
15256 	int rval;
15257 
15258 	ST_FUNC(ST_DEVINFO, st_mtfsf_ioctl);
15259 
15260 
15261 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15262 	    "st_mtfsf_ioctl: count=%"PRIx64", eof=%x\n", files, un->un_pos.eof);
15263 #if 0
15264 	if ((IN_EOF(un->un_pos)) && (files == 1)) {
15265 		un->un_pos.fileno++;
15266 		un->un_pos.blkno = 0;
15267 		return (0);
15268 	}
15269 #endif
15270 	/* pmode == invalid already handled */
15271 	if (un->un_pos.pmode == legacy) {
15272 		/*
15273 		 * forward space over filemark
15274 		 *
15275 		 * For ASF we allow a count of 0 on fsf which means
15276 		 * we just want to go to beginning of current file.
15277 		 * Equivalent to "nbsf(0)" or "bsf(1) + fsf".
15278 		 * Allow stepping over double fmk with reel
15279 		 */
15280 		if ((un->un_pos.eof >= ST_EOT) &&
15281 		    (files > 0) &&
15282 		    ((un->un_dp->options & ST_REEL) == 0)) {
15283 			/* we're at EOM */
15284 			un->un_err_resid = files;
15285 			un->un_status = KEY_BLANK_CHECK;
15286 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15287 			    "st_mtfsf_ioctl: EIO : MTFSF at EOM");
15288 			return (EIO);
15289 		}
15290 
15291 		/*
15292 		 * physical tape position may not be what we've been
15293 		 * telling the user; adjust the request accordingly
15294 		 */
15295 		if (IN_EOF(un->un_pos)) {
15296 			un->un_pos.fileno++;
15297 			un->un_pos.blkno = 0;
15298 			/*
15299 			 * For positive direction case, we're now covered.
15300 			 * For zero or negative direction, we're covered
15301 			 * (almost)
15302 			 */
15303 			files--;
15304 		}
15305 
15306 	}
15307 
15308 	if (st_check_density_or_wfm(un->un_dev, 1, B_READ, STEPBACK)) {
15309 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15310 		    "st_mtfsf_ioctl: EIO : MTFSF density/wfm failed");
15311 		return (EIO);
15312 	}
15313 
15314 
15315 	/*
15316 	 * Forward space file marks.
15317 	 * We leave ourselves at block zero
15318 	 * of the target file number.
15319 	 */
15320 	if (files < 0) {
15321 		rval = st_backward_space_files(un, -files, 0);
15322 	} else {
15323 		rval = st_forward_space_files(un, files);
15324 	}
15325 
15326 	return (rval);
15327 }
15328 
15329 static int
st_forward_space_files(struct scsi_tape * un,int64_t count)15330 st_forward_space_files(struct scsi_tape *un, int64_t count)
15331 {
15332 	int rval;
15333 
15334 	ST_FUNC(ST_DEVINFO, st_forward_space_files);
15335 
15336 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15337 	    "fspace: count=%"PRIx64", eof=%x\n", count, un->un_pos.eof);
15338 
15339 	ASSERT(count >= 0);
15340 	ASSERT(un->un_pos.pmode != invalid);
15341 
15342 	/*
15343 	 * A space with a count of zero means take me to the start of file.
15344 	 */
15345 	if (count == 0) {
15346 
15347 		/* Hay look were already there */
15348 		if (un->un_pos.pmode == legacy && un->un_pos.blkno == 0) {
15349 			un->un_err_resid = 0;
15350 			COPY_POS(&un->un_err_pos, &un->un_pos);
15351 			return (0);
15352 		}
15353 
15354 		/*
15355 		 * Well we are in the first file.
15356 		 * A rewind will get to the start.
15357 		 */
15358 		if (un->un_pos.pmode == legacy && un->un_pos.fileno == 0) {
15359 			rval = st_cmd(un, SCMD_REWIND, 0, SYNC_CMD);
15360 
15361 		/*
15362 		 * Can we backspace to get there?
15363 		 * This should work in logical mode.
15364 		 */
15365 		} else if (un->un_dp->options & ST_BSF) {
15366 			rval = st_space_to_begining_of_file(un);
15367 
15368 		/*
15369 		 * Can't back space but current file number is known,
15370 		 * So rewind and space from the begining of the partition.
15371 		 */
15372 		} else if (un->un_pos.pmode == legacy) {
15373 			rval = st_scenic_route_to_begining_of_file(un,
15374 			    un->un_pos.fileno);
15375 
15376 		/*
15377 		 * pmode is logical and ST_BSF is not set.
15378 		 * The LONG_POS read position contains the fileno.
15379 		 * If the read position works, rewind and space.
15380 		 */
15381 		} else if (un->un_read_pos_type == LONG_POS) {
15382 			rval = st_cmd(un, SCMD_READ_POSITION, 0, SYNC_CMD);
15383 			if (rval) {
15384 				/*
15385 				 * We didn't get the file position from the
15386 				 * read position command.
15387 				 * We are going to trust the drive to backspace
15388 				 * and then position after the filemark.
15389 				 */
15390 				rval = st_space_to_begining_of_file(un);
15391 			}
15392 			rval = st_interpret_read_pos(un, &un->un_pos, LONG_POS,
15393 			    32, (caddr_t)un->un_read_pos_data, 0);
15394 			if ((rval) && (un->un_pos.pmode == invalid)) {
15395 				rval = st_space_to_begining_of_file(un);
15396 			} else {
15397 				rval = st_scenic_route_to_begining_of_file(un,
15398 				    un->un_pos.fileno);
15399 			}
15400 		} else {
15401 			rval = EIO;
15402 		}
15403 		/*
15404 		 * If something didn't work we are lost
15405 		 */
15406 		if (rval != 0) {
15407 			un->un_pos.pmode = invalid;
15408 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15409 			    "st_mtioctop : EIO : fspace pmode invalid");
15410 
15411 			rval = EIO;
15412 		}
15413 
15414 	} else {
15415 		rval = st_space_fmks(un, count);
15416 	}
15417 
15418 	if (rval != EIO && count < 0) {
15419 		/*
15420 		 * we came here with a count < 0; we now need
15421 		 * to skip back to end up before the filemark
15422 		 */
15423 		rval = st_backward_space_files(un, 1, 1);
15424 	}
15425 
15426 	return (rval);
15427 }
15428 
15429 static int
st_scenic_route_to_begining_of_file(struct scsi_tape * un,int32_t fileno)15430 st_scenic_route_to_begining_of_file(struct scsi_tape *un, int32_t fileno)
15431 {
15432 	int rval;
15433 
15434 	ST_FUNC(ST_DEVINFO, st_scenic_route_to_begining_of_file);
15435 
15436 	if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
15437 		rval = EIO;
15438 	} else if (st_cmd(un, SCMD_SPACE, Fmk(fileno), SYNC_CMD)) {
15439 		rval = EIO;
15440 	}
15441 
15442 	return (rval);
15443 }
15444 
15445 static int
st_space_to_begining_of_file(struct scsi_tape * un)15446 st_space_to_begining_of_file(struct scsi_tape *un)
15447 {
15448 	int rval;
15449 
15450 	ST_FUNC(ST_DEVINFO, st_space_to_begining_of_file);
15451 
15452 	/*
15453 	 * Back space of the file at the begining of the file.
15454 	 */
15455 	rval = st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD);
15456 	if (rval) {
15457 		rval = EIO;
15458 		return (rval);
15459 	}
15460 
15461 	/*
15462 	 * Other interesting answers might be crashed BOT which isn't bad.
15463 	 */
15464 	if (un->un_status == SUN_KEY_BOT) {
15465 		return (rval);
15466 	}
15467 
15468 	un->un_running.pmode = invalid;
15469 
15470 	/*
15471 	 * Now we are on the BOP side of the filemark. Forward space to
15472 	 * the EOM side and we are at the begining of the file.
15473 	 */
15474 	rval = st_cmd(un, SCMD_SPACE, Fmk(1), SYNC_CMD);
15475 	if (rval) {
15476 		rval = EIO;
15477 	}
15478 
15479 	return (rval);
15480 }
15481 
15482 static int
st_mtfsr_ioctl(struct scsi_tape * un,int64_t count)15483 st_mtfsr_ioctl(struct scsi_tape *un, int64_t count)
15484 {
15485 
15486 	ST_FUNC(ST_DEVINFO, st_mtfsr_ioctl);
15487 
15488 	/*
15489 	 * forward space to inter-record gap
15490 	 *
15491 	 */
15492 
15493 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15494 	    "st_ioctl_fsr: count=%"PRIx64", eof=%x\n", count, un->un_pos.eof);
15495 
15496 	if (un->un_pos.pmode == legacy) {
15497 		/*
15498 		 * If were are at end of tape and count is forward.
15499 		 * Return blank check.
15500 		 */
15501 		if ((un->un_pos.eof >= ST_EOT) && (count > 0)) {
15502 			/* we're at EOM */
15503 			un->un_err_resid = count;
15504 			un->un_status = KEY_BLANK_CHECK;
15505 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15506 			    "st_mtfsr_ioctl: EIO : MTFSR eof > ST_EOT");
15507 			return (EIO);
15508 		}
15509 
15510 		/*
15511 		 * If count is zero there is nothing to do.
15512 		 */
15513 		if (count == 0) {
15514 			un->un_err_pos.fileno = un->un_pos.fileno;
15515 			un->un_err_pos.blkno = un->un_pos.blkno;
15516 			un->un_err_resid = 0;
15517 			if (IN_EOF(un->un_pos) && SVR4_BEHAVIOR) {
15518 				un->un_status = SUN_KEY_EOF;
15519 			}
15520 			return (0);
15521 		}
15522 
15523 		/*
15524 		 * physical tape position may not be what we've been
15525 		 * telling the user; adjust the position accordingly
15526 		 */
15527 		if (IN_EOF(un->un_pos)) {
15528 			daddr_t blkno = un->un_pos.blkno;
15529 			int fileno = un->un_pos.fileno;
15530 
15531 			optype lastop = un->un_lastop;
15532 			if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD)
15533 			    == -1) {
15534 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15535 				    "st_mtfsr_ioctl:EIO:MTFSR count && IN_EOF");
15536 				return (EIO);
15537 			}
15538 
15539 			un->un_pos.blkno = blkno;
15540 			un->un_pos.fileno = fileno;
15541 			un->un_lastop = lastop;
15542 		}
15543 	}
15544 
15545 	if (st_check_density_or_wfm(un->un_dev, 1, B_READ, STEPBACK)) {
15546 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15547 		    "st_mtfsr_ioctl: EIO : MTFSR st_check_den");
15548 		return (EIO);
15549 	}
15550 
15551 	return (st_space_records(un, count));
15552 }
15553 
15554 static int
st_space_records(struct scsi_tape * un,int64_t count)15555 st_space_records(struct scsi_tape *un, int64_t count)
15556 {
15557 	int64_t dblk;
15558 	int rval = 0;
15559 
15560 	ST_FUNC(ST_DEVINFO, st_space_records);
15561 
15562 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15563 	    "st_space_records: count=%"PRIx64", eof=%x\n",
15564 	    count, un->un_pos.eof);
15565 
15566 	if (un->un_pos.pmode == logical) {
15567 		rval = st_cmd(un, SCMD_SPACE, Blk(count), SYNC_CMD);
15568 		if (rval != 0) {
15569 			rval = EIO;
15570 		}
15571 		return (rval);
15572 	}
15573 
15574 	dblk = count + un->un_pos.blkno;
15575 
15576 	/* Already there */
15577 	if (dblk == un->un_pos.blkno) {
15578 		un->un_err_resid = 0;
15579 		COPY_POS(&un->un_err_pos, &un->un_pos);
15580 		return (0);
15581 	}
15582 
15583 	/*
15584 	 * If the destination block is forward
15585 	 * or the drive will backspace records.
15586 	 */
15587 	if (un->un_pos.blkno < dblk || (un->un_dp->options & ST_BSR)) {
15588 		/*
15589 		 * If we're spacing forward, or the device can
15590 		 * backspace records, we can just use the SPACE
15591 		 * command.
15592 		 */
15593 		dblk -= un->un_pos.blkno;
15594 		if (st_cmd(un, SCMD_SPACE, Blk(dblk), SYNC_CMD)) {
15595 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15596 			    "st_space_records:EIO:space_records can't spc");
15597 			rval = EIO;
15598 		} else if (un->un_pos.eof >= ST_EOF_PENDING) {
15599 			/*
15600 			 * check if we hit BOT/EOT
15601 			 */
15602 			if (dblk < 0 && un->un_pos.eof == ST_EOM) {
15603 				un->un_status = SUN_KEY_BOT;
15604 				un->un_pos.eof = ST_NO_EOF;
15605 			} else if (dblk < 0 &&
15606 			    un->un_pos.eof == ST_EOF_PENDING) {
15607 				int residue = un->un_err_resid;
15608 				/*
15609 				 * we skipped over a filemark
15610 				 * and need to go forward again
15611 				 */
15612 				if (st_cmd(un, SCMD_SPACE, Fmk(1), SYNC_CMD)) {
15613 					ST_DEBUG2(ST_DEVINFO, st_label,
15614 					    SCSI_DEBUG, "st_space_records: EIO"
15615 					    " : can't space #2");
15616 					rval = EIO;
15617 				}
15618 				un->un_err_resid = residue;
15619 			}
15620 			if (rval == 0) {
15621 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15622 				    "st_space_records: EIO : space_rec rval"
15623 				    " == 0");
15624 				rval = EIO;
15625 			}
15626 		}
15627 	} else {
15628 		/*
15629 		 * else we rewind, space forward across filemarks to
15630 		 * the desired file, and then space records to the
15631 		 * desired block.
15632 		 */
15633 
15634 		int dfile = un->un_pos.fileno;	/* save current file */
15635 
15636 		if (dblk < 0) {
15637 			/*
15638 			 * Wups - we're backing up over a filemark
15639 			 */
15640 			if (un->un_pos.blkno != 0 &&
15641 			    (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD) ||
15642 			    st_cmd(un, SCMD_SPACE, Fmk(dfile), SYNC_CMD))) {
15643 				un->un_pos.pmode = invalid;
15644 			}
15645 			un->un_err_resid = -dblk;
15646 			if (un->un_pos.fileno == 0 && un->un_pos.blkno == 0) {
15647 				un->un_status = SUN_KEY_BOT;
15648 				un->un_pos.eof = ST_NO_EOF;
15649 			} else if (un->un_pos.fileno > 0) {
15650 				un->un_status = SUN_KEY_EOF;
15651 				un->un_pos.eof = ST_NO_EOF;
15652 			}
15653 			COPY_POS(&un->un_err_pos, &un->un_pos);
15654 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15655 			    "st_space_records:EIO:space_records : dblk < 0");
15656 			rval = EIO;
15657 		} else if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD) ||
15658 		    st_cmd(un, SCMD_SPACE, Fmk(dfile), SYNC_CMD) ||
15659 		    st_cmd(un, SCMD_SPACE, Blk(dblk), SYNC_CMD)) {
15660 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15661 			    "st_space_records: EIO :space_records : rewind "
15662 			    "and space failed");
15663 			un->un_pos.pmode = invalid;
15664 			rval = EIO;
15665 		}
15666 	}
15667 
15668 	return (rval);
15669 }
15670 
15671 static int
st_mtbsf_ioctl(struct scsi_tape * un,int64_t files)15672 st_mtbsf_ioctl(struct scsi_tape *un, int64_t files)
15673 {
15674 	ST_FUNC(ST_DEVINFO, st_mtbsf_ioctl);
15675 
15676 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15677 	    "st_mtbsf_ioctl: count=%"PRIx64", eof=%x\n", files, un->un_pos.eof);
15678 	/*
15679 	 * backward space of file filemark (1/2" and 8mm)
15680 	 * tape position will end on the beginning of tape side
15681 	 * of the desired file mark
15682 	 */
15683 	if ((un->un_dp->options & ST_BSF) == 0) {
15684 		return (ENOTTY);
15685 	}
15686 
15687 	if (un->un_pos.pmode == legacy) {
15688 
15689 		/*
15690 		 * If a negative count (which implies a forward space op)
15691 		 * is specified, and we're at logical or physical eot,
15692 		 * bounce the request.
15693 		 */
15694 
15695 		if (un->un_pos.eof >= ST_EOT && files < 0) {
15696 			un->un_err_resid = files;
15697 			un->un_status = SUN_KEY_EOT;
15698 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15699 			    "st_ioctl_mt_bsf : EIO : MTBSF : eof > ST_EOF");
15700 			return (EIO);
15701 		}
15702 		/*
15703 		 * physical tape position may not be what we've been
15704 		 * telling the user; adjust the request accordingly
15705 		 */
15706 		if (IN_EOF(un->un_pos)) {
15707 			un->un_pos.fileno++;
15708 			un->un_pos.blkno = 0;
15709 			files++;
15710 			ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15711 			    "st_mtbsf_ioctl in eof: count=%"PRIx64", op=%x\n",
15712 			    files, MTBSF);
15713 
15714 		}
15715 	}
15716 
15717 	if (st_check_density_or_wfm(un->un_dev, 1, 0, STEPBACK)) {
15718 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15719 		    "st_ioctl : EIO : MTBSF : check den wfm");
15720 		return (EIO);
15721 	}
15722 
15723 	if (files <= 0) {
15724 		/*
15725 		 * for a negative count, we need to step forward
15726 		 * first and then step back again
15727 		 */
15728 		files = -files + 1;
15729 		return (st_forward_space_files(un, files));
15730 	}
15731 	return (st_backward_space_files(un, files, 1));
15732 }
15733 
15734 static int
st_backward_space_files(struct scsi_tape * un,int64_t count,int infront)15735 st_backward_space_files(struct scsi_tape *un, int64_t count, int infront)
15736 {
15737 	int64_t end_fileno;
15738 	int64_t skip_cnt;
15739 	int rval = 0;
15740 
15741 	ST_FUNC(ST_DEVINFO, st_backward_space_files);
15742 
15743 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15744 	    "st_backward_space_files: count=%"PRIx64" eof=%x\n",
15745 	    count, un->un_pos.eof);
15746 	/*
15747 	 * Backspace files (MTNBSF): infront == 0
15748 	 *
15749 	 *	For tapes that can backspace, backspace
15750 	 *	count+1 filemarks and then run forward over
15751 	 *	a filemark
15752 	 *
15753 	 *	For tapes that can't backspace,
15754 	 *		calculate desired filenumber
15755 	 *		(un->un_pos.fileno - count), rewind,
15756 	 *		and then space forward this amount
15757 	 *
15758 	 * Backspace filemarks (MTBSF) infront == 1
15759 	 *
15760 	 *	For tapes that can backspace, backspace count
15761 	 *	filemarks
15762 	 *
15763 	 *	For tapes that can't backspace, calculate
15764 	 *	desired filenumber (un->un_pos.fileno - count),
15765 	 *	add 1, rewind, space forward this amount,
15766 	 *	and mark state as ST_EOF_PENDING appropriately.
15767 	 */
15768 
15769 	if (un->un_pos.pmode == logical) {
15770 
15771 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15772 		    "st_backward_space_files: mt_op=%x count=%"PRIx64
15773 		    "lgclblkno=%"PRIx64"\n", infront?MTBSF:MTNBSF, count,
15774 		    un->un_pos.lgclblkno);
15775 
15776 
15777 		/* In case a drive that won't back space gets in logical mode */
15778 		if ((un->un_dp->options & ST_BSF) == 0) {
15779 			rval = EIO;
15780 			return (rval);
15781 		}
15782 		if ((infront == 1) &&
15783 		    (st_cmd(un, SCMD_SPACE, Fmk(-count), SYNC_CMD))) {
15784 			rval = EIO;
15785 			return (rval);
15786 		} else if ((infront == 0) &&
15787 		    (st_cmd(un, SCMD_SPACE, Fmk((-count)-1), SYNC_CMD)) &&
15788 		    (st_cmd(un, SCMD_SPACE, Fmk(1), SYNC_CMD))) {
15789 			rval = EIO;
15790 			return (rval);
15791 		}
15792 		return (rval);
15793 	}
15794 
15795 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15796 	    "st_backward_space_files: mt_op=%x count=%"PRIx64
15797 	    "fileno=%x blkno=%x\n",
15798 	    infront?MTBSF:MTNBSF, count, un->un_pos.fileno, un->un_pos.blkno);
15799 
15800 
15801 
15802 	/*
15803 	 * Handle the simple case of BOT
15804 	 * playing a role in these cmds.
15805 	 * We do this by calculating the
15806 	 * ending file number. If the ending
15807 	 * file is < BOT, rewind and set an
15808 	 * error and mark resid appropriately.
15809 	 * If we're backspacing a file (not a
15810 	 * filemark) and the target file is
15811 	 * the first file on the tape, just
15812 	 * rewind.
15813 	 */
15814 
15815 	/* figure expected destination of this SPACE command */
15816 	end_fileno = un->un_pos.fileno - count;
15817 
15818 	/*
15819 	 * Would the end effect of this SPACE be the same as rewinding?
15820 	 * If so just rewind instead.
15821 	 */
15822 	if ((infront != 0) && (end_fileno < 0) ||
15823 	    (infront == 0) && (end_fileno <= 0)) {
15824 		if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
15825 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15826 			    "st_backward_space_files: EIO : "
15827 			    "rewind in lou of BSF failed\n");
15828 			rval = EIO;
15829 		}
15830 		if (end_fileno < 0) {
15831 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15832 			    "st_backward_space_files: EIO : "
15833 			    "back space file greater then fileno\n");
15834 			rval = EIO;
15835 			un->un_err_resid = -end_fileno;
15836 			un->un_status = SUN_KEY_BOT;
15837 		}
15838 		return (rval);
15839 	}
15840 
15841 	if (un->un_dp->options & ST_BSF) {
15842 		skip_cnt = 1 - infront;
15843 		/*
15844 		 * If we are going to end up at the beginning
15845 		 * of the file, we have to space one extra file
15846 		 * first, and then space forward later.
15847 		 */
15848 		end_fileno = -(count + skip_cnt);
15849 		ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
15850 		    "skip_cnt=%"PRIx64", tmp=%"PRIx64"\n",
15851 		    skip_cnt, end_fileno);
15852 		if (st_cmd(un, SCMD_SPACE, Fmk(end_fileno), SYNC_CMD)) {
15853 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15854 			    "st_backward_space_files:EIO:back space fm failed");
15855 			rval = EIO;
15856 		}
15857 	} else {
15858 		if (st_cmd(un, SCMD_REWIND, 0, SYNC_CMD)) {
15859 			rval = EIO;
15860 		} else {
15861 			skip_cnt = end_fileno + infront;
15862 		}
15863 	}
15864 
15865 	/*
15866 	 * If we have to space forward, do so...
15867 	 */
15868 	ST_DEBUG6(ST_DEVINFO, st_label, SCSI_DEBUG,
15869 	    "space forward skip_cnt=%"PRIx64", rval=%x\n", skip_cnt, rval);
15870 
15871 	if (rval == 0 && skip_cnt) {
15872 		if (st_cmd(un, SCMD_SPACE, Fmk(skip_cnt), SYNC_CMD)) {
15873 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15874 			    "st_backward_space_files:EIO:space fm skip count");
15875 			rval = EIO;
15876 		} else if (infront) {
15877 			/*
15878 			 * If we had to space forward, and we're
15879 			 * not a tape that can backspace, mark state
15880 			 * as if we'd just seen a filemark during a
15881 			 * a read.
15882 			 */
15883 			if ((un->un_dp->options & ST_BSF) == 0) {
15884 				un->un_pos.eof = ST_EOF_PENDING;
15885 				un->un_pos.fileno -= 1;
15886 				un->un_pos.blkno = LASTBLK;
15887 				un->un_running.pmode = invalid;
15888 			}
15889 		}
15890 	}
15891 
15892 	if (rval != 0) {
15893 		un->un_pos.pmode = invalid;
15894 	}
15895 
15896 	return (rval);
15897 }
15898 
15899 static int
st_mtnbsf_ioctl(struct scsi_tape * un,int64_t count)15900 st_mtnbsf_ioctl(struct scsi_tape *un, int64_t count)
15901 {
15902 	int rval;
15903 
15904 	ST_FUNC(ST_DEVINFO, st_mtnbsf_ioctl);
15905 
15906 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15907 	    "nbsf: count=%"PRIx64", eof=%x\n", count, un->un_pos.eof);
15908 
15909 	if (un->un_pos.pmode == legacy) {
15910 		/*
15911 		 * backward space file to beginning of file
15912 		 *
15913 		 * If a negative count (which implies a forward space op)
15914 		 * is specified, and we're at logical or physical eot,
15915 		 * bounce the request.
15916 		 */
15917 
15918 		if (un->un_pos.eof >= ST_EOT && count < 0) {
15919 			un->un_err_resid = count;
15920 			un->un_status = SUN_KEY_EOT;
15921 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15922 			    "st_ioctl : EIO : > EOT and count < 0");
15923 			return (EIO);
15924 		}
15925 		/*
15926 		 * physical tape position may not be what we've been
15927 		 * telling the user; adjust the request accordingly
15928 		 */
15929 		if (IN_EOF(un->un_pos)) {
15930 			un->un_pos.fileno++;
15931 			un->un_pos.blkno = 0;
15932 			count++;
15933 		}
15934 	}
15935 
15936 	if (st_check_density_or_wfm(un->un_dev, 1, 0, STEPBACK)) {
15937 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15938 		    "st_ioctl : EIO : MTNBSF check den and wfm");
15939 		return (EIO);
15940 	}
15941 
15942 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15943 	    "mtnbsf: count=%"PRIx64", eof=%x\n", count, un->un_pos.eof);
15944 
15945 	if (count <= 0) {
15946 		rval = st_forward_space_files(un, -count);
15947 	} else {
15948 		rval = st_backward_space_files(un, count, 0);
15949 	}
15950 	return (rval);
15951 }
15952 
15953 static int
st_mtbsr_ioctl(struct scsi_tape * un,int64_t num)15954 st_mtbsr_ioctl(struct scsi_tape *un, int64_t num)
15955 {
15956 	ST_FUNC(ST_DEVINFO, st_mtbsr_ioctl);
15957 
15958 	ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
15959 	    "bsr: count=%"PRIx64", eof=%x\n", num, un->un_pos.eof);
15960 
15961 	if (un->un_pos.pmode == legacy) {
15962 		/*
15963 		 * backward space into inter-record gap
15964 		 *
15965 		 * If a negative count (which implies a forward space op)
15966 		 * is specified, and we're at logical or physical eot,
15967 		 * bounce the request.
15968 		 */
15969 		if (un->un_pos.eof >= ST_EOT && num < 0) {
15970 			un->un_err_resid = num;
15971 			un->un_status = SUN_KEY_EOT;
15972 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
15973 			    "st_ioctl : EIO : MTBSR > EOT");
15974 			return (EIO);
15975 		}
15976 
15977 		if (num == 0) {
15978 			COPY_POS(&un->un_err_pos, &un->un_pos);
15979 			un->un_err_resid = 0;
15980 			if (IN_EOF(un->un_pos) && SVR4_BEHAVIOR) {
15981 				un->un_status = SUN_KEY_EOF;
15982 			}
15983 			return (0);
15984 		}
15985 
15986 		/*
15987 		 * physical tape position may not be what we've been
15988 		 * telling the user; adjust the position accordingly.
15989 		 * bsr can not skip filemarks and continue to skip records
15990 		 * therefore if we are logically before the filemark but
15991 		 * physically at the EOT side of the filemark, we need to step
15992 		 * back; this allows fsr N where N > number of blocks in file
15993 		 * followed by bsr 1 to position at the beginning of last block
15994 		 */
15995 		if (IN_EOF(un->un_pos)) {
15996 			tapepos_t save;
15997 			optype lastop = un->un_lastop;
15998 
15999 			COPY_POS(&save, &un->un_pos);
16000 			if (st_cmd(un, SCMD_SPACE, Fmk(-1), SYNC_CMD) == -1) {
16001 				ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
16002 				    "st_mtbsr_ioctl: EIO : MTBSR can't space");
16003 				return (EIO);
16004 			}
16005 
16006 			COPY_POS(&un->un_pos, &save);
16007 			un->un_lastop = lastop;
16008 		}
16009 	}
16010 
16011 	un->un_pos.eof = ST_NO_EOF;
16012 
16013 	if (st_check_density_or_wfm(un->un_dev, 1, 0, STEPBACK)) {
16014 		ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
16015 		    "st_ioctl : EIO : MTBSR : can't set density or wfm");
16016 		return (EIO);
16017 	}
16018 
16019 	num = -num;
16020 	return (st_space_records(un, num));
16021 }
16022 
16023 static int
st_mtfsfm_ioctl(struct scsi_tape * un,int64_t cnt)16024 st_mtfsfm_ioctl(struct scsi_tape *un, int64_t cnt)
16025 {
16026 	int rval;
16027 
16028 	ST_FUNC(ST_DEVINFO, st_mtfsfm_ioctl);
16029 
16030 	rval = st_cmd(un, SCMD_SPACE, SPACE(SP_SQFLM, cnt), SYNC_CMD);
16031 	if (rval == 0) {
16032 		un->un_pos.pmode = logical;
16033 	} else if ((un->un_status == KEY_ILLEGAL_REQUEST) &&
16034 	    (un->un_sd->sd_sense->es_add_code == 0x24)) {
16035 		/*
16036 		 * Drive says invalid field in cdb.
16037 		 * Doesn't like space multiple. Position isn't lost.
16038 		 */
16039 		un->un_err_resid = cnt;
16040 		un->un_status = 0;
16041 		rval = ENOTTY;
16042 	} else {
16043 		un->un_err_resid = cnt;
16044 		un->un_pos.pmode = invalid;
16045 	}
16046 	return (rval);
16047 }
16048 
16049 static int
st_mtbsfm_ioctl(struct scsi_tape * un,int64_t cnt)16050 st_mtbsfm_ioctl(struct scsi_tape *un, int64_t cnt)
16051 {
16052 	int rval;
16053 
16054 	ST_FUNC(ST_DEVINFO, st_mtbsfm_ioctl);
16055 
16056 	rval = st_cmd(un, SCMD_SPACE, SPACE(SP_SQFLM, -cnt), SYNC_CMD);
16057 	if (rval == 0) {
16058 		un->un_pos.pmode = logical;
16059 	} else if ((un->un_status == KEY_ILLEGAL_REQUEST) &&
16060 	    (un->un_sd->sd_sense->es_add_code == 0x24)) {
16061 		/*
16062 		 * Drive says invalid field in cdb.
16063 		 * Doesn't like space multiple. Position isn't lost.
16064 		 */
16065 		un->un_err_resid = cnt;
16066 		un->un_status = 0;
16067 		rval = ENOTTY;
16068 	} else {
16069 		un->un_err_resid = cnt;
16070 		un->un_pos.pmode = invalid;
16071 	}
16072 	return (rval);
16073 }
16074 
16075 #ifdef	__x86
16076 
16077 /*
16078  * release contig_mem and wake up waiting thread, if any
16079  */
16080 static void
st_release_contig_mem(struct scsi_tape * un,struct contig_mem * cp)16081 st_release_contig_mem(struct scsi_tape *un, struct contig_mem *cp)
16082 {
16083 	mutex_enter(ST_MUTEX);
16084 
16085 	ST_FUNC(ST_DEVINFO, st_release_contig_mem);
16086 
16087 	cp->cm_next = un->un_contig_mem;
16088 	un->un_contig_mem = cp;
16089 	un->un_contig_mem_available_num++;
16090 	cv_broadcast(&un->un_contig_mem_cv);
16091 
16092 	mutex_exit(ST_MUTEX);
16093 }
16094 
16095 /*
16096  * St_get_contig_mem will return a contig_mem if there is one available
16097  * in current system. Otherwise, it will try to alloc one, if the total
16098  * number of contig_mem is within st_max_contig_mem_num.
16099  * It will sleep, if allowed by caller or return NULL, if no contig_mem
16100  * is available for now.
16101  */
16102 static struct contig_mem *
st_get_contig_mem(struct scsi_tape * un,size_t len,int alloc_flags)16103 st_get_contig_mem(struct scsi_tape *un, size_t len, int alloc_flags)
16104 {
16105 	size_t rlen;
16106 	struct contig_mem *cp = NULL;
16107 	ddi_acc_handle_t acc_hdl;
16108 	caddr_t addr;
16109 	int big_enough = 0;
16110 	int (*dma_alloc_cb)() = (alloc_flags == KM_SLEEP) ?
16111 	    DDI_DMA_SLEEP : DDI_DMA_DONTWAIT;
16112 
16113 	/* Try to get one available contig_mem */
16114 	mutex_enter(ST_MUTEX);
16115 
16116 	ST_FUNC(ST_DEVINFO, st_get_contig_mem);
16117 
16118 	if (un->un_contig_mem_available_num > 0) {
16119 		ST_GET_CONTIG_MEM_HEAD(un, cp, len, big_enough);
16120 	} else if (un->un_contig_mem_total_num < st_max_contig_mem_num) {
16121 		/*
16122 		 * we failed to get one. we're going to
16123 		 * alloc one more contig_mem for this I/O
16124 		 */
16125 		mutex_exit(ST_MUTEX);
16126 		cp = (struct contig_mem *)kmem_zalloc(
16127 		    sizeof (struct contig_mem) + biosize(),
16128 		    alloc_flags);
16129 		if (cp == NULL) {
16130 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
16131 			    "alloc contig_mem failure\n");
16132 			return (NULL); /* cannot get one */
16133 		}
16134 		cp->cm_bp = (struct buf *)
16135 		    (((caddr_t)cp) + sizeof (struct contig_mem));
16136 		bioinit(cp->cm_bp);
16137 		mutex_enter(ST_MUTEX);
16138 		un->un_contig_mem_total_num++; /* one more available */
16139 	} else {
16140 		/*
16141 		 * we failed to get one and we're NOT allowed to
16142 		 * alloc more contig_mem
16143 		 */
16144 		if (alloc_flags == KM_SLEEP) {
16145 			while (un->un_contig_mem_available_num <= 0) {
16146 				cv_wait(&un->un_contig_mem_cv, ST_MUTEX);
16147 			}
16148 			ST_GET_CONTIG_MEM_HEAD(un, cp, len, big_enough);
16149 		} else {
16150 			mutex_exit(ST_MUTEX);
16151 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
16152 			    "alloc contig_mem failure\n");
16153 			return (NULL); /* cannot get one */
16154 		}
16155 	}
16156 	mutex_exit(ST_MUTEX);
16157 
16158 	/* We need to check if this block of mem is big enough for this I/O */
16159 	if (cp->cm_len < len) {
16160 		/* not big enough, need to alloc a new one */
16161 		if (ddi_dma_mem_alloc(un->un_contig_mem_hdl, len, &st_acc_attr,
16162 		    DDI_DMA_STREAMING, dma_alloc_cb, NULL,
16163 		    &addr, &rlen, &acc_hdl) != DDI_SUCCESS) {
16164 			ST_DEBUG2(ST_DEVINFO, st_label, SCSI_DEBUG,
16165 			    "alloc contig_mem failure: not enough mem\n");
16166 			st_release_contig_mem(un, cp);
16167 			cp = NULL;
16168 		} else {
16169 			if (cp->cm_addr) {
16170 				/* release previous one before attach new one */
16171 				ddi_dma_mem_free(&cp->cm_acc_hdl);
16172 			}
16173 			mutex_enter(ST_MUTEX);
16174 			un->un_max_contig_mem_len =
16175 			    un->un_max_contig_mem_len >= len ?
16176 			    un->un_max_contig_mem_len : len;
16177 			mutex_exit(ST_MUTEX);
16178 
16179 			/* attach new mem to this cp */
16180 			cp->cm_addr = addr;
16181 			cp->cm_acc_hdl = acc_hdl;
16182 			cp->cm_len = len;
16183 
16184 			goto alloc_ok; /* get one usable cp */
16185 		}
16186 	} else {
16187 		goto alloc_ok; /* get one usable cp */
16188 	}
16189 
16190 	/* cannot find/alloc a usable cp, when we get here */
16191 
16192 	mutex_enter(ST_MUTEX);
16193 	if ((un->un_max_contig_mem_len < len) ||
16194 	    (alloc_flags != KM_SLEEP)) {
16195 		mutex_exit(ST_MUTEX);
16196 		return (NULL);
16197 	}
16198 
16199 	/*
16200 	 * we're allowed to sleep, and there is one big enough
16201 	 * contig mem in the system, which is currently in use,
16202 	 * wait for it...
16203 	 */
16204 	big_enough = 1;
16205 	do {
16206 		cv_wait(&un->un_contig_mem_cv, ST_MUTEX);
16207 		ST_GET_CONTIG_MEM_HEAD(un, cp, len, big_enough);
16208 	} while (cp == NULL);
16209 	mutex_exit(ST_MUTEX);
16210 
16211 	/* we get the big enough contig mem, finally */
16212 
16213 alloc_ok:
16214 	/* init bp attached to this cp */
16215 	bioreset(cp->cm_bp);
16216 	cp->cm_bp->b_un.b_addr = cp->cm_addr;
16217 	cp->cm_bp->b_private = (void *)cp;
16218 
16219 	return (cp);
16220 }
16221 
16222 /*
16223  * this is the biodone func for the bp used in big block I/O
16224  */
16225 static int
st_bigblk_xfer_done(struct buf * bp)16226 st_bigblk_xfer_done(struct buf *bp)
16227 {
16228 	struct contig_mem *cp;
16229 	struct buf *orig_bp;
16230 	int ioerr;
16231 	struct scsi_tape *un;
16232 
16233 	/* sanity check */
16234 	if (bp == NULL) {
16235 		return (DDI_FAILURE);
16236 	}
16237 
16238 	un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
16239 	if (un == NULL) {
16240 		return (DDI_FAILURE);
16241 	}
16242 
16243 	ST_FUNC(ST_DEVINFO, st_bigblk_xfer_done);
16244 
16245 	cp = (struct contig_mem *)bp->b_private;
16246 	orig_bp = cp->cm_bp; /* get back the bp we have replaced */
16247 	cp->cm_bp = bp;
16248 
16249 	/* special handling for special I/O */
16250 	if (cp->cm_use_sbuf) {
16251 #ifndef __lock_lint
16252 		ASSERT(un->un_sbuf_busy);
16253 #endif
16254 		un->un_sbufp = orig_bp;
16255 		cp->cm_use_sbuf = 0;
16256 	}
16257 
16258 	orig_bp->b_resid = bp->b_resid;
16259 	ioerr = geterror(bp);
16260 	if (ioerr != 0) {
16261 		bioerror(orig_bp, ioerr);
16262 	} else if (orig_bp->b_flags & B_READ) {
16263 		/* copy data back to original bp */
16264 		(void) bp_copyout(bp->b_un.b_addr, orig_bp, 0,
16265 		    bp->b_bcount - bp->b_resid);
16266 	}
16267 
16268 	st_release_contig_mem(un, cp);
16269 
16270 	biodone(orig_bp);
16271 
16272 	return (DDI_SUCCESS);
16273 }
16274 
16275 /*
16276  * We use this func to replace original bp that may not be able to do I/O
16277  * in big block size with one that can
16278  */
16279 static struct buf *
st_get_bigblk_bp(struct buf * bp)16280 st_get_bigblk_bp(struct buf *bp)
16281 {
16282 	struct contig_mem *cp;
16283 	struct scsi_tape *un;
16284 	struct buf *cont_bp;
16285 
16286 	un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
16287 	if (un == NULL) {
16288 		return (bp);
16289 	}
16290 
16291 	ST_FUNC(ST_DEVINFO, st_get_bigblk_bp);
16292 
16293 	/* try to get one contig_mem */
16294 	cp = st_get_contig_mem(un, bp->b_bcount, KM_SLEEP);
16295 	if (!cp) {
16296 		scsi_log(ST_DEVINFO, st_label, CE_WARN,
16297 		    "Cannot alloc contig buf for I/O for %lu blk size",
16298 		    bp->b_bcount);
16299 		return (bp);
16300 	}
16301 	cont_bp = cp->cm_bp;
16302 	cp->cm_bp = bp;
16303 
16304 	/* make sure that we "are" using un_sbufp for special I/O */
16305 	if (bp == un->un_sbufp) {
16306 #ifndef __lock_lint
16307 		ASSERT(un->un_sbuf_busy);
16308 #endif
16309 		un->un_sbufp = cont_bp;
16310 		cp->cm_use_sbuf = 1;
16311 	}
16312 
16313 	/* clone bp */
16314 	cont_bp->b_bcount = bp->b_bcount;
16315 	cont_bp->b_resid = bp->b_resid;
16316 	cont_bp->b_iodone = st_bigblk_xfer_done;
16317 	cont_bp->b_file = bp->b_file;
16318 	cont_bp->b_offset = bp->b_offset;
16319 	cont_bp->b_dip = bp->b_dip;
16320 	cont_bp->b_error = 0;
16321 	cont_bp->b_proc = NULL;
16322 	cont_bp->b_flags = bp->b_flags & ~(B_PAGEIO | B_PHYS | B_SHADOW);
16323 	cont_bp->b_shadow = NULL;
16324 	cont_bp->b_pages = NULL;
16325 	cont_bp->b_edev = bp->b_edev;
16326 	cont_bp->b_dev = bp->b_dev;
16327 	cont_bp->b_lblkno = bp->b_lblkno;
16328 	cont_bp->b_forw = bp->b_forw;
16329 	cont_bp->b_back = bp->b_back;
16330 	cont_bp->av_forw = bp->av_forw;
16331 	cont_bp->av_back = bp->av_back;
16332 	cont_bp->b_bufsize = bp->b_bufsize;
16333 
16334 	/* get data in original bp */
16335 	if (bp->b_flags & B_WRITE) {
16336 		(void) bp_copyin(bp, cont_bp->b_un.b_addr, 0, bp->b_bcount);
16337 	}
16338 
16339 	return (cont_bp);
16340 }
16341 #else
16342 #ifdef __lock_lint
16343 static int
st_bigblk_xfer_done(struct buf * bp)16344 st_bigblk_xfer_done(struct buf *bp)
16345 {
16346 	return (0);
16347 }
16348 #endif
16349 #endif
16350 
16351 static const char *eof_status[] =
16352 {
16353 	"NO_EOF",
16354 	"EOF_PENDING",
16355 	"EOF",
16356 	"EOT_PENDING",
16357 	"EOT",
16358 	"EOM",
16359 	"AFTER_EOM"
16360 };
16361 static const char *mode[] = {
16362 	"invalid",
16363 	"legacy",
16364 	"logical"
16365 };
16366 
16367 static void
st_print_position(dev_info_t * dev,char * label,uint_t level,const char * comment,tapepos_t * pos)16368 st_print_position(dev_info_t *dev, char *label, uint_t level,
16369 const char *comment, tapepos_t *pos)
16370 {
16371 	ST_FUNC(dev, st_print_position);
16372 
16373 	scsi_log(dev, label, level,
16374 	    "%s Position data:\n", comment);
16375 	scsi_log(dev, label, CE_CONT,
16376 	    "Positioning mode = %s", mode[pos->pmode]);
16377 	scsi_log(dev, label, CE_CONT,
16378 	    "End Of File/Tape = %s", eof_status[pos->eof]);
16379 	scsi_log(dev, label, CE_CONT,
16380 	    "File Number      = 0x%x", pos->fileno);
16381 	scsi_log(dev, label, CE_CONT,
16382 	    "Block Number     = 0x%x", pos->blkno);
16383 	scsi_log(dev, label, CE_CONT,
16384 	    "Logical Block    = 0x%"PRIx64, pos->lgclblkno);
16385 	scsi_log(dev, label, CE_CONT,
16386 	    "Partition Number = 0x%x", pos->partition);
16387 }
16388 static int
st_check_if_media_changed(struct scsi_tape * un,caddr_t data,int size)16389 st_check_if_media_changed(struct scsi_tape *un, caddr_t data, int size)
16390 {
16391 
16392 	int result = 0;
16393 	int i;
16394 	ST_FUNC(ST_DEVINFO, st_check_if_media_changed);
16395 
16396 	/*
16397 	 * find non alpha numeric working from the end.
16398 	 */
16399 	for (i = size - 1; i >= 0; i--) {
16400 		if (ISALNUM(data[i]) == 0 || data[i] == ' ') {
16401 			data[i] = 0;
16402 			size = i;
16403 		}
16404 	}
16405 
16406 	if (size == 1) {
16407 		/*
16408 		 * Drive seems to think its returning useful data
16409 		 * but it looks like all junk
16410 		 */
16411 		return (result);
16412 	}
16413 
16414 	size++;
16415 
16416 	/*
16417 	 * Actually got a valid serial number.
16418 	 * If never stored one before alloc space for it.
16419 	 */
16420 	if (un->un_media_id_len == 0) {
16421 		un->un_media_id = kmem_zalloc(size, KM_SLEEP);
16422 		un->un_media_id_len = size;
16423 		(void) strncpy(un->un_media_id, data, min(size, strlen(data)));
16424 		un->un_media_id[min(size, strlen(data))] = 0;
16425 		ST_DEBUG1(ST_DEVINFO, st_label, SCSI_DEBUG,
16426 		    "Found Media Id %s length = %d\n", un->un_media_id, size);
16427 	} else if (size > un->un_media_id_len) {
16428 		if (strncmp(un->un_media_id, data, size) != 0) {
16429 			result = ESPIPE;
16430 		}
16431 		ST_DEBUG1(ST_DEVINFO, st_label, SCSI_DEBUG,
16432 		    "Longer Media Id old ID:%s new ID:%s\n",
16433 		    un->un_media_id, data);
16434 		kmem_free(un->un_media_id, un->un_media_id_len);
16435 		un->un_media_id = kmem_zalloc(size, KM_SLEEP);
16436 		un->un_media_id_len = size;
16437 		(void) strncpy(un->un_media_id, data, size);
16438 		un->un_media_id[size] = 0;
16439 	} else if (strncmp(data, un->un_media_id,
16440 	    min(size, un->un_media_id_len)) != 0) {
16441 		ST_DEBUG1(ST_DEVINFO, st_label, SCSI_DEBUG,
16442 		    "Old Media Id %s length = %d New %s length = %d\n",
16443 		    un->un_media_id, un->un_media_id_len, data, size);
16444 		bzero(un->un_media_id, un->un_media_id_len);
16445 		(void) strncpy(un->un_media_id, data, min(size, strlen(data)));
16446 		un->un_media_id[min(size, strlen(data))] = 0;
16447 		result = ESPIPE;
16448 	} else {
16449 		ST_DEBUG4(ST_DEVINFO, st_label, SCSI_DEBUG,
16450 		    "Media Id still %s\n", un->un_media_id);
16451 	}
16452 
16453 	ASSERT(strlen(un->un_media_id) <= size);
16454 
16455 	return (result);
16456 }
16457 #define	ID_SIZE 32
16458 typedef struct
16459 {
16460 	uchar_t avilable_data0;
16461 	uchar_t avilable_data1;
16462 	uchar_t avilable_data2;
16463 	uchar_t avilable_data3;
16464 	uchar_t attribute_msb;
16465 	uchar_t attribute_lsb;
16466 #ifdef _BIT_FIELDS_LTOH
16467 	uchar_t format		: 2,
16468 				: 5,
16469 		read_only	: 1;
16470 #else
16471 	uchar_t read_only	: 1,
16472 				: 5,
16473 		format		: 2;
16474 #endif
16475 	uchar_t attribute_len_msb;
16476 	uchar_t attribute_len_lsb;
16477 }attribute_header;
16478 
16479 typedef struct {
16480 	attribute_header header;
16481 	char data[1];
16482 }mam_attribute;
16483 
16484 static int
st_handle_hex_media_id(struct scsi_tape * un,void * pnt,int size)16485 st_handle_hex_media_id(struct scsi_tape *un, void *pnt, int size)
16486 {
16487 	int result;
16488 	int newsize = (size << 1) + 3; /* extra for leading 0x and null term */
16489 	int i;
16490 	uchar_t byte;
16491 	char *format;
16492 	uchar_t *data = (uchar_t *)pnt;
16493 	char *buf = kmem_alloc(newsize, KM_SLEEP);
16494 
16495 	ST_FUNC(ST_DEVINFO, st_handle_hex_media_id);
16496 
16497 	(void) sprintf(buf, "0x");
16498 	for (i = 0; i < size; i++) {
16499 		byte = data[i];
16500 		if (byte < 0x10)
16501 			format = "0%x";
16502 		else
16503 			format = "%x";
16504 		(void) sprintf(&buf[(int)strlen(buf)], format, byte);
16505 	}
16506 	result = st_check_if_media_changed(un, buf, newsize);
16507 
16508 	kmem_free(buf, newsize);
16509 
16510 	return (result);
16511 }
16512 
16513 
16514 static int
st_get_media_id_via_read_attribute(struct scsi_tape * un,ubufunc_t bufunc)16515 st_get_media_id_via_read_attribute(struct scsi_tape *un, ubufunc_t bufunc)
16516 {
16517 	int result;
16518 	mam_attribute *buffer;
16519 	int size;
16520 	int newsize;
16521 
16522 	ST_FUNC(ST_DEVINFO, st_get_media_id_via_read_attribute);
16523 	size = sizeof (attribute_header) + max(un->un_media_id_len, ID_SIZE);
16524 again:
16525 	buffer = kmem_zalloc(size, KM_SLEEP);
16526 	result = st_read_attributes(un, 0x0401, buffer, size, bufunc);
16527 	if (result == 0) {
16528 
16529 		newsize = (buffer->header.attribute_len_msb << 8) |
16530 		    buffer->header.attribute_len_lsb;
16531 
16532 		if (newsize + sizeof (attribute_header) > size) {
16533 			ST_DEBUG(ST_DEVINFO, st_label, SCSI_DEBUG,
16534 			    "resizing read attribute data from %d to %d format"
16535 			    " %d\n", size, (int)sizeof (attribute_header) +
16536 			    newsize, buffer->header.format);
16537 			kmem_free(buffer, size);
16538 			size = newsize + sizeof (attribute_header);
16539 			goto again;
16540 		}
16541 
16542 		un->un_media_id_method = st_get_media_id_via_read_attribute;
16543 		if (buffer->header.format == 0) {
16544 			result =
16545 			    st_handle_hex_media_id(un, buffer->data, newsize);
16546 		} else {
16547 			result = st_check_if_media_changed(un, buffer->data,
16548 			    newsize);
16549 		}
16550 	} else if (result == EINVAL && un->un_max_cdb_sz < CDB_GROUP4) {
16551 		scsi_log(ST_DEVINFO, st_label, CE_NOTE,
16552 		    "Read Attribute Command for Media Identification is not "
16553 		    "supported on the HBA that this drive is attached to.");
16554 		result = ENOTTY;
16555 	}
16556 
16557 	kmem_free(buffer, size);
16558 	un->un_status = 0;
16559 
16560 	return (result);
16561 }
16562 
16563 
16564 static int
st_get_media_id_via_media_serial_cmd(struct scsi_tape * un,ubufunc_t bufunc)16565 st_get_media_id_via_media_serial_cmd(struct scsi_tape *un, ubufunc_t bufunc)
16566 {
16567 	char cdb[CDB_GROUP5];
16568 	struct uscsi_cmd *ucmd;
16569 	struct scsi_extended_sense sense;
16570 	int rval;
16571 	int size = max(un->un_media_id_len, ID_SIZE);
16572 	caddr_t buf;
16573 
16574 	ST_FUNC(ST_DEVINFO, st_get_media_id_via_media_serial_cmd);
16575 
16576 	if (un->un_sd->sd_inq->inq_ansi < 3) {
16577 		return (ENOTTY);
16578 	}
16579 
16580 	ucmd = kmem_zalloc(sizeof (struct uscsi_cmd), KM_SLEEP);
16581 upsize:
16582 	buf = kmem_alloc(size, KM_SLEEP);
16583 
16584 	cdb[0] = (char)SCMD_SVC_ACTION_IN_G5;
16585 	cdb[1] = SSVC_ACTION_READ_MEDIA_SERIAL;
16586 	cdb[2] = 0;
16587 	cdb[3] = 0;
16588 	cdb[4] = 0;
16589 	cdb[5] = 0;
16590 	cdb[6] = (char)(size >> 24);
16591 	cdb[7] = (char)(size >> 16);
16592 	cdb[8] = (char)(size >> 8);
16593 	cdb[9] = (char)(size);
16594 	cdb[10] = 0;
16595 	cdb[11] = 0;
16596 
16597 	ucmd->uscsi_flags = USCSI_READ | USCSI_RQENABLE;
16598 	ucmd->uscsi_timeout = un->un_dp->non_motion_timeout;
16599 	ucmd->uscsi_cdb = &cdb[0];
16600 	ucmd->uscsi_cdblen = sizeof (cdb);
16601 	ucmd->uscsi_bufaddr = buf;
16602 	ucmd->uscsi_buflen = size;
16603 	ucmd->uscsi_rqbuf = (caddr_t)&sense;
16604 	ucmd->uscsi_rqlen = sizeof (sense);
16605 
16606 	rval = bufunc(un, ucmd, FKIOCTL);
16607 
16608 	if (rval || ucmd->uscsi_status != 0) {
16609 		ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
16610 		    "media serial command returned %d scsi_status %d"
16611 		    " rqstatus %d", rval, ucmd->uscsi_status,
16612 		    ucmd->uscsi_rqstatus);
16613 		/*
16614 		 * If this returns invalid operation code don't try again.
16615 		 */
16616 		if (sense.es_key == KEY_ILLEGAL_REQUEST &&
16617 		    sense.es_add_code == 0x20) {
16618 			rval = ENOTTY;
16619 		} else if (rval == 0) {
16620 			rval = EIO;
16621 		}
16622 		un->un_status = 0;
16623 	} else {
16624 		int act_size;
16625 
16626 		/*
16627 		 * get reported size.
16628 		 */
16629 		act_size = (int)buf[3] | (int)(buf[2] << 8) |
16630 		    (int)(buf[1] << 16) | (int)(buf[0] << 24);
16631 
16632 		/* documentation says mod 4. */
16633 		while (act_size & 3) {
16634 			act_size++;
16635 		}
16636 
16637 		/*
16638 		 * If reported size is larger that we our buffer.
16639 		 * Free the old one and allocate one that is larger
16640 		 * enough and re-issuse the command.
16641 		 */
16642 		if (act_size + 4 > size) {
16643 			kmem_free(buf, size);
16644 			size = act_size + 4;
16645 			goto upsize;
16646 		}
16647 
16648 		if (act_size == 0) {
16649 			ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
16650 			    "media serial number is not available");
16651 			un->un_status = 0;
16652 			rval = 0;
16653 		} else {
16654 			/*
16655 			 * set data pointer to point to the start
16656 			 * of that serial number.
16657 			 */
16658 			un->un_media_id_method =
16659 			    st_get_media_id_via_media_serial_cmd;
16660 			rval =
16661 			    st_check_if_media_changed(un, &buf[4], act_size);
16662 		}
16663 	}
16664 
16665 	kmem_free(ucmd, sizeof (struct uscsi_cmd));
16666 	kmem_free(buf, size);
16667 
16668 	return (rval);
16669 }
16670 
16671 
16672 /* ARGSUSED */
16673 static int
st_bogus_media_id(struct scsi_tape * un,ubufunc_t bufunc)16674 st_bogus_media_id(struct scsi_tape *un, ubufunc_t bufunc)
16675 {
16676 	ST_FUNC(ST_DEVINFO, st_bogus_media_id);
16677 
16678 	ASSERT(un->un_media_id == NULL || un->un_media_id == bogusID);
16679 	ASSERT(un->un_media_id_len == 0);
16680 	un->un_media_id = (char *)bogusID;
16681 	un->un_media_id_len = 0;
16682 	return (0);
16683 }
16684 
16685 typedef int (*media_chk_function)(struct scsi_tape *, ubufunc_t bufunc);
16686 
16687 media_chk_function media_chk_functions[] = {
16688 	st_get_media_id_via_media_serial_cmd,
16689 	st_get_media_id_via_read_attribute,
16690 	st_bogus_media_id
16691 };
16692 
16693 static int
st_get_media_identification(struct scsi_tape * un,ubufunc_t bufunc)16694 st_get_media_identification(struct scsi_tape *un, ubufunc_t bufunc)
16695 {
16696 	int result = 0;
16697 	int i;
16698 
16699 	ST_FUNC(ST_DEVINFO, st_get_media_identification);
16700 
16701 	for (i = 0; i < ST_NUM_MEMBERS(media_chk_functions); i++) {
16702 		if (result == ENOTTY) {
16703 			/*
16704 			 * Last operation type not supported by this device.
16705 			 * Make so next time it doesn`t do that again.
16706 			 */
16707 			un->un_media_id_method = media_chk_functions[i];
16708 		} else if (un->un_media_id_method != media_chk_functions[i] &&
16709 		    un->un_media_id_method != st_get_media_identification) {
16710 			continue;
16711 		}
16712 		result = media_chk_functions[i](un, bufunc);
16713 		/*
16714 		 * If result indicates the function was successful or
16715 		 * that the media is not the same as last known, break.
16716 		 */
16717 		if (result == 0 || result == ESPIPE) {
16718 			break;
16719 		}
16720 	}
16721 
16722 	return (result);
16723 }
16724 
16725 static errstate
st_command_recovery(struct scsi_tape * un,struct scsi_pkt * pkt,errstate onentry)16726 st_command_recovery(struct scsi_tape *un, struct scsi_pkt *pkt,
16727     errstate onentry)
16728 {
16729 
16730 	int ret;
16731 	st_err_info *errinfo;
16732 	recov_info *ri = (recov_info *)pkt->pkt_private;
16733 
16734 	ST_FUNC(ST_DEVINFO, st_command_recovery);
16735 
16736 	ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
16737 
16738 	ASSERT(un->un_recov_buf_busy == 0);
16739 
16740 	/*
16741 	 * Don't try and recover a reset that this device sent.
16742 	 */
16743 	if (un->un_rsvd_status & ST_INITIATED_RESET &&
16744 	    onentry == DEVICE_RESET) {
16745 		return (COMMAND_DONE_ERROR);
16746 	}
16747 
16748 	/*
16749 	 * See if expected position was passed with scsi_pkt.
16750 	 */
16751 	if (ri->privatelen == sizeof (recov_info)) {
16752 
16753 		/*
16754 		 * Not for this command.
16755 		 */
16756 		if (ri->cmd_attrib->do_not_recover) {
16757 			return (COMMAND_DONE_ERROR);
16758 		}
16759 
16760 		/*
16761 		 * Create structure to hold all error state info.
16762 		 */
16763 		errinfo = kmem_zalloc(ST_ERR_INFO_SIZE, KM_SLEEP);
16764 		errinfo->ei_error_type = onentry;
16765 		errinfo->ei_failing_bp = ri->cmd_bp;
16766 		COPY_POS(&errinfo->ei_expected_pos, &ri->pos);
16767 	} else {
16768 		/* disabled */
16769 		return (COMMAND_DONE_ERROR);
16770 	}
16771 
16772 	bcopy(pkt, &errinfo->ei_failed_pkt, scsi_pkt_size());
16773 	bcopy(pkt->pkt_scbp, &errinfo->ei_failing_status, SECMDS_STATUS_SIZE);
16774 	ret = ddi_taskq_dispatch(un->un_recov_taskq, st_recover, errinfo,
16775 	    DDI_NOSLEEP);
16776 	ASSERT(ret == DDI_SUCCESS);
16777 	if (ret != DDI_SUCCESS) {
16778 		kmem_free(errinfo, ST_ERR_INFO_SIZE);
16779 		return (COMMAND_DONE_ERROR);
16780 	}
16781 	return (JUST_RETURN); /* release calling thread */
16782 }
16783 
16784 
16785 static void
st_recov_ret(struct scsi_tape * un,st_err_info * errinfo,errstate err)16786 st_recov_ret(struct scsi_tape *un, st_err_info *errinfo, errstate err)
16787 {
16788 	int error_number;
16789 	buf_t *bp;
16790 
16791 
16792 	ST_FUNC(ST_DEVINFO, st_recov_ret);
16793 
16794 	ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
16795 #if !defined(lint)
16796 	_NOTE(LOCK_RELEASED_AS_SIDE_EFFECT(&un->un_sd->sd_mutex))
16797 #endif
16798 
16799 	bp = errinfo->ei_failing_bp;
16800 	kmem_free(errinfo, ST_ERR_INFO_SIZE);
16801 
16802 	switch (err) {
16803 	case JUST_RETURN:
16804 		mutex_exit(&un->un_sd->sd_mutex);
16805 		return;
16806 
16807 	case COMMAND_DONE:
16808 	case COMMAND_DONE_ERROR_RECOVERED:
16809 		ST_DO_KSTATS(bp, kstat_runq_exit);
16810 		error_number = 0;
16811 		break;
16812 
16813 	default:
16814 		ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
16815 		    "st_recov_ret with unhandled errstat %d\n", err);
16816 		/* FALLTHROUGH */
16817 	case COMMAND_DONE_ERROR:
16818 		un->un_pos.pmode = invalid;
16819 		un->un_running.pmode = invalid;
16820 		/* FALLTHROUGH */
16821 	case COMMAND_DONE_EACCES:
16822 		ST_DO_KSTATS(bp, kstat_waitq_exit);
16823 		ST_DO_ERRSTATS(un, st_transerrs);
16824 		error_number = EIO;
16825 		st_set_pe_flag(un);
16826 		break;
16827 
16828 	}
16829 
16830 	st_bioerror(bp, error_number);
16831 	st_done_and_mutex_exit(un, bp);
16832 }
16833 
16834 
16835 static void
st_recover(void * arg)16836 st_recover(void *arg)
16837 {
16838 	st_err_info *const errinfo = (st_err_info *)arg;
16839 	uchar_t com = errinfo->ei_failed_pkt.pkt_cdbp[0];
16840 	struct scsi_tape *un;
16841 	tapepos_t cur_pos;
16842 	int rval;
16843 	errstate status = COMMAND_DONE_ERROR;
16844 	recov_info *rcv;
16845 	buf_t *bp;
16846 
16847 
16848 	rcv = errinfo->ei_failed_pkt.pkt_private;
16849 	ASSERT(rcv->privatelen == sizeof (recov_info));
16850 	bp = rcv->cmd_bp;
16851 
16852 	un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
16853 
16854 	ASSERT(un != NULL);
16855 
16856 	mutex_enter(ST_MUTEX);
16857 
16858 	ST_FUNC(ST_DEVINFO, st_recover);
16859 
16860 	ST_CDB(ST_DEVINFO, "Recovering command",
16861 	    (caddr_t)errinfo->ei_failed_pkt.pkt_cdbp);
16862 	ST_SENSE(ST_DEVINFO, "sense status for failed command",
16863 	    (caddr_t)&errinfo->ei_failing_status,
16864 	    sizeof (struct scsi_arq_status));
16865 	ST_POS(ST_DEVINFO, rcv->cmd_attrib->recov_pos_type == POS_STARTING ?
16866 	    "starting position for recovery command" :
16867 	    "expected position for recovery command",
16868 	    &errinfo->ei_expected_pos);
16869 
16870 	rval = st_test_path_to_device(un);
16871 
16872 	ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
16873 	    "st_recover called with %s, TUR returned %d\n",
16874 	    errstatenames[errinfo->ei_error_type], rval);
16875 	/*
16876 	 * If the drive responed to the TUR lets try and get it to sync
16877 	 * any data it might have in the buffer.
16878 	 */
16879 	if (rval == 0 && rcv->cmd_attrib->chg_tape_data) {
16880 		rval = st_rcmd(un, SCMD_WRITE_FILE_MARK, 0, SYNC_CMD);
16881 		if (rval) {
16882 			ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
16883 			    "st_recover failed to flush, returned %d\n", rval);
16884 			st_recov_ret(un, errinfo, COMMAND_DONE_ERROR);
16885 			return;
16886 		}
16887 	}
16888 	switch (errinfo->ei_error_type) {
16889 	case ATTEMPT_RETRY:
16890 	case COMMAND_TIMEOUT:
16891 	case DEVICE_RESET:
16892 	case PATH_FAILED:
16893 		/*
16894 		 * For now if we can't talk to the device we are done.
16895 		 * If the drive is reserved we can try to get it back.
16896 		 */
16897 		if (rval != 0 && rval != EACCES) {
16898 			st_recov_ret(un, errinfo, COMMAND_DONE_ERROR);
16899 			return;
16900 		}
16901 
16902 		/*
16903 		 * If reservation conflict and do a preempt, fail it.
16904 		 */
16905 		if ((un->un_rsvd_status &
16906 		    (ST_APPLICATION_RESERVATIONS | ST_RESERVE)) != 0) {
16907 			if ((errinfo->ei_failed_pkt.pkt_cdbp[0] ==
16908 			    SCMD_PERSISTENT_RESERVE_OUT) &&
16909 			    (errinfo->ei_failed_pkt.pkt_cdbp[1] ==
16910 			    ST_SA_SCSI3_PREEMPT) &&
16911 			    (SCBP_C(&errinfo->ei_failed_pkt) ==
16912 			    STATUS_RESERVATION_CONFLICT)) {
16913 				st_recov_ret(un, errinfo, COMMAND_DONE_ERROR);
16914 				return;
16915 			}
16916 		}
16917 
16918 		/*
16919 		 * If we have already set a scsi II reserve and get a
16920 		 * conflict on a scsi III type reserve fail without
16921 		 * any attempt to recover.
16922 		 */
16923 		if ((un->un_rsvd_status & ST_RESERVE | ST_PRESERVE_RESERVE) &&
16924 		    (errinfo->ei_failed_pkt.pkt_cdbp[0] ==
16925 		    SCMD_PERSISTENT_RESERVE_OUT) ||
16926 		    (errinfo->ei_failed_pkt.pkt_cdbp[0] ==
16927 		    SCMD_PERSISTENT_RESERVE_IN)) {
16928 			st_recov_ret(un, errinfo, COMMAND_DONE_EACCES);
16929 			return;
16930 		}
16931 
16932 		/*
16933 		 * If scsi II lost reserve try and get it back.
16934 		 */
16935 		if ((((un->un_rsvd_status &
16936 		    (ST_LOST_RESERVE | ST_APPLICATION_RESERVATIONS)) ==
16937 		    ST_LOST_RESERVE)) &&
16938 		    (errinfo->ei_failed_pkt.pkt_cdbp[0] != SCMD_RELEASE)) {
16939 			rval = st_reserve_release(un, ST_RESERVE,
16940 			    st_uscsi_rcmd);
16941 			if (rval != 0) {
16942 				if (st_take_ownership(un, st_uscsi_rcmd) != 0) {
16943 					st_recov_ret(un, errinfo,
16944 					    COMMAND_DONE_EACCES);
16945 					return;
16946 				}
16947 			}
16948 			un->un_rsvd_status |= ST_RESERVE;
16949 			un->un_rsvd_status &= ~(ST_RELEASE | ST_LOST_RESERVE |
16950 			    ST_RESERVATION_CONFLICT | ST_INITIATED_RESET);
16951 		}
16952 		rval = st_make_sure_mode_data_is_correct(un, st_uscsi_rcmd);
16953 		if (rval) {
16954 			st_recov_ret(un, errinfo, COMMAND_DONE_ERROR);
16955 			return;
16956 		}
16957 		break;
16958 	case DEVICE_TAMPER:
16959 		/*
16960 		 * Check if the ASC/ASCQ says mode data has changed.
16961 		 */
16962 		if ((errinfo->ei_failing_status.sts_sensedata.es_add_code ==
16963 		    0x2a) &&
16964 		    (errinfo->ei_failing_status.sts_sensedata.es_qual_code ==
16965 		    0x01)) {
16966 			/*
16967 			 * See if mode sense changed.
16968 			 */
16969 			rval = st_make_sure_mode_data_is_correct(un,
16970 			    st_uscsi_rcmd);
16971 			if (rval) {
16972 				st_recov_ret(un, errinfo, COMMAND_DONE_ERROR);
16973 				return;
16974 			}
16975 		}
16976 		/*
16977 		 * if we have a media id and its not bogus.
16978 		 * Check to see if it the same.
16979 		 */
16980 		if (un->un_media_id != NULL && un->un_media_id != bogusID) {
16981 			rval = st_get_media_identification(un, st_uscsi_rcmd);
16982 			if (rval == ESPIPE) {
16983 				st_recov_ret(un, errinfo, COMMAND_DONE_EACCES);
16984 				return;
16985 			}
16986 		}
16987 		break;
16988 	default:
16989 		ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
16990 		    "Unhandled error type %s in st_recover() 0x%x\n",
16991 		    errstatenames[errinfo->ei_error_type], com);
16992 	}
16993 
16994 	/*
16995 	 * if command is retriable retry it.
16996 	 * Special case here. The command attribute for SCMD_REQUEST_SENSE
16997 	 * does not say that it is retriable. That because if you reissue a
16998 	 * request sense and the target responds the sense data will have
16999 	 * been consumed and no long be valid. If we get a busy status on
17000 	 * request sense while the state is ST_STATE_SENSING this will
17001 	 * reissue that pkt.
17002 	 *
17003 	 * XXX If this request sense gets sent to a different port then
17004 	 * the original command that failed was sent on it will not get
17005 	 * valid sense data for that command.
17006 	 */
17007 	if (rcv->cmd_attrib->retriable || un->un_rqs_bp == bp) {
17008 		status = st_recover_reissue_pkt(un, &errinfo->ei_failed_pkt);
17009 
17010 	/*
17011 	 * if drive doesn't support read position we are done
17012 	 */
17013 	} else if (un->un_read_pos_type == NO_POS) {
17014 		status = COMMAND_DONE_ERROR;
17015 	/*
17016 	 * If this command results in a changed tape position,
17017 	 * lets see where we are.
17018 	 */
17019 	} else if (rcv->cmd_attrib->chg_tape_pos) {
17020 		/*
17021 		 * XXX May be a reason to choose a different type here.
17022 		 * Long format has file position information.
17023 		 * Short and Extended have information about whats
17024 		 * in the buffer. St's positioning assumes in the buffer
17025 		 * to be the same as on tape.
17026 		 */
17027 		rval = st_compare_expected_position(un, errinfo,
17028 		    rcv->cmd_attrib, &cur_pos);
17029 		if (rval == 0) {
17030 			status = COMMAND_DONE;
17031 		} else if (rval == EAGAIN) {
17032 			status = st_recover_reissue_pkt(un,
17033 			    &errinfo->ei_failed_pkt);
17034 		} else {
17035 			status = COMMAND_DONE_ERROR;
17036 		}
17037 	} else {
17038 		ASSERT(0);
17039 	}
17040 
17041 	st_recov_ret(un, errinfo, status);
17042 }
17043 
17044 static void
st_recov_cb(struct scsi_pkt * pkt)17045 st_recov_cb(struct scsi_pkt *pkt)
17046 {
17047 	struct scsi_tape *un;
17048 	struct buf *bp;
17049 	recov_info *rcv;
17050 	errstate action = COMMAND_DONE_ERROR;
17051 	int timout = ST_TRAN_BUSY_TIMEOUT; /* short (default) timeout */
17052 
17053 	/*
17054 	 * Get the buf from the packet.
17055 	 */
17056 	rcv = pkt->pkt_private;
17057 	ASSERT(rcv->privatelen == sizeof (recov_info));
17058 	bp = rcv->cmd_bp;
17059 
17060 	/*
17061 	 * get the unit from the buf.
17062 	 */
17063 	un = ddi_get_soft_state(st_state, MTUNIT(bp->b_edev));
17064 	ASSERT(un != NULL);
17065 
17066 	ST_FUNC(ST_DEVINFO, st_recov_cb);
17067 
17068 	mutex_enter(ST_MUTEX);
17069 
17070 	ASSERT(bp == un->un_recov_buf);
17071 
17072 
17073 	switch (pkt->pkt_reason) {
17074 	case CMD_CMPLT:
17075 		if (un->un_arq_enabled && pkt->pkt_state & STATE_ARQ_DONE) {
17076 			action = st_handle_autosense(un, bp, &rcv->pos);
17077 		} else  if ((SCBP(pkt)->sts_busy) ||
17078 		    (SCBP(pkt)->sts_chk) ||
17079 		    (SCBP(pkt)->sts_vu7)) {
17080 			action = st_check_error(un, pkt);
17081 		} else {
17082 			action = COMMAND_DONE;
17083 		}
17084 		break;
17085 	case CMD_TIMEOUT:
17086 		action = COMMAND_TIMEOUT;
17087 		break;
17088 	case CMD_TRAN_ERR:
17089 		action = QUE_COMMAND;
17090 		break;
17091 	case CMD_DEV_GONE:
17092 		if (un->un_multipath)
17093 			action = PATH_FAILED;
17094 		else
17095 			action = COMMAND_DONE_ERROR;
17096 		break;
17097 	default:
17098 		ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
17099 		    "pkt_reason not handled yet %s",
17100 		    scsi_rname(pkt->pkt_reason));
17101 		action = COMMAND_DONE_ERROR;
17102 	}
17103 
17104 	/*
17105 	 * check for undetected path failover.
17106 	 */
17107 	if (un->un_multipath) {
17108 		if (scsi_pkt_allocated_correctly(pkt) &&
17109 		    (un->un_last_path_instance != pkt->pkt_path_instance)) {
17110 			if (un->un_state > ST_STATE_OPENING) {
17111 				ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17112 				    "Failover detected in recovery, action is "
17113 				    "%s\n", errstatenames[action]);
17114 			}
17115 			un->un_last_path_instance = pkt->pkt_path_instance;
17116 		}
17117 	}
17118 
17119 	ST_RECOV(ST_DEVINFO, st_label, CE_WARN,
17120 	    "Recovery call back got %s status on %s\n",
17121 	    errstatenames[action], st_print_scsi_cmd(pkt->pkt_cdbp[0]));
17122 
17123 	switch (action) {
17124 	case COMMAND_DONE:
17125 		break;
17126 
17127 	case COMMAND_DONE_EACCES:
17128 		bioerror(bp, EACCES);
17129 		break;
17130 
17131 	case COMMAND_DONE_ERROR_RECOVERED: /* XXX maybe wrong */
17132 		ASSERT(0);
17133 		break;
17134 
17135 	case COMMAND_TIMEOUT:
17136 	case COMMAND_DONE_ERROR:
17137 		bioerror(bp, EIO);
17138 		break;
17139 
17140 	case DEVICE_RESET:
17141 	case QUE_BUSY_COMMAND:
17142 	case PATH_FAILED:
17143 		/* longish timeout */
17144 		timout = ST_STATUS_BUSY_TIMEOUT;
17145 		/* FALLTHRU */
17146 	case QUE_COMMAND:
17147 	case DEVICE_TAMPER:
17148 	case ATTEMPT_RETRY:
17149 		/*
17150 		 * let st_handle_intr_busy put this bp back on waitq and make
17151 		 * checks to see if it is ok to requeue the command.
17152 		 */
17153 		ST_DO_KSTATS(bp, kstat_runq_back_to_waitq);
17154 
17155 		/*
17156 		 * Save the throttle before setting up the timeout
17157 		 */
17158 		if (un->un_throttle) {
17159 			un->un_last_throttle = un->un_throttle;
17160 		}
17161 		mutex_exit(ST_MUTEX);
17162 		if (st_handle_intr_busy(un, bp, timout) == 0) {
17163 			return;		/* timeout is setup again */
17164 		}
17165 		mutex_enter(ST_MUTEX);
17166 		un->un_pos.pmode = invalid;
17167 		un->un_err_resid = bp->b_resid = bp->b_bcount;
17168 		st_bioerror(bp, EIO);
17169 		st_set_pe_flag(un);
17170 		break;
17171 
17172 	default:
17173 		ST_DEBUG(ST_DEVINFO, st_label, CE_PANIC,
17174 		    "Unhandled recovery state 0x%x\n", action);
17175 		un->un_pos.pmode = invalid;
17176 		un->un_err_resid = bp->b_resid = bp->b_bcount;
17177 		st_bioerror(bp, EIO);
17178 		st_set_pe_flag(un);
17179 		break;
17180 	}
17181 
17182 	st_done_and_mutex_exit(un, bp);
17183 }
17184 
17185 static int
st_rcmd(struct scsi_tape * un,int com,int64_t count,int wait)17186 st_rcmd(struct scsi_tape *un, int com, int64_t count, int wait)
17187 {
17188 	struct buf *bp;
17189 	int err;
17190 
17191 	ST_FUNC(ST_DEVINFO, st_rcmd);
17192 
17193 	ST_DEBUG3(ST_DEVINFO, st_label, SCSI_DEBUG,
17194 	    "st_rcmd(un = 0x%p, com = 0x%x, count = %"PRIx64", wait = %d)\n",
17195 	    (void *)un, com, count, wait);
17196 
17197 	ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
17198 	ASSERT(mutex_owned(ST_MUTEX));
17199 
17200 #ifdef STDEBUG
17201 	if ((st_debug & 0x7)) {
17202 		st_debug_cmds(un, com, count, wait);
17203 	}
17204 #endif
17205 
17206 	while (un->un_recov_buf_busy)
17207 		cv_wait(&un->un_recov_buf_cv, ST_MUTEX);
17208 	un->un_recov_buf_busy = 1;
17209 
17210 	bp = un->un_recov_buf;
17211 	bzero(bp, sizeof (buf_t));
17212 
17213 	bp->b_flags = (wait) ? B_BUSY : B_BUSY|B_ASYNC;
17214 
17215 	err = st_setup_cmd(un, bp, com, count);
17216 
17217 	un->un_recov_buf_busy = 0;
17218 
17219 	cv_signal(&un->un_recov_buf_cv);
17220 
17221 	return (err);
17222 }
17223 
17224 /* args used */
17225 static int
st_uscsi_rcmd(struct scsi_tape * un,struct uscsi_cmd * ucmd,int flag)17226 st_uscsi_rcmd(struct scsi_tape *un, struct uscsi_cmd *ucmd, int flag)
17227 {
17228 	int rval;
17229 	buf_t *bp;
17230 
17231 	ST_FUNC(ST_DEVINFO, st_uscsi_rcmd);
17232 	ASSERT(flag == FKIOCTL);
17233 
17234 	/*
17235 	 * Get buffer resources...
17236 	 */
17237 	while (un->un_recov_buf_busy)
17238 		cv_wait(&un->un_recov_buf_cv, ST_MUTEX);
17239 	un->un_recov_buf_busy = 1;
17240 
17241 	bp = un->un_recov_buf;
17242 	bzero(bp, sizeof (buf_t));
17243 
17244 	bp->b_forw = (struct buf *)(uintptr_t)ucmd->uscsi_cdb[0];
17245 	bp->b_back = (struct buf *)ucmd;
17246 
17247 	mutex_exit(ST_MUTEX);
17248 	rval = scsi_uscsi_handle_cmd(un->un_dev, UIO_SYSSPACE, ucmd,
17249 	    st_strategy, bp, NULL);
17250 	mutex_enter(ST_MUTEX);
17251 
17252 	ucmd->uscsi_resid = bp->b_resid;
17253 
17254 	/*
17255 	 * Free resources
17256 	 */
17257 	un->un_recov_buf_busy = 0;
17258 	cv_signal(&un->un_recov_buf_cv);
17259 
17260 	return (rval);
17261 }
17262 
17263 /*
17264  * Add data to scsi_pkt to help know what to do if the command fails.
17265  */
17266 static void
st_add_recovery_info_to_pkt(struct scsi_tape * un,buf_t * bp,struct scsi_pkt * pkt)17267 st_add_recovery_info_to_pkt(struct scsi_tape *un, buf_t *bp,
17268     struct scsi_pkt *pkt)
17269 {
17270 	uint64_t count;
17271 	recov_info *rinfo = (recov_info *)pkt->pkt_private;
17272 
17273 	ST_FUNC(ST_DEVINFO, st_add_recovery_info_to_pkt);
17274 
17275 	ASSERT(rinfo->privatelen == sizeof (pkt_info) ||
17276 	    rinfo->privatelen == sizeof (recov_info));
17277 
17278 	SET_BP_PKT(bp, pkt);
17279 	rinfo->cmd_bp = bp;
17280 
17281 	if (rinfo->privatelen != sizeof (recov_info)) {
17282 		return;
17283 	}
17284 
17285 	rinfo->cmd_bp = bp;
17286 
17287 	rinfo->cmd_attrib = NULL;
17288 
17289 	/*
17290 	 * lookup the command attributes and add them to the recovery info.
17291 	 */
17292 	rinfo->cmd_attrib = st_lookup_cmd_attribute(pkt->pkt_cdbp[0]);
17293 
17294 	ASSERT(rinfo->cmd_attrib);
17295 
17296 	/*
17297 	 * For commands that there is no way to figure the expected position
17298 	 * once completed, we save the position the command was started from
17299 	 * so that if they fail we can position back and try again.
17300 	 * This has already been done in st_cmd() or st_iscsi_cmd().
17301 	 */
17302 	if (rinfo->cmd_attrib->recov_pos_type == POS_STARTING) {
17303 		/* save current position as the starting position. */
17304 		COPY_POS(&rinfo->pos, &un->un_pos);
17305 		un->un_running.pmode = invalid;
17306 		return;
17307 	}
17308 
17309 	/*
17310 	 * Don't want to update the running position for recovery.
17311 	 */
17312 	if (bp == un->un_recov_buf) {
17313 		rinfo->pos.pmode = un->un_running.pmode;
17314 		return;
17315 	}
17316 	/*
17317 	 * If running position is invalid copy the current position.
17318 	 * Running being set invalid means we are not in a read, write
17319 	 * or write filemark sequence.
17320 	 * We'll copy the current position and start from there.
17321 	 */
17322 	if (un->un_running.pmode == invalid) {
17323 		COPY_POS(&un->un_running, &un->un_pos);
17324 		COPY_POS(&rinfo->pos, &un->un_running);
17325 	} else {
17326 		COPY_POS(&rinfo->pos, &un->un_running);
17327 		if (rinfo->pos.pmode == legacy) {
17328 			/*
17329 			 * Always should be more logical blocks then
17330 			 * data blocks and files marks.
17331 			 */
17332 			ASSERT((rinfo->pos.blkno >= 0) ?
17333 			    rinfo->pos.lgclblkno >=
17334 			    (rinfo->pos.blkno + rinfo->pos.fileno) : 1);
17335 		}
17336 	}
17337 
17338 	/*
17339 	 * If the command is not expected to change the drive position
17340 	 * then the running position should be the expected position.
17341 	 */
17342 	if (rinfo->cmd_attrib->chg_tape_pos == 0) {
17343 		ASSERT(rinfo->cmd_attrib->chg_tape_direction == DIR_NONE);
17344 		return;
17345 	}
17346 
17347 	if (rinfo->cmd_attrib->explicit_cmd_set) {
17348 		ASSERT(rinfo->pos.pmode != invalid);
17349 		ASSERT(rinfo->cmd_attrib->get_cnt);
17350 		count = rinfo->cmd_attrib->get_cnt(pkt->pkt_cdbp);
17351 		/*
17352 		 * This is a user generated CDB.
17353 		 */
17354 		if (bp == un->un_sbufp) {
17355 			uint64_t lbn;
17356 
17357 			lbn = rinfo->cmd_attrib->get_lba(pkt->pkt_cdbp);
17358 
17359 			/*
17360 			 * See if this CDB will generate a locate or change
17361 			 * partition.
17362 			 */
17363 			if ((lbn != un->un_running.lgclblkno) ||
17364 			    (pkt->pkt_cdbp[3] != un->un_running.partition)) {
17365 				rinfo->pos.partition = pkt->pkt_cdbp[3];
17366 				rinfo->pos.pmode = logical;
17367 				rinfo->pos.lgclblkno = lbn;
17368 				un->un_running.partition = pkt->pkt_cdbp[3];
17369 				un->un_running.pmode = logical;
17370 				un->un_running.lgclblkno = lbn;
17371 			}
17372 		} else {
17373 			uint64_t lbn = un->un_running.lgclblkno;
17374 
17375 			pkt->pkt_cdbp[3]  = (uchar_t)un->un_running.partition;
17376 
17377 			pkt->pkt_cdbp[4]  = (uchar_t)(lbn >> 56);
17378 			pkt->pkt_cdbp[5]  = (uchar_t)(lbn >> 48);
17379 			pkt->pkt_cdbp[6]  = (uchar_t)(lbn >> 40);
17380 			pkt->pkt_cdbp[7]  = (uchar_t)(lbn >> 32);
17381 			pkt->pkt_cdbp[8]  = (uchar_t)(lbn >> 24);
17382 			pkt->pkt_cdbp[9]  = (uchar_t)(lbn >> 16);
17383 			pkt->pkt_cdbp[10] = (uchar_t)(lbn >> 8);
17384 			pkt->pkt_cdbp[11] = (uchar_t)(lbn);
17385 		}
17386 		rinfo->pos.lgclblkno += count;
17387 		rinfo->pos.blkno += count;
17388 		un->un_running.lgclblkno += count;
17389 		return;
17390 	}
17391 
17392 	if (rinfo->cmd_attrib->chg_tape_pos) {
17393 
17394 		/* should not have got an invalid position from running. */
17395 		if (un->un_mediastate == MTIO_INSERTED) {
17396 			ASSERT(rinfo->pos.pmode != invalid);
17397 		}
17398 
17399 		/* should have either a get count or or get lba function */
17400 		ASSERT(rinfo->cmd_attrib->get_cnt != NULL ||
17401 		    rinfo->cmd_attrib->get_lba != NULL);
17402 
17403 		/* only explicit commands have both and they're handled above */
17404 		ASSERT(!(rinfo->cmd_attrib->get_cnt != NULL &&
17405 		    rinfo->cmd_attrib->get_lba != NULL));
17406 
17407 		/* if it has a get count function */
17408 		if (rinfo->cmd_attrib->get_cnt != NULL) {
17409 			count = rinfo->cmd_attrib->get_cnt(pkt->pkt_cdbp);
17410 			if (count == 0) {
17411 				return;
17412 			}
17413 			/*
17414 			 * Changes position but doesn't transfer data.
17415 			 * i.e. rewind, write_file_mark and load.
17416 			 */
17417 			if (rinfo->cmd_attrib->transfers_data == TRAN_NONE) {
17418 				switch (rinfo->cmd_attrib->chg_tape_direction) {
17419 				case DIR_NONE: /* Erase */
17420 					ASSERT(rinfo->cmd_attrib->cmd ==
17421 					    SCMD_ERASE);
17422 					break;
17423 				case DIR_FORW: /* write_file_mark */
17424 					rinfo->pos.fileno += count;
17425 					rinfo->pos.lgclblkno += count;
17426 					rinfo->pos.blkno = 0;
17427 					un->un_running.fileno += count;
17428 					un->un_running.lgclblkno += count;
17429 					un->un_running.blkno = 0;
17430 					break;
17431 				case DIR_REVC: /* rewind */
17432 					rinfo->pos.fileno = 0;
17433 					rinfo->pos.lgclblkno = 0;
17434 					rinfo->pos.blkno = 0;
17435 					rinfo->pos.eof = ST_NO_EOF;
17436 					rinfo->pos.pmode = legacy;
17437 					un->un_running.fileno = 0;
17438 					un->un_running.lgclblkno = 0;
17439 					un->un_running.blkno = 0;
17440 					un->un_running.eof = ST_NO_EOF;
17441 					if (un->un_running.pmode != legacy)
17442 						un->un_running.pmode = legacy;
17443 					break;
17444 				case DIR_EITH: /* Load unload */
17445 					ASSERT(rinfo->cmd_attrib->cmd ==
17446 					    SCMD_LOAD);
17447 					switch (count & (LD_LOAD | LD_RETEN |
17448 					    LD_RETEN | LD_HOLD)) {
17449 					case LD_UNLOAD:
17450 					case LD_RETEN:
17451 					case LD_HOLD:
17452 					case LD_LOAD | LD_HOLD:
17453 					case LD_EOT | LD_HOLD:
17454 					case LD_RETEN | LD_HOLD:
17455 						rinfo->pos.pmode = invalid;
17456 						un->un_running.pmode = invalid;
17457 						break;
17458 					case LD_EOT:
17459 					case LD_LOAD | LD_EOT:
17460 						rinfo->pos.eof = ST_EOT;
17461 						rinfo->pos.pmode = invalid;
17462 						un->un_running.eof = ST_EOT;
17463 						un->un_running.pmode = invalid;
17464 						break;
17465 					case LD_LOAD:
17466 					case LD_RETEN | LD_LOAD:
17467 						rinfo->pos.fileno = 0;
17468 						rinfo->pos.lgclblkno = 0;
17469 						rinfo->pos.blkno = 0;
17470 						rinfo->pos.eof = ST_NO_EOF;
17471 						rinfo->pos.pmode = legacy;
17472 						un->un_running.fileno = 0;
17473 						un->un_running.lgclblkno = 0;
17474 						un->un_running.blkno = 0;
17475 						un->un_running.eof = ST_NO_EOF;
17476 						break;
17477 					default:
17478 						ASSERT(0);
17479 					}
17480 					break;
17481 				default:
17482 					ASSERT(0);
17483 					break;
17484 				}
17485 			} else {
17486 				/*
17487 				 * Changes position and does transfer data.
17488 				 * i.e. read or write.
17489 				 */
17490 				switch (rinfo->cmd_attrib->chg_tape_direction) {
17491 				case DIR_FORW:
17492 					rinfo->pos.lgclblkno += count;
17493 					rinfo->pos.blkno += count;
17494 					un->un_running.lgclblkno += count;
17495 					un->un_running.blkno += count;
17496 					break;
17497 				case DIR_REVC:
17498 					rinfo->pos.lgclblkno -= count;
17499 					rinfo->pos.blkno -= count;
17500 					un->un_running.lgclblkno -= count;
17501 					un->un_running.blkno -= count;
17502 					break;
17503 				default:
17504 					ASSERT(0);
17505 					break;
17506 				}
17507 			}
17508 		} else if (rinfo->cmd_attrib->get_lba != NULL) {
17509 			/* Have a get LBA fuction. i.e. Locate */
17510 			ASSERT(rinfo->cmd_attrib->chg_tape_direction ==
17511 			    DIR_EITH);
17512 			count = rinfo->cmd_attrib->get_lba(pkt->pkt_cdbp);
17513 			un->un_running.lgclblkno = count;
17514 			un->un_running.blkno = 0;
17515 			un->un_running.fileno = 0;
17516 			un->un_running.pmode = logical;
17517 			rinfo->pos.lgclblkno = count;
17518 			rinfo->pos.pmode = invalid;
17519 		} else {
17520 			ASSERT(0);
17521 		}
17522 		return;
17523 	}
17524 
17525 	ST_CDB(ST_DEVINFO, "Unhanded CDB for position prediction",
17526 	    (char *)pkt->pkt_cdbp);
17527 
17528 }
17529 
17530 static int
st_make_sure_mode_data_is_correct(struct scsi_tape * un,ubufunc_t ubf)17531 st_make_sure_mode_data_is_correct(struct scsi_tape *un, ubufunc_t ubf)
17532 {
17533 	int rval;
17534 
17535 	ST_FUNC(ST_DEVINFO, st_make_sure_mode_data_is_correct);
17536 
17537 	/*
17538 	 * check to see if mode data has changed.
17539 	 */
17540 	rval = st_check_mode_for_change(un, ubf);
17541 	if (rval) {
17542 		rval = st_gen_mode_select(un, ubf, un->un_mspl,
17543 		    sizeof (struct seq_mode));
17544 	}
17545 	if (un->un_tlr_flag != TLR_NOT_SUPPORTED) {
17546 		rval |= st_set_target_TLR_mode(un, ubf);
17547 	}
17548 	return (rval);
17549 }
17550 
17551 static int
st_check_mode_for_change(struct scsi_tape * un,ubufunc_t ubf)17552 st_check_mode_for_change(struct scsi_tape *un, ubufunc_t ubf)
17553 {
17554 	struct seq_mode *current;
17555 	int rval;
17556 	int i;
17557 	caddr_t this;
17558 	caddr_t that;
17559 
17560 	ST_FUNC(ST_DEVINFO, st_check_mode_for_change);
17561 
17562 	/* recovery called with mode tamper before mode selection */
17563 	if (un->un_comp_page == (ST_DEV_DATACOMP_PAGE | ST_DEV_CONFIG_PAGE)) {
17564 		ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17565 		    "Mode Select not done yet");
17566 		return (0);
17567 	}
17568 
17569 	current = kmem_zalloc(sizeof (struct seq_mode), KM_SLEEP);
17570 
17571 	rval = st_gen_mode_sense(un, ubf, un->un_comp_page, current,
17572 	    sizeof (struct seq_mode));
17573 	if (rval != 0) {
17574 		ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17575 		    "Mode Sense for mode verification failed");
17576 		kmem_free(current, sizeof (struct seq_mode));
17577 		return (rval);
17578 	}
17579 
17580 	this = (caddr_t)current;
17581 	that = (caddr_t)un->un_mspl;
17582 
17583 	rval = bcmp(this, that, sizeof (struct seq_mode));
17584 	if (rval == 0) {
17585 		ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17586 		    "Found no changes in mode data");
17587 	}
17588 #ifdef STDEBUG
17589 	else {
17590 		for (i = 1; i < sizeof (struct seq_mode); i++) {
17591 			if (this[i] != that[i]) {
17592 				ST_RECOV(ST_DEVINFO, st_label, CE_CONT,
17593 				    "sense data changed at byte %d was "
17594 				    "0x%x now 0x%x", i,
17595 				    (uchar_t)that[i], (uchar_t)this[i]);
17596 			}
17597 		}
17598 	}
17599 #endif
17600 	kmem_free(current, sizeof (struct seq_mode));
17601 
17602 	return (rval);
17603 }
17604 
17605 static int
st_test_path_to_device(struct scsi_tape * un)17606 st_test_path_to_device(struct scsi_tape *un)
17607 {
17608 	int rval = 0;
17609 	int limit = st_retry_count;
17610 
17611 	ST_FUNC(ST_DEVINFO, st_test_path_to_device);
17612 
17613 	/*
17614 	 * XXX Newer drives may not RESEVATION CONFLICT a TUR.
17615 	 */
17616 	do {
17617 		if (rval != 0) {
17618 			mutex_exit(ST_MUTEX);
17619 			delay(drv_usectohz(1000000));
17620 			mutex_enter(ST_MUTEX);
17621 		}
17622 		rval = st_rcmd(un, SCMD_TEST_UNIT_READY, 0, SYNC_CMD);
17623 		ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17624 		    "ping TUR returned 0x%x", rval);
17625 		limit--;
17626 	} while (((rval == EACCES) || (rval == EBUSY)) && limit);
17627 
17628 	if (un->un_status == KEY_NOT_READY || un->un_mediastate == MTIO_EJECTED)
17629 		rval = 0;
17630 
17631 	return (rval);
17632 }
17633 
17634 /*
17635  * Does read position using recov_buf and doesn't update un_pos.
17636  * Does what ever kind of read position you want.
17637  */
17638 static int
st_recovery_read_pos(struct scsi_tape * un,read_p_types type,read_pos_data_t * raw)17639 st_recovery_read_pos(struct scsi_tape *un, read_p_types type,
17640     read_pos_data_t *raw)
17641 {
17642 	int rval;
17643 	struct uscsi_cmd cmd;
17644 	struct scsi_arq_status status;
17645 	char cdb[CDB_GROUP1];
17646 
17647 	ST_FUNC(ST_DEVINFO, st_recovery_read_pos);
17648 	bzero(&cmd, sizeof (cmd));
17649 
17650 	cdb[0] = SCMD_READ_POSITION;
17651 	cdb[1] = type;
17652 	cdb[2] = 0;
17653 	cdb[3] = 0;
17654 	cdb[4] = 0;
17655 	cdb[5] = 0;
17656 	cdb[6] = 0;
17657 	cdb[7] = 0;
17658 	cdb[8] = (type == EXT_POS) ? 28 : 0;
17659 	cdb[9] = 0;
17660 
17661 	cmd.uscsi_flags = USCSI_READ | USCSI_RQENABLE;
17662 	cmd.uscsi_timeout = un->un_dp->non_motion_timeout;
17663 	cmd.uscsi_cdb = cdb;
17664 	cmd.uscsi_cdblen = sizeof (cdb);
17665 	cmd.uscsi_rqlen = sizeof (status);
17666 	cmd.uscsi_rqbuf = (caddr_t)&status;
17667 	cmd.uscsi_bufaddr = (caddr_t)raw;
17668 	switch (type) {
17669 	case SHORT_POS:
17670 		cmd.uscsi_buflen = sizeof (tape_position_t);
17671 		break;
17672 	case LONG_POS:
17673 		cmd.uscsi_buflen = sizeof (tape_position_long_t);
17674 		break;
17675 	case EXT_POS:
17676 		cmd.uscsi_buflen = sizeof (tape_position_ext_t);
17677 		break;
17678 	default:
17679 		ASSERT(0);
17680 	}
17681 
17682 	rval = st_uscsi_rcmd(un, &cmd, FKIOCTL);
17683 	if (cmd.uscsi_status) {
17684 		rval = EIO;
17685 	}
17686 	return (rval);
17687 }
17688 
17689 static int
st_recovery_get_position(struct scsi_tape * un,tapepos_t * read,read_pos_data_t * raw)17690 st_recovery_get_position(struct scsi_tape *un, tapepos_t *read,
17691     read_pos_data_t *raw)
17692 {
17693 	int rval;
17694 	read_p_types type = un->un_read_pos_type;
17695 
17696 	ST_FUNC(ST_DEVINFO, st_recovery_get_position);
17697 
17698 	do {
17699 		rval = st_recovery_read_pos(un, type, raw);
17700 		if (rval != 0) {
17701 			switch (type) {
17702 			case SHORT_POS:
17703 				type = NO_POS;
17704 				break;
17705 
17706 			case LONG_POS:
17707 				type = EXT_POS;
17708 				break;
17709 
17710 			case EXT_POS:
17711 				type = SHORT_POS;
17712 				break;
17713 
17714 			default:
17715 				type = LONG_POS;
17716 				break;
17717 
17718 			}
17719 		} else {
17720 			if (type != un->un_read_pos_type) {
17721 				un->un_read_pos_type = type;
17722 			}
17723 			break;
17724 		}
17725 	} while (type != NO_POS);
17726 
17727 	if (rval == 0) {
17728 		rval = st_interpret_read_pos(un, read, type,
17729 		    sizeof (read_pos_data_t), (caddr_t)raw, 1);
17730 	}
17731 	return (rval);
17732 }
17733 
17734 /*
17735  * based on the command do we retry, continue or give up?
17736  * possable return values?
17737  *	zero do nothing looks fine.
17738  *	EAGAIN retry.
17739  *	EIO failed makes no sense.
17740  */
17741 static int
st_compare_expected_position(struct scsi_tape * un,st_err_info * ei,cmd_attribute const * cmd_att,tapepos_t * read)17742 st_compare_expected_position(struct scsi_tape *un, st_err_info *ei,
17743     cmd_attribute const * cmd_att, tapepos_t *read)
17744 {
17745 	int rval;
17746 	read_pos_data_t *readp_datap;
17747 
17748 	ST_FUNC(ST_DEVINFO, st_compare_expected_position);
17749 
17750 	ASSERT(un != NULL);
17751 	ASSERT(ei != NULL);
17752 	ASSERT(read != NULL);
17753 	ASSERT(cmd_att->chg_tape_pos);
17754 
17755 	COPY_POS(read, &ei->ei_expected_pos);
17756 
17757 	readp_datap = kmem_zalloc(sizeof (read_pos_data_t), KM_SLEEP);
17758 
17759 	rval = st_recovery_get_position(un, read, readp_datap);
17760 
17761 	kmem_free(readp_datap, sizeof (read_pos_data_t));
17762 
17763 	if (rval != 0) {
17764 		return (EIO);
17765 	}
17766 
17767 	ST_POS(ST_DEVINFO, "st_compare_expected_position", read);
17768 
17769 	if ((read->pmode == invalid) ||
17770 	    (ei->ei_expected_pos.pmode == invalid)) {
17771 		return (EIO);
17772 	}
17773 
17774 	/*
17775 	 * Command that changes tape position and have an expected position
17776 	 * if it were to chave completed sucessfully.
17777 	 */
17778 	if (cmd_att->recov_pos_type == POS_EXPECTED) {
17779 		uint32_t count;
17780 		int64_t difference;
17781 		uchar_t reposition = 0;
17782 
17783 		ASSERT(cmd_att->get_cnt);
17784 		count = cmd_att->get_cnt(ei->ei_failed_pkt.pkt_cdbp);
17785 
17786 		ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17787 		    "Got count from CDB and it was %d\n", count);
17788 
17789 		/*
17790 		 * At expected?
17791 		 */
17792 		if (read->lgclblkno == ei->ei_expected_pos.lgclblkno) {
17793 			ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17794 			    "Found drive to be at expected position\n");
17795 
17796 			/*
17797 			 * If the command should move tape and it got a busy
17798 			 * it shouldn't be in the expected position.
17799 			 */
17800 			if (ei->ei_failing_status.sts_status.sts_busy != 0) {
17801 				reposition = 1;
17802 
17803 			/*
17804 			 * If the command doesn't transfer data should be good.
17805 			 */
17806 			} else if (cmd_att->transfers_data == TRAN_NONE) {
17807 				return (0); /* Good */
17808 
17809 			/*
17810 			 * Command transfers data, should have done so.
17811 			 */
17812 			} else if (ei->ei_failed_pkt.pkt_state &
17813 			    STATE_XFERRED_DATA) {
17814 				return (0); /* Good */
17815 			} else {
17816 				reposition = 1;
17817 			}
17818 		}
17819 
17820 		if (cmd_att->chg_tape_direction == DIR_FORW) {
17821 			difference =
17822 			    ei->ei_expected_pos.lgclblkno - read->lgclblkno;
17823 
17824 			ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17825 			    "difference between expected and actual is %"
17826 			    PRId64"\n", difference);
17827 			if (count == difference && reposition == 0) {
17828 				ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17829 				    "Found failed FORW command, retrying\n");
17830 				return (EAGAIN);
17831 			}
17832 
17833 			/*
17834 			 * If rewound or somewhere between the starting position
17835 			 * and the expected position (partial read or write).
17836 			 * Locate to the starting position and try the whole
17837 			 * thing over again.
17838 			 */
17839 			if ((read->lgclblkno == 0) ||
17840 			    ((difference > 0) && (difference < count))) {
17841 				rval = st_logical_block_locate(un,
17842 				    st_uscsi_rcmd, read,
17843 				    ei->ei_expected_pos.lgclblkno - count,
17844 				    ei->ei_expected_pos.partition);
17845 				if (rval == 0) {
17846 					ST_RECOV(ST_DEVINFO, st_label,
17847 					    CE_NOTE, "reestablished FORW"
17848 					    " command retrying\n");
17849 					return (EAGAIN);
17850 				}
17851 			/*
17852 			 * This handles flushed read ahead on the drive or
17853 			 * an aborted read that presents as a busy and advanced
17854 			 * the tape position.
17855 			 */
17856 			} else if ((cmd_att->transfers_data == TRAN_READ) &&
17857 			    ((difference < 0) || (reposition == 1))) {
17858 				rval = st_logical_block_locate(un,
17859 				    st_uscsi_rcmd, read,
17860 				    ei->ei_expected_pos.lgclblkno - count,
17861 				    ei->ei_expected_pos.partition);
17862 				if (rval == 0) {
17863 					ST_RECOV(ST_DEVINFO, st_label,
17864 					    CE_NOTE, "reestablished FORW"
17865 					    " read command retrying\n");
17866 					return (EAGAIN);
17867 				}
17868 			/*
17869 			 * XXX swag seeing difference of 2 on write filemark.
17870 			 * If the space to the starting position works on a
17871 			 * write that means the previous write made it to tape.
17872 			 * If not we lost data and have to give up.
17873 			 *
17874 			 * The plot thickens. Now I am attempting to cover a
17875 			 * count of 1 and a differance of 2 on a write.
17876 			 */
17877 			} else if ((difference > count) || (reposition == 1)) {
17878 				rval = st_logical_block_locate(un,
17879 				    st_uscsi_rcmd, read,
17880 				    ei->ei_expected_pos.lgclblkno - count,
17881 				    ei->ei_expected_pos.partition);
17882 				if (rval == 0) {
17883 					ST_RECOV(ST_DEVINFO, st_label,
17884 					    CE_NOTE, "reestablished FORW"
17885 					    " write command retrying\n");
17886 					return (EAGAIN);
17887 				}
17888 				ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17889 				    "Seek to block %"PRId64" returned %d\n",
17890 				    ei->ei_expected_pos.lgclblkno - count,
17891 				    rval);
17892 			} else {
17893 				ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17894 				    "Not expected transfers_data = %d "
17895 				    "difference = %"PRId64,
17896 				    cmd_att->transfers_data, difference);
17897 			}
17898 
17899 			return (EIO);
17900 
17901 		} else if (cmd_att->chg_tape_direction == DIR_REVC) {
17902 			/* Don't think we can write backwards */
17903 			ASSERT(cmd_att->transfers_data != TRAN_WRTE);
17904 			difference =
17905 			    read->lgclblkno - ei->ei_expected_pos.lgclblkno;
17906 			ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17907 			    "difference between expected and actual is %"
17908 			    PRId64"\n", difference);
17909 			if (count == difference && reposition == 0) {
17910 				ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17911 				    "Found failed REVC command, retrying\n");
17912 				return (EAGAIN);
17913 			}
17914 			if ((read->lgclblkno == 0) ||
17915 			    ((difference > 0) && (difference < count))) {
17916 				rval = st_logical_block_locate(un,
17917 				    st_uscsi_rcmd, read,
17918 				    ei->ei_expected_pos.lgclblkno + count,
17919 				    ei->ei_expected_pos.partition);
17920 				if (rval == 0) {
17921 					ST_RECOV(ST_DEVINFO, st_label,
17922 					    CE_NOTE, "reestablished REVC"
17923 					    " command retrying\n");
17924 					return (EAGAIN);
17925 				}
17926 			/* This handles read ahead in reverse direction */
17927 			} else if ((cmd_att->transfers_data == TRAN_READ) &&
17928 			    (difference < 0) || (reposition == 1)) {
17929 				rval = st_logical_block_locate(un,
17930 				    st_uscsi_rcmd, read,
17931 				    ei->ei_expected_pos.lgclblkno - count,
17932 				    ei->ei_expected_pos.partition);
17933 				if (rval == 0) {
17934 					ST_RECOV(ST_DEVINFO, st_label,
17935 					    CE_NOTE, "reestablished REVC"
17936 					    " read command retrying\n");
17937 					return (EAGAIN);
17938 				}
17939 			} else {
17940 				ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17941 				    "Not expected transfers_data = %d "
17942 				    "difference = %"PRId64,
17943 				    cmd_att->transfers_data, difference);
17944 			}
17945 			return (EIO);
17946 
17947 		} else {
17948 			/*
17949 			 * Commands that change tape position either
17950 			 * direction or don't change position should not
17951 			 * get here.
17952 			 */
17953 			ASSERT(0);
17954 		}
17955 		ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17956 		    "Didn't find a recoverable position, Failing\n");
17957 
17958 	/*
17959 	 * Command that changes tape position and can only be recovered
17960 	 * by going back to the point of origin and retrying.
17961 	 *
17962 	 * Example SCMD_SPACE.
17963 	 */
17964 	} else if (cmd_att->recov_pos_type == POS_STARTING) {
17965 		/*
17966 		 * This type of command stores the starting position.
17967 		 * If the read position is the starting position,
17968 		 * reissue the command.
17969 		 */
17970 		if (ei->ei_expected_pos.lgclblkno == read->lgclblkno) {
17971 			ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17972 			    "Found Space command at starting position, "
17973 			    "Reissuing\n");
17974 			return (EAGAIN);
17975 		}
17976 		/*
17977 		 * Not in the position that the command was originally issued,
17978 		 * Attempt to locate to that position.
17979 		 */
17980 		rval = st_logical_block_locate(un, st_uscsi_rcmd, read,
17981 		    ei->ei_expected_pos.lgclblkno,
17982 		    ei->ei_expected_pos.partition);
17983 		if (rval) {
17984 			ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17985 			    "Found Space at an unexpected position and locate "
17986 			    "back to starting position failed\n");
17987 			return (EIO);
17988 		}
17989 		ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
17990 		    "Found Space at an unexpected position and locate "
17991 		    "back to starting position worked, Reissuing\n");
17992 		return (EAGAIN);
17993 	}
17994 	st_print_position(ST_DEVINFO, st_label, CE_NOTE,
17995 	    "Unhandled attribute/expected position", &ei->ei_expected_pos);
17996 	st_print_position(ST_DEVINFO, st_label, CE_NOTE,
17997 	    "Read position above did not make sense", read);
17998 	ASSERT(0);
17999 	return (EIO);
18000 }
18001 
18002 static errstate
st_recover_reissue_pkt(struct scsi_tape * un,struct scsi_pkt * oldpkt)18003 st_recover_reissue_pkt(struct scsi_tape *un, struct scsi_pkt *oldpkt)
18004 {
18005 	buf_t *bp;
18006 	buf_t *pkt_bp;
18007 	struct scsi_pkt *newpkt;
18008 	cmd_attribute const *attrib;
18009 	recov_info *rcv = oldpkt->pkt_private;
18010 	uint_t cdblen;
18011 	int queued = 0;
18012 	int rval;
18013 	int flags = 0;
18014 	int stat_size =
18015 	    (un->un_arq_enabled ? sizeof (struct scsi_arq_status) : 1);
18016 
18017 	ST_FUNC(ST_DEVINFO, st_recover_reissue_pkt);
18018 
18019 	bp = rcv->cmd_bp;
18020 
18021 	if (rcv->privatelen == sizeof (recov_info)) {
18022 		attrib = rcv->cmd_attrib;
18023 	} else {
18024 		attrib = st_lookup_cmd_attribute(oldpkt->pkt_cdbp[0]);
18025 	}
18026 
18027 	/*
18028 	 * Some non-uscsi commands use the b_bcount for values that
18029 	 * have nothing to do with how much data is transfered.
18030 	 * In those cases we need to hide the buf_t from scsi_init_pkt().
18031 	 */
18032 	if ((BP_UCMD(bp)) && (bp->b_bcount)) {
18033 		pkt_bp = bp;
18034 	} else if (attrib->transfers_data == TRAN_NONE) {
18035 		pkt_bp = NULL;
18036 	} else {
18037 		pkt_bp = bp;
18038 	}
18039 
18040 	/*
18041 	 * if this is a queued command make sure it the only one in the
18042 	 * run queue.
18043 	 */
18044 	if (bp != un->un_sbufp && bp != un->un_recov_buf) {
18045 		ASSERT(un->un_runqf == un->un_runql);
18046 		ASSERT(un->un_runqf == bp);
18047 		queued = 1;
18048 	}
18049 
18050 	cdblen = scsi_cdb_size[CDB_GROUPID(oldpkt->pkt_cdbp[0])];
18051 
18052 	if (pkt_bp == un->un_rqs_bp) {
18053 		flags |= PKT_CONSISTENT;
18054 		stat_size = 1;
18055 	}
18056 
18057 	newpkt = scsi_init_pkt(ROUTE, NULL, pkt_bp, cdblen,
18058 	    stat_size, rcv->privatelen, flags, NULL_FUNC, NULL);
18059 	if (newpkt == NULL) {
18060 		ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
18061 		    "Reissue pkt scsi_init_pkt() failure\n");
18062 		return (COMMAND_DONE_ERROR);
18063 	}
18064 
18065 	ASSERT(newpkt->pkt_resid == 0);
18066 	bp->b_flags &= ~(B_DONE);
18067 	bp->b_resid = 0;
18068 	st_bioerror(bp, 0);
18069 
18070 	bcopy(oldpkt->pkt_private, newpkt->pkt_private, rcv->privatelen);
18071 
18072 	newpkt->pkt_comp = oldpkt->pkt_comp;
18073 	newpkt->pkt_time = oldpkt->pkt_time;
18074 
18075 	bzero(newpkt->pkt_scbp, stat_size);
18076 	bcopy(oldpkt->pkt_cdbp, newpkt->pkt_cdbp, cdblen);
18077 
18078 	newpkt->pkt_state = 0;
18079 	newpkt->pkt_statistics = 0;
18080 
18081 	/*
18082 	 * oldpkt passed in was a copy of the original.
18083 	 * to distroy we need the address of the original.
18084 	 */
18085 	oldpkt = BP_PKT(bp);
18086 
18087 	if (oldpkt == un->un_rqs) {
18088 		ASSERT(bp == un->un_rqs_bp);
18089 		un->un_rqs = newpkt;
18090 	}
18091 
18092 	SET_BP_PKT(bp, newpkt);
18093 
18094 	scsi_destroy_pkt(oldpkt);
18095 
18096 	rval = st_transport(un, newpkt);
18097 	if (rval == TRAN_ACCEPT) {
18098 		return (JUST_RETURN);
18099 	}
18100 	ST_RECOV(ST_DEVINFO, st_label, CE_NOTE,
18101 	    "Reissue pkt st_transport(0x%x) failure\n", rval);
18102 	if (rval != TRAN_BUSY) {
18103 		return (COMMAND_DONE_ERROR);
18104 	}
18105 	mutex_exit(ST_MUTEX);
18106 	rval = st_handle_start_busy(un, bp, ST_TRAN_BUSY_TIMEOUT, queued);
18107 	mutex_enter(ST_MUTEX);
18108 	if (rval) {
18109 		return (COMMAND_DONE_ERROR);
18110 	}
18111 
18112 	return (JUST_RETURN);
18113 }
18114 
18115 static int
st_transport(struct scsi_tape * un,struct scsi_pkt * pkt)18116 st_transport(struct scsi_tape *un, struct scsi_pkt *pkt)
18117 {
18118 	int status;
18119 
18120 	ST_FUNC(ST_DEVINFO, st_transport);
18121 
18122 	ST_CDB(ST_DEVINFO, "transport CDB", (caddr_t)pkt->pkt_cdbp);
18123 
18124 	mutex_exit(ST_MUTEX);
18125 
18126 	status = scsi_transport(pkt);
18127 
18128 	mutex_enter(ST_MUTEX);
18129 
18130 	return (status);
18131 }
18132 
18133 /*
18134  * Removed the buf_t bp from the queue referenced to by head and tail.
18135  * Returns the buf_t pointer if it is found in the queue.
18136  * Returns NULL if it is not found.
18137  */
18138 static buf_t *
st_remove_from_queue(buf_t ** head,buf_t ** tail,buf_t * bp)18139 st_remove_from_queue(buf_t **head, buf_t **tail, buf_t *bp)
18140 {
18141 	buf_t *runqbp;
18142 	buf_t *prevbp = NULL;
18143 
18144 	for (runqbp = *head; runqbp != 0; runqbp = runqbp->av_forw) {
18145 		if (runqbp == bp) {
18146 			/* found it, is it at the head? */
18147 			if (runqbp == *head) {
18148 				*head = bp->av_forw;
18149 			} else {
18150 				prevbp->av_forw = bp->av_forw;
18151 			}
18152 			if (*tail == bp) {
18153 				*tail = prevbp;
18154 			}
18155 			bp->av_forw = NULL;
18156 			return (bp); /* found and removed */
18157 		}
18158 		prevbp = runqbp;
18159 	}
18160 	return (NULL);
18161 }
18162 
18163 /*
18164  * Adds a buf_t to the queue pointed to by head and tail.
18165  * Adds it either to the head end or the tail end based on which
18166  * the passed variable end (head or tail) points at.
18167  */
18168 static void
st_add_to_queue(buf_t ** head,buf_t ** tail,buf_t * end,buf_t * bp)18169 st_add_to_queue(buf_t **head, buf_t **tail, buf_t *end, buf_t *bp)
18170 {
18171 
18172 	bp->av_forw = NULL;
18173 	if (*head) {
18174 		/* Queue is not empty */
18175 		if (end == *head) {
18176 			/* Add at front of queue */
18177 			bp->av_forw = *head;
18178 			*head = bp;
18179 		} else if (end == *tail) {
18180 			/* Add at end of queue */
18181 			(*tail)->av_forw = bp;
18182 			*tail = bp;
18183 		} else {
18184 			ASSERT(0);
18185 		}
18186 	} else {
18187 		/* Queue is empty */
18188 		*head = bp;
18189 		*tail = bp;
18190 	}
18191 }
18192 
18193 
18194 static uint64_t
st_get_cdb_g0_rw_count(uchar_t * cdb)18195 st_get_cdb_g0_rw_count(uchar_t *cdb)
18196 {
18197 	uint64_t count;
18198 
18199 	if ((cdb[1]) & 1) {
18200 		/* fixed block mode, the count is the number of blocks */
18201 		count =
18202 		    cdb[2] << 16 |
18203 		    cdb[3] << 8 |
18204 		    cdb[4];
18205 	} else {
18206 		/* variable block mode, the count is the block size */
18207 		count = 1;
18208 	}
18209 	return (count);
18210 }
18211 
18212 static uint64_t
st_get_cdb_g0_sign_count(uchar_t * cdb)18213 st_get_cdb_g0_sign_count(uchar_t *cdb)
18214 {
18215 	uint64_t count;
18216 
18217 	count =
18218 	    cdb[2] << 16 |
18219 	    cdb[3] << 8 |
18220 	    cdb[4];
18221 	/*
18222 	 * If the sign bit of the 3 byte value is set, extended it.
18223 	 */
18224 	if (count & 0x800000) {
18225 		count |= 0xffffffffff000000;
18226 	}
18227 	return (count);
18228 }
18229 
18230 static uint64_t
st_get_cdb_g0_count(uchar_t * cdb)18231 st_get_cdb_g0_count(uchar_t *cdb)
18232 {
18233 	uint64_t count;
18234 
18235 	count =
18236 	    cdb[2] << 16 |
18237 	    cdb[3] << 8 |
18238 	    cdb[4];
18239 	return (count);
18240 }
18241 
18242 static uint64_t
st_get_cdb_g5_rw_cnt(uchar_t * cdb)18243 st_get_cdb_g5_rw_cnt(uchar_t *cdb)
18244 {
18245 	uint64_t count;
18246 
18247 	if ((cdb[1]) & 1) {
18248 		/* fixed block mode */
18249 		count =
18250 		    cdb[12] << 16 |
18251 		    cdb[13] << 8 |
18252 		    cdb[14];
18253 	} else {
18254 		/* variable block mode */
18255 		count = 1;
18256 	}
18257 	return (count);
18258 }
18259 
18260 static uint64_t
st_get_no_count(uchar_t * cdb)18261 st_get_no_count(uchar_t *cdb)
18262 {
18263 	ASSERT(cdb[0] == SCMD_REWIND);
18264 	return ((uint64_t)cdb[0]);
18265 }
18266 
18267 static uint64_t
st_get_load_options(uchar_t * cdb)18268 st_get_load_options(uchar_t *cdb)
18269 {
18270 	return ((uint64_t)(cdb[4] | (LD_HOLD << 1)));
18271 }
18272 
18273 static uint64_t
st_get_erase_options(uchar_t * cdb)18274 st_get_erase_options(uchar_t *cdb)
18275 {
18276 	return (cdb[1] | (cdb[0] << 8));
18277 }
18278 
18279 static uint64_t
st_get_cdb_g1_lba(uchar_t * cdb)18280 st_get_cdb_g1_lba(uchar_t *cdb)
18281 {
18282 	uint64_t lba;
18283 
18284 	lba =
18285 	    cdb[3] << 24 |
18286 	    cdb[4] << 16 |
18287 	    cdb[5] << 8 |
18288 	    cdb[6];
18289 	return (lba);
18290 }
18291 
18292 static uint64_t
st_get_cdb_g5_count(uchar_t * cdb)18293 st_get_cdb_g5_count(uchar_t *cdb)
18294 {
18295 	uint64_t count =
18296 	    cdb[12] << 16 |
18297 	    cdb[13] << 8 |
18298 	    cdb[14];
18299 
18300 	return (count);
18301 }
18302 
18303 static uint64_t
st_get_cdb_g4g5_cnt(uchar_t * cdb)18304 st_get_cdb_g4g5_cnt(uchar_t *cdb)
18305 {
18306 	uint64_t lba;
18307 
18308 	lba =
18309 	    (uint64_t)cdb[4] << 56 |
18310 	    (uint64_t)cdb[5] << 48 |
18311 	    (uint64_t)cdb[6] << 40 |
18312 	    (uint64_t)cdb[7] << 32 |
18313 	    (uint64_t)cdb[8] << 24 |
18314 	    (uint64_t)cdb[9] << 16 |
18315 	    (uint64_t)cdb[10] << 8 |
18316 	    (uint64_t)cdb[11];
18317 	return (lba);
18318 }
18319 
18320 static const cmd_attribute cmd_attributes[] = {
18321 	{ SCMD_READ,
18322 	    1, 0, 1, 0, 0, DIR_FORW, TRAN_READ, POS_EXPECTED,
18323 	    0, 0, 0, st_get_cdb_g0_rw_count },
18324 	{ SCMD_WRITE,
18325 	    1, 0, 1, 1, 0, DIR_FORW, TRAN_WRTE, POS_EXPECTED,
18326 	    0, 0, 0, st_get_cdb_g0_rw_count },
18327 	{ SCMD_TEST_UNIT_READY,
18328 	    0, 1, 0, 0, 0, DIR_NONE, TRAN_NONE, POS_EXPECTED,
18329 	    0, 0, 0 },
18330 	{ SCMD_REWIND,
18331 	    1, 1, 1, 0, 0, DIR_REVC, TRAN_NONE, POS_EXPECTED,
18332 	    0, 0, 0, st_get_no_count },
18333 	{ SCMD_REQUEST_SENSE,
18334 	    0, 0, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18335 	    0, 0, 0 },
18336 	{ SCMD_READ_BLKLIM,
18337 	    0, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18338 	    0, 0, 0 },
18339 	{ SCMD_READ_G4,
18340 	    1, 0, 1, 0, 1, DIR_FORW, TRAN_READ, POS_EXPECTED,
18341 	    0, 0, 0, st_get_cdb_g5_rw_cnt, st_get_cdb_g4g5_cnt },
18342 	{ SCMD_WRITE_G4,
18343 	    1, 0, 1, 1, 1, DIR_FORW, TRAN_WRTE, POS_EXPECTED,
18344 	    0, 0, 0, st_get_cdb_g5_rw_cnt, st_get_cdb_g4g5_cnt },
18345 	{ SCMD_READ_REVERSE,
18346 	    1, 0, 1, 1, 0, DIR_REVC, TRAN_READ, POS_EXPECTED,
18347 	    0, 0, 0, st_get_cdb_g0_rw_count },
18348 	{ SCMD_READ_REVERSE_G4,
18349 	    1, 0, 1, 1, 1, DIR_REVC, TRAN_READ, POS_EXPECTED,
18350 	    0, 0, 0, st_get_cdb_g5_rw_cnt, st_get_cdb_g4g5_cnt },
18351 	{ SCMD_WRITE_FILE_MARK,
18352 	    1, 0, 1, 1, 0, DIR_FORW, TRAN_NONE, POS_EXPECTED,
18353 	    0, 0, 0, st_get_cdb_g0_count },
18354 	{ SCMD_WRITE_FILE_MARK_G4,
18355 	    1, 0, 1, 1, 1, DIR_FORW, TRAN_NONE, POS_EXPECTED,
18356 	    0, 0, 0, st_get_cdb_g5_count, st_get_cdb_g4g5_cnt },
18357 	{ SCMD_SPACE,
18358 	    1, 0, 1, 0, 0, DIR_EITH, TRAN_NONE, POS_STARTING,
18359 	    0, 0, 0, st_get_cdb_g0_sign_count },
18360 	{ SCMD_SPACE_G4,
18361 	    1, 0, 1, 0, 0, DIR_EITH, TRAN_NONE, POS_STARTING,
18362 	    0, 0, 0, st_get_cdb_g4g5_cnt },
18363 	{ SCMD_INQUIRY,
18364 	    0, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18365 	    0, 0, 0 },
18366 	{ SCMD_VERIFY_G0,
18367 	    1, 0, 1, 0, 0, DIR_FORW, TRAN_NONE, POS_EXPECTED,
18368 	    0, 0, 0, st_get_cdb_g0_rw_count },
18369 	{ SCMD_VERIFY_G4,
18370 	    1, 0, 1, 0, 1, DIR_FORW, TRAN_NONE, POS_EXPECTED,
18371 	    0, 0, 0, st_get_cdb_g5_rw_cnt, st_get_cdb_g4g5_cnt },
18372 	{ SCMD_RECOVER_BUF,
18373 	    1, 0, 1, 1, 0, DIR_REVC, TRAN_READ, POS_EXPECTED,
18374 	    0, 0, 0 },
18375 	{ SCMD_MODE_SELECT,
18376 	    1, 1, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18377 	    0, 0, 0 },
18378 	{ SCMD_RESERVE,
18379 	    0, 1, 0, 0, 0, DIR_NONE, TRAN_NONE, POS_EXPECTED,
18380 	    0, 0, 0 },
18381 	{ SCMD_RELEASE,
18382 	    0, 1, 0, 0, 0, DIR_NONE, TRAN_NONE, POS_EXPECTED,
18383 	    0, 0, 0 },
18384 	{ SCMD_ERASE,
18385 	    1, 0, 1, 1, 0, DIR_NONE, TRAN_NONE, POS_EXPECTED,
18386 	    0, 0, 0, st_get_erase_options },
18387 	{ SCMD_MODE_SENSE,
18388 	    1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18389 	    0, 0, 0 },
18390 	{ SCMD_LOAD,
18391 	    1, 1, 1, 0, 0, DIR_EITH, TRAN_NONE, POS_EXPECTED,
18392 	    0, 0, 0, st_get_load_options },
18393 	{ SCMD_GDIAG,
18394 	    1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18395 	    1, 0, 0 },
18396 	{ SCMD_SDIAG,
18397 	    1, 0, 1, 1, 0, DIR_EITH, TRAN_WRTE, POS_EXPECTED,
18398 	    1, 0, 0 },
18399 	{ SCMD_DOORLOCK,
18400 	    0, 1, 0, 0, 0, DIR_NONE, TRAN_NONE, POS_EXPECTED,
18401 	    0, 4, 3 },
18402 	{ SCMD_LOCATE,
18403 	    1, 1, 1, 0, 0, DIR_EITH, TRAN_NONE, POS_EXPECTED,
18404 	    0, 0, 0, NULL, st_get_cdb_g1_lba },
18405 	{ SCMD_READ_POSITION,
18406 	    1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18407 	    0, 0, 0 },
18408 	{ SCMD_WRITE_BUFFER,
18409 	    1, 0, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18410 	    1, 0, 0 },
18411 	{ SCMD_READ_BUFFER,
18412 	    1, 0, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18413 	    1, 0, 0 },
18414 	{ SCMD_REPORT_DENSITIES,
18415 	    0, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18416 	    0, 0, 0 },
18417 	{ SCMD_LOG_SELECT_G1,
18418 	    1, 1, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18419 	    0, 0, 0 },
18420 	{ SCMD_LOG_SENSE_G1,
18421 	    1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18422 	    0, 0, 0 },
18423 	{ SCMD_PRIN,
18424 	    0, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18425 	    0, 0, 0 },
18426 	{ SCMD_PROUT,
18427 	    0, 1, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18428 	    0, 0, 0 },
18429 	{ SCMD_READ_ATTRIBUTE,
18430 	    1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18431 	    0, 0, 0 },
18432 	{ SCMD_WRITE_ATTRIBUTE,
18433 	    1, 1, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18434 	    0, 0, 0 },
18435 	{ SCMD_LOCATE_G4,
18436 	    1, 1, 1, 0, 0, DIR_EITH, TRAN_NONE, POS_EXPECTED,
18437 	    0, 0, 0, NULL, st_get_cdb_g4g5_cnt },
18438 	{ SCMD_REPORT_LUNS,
18439 	    0, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18440 	    0, 0, 0 },
18441 	{ SCMD_SVC_ACTION_IN_G5,
18442 	    1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18443 	    0, 0, 0 },
18444 	{ SCMD_MAINTENANCE_IN,
18445 	    1, 1, 0, 0, 0, DIR_NONE, TRAN_READ, POS_EXPECTED,
18446 	    0, 0, 0 },
18447 	{ SCMD_MAINTENANCE_OUT,
18448 	    1, 1, 0, 0, 0, DIR_NONE, TRAN_WRTE, POS_EXPECTED,
18449 	    0, 0, 0 },
18450 	{ 0xff, /* Default attribute for unsupported commands */
18451 	    1, 0, 0, 0, 0, DIR_NONE, TRAN_NONE, POS_STARTING,
18452 	    1, 0, 0, NULL, NULL }
18453 };
18454 
18455 static const cmd_attribute *
st_lookup_cmd_attribute(unsigned char cmd)18456 st_lookup_cmd_attribute(unsigned char cmd)
18457 {
18458 	int i;
18459 	cmd_attribute const *attribute;
18460 
18461 	for (i = 0; i < ST_NUM_MEMBERS(cmd_attributes); i++) {
18462 		attribute = &cmd_attributes[i];
18463 		if (attribute->cmd == cmd) {
18464 			return (attribute);
18465 		}
18466 	}
18467 	ASSERT(attribute);
18468 	return (attribute);
18469 }
18470 
18471 static int
st_reset(struct scsi_tape * un,int reset_type)18472 st_reset(struct scsi_tape *un, int reset_type)
18473 {
18474 	int rval;
18475 
18476 	ASSERT(MUTEX_HELD(&un->un_sd->sd_mutex));
18477 
18478 	ST_FUNC(ST_DEVINFO, st_reset);
18479 	un->un_rsvd_status |= ST_INITIATED_RESET;
18480 	mutex_exit(ST_MUTEX);
18481 	do {
18482 		rval = scsi_reset(&un->un_sd->sd_address, reset_type);
18483 		if (rval == 0) {
18484 			switch (reset_type) {
18485 			case RESET_LUN:
18486 				ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
18487 				    "LUN reset failed trying target reset");
18488 				reset_type = RESET_TARGET;
18489 				break;
18490 			case RESET_TARGET:
18491 				ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
18492 				    "target reset failed trying bus reset");
18493 				reset_type = RESET_BUS;
18494 				break;
18495 			case RESET_BUS:
18496 				ST_DEBUG3(ST_DEVINFO, st_label, CE_WARN,
18497 				    "bus reset failed trying all reset");
18498 				reset_type = RESET_ALL;
18499 			default:
18500 				mutex_enter(ST_MUTEX);
18501 				return (rval);
18502 			}
18503 		}
18504 	} while (rval == 0);
18505 	mutex_enter(ST_MUTEX);
18506 	return (rval);
18507 }
18508 
18509 #define	SAS_TLR_MOD_LEN sizeof (struct seq_mode)
18510 static int
st_set_target_TLR_mode(struct scsi_tape * un,ubufunc_t ubf)18511 st_set_target_TLR_mode(struct scsi_tape *un, ubufunc_t ubf)
18512 {
18513 	int ret;
18514 	int amount = SAS_TLR_MOD_LEN;
18515 	struct seq_mode *mode_data;
18516 
18517 	ST_FUNC(ST_DEVINFO, st_set_target_TLR_mode);
18518 
18519 	mode_data = kmem_zalloc(SAS_TLR_MOD_LEN, KM_SLEEP);
18520 	ret = st_gen_mode_sense(un, ubf, 0x18, mode_data, amount);
18521 	if (ret != DDI_SUCCESS) {
18522 		if (ret != EACCES)
18523 			un->un_tlr_flag = TLR_NOT_SUPPORTED;
18524 		goto out;
18525 	}
18526 	if (mode_data->data_len != amount + 1) {
18527 		amount = mode_data->data_len + 1;
18528 	}
18529 	/* Must be SAS protocol */
18530 	if (mode_data->page.saslun.protocol_id != 6) {
18531 		un->un_tlr_flag = TLR_NOT_SUPPORTED;
18532 		ret = ENOTSUP;
18533 		goto out;
18534 	}
18535 	if (un->un_tlr_flag == TLR_SAS_ONE_DEVICE) {
18536 		if (mode_data->page.saslun.tran_layer_ret == 1)
18537 			goto out;
18538 		mode_data->page.saslun.tran_layer_ret = 1;
18539 	} else {
18540 		if (mode_data->page.saslun.tran_layer_ret == 0)
18541 			goto out;
18542 		mode_data->page.saslun.tran_layer_ret = 0;
18543 	}
18544 	ret = st_gen_mode_select(un, ubf, mode_data, amount);
18545 	if (ret != DDI_SUCCESS) {
18546 		if (ret != EACCES)
18547 			un->un_tlr_flag = TLR_NOT_SUPPORTED;
18548 	} else {
18549 		if (mode_data->page.saslun.tran_layer_ret == 0)
18550 			un->un_tlr_flag = TLR_NOT_KNOWN;
18551 		else
18552 			un->un_tlr_flag = TLR_SAS_ONE_DEVICE;
18553 	}
18554 #ifdef STDEBUG
18555 	st_clean_print(ST_DEVINFO, st_label, SCSI_DEBUG, "TLR data sent",
18556 	    (char *)mode_data, amount);
18557 #endif
18558 out:
18559 	kmem_free(mode_data, SAS_TLR_MOD_LEN);
18560 	return (ret);
18561 }
18562 
18563 
18564 static void
st_reset_notification(caddr_t arg)18565 st_reset_notification(caddr_t arg)
18566 {
18567 	struct scsi_tape *un = (struct scsi_tape *)arg;
18568 
18569 	ST_FUNC(ST_DEVINFO, st_reset_notification);
18570 	mutex_enter(ST_MUTEX);
18571 
18572 	un->un_unit_attention_flags |= 2;
18573 	if ((un->un_rsvd_status & (ST_RESERVE | ST_APPLICATION_RESERVATIONS)) ==
18574 	    ST_RESERVE) {
18575 		un->un_rsvd_status |= ST_LOST_RESERVE;
18576 		ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
18577 		    "Lost Reservation notification");
18578 	} else {
18579 		ST_DEBUG2(ST_DEVINFO, st_label, CE_WARN,
18580 		    "reset notification");
18581 	}
18582 
18583 	if ((un->un_restore_pos == 0) &&
18584 	    (un->un_state == ST_STATE_CLOSED) ||
18585 	    (un->un_state == ST_STATE_OPEN_PENDING_IO) ||
18586 	    (un->un_state == ST_STATE_CLOSING)) {
18587 		un->un_restore_pos = 1;
18588 	}
18589 	ST_DEBUG6(ST_DEVINFO, st_label, CE_WARN,
18590 	    "reset and state was %d\n", un->un_state);
18591 	mutex_exit(ST_MUTEX);
18592 }
18593