uha.c revision 1.17 1 1.17 mycroft /* $NetBSD: uha.c,v 1.17 1998/08/17 00:26:34 mycroft Exp $ */
2 1.1 mycroft
3 1.1 mycroft #undef UHADEBUG
4 1.1 mycroft #ifdef DDB
5 1.1 mycroft #define integrate
6 1.1 mycroft #else
7 1.1 mycroft #define integrate static inline
8 1.1 mycroft #endif
9 1.1 mycroft
10 1.8 thorpej /*-
11 1.15 thorpej * Copyright (c) 1997, 1998 The NetBSD Foundation, Inc.
12 1.8 thorpej * All rights reserved.
13 1.8 thorpej *
14 1.8 thorpej * This code is derived from software contributed to The NetBSD Foundation
15 1.17 mycroft * by Charles M. Hannum and by Jason R. Thorpe of the Numerical Aerospace
16 1.17 mycroft * Simulation Facility, NASA Ames Research Center.
17 1.8 thorpej *
18 1.8 thorpej * Redistribution and use in source and binary forms, with or without
19 1.8 thorpej * modification, are permitted provided that the following conditions
20 1.8 thorpej * are met:
21 1.8 thorpej * 1. Redistributions of source code must retain the above copyright
22 1.8 thorpej * notice, this list of conditions and the following disclaimer.
23 1.8 thorpej * 2. Redistributions in binary form must reproduce the above copyright
24 1.8 thorpej * notice, this list of conditions and the following disclaimer in the
25 1.8 thorpej * documentation and/or other materials provided with the distribution.
26 1.8 thorpej * 3. All advertising materials mentioning features or use of this software
27 1.8 thorpej * must display the following acknowledgement:
28 1.8 thorpej * This product includes software developed by the NetBSD
29 1.8 thorpej * Foundation, Inc. and its contributors.
30 1.8 thorpej * 4. Neither the name of The NetBSD Foundation nor the names of its
31 1.8 thorpej * contributors may be used to endorse or promote products derived
32 1.8 thorpej * from this software without specific prior written permission.
33 1.8 thorpej *
34 1.8 thorpej * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
35 1.8 thorpej * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
36 1.8 thorpej * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
37 1.8 thorpej * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
38 1.8 thorpej * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
39 1.8 thorpej * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
40 1.8 thorpej * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
41 1.8 thorpej * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
42 1.8 thorpej * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
43 1.8 thorpej * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
44 1.8 thorpej * POSSIBILITY OF SUCH DAMAGE.
45 1.1 mycroft */
46 1.1 mycroft
47 1.1 mycroft /*
48 1.1 mycroft * Ported for use with the UltraStor 14f by Gary Close (gclose (at) wvnvms.wvnet.edu)
49 1.1 mycroft * Slight fixes to timeouts to run with the 34F
50 1.1 mycroft * Thanks to Julian Elischer for advice and help with this port.
51 1.1 mycroft *
52 1.1 mycroft * Originally written by Julian Elischer (julian (at) tfs.com)
53 1.1 mycroft * for TRW Financial Systems for use under the MACH(2.5) operating system.
54 1.1 mycroft *
55 1.1 mycroft * TRW Financial Systems, in accordance with their agreement with Carnegie
56 1.1 mycroft * Mellon University, makes this software available to CMU to distribute
57 1.1 mycroft * or use in any manner that they see fit as long as this message is kept with
58 1.1 mycroft * the software. For this reason TFS also grants any other persons or
59 1.1 mycroft * organisations permission to use or modify this software.
60 1.1 mycroft *
61 1.1 mycroft * TFS supplies this software to be publicly redistributed
62 1.1 mycroft * on the understanding that TFS is not responsible for the correct
63 1.1 mycroft * functioning of this software in any circumstances.
64 1.1 mycroft *
65 1.1 mycroft * commenced: Sun Sep 27 18:14:01 PDT 1992
66 1.1 mycroft * slight mod to make work with 34F as well: Wed Jun 2 18:05:48 WST 1993
67 1.1 mycroft */
68 1.1 mycroft
69 1.1 mycroft #include <sys/types.h>
70 1.1 mycroft #include <sys/param.h>
71 1.1 mycroft #include <sys/systm.h>
72 1.1 mycroft #include <sys/kernel.h>
73 1.1 mycroft #include <sys/errno.h>
74 1.1 mycroft #include <sys/ioctl.h>
75 1.1 mycroft #include <sys/device.h>
76 1.1 mycroft #include <sys/malloc.h>
77 1.1 mycroft #include <sys/buf.h>
78 1.1 mycroft #include <sys/proc.h>
79 1.1 mycroft #include <sys/user.h>
80 1.1 mycroft
81 1.1 mycroft #include <machine/bus.h>
82 1.1 mycroft #include <machine/intr.h>
83 1.1 mycroft
84 1.9 bouyer #include <dev/scsipi/scsi_all.h>
85 1.9 bouyer #include <dev/scsipi/scsipi_all.h>
86 1.9 bouyer #include <dev/scsipi/scsiconf.h>
87 1.1 mycroft
88 1.1 mycroft #include <dev/ic/uhareg.h>
89 1.1 mycroft #include <dev/ic/uhavar.h>
90 1.1 mycroft
91 1.1 mycroft #ifndef DDB
92 1.5 jonathan #define Debugger() panic("should call debugger here (uha.c)")
93 1.1 mycroft #endif /* ! DDB */
94 1.1 mycroft
95 1.8 thorpej #define UHA_MAXXFER ((UHA_NSEG - 1) << PGSHIFT)
96 1.1 mycroft
97 1.4 mycroft integrate void uha_reset_mscp __P((struct uha_softc *, struct uha_mscp *));
98 1.1 mycroft void uha_free_mscp __P((struct uha_softc *, struct uha_mscp *));
99 1.10 thorpej integrate int uha_init_mscp __P((struct uha_softc *, struct uha_mscp *));
100 1.1 mycroft struct uha_mscp *uha_get_mscp __P((struct uha_softc *, int));
101 1.1 mycroft void uhaminphys __P((struct buf *));
102 1.9 bouyer int uha_scsi_cmd __P((struct scsipi_xfer *));
103 1.16 thorpej int uha_create_mscps __P((struct uha_softc *, struct uha_mscp *, int));
104 1.11 thorpej void uha_enqueue __P((struct uha_softc *, struct scsipi_xfer *, int));
105 1.11 thorpej struct scsipi_xfer *uha_dequeue __P((struct uha_softc *));
106 1.1 mycroft
107 1.9 bouyer struct scsipi_adapter uha_switch = {
108 1.1 mycroft uha_scsi_cmd,
109 1.1 mycroft uhaminphys,
110 1.1 mycroft 0,
111 1.1 mycroft 0,
112 1.1 mycroft };
113 1.1 mycroft
114 1.1 mycroft /* the below structure is so we have a default dev struct for out link struct */
115 1.9 bouyer struct scsipi_device uha_dev = {
116 1.1 mycroft NULL, /* Use default error handler */
117 1.1 mycroft NULL, /* have a queue, served by this */
118 1.1 mycroft NULL, /* have no async handler */
119 1.1 mycroft NULL, /* Use default 'done' routine */
120 1.1 mycroft };
121 1.1 mycroft
122 1.1 mycroft #define UHA_ABORT_TIMEOUT 2000 /* time to wait for abort (mSec) */
123 1.8 thorpej
124 1.1 mycroft /*
125 1.11 thorpej * Insert a scsipi_xfer into the software queue. We overload xs->free_list
126 1.11 thorpej * to avoid having to allocate additional resources (since we're used
127 1.11 thorpej * only during resource shortages anyhow.
128 1.11 thorpej */
129 1.11 thorpej void
130 1.11 thorpej uha_enqueue(sc, xs, infront)
131 1.11 thorpej struct uha_softc *sc;
132 1.11 thorpej struct scsipi_xfer *xs;
133 1.11 thorpej int infront;
134 1.11 thorpej {
135 1.11 thorpej
136 1.11 thorpej if (infront || sc->sc_queue.lh_first == NULL) {
137 1.11 thorpej if (sc->sc_queue.lh_first == NULL)
138 1.11 thorpej sc->sc_queuelast = xs;
139 1.11 thorpej LIST_INSERT_HEAD(&sc->sc_queue, xs, free_list);
140 1.11 thorpej return;
141 1.11 thorpej }
142 1.11 thorpej
143 1.11 thorpej LIST_INSERT_AFTER(sc->sc_queuelast, xs, free_list);
144 1.11 thorpej sc->sc_queuelast = xs;
145 1.11 thorpej }
146 1.11 thorpej
147 1.11 thorpej /*
148 1.11 thorpej * Pull a scsipi_xfer off the front of the software queue.
149 1.11 thorpej */
150 1.11 thorpej struct scsipi_xfer *
151 1.11 thorpej uha_dequeue(sc)
152 1.11 thorpej struct uha_softc *sc;
153 1.11 thorpej {
154 1.11 thorpej struct scsipi_xfer *xs;
155 1.11 thorpej
156 1.11 thorpej xs = sc->sc_queue.lh_first;
157 1.11 thorpej LIST_REMOVE(xs, free_list);
158 1.11 thorpej
159 1.11 thorpej if (sc->sc_queue.lh_first == NULL)
160 1.11 thorpej sc->sc_queuelast = NULL;
161 1.11 thorpej
162 1.11 thorpej return (xs);
163 1.11 thorpej }
164 1.11 thorpej
165 1.11 thorpej /*
166 1.1 mycroft * Attach all the sub-devices we can find
167 1.1 mycroft */
168 1.1 mycroft void
169 1.7 mycroft uha_attach(sc, upd)
170 1.1 mycroft struct uha_softc *sc;
171 1.7 mycroft struct uha_probe_data *upd;
172 1.1 mycroft {
173 1.16 thorpej bus_dma_segment_t seg;
174 1.16 thorpej int i, error, rseg;
175 1.1 mycroft
176 1.8 thorpej TAILQ_INIT(&sc->sc_free_mscp);
177 1.11 thorpej LIST_INIT(&sc->sc_queue);
178 1.8 thorpej
179 1.1 mycroft (sc->init)(sc);
180 1.1 mycroft
181 1.1 mycroft /*
182 1.9 bouyer * fill in the prototype scsipi_link.
183 1.1 mycroft */
184 1.9 bouyer sc->sc_link.scsipi_scsi.channel = SCSI_CHANNEL_ONLY_ONE;
185 1.1 mycroft sc->sc_link.adapter_softc = sc;
186 1.9 bouyer sc->sc_link.scsipi_scsi.adapter_target = upd->sc_scsi_dev;
187 1.1 mycroft sc->sc_link.adapter = &uha_switch;
188 1.1 mycroft sc->sc_link.device = &uha_dev;
189 1.1 mycroft sc->sc_link.openings = 2;
190 1.9 bouyer sc->sc_link.scsipi_scsi.max_target = 7;
191 1.9 bouyer sc->sc_link.type = BUS_SCSI;
192 1.1 mycroft
193 1.16 thorpej #define MSCPSIZE (UHA_MSCP_MAX * sizeof(struct uha_mscp))
194 1.16 thorpej
195 1.16 thorpej /*
196 1.16 thorpej * Allocate the MSCPs.
197 1.16 thorpej */
198 1.16 thorpej if ((error = bus_dmamem_alloc(sc->sc_dmat, MSCPSIZE,
199 1.16 thorpej NBPG, 0, &seg, 1, &rseg, BUS_DMA_NOWAIT)) != 0) {
200 1.16 thorpej printf("%s: unable to allocate mscps, error = %d\n",
201 1.16 thorpej sc->sc_dev.dv_xname, error);
202 1.16 thorpej return;
203 1.16 thorpej }
204 1.16 thorpej if ((error = bus_dmamem_map(sc->sc_dmat, &seg, rseg,
205 1.16 thorpej MSCPSIZE, (caddr_t *)&sc->sc_mscps,
206 1.16 thorpej BUS_DMA_NOWAIT|BUS_DMA_COHERENT)) != 0) {
207 1.16 thorpej printf("%s: unable to map mscps, error = %d\n",
208 1.16 thorpej sc->sc_dev.dv_xname, error);
209 1.16 thorpej return;
210 1.16 thorpej }
211 1.16 thorpej
212 1.16 thorpej /*
213 1.16 thorpej * Create and load the DMA map used for the mscps.
214 1.16 thorpej */
215 1.16 thorpej if ((error = bus_dmamap_create(sc->sc_dmat, MSCPSIZE,
216 1.16 thorpej 1, MSCPSIZE, 0, BUS_DMA_NOWAIT | sc->sc_dmaflags,
217 1.16 thorpej &sc->sc_dmamap_mscp)) != 0) {
218 1.16 thorpej printf("%s: unable to create mscp DMA map, error = %d\n",
219 1.16 thorpej sc->sc_dev.dv_xname, error);
220 1.16 thorpej return;
221 1.16 thorpej }
222 1.16 thorpej if ((error = bus_dmamap_load(sc->sc_dmat, sc->sc_dmamap_mscp,
223 1.16 thorpej sc->sc_mscps, MSCPSIZE, NULL, BUS_DMA_NOWAIT)) != 0) {
224 1.16 thorpej printf("%s: unable to load mscp DMA map, error = %d\n",
225 1.16 thorpej sc->sc_dev.dv_xname, error);
226 1.16 thorpej return;
227 1.16 thorpej }
228 1.16 thorpej
229 1.16 thorpej #undef MSCPSIZE
230 1.16 thorpej
231 1.16 thorpej /*
232 1.16 thorpej * Initialize the mscps.
233 1.16 thorpej */
234 1.16 thorpej i = uha_create_mscps(sc, sc->sc_mscps, UHA_MSCP_MAX);
235 1.16 thorpej if (i == 0) {
236 1.16 thorpej printf("%s: unable to create mscps\n",
237 1.16 thorpej sc->sc_dev.dv_xname);
238 1.16 thorpej return;
239 1.16 thorpej } else if (i != UHA_MSCP_MAX) {
240 1.16 thorpej printf("%s: WARNING: only %d of %d mscps created\n",
241 1.16 thorpej sc->sc_dev.dv_xname, i, UHA_MSCP_MAX);
242 1.16 thorpej }
243 1.16 thorpej
244 1.1 mycroft /*
245 1.1 mycroft * ask the adapter what subunits are present
246 1.1 mycroft */
247 1.1 mycroft config_found(&sc->sc_dev, &sc->sc_link, scsiprint);
248 1.1 mycroft }
249 1.1 mycroft
250 1.1 mycroft integrate void
251 1.1 mycroft uha_reset_mscp(sc, mscp)
252 1.1 mycroft struct uha_softc *sc;
253 1.1 mycroft struct uha_mscp *mscp;
254 1.1 mycroft {
255 1.1 mycroft
256 1.1 mycroft mscp->flags = 0;
257 1.1 mycroft }
258 1.1 mycroft
259 1.1 mycroft /*
260 1.1 mycroft * A mscp (and hence a mbx-out) is put onto the free list.
261 1.1 mycroft */
262 1.1 mycroft void
263 1.1 mycroft uha_free_mscp(sc, mscp)
264 1.1 mycroft struct uha_softc *sc;
265 1.1 mycroft struct uha_mscp *mscp;
266 1.1 mycroft {
267 1.1 mycroft int s;
268 1.1 mycroft
269 1.1 mycroft s = splbio();
270 1.1 mycroft
271 1.1 mycroft uha_reset_mscp(sc, mscp);
272 1.1 mycroft TAILQ_INSERT_HEAD(&sc->sc_free_mscp, mscp, chain);
273 1.1 mycroft
274 1.1 mycroft /*
275 1.1 mycroft * If there were none, wake anybody waiting for one to come free,
276 1.1 mycroft * starting with queued entries.
277 1.1 mycroft */
278 1.1 mycroft if (mscp->chain.tqe_next == 0)
279 1.1 mycroft wakeup(&sc->sc_free_mscp);
280 1.1 mycroft
281 1.1 mycroft splx(s);
282 1.1 mycroft }
283 1.1 mycroft
284 1.10 thorpej integrate int
285 1.1 mycroft uha_init_mscp(sc, mscp)
286 1.1 mycroft struct uha_softc *sc;
287 1.1 mycroft struct uha_mscp *mscp;
288 1.1 mycroft {
289 1.8 thorpej bus_dma_tag_t dmat = sc->sc_dmat;
290 1.10 thorpej int hashnum, error;
291 1.1 mycroft
292 1.8 thorpej /*
293 1.16 thorpej * Create the DMA map for this MSCP.
294 1.8 thorpej */
295 1.10 thorpej error = bus_dmamap_create(dmat, UHA_MAXXFER, UHA_NSEG, UHA_MAXXFER,
296 1.8 thorpej 0, BUS_DMA_NOWAIT|BUS_DMA_ALLOCNOW | sc->sc_dmaflags,
297 1.10 thorpej &mscp->dmamap_xfer);
298 1.10 thorpej if (error) {
299 1.16 thorpej printf("%s: can't create mscp DMA map, error = %d\n",
300 1.16 thorpej sc->sc_dev.dv_xname, error);
301 1.10 thorpej return (error);
302 1.10 thorpej }
303 1.8 thorpej
304 1.1 mycroft /*
305 1.1 mycroft * put in the phystokv hash table
306 1.1 mycroft * Never gets taken out.
307 1.1 mycroft */
308 1.16 thorpej mscp->hashkey = sc->sc_dmamap_mscp->dm_segs[0].ds_addr +
309 1.16 thorpej UHA_MSCP_OFF(mscp);
310 1.1 mycroft hashnum = MSCP_HASH(mscp->hashkey);
311 1.1 mycroft mscp->nexthash = sc->sc_mscphash[hashnum];
312 1.1 mycroft sc->sc_mscphash[hashnum] = mscp;
313 1.1 mycroft uha_reset_mscp(sc, mscp);
314 1.10 thorpej return (0);
315 1.1 mycroft }
316 1.1 mycroft
317 1.1 mycroft /*
318 1.8 thorpej * Create a set of MSCPs and add them to the free list.
319 1.8 thorpej */
320 1.8 thorpej int
321 1.16 thorpej uha_create_mscps(sc, mscpstore, count)
322 1.8 thorpej struct uha_softc *sc;
323 1.16 thorpej struct uha_mscp *mscpstore;
324 1.16 thorpej int count;
325 1.8 thorpej {
326 1.8 thorpej struct uha_mscp *mscp;
327 1.16 thorpej int i, error;
328 1.8 thorpej
329 1.16 thorpej bzero(mscpstore, sizeof(struct uha_mscp) * count);
330 1.16 thorpej for (i = 0; i < count; i++) {
331 1.16 thorpej mscp = &mscpstore[i];
332 1.16 thorpej if ((error = uha_init_mscp(sc, mscp)) != 0) {
333 1.16 thorpej printf("%s: unable to initialize mscp, error = %d\n",
334 1.16 thorpej sc->sc_dev.dv_xname, error);
335 1.16 thorpej goto out;
336 1.10 thorpej }
337 1.8 thorpej TAILQ_INSERT_TAIL(&sc->sc_free_mscp, mscp, chain);
338 1.8 thorpej }
339 1.16 thorpej out:
340 1.16 thorpej return (i);
341 1.8 thorpej }
342 1.8 thorpej
343 1.8 thorpej /*
344 1.1 mycroft * Get a free mscp
345 1.1 mycroft *
346 1.1 mycroft * If there are none, see if we can allocate a new one. If so, put it in the
347 1.1 mycroft * hash table too otherwise either return an error or sleep.
348 1.1 mycroft */
349 1.1 mycroft struct uha_mscp *
350 1.1 mycroft uha_get_mscp(sc, flags)
351 1.1 mycroft struct uha_softc *sc;
352 1.1 mycroft int flags;
353 1.1 mycroft {
354 1.1 mycroft struct uha_mscp *mscp;
355 1.1 mycroft int s;
356 1.1 mycroft
357 1.1 mycroft s = splbio();
358 1.1 mycroft
359 1.1 mycroft /*
360 1.1 mycroft * If we can and have to, sleep waiting for one to come free
361 1.1 mycroft * but only if we can't allocate a new one
362 1.1 mycroft */
363 1.1 mycroft for (;;) {
364 1.1 mycroft mscp = sc->sc_free_mscp.tqh_first;
365 1.1 mycroft if (mscp) {
366 1.1 mycroft TAILQ_REMOVE(&sc->sc_free_mscp, mscp, chain);
367 1.1 mycroft break;
368 1.1 mycroft }
369 1.1 mycroft if ((flags & SCSI_NOSLEEP) != 0)
370 1.1 mycroft goto out;
371 1.1 mycroft tsleep(&sc->sc_free_mscp, PRIBIO, "uhamsc", 0);
372 1.1 mycroft }
373 1.1 mycroft
374 1.1 mycroft mscp->flags |= MSCP_ALLOC;
375 1.1 mycroft
376 1.1 mycroft out:
377 1.1 mycroft splx(s);
378 1.1 mycroft return (mscp);
379 1.1 mycroft }
380 1.1 mycroft
381 1.1 mycroft /*
382 1.1 mycroft * given a physical address, find the mscp that it corresponds to.
383 1.1 mycroft */
384 1.1 mycroft struct uha_mscp *
385 1.1 mycroft uha_mscp_phys_kv(sc, mscp_phys)
386 1.1 mycroft struct uha_softc *sc;
387 1.1 mycroft u_long mscp_phys;
388 1.1 mycroft {
389 1.1 mycroft int hashnum = MSCP_HASH(mscp_phys);
390 1.1 mycroft struct uha_mscp *mscp = sc->sc_mscphash[hashnum];
391 1.1 mycroft
392 1.1 mycroft while (mscp) {
393 1.1 mycroft if (mscp->hashkey == mscp_phys)
394 1.1 mycroft break;
395 1.1 mycroft mscp = mscp->nexthash;
396 1.1 mycroft }
397 1.1 mycroft return (mscp);
398 1.1 mycroft }
399 1.1 mycroft
400 1.1 mycroft /*
401 1.1 mycroft * We have a mscp which has been processed by the adaptor, now we look to see
402 1.1 mycroft * how the operation went.
403 1.1 mycroft */
404 1.1 mycroft void
405 1.1 mycroft uha_done(sc, mscp)
406 1.1 mycroft struct uha_softc *sc;
407 1.1 mycroft struct uha_mscp *mscp;
408 1.1 mycroft {
409 1.8 thorpej bus_dma_tag_t dmat = sc->sc_dmat;
410 1.9 bouyer struct scsipi_sense_data *s1, *s2;
411 1.9 bouyer struct scsipi_xfer *xs = mscp->xs;
412 1.1 mycroft
413 1.1 mycroft SC_DEBUG(xs->sc_link, SDEV_DB2, ("uha_done\n"));
414 1.8 thorpej
415 1.16 thorpej bus_dmamap_sync(dmat, sc->sc_dmamap_mscp,
416 1.16 thorpej UHA_MSCP_OFF(mscp), sizeof(struct uha_mscp),
417 1.16 thorpej BUS_DMASYNC_POSTREAD|BUS_DMASYNC_POSTWRITE);
418 1.16 thorpej
419 1.8 thorpej /*
420 1.8 thorpej * If we were a data transfer, unload the map that described
421 1.8 thorpej * the data buffer.
422 1.8 thorpej */
423 1.8 thorpej if (xs->datalen) {
424 1.15 thorpej bus_dmamap_sync(dmat, mscp->dmamap_xfer, 0,
425 1.15 thorpej mscp->dmamap_xfer->dm_mapsize,
426 1.8 thorpej (xs->flags & SCSI_DATA_IN) ? BUS_DMASYNC_POSTREAD :
427 1.8 thorpej BUS_DMASYNC_POSTWRITE);
428 1.8 thorpej bus_dmamap_unload(dmat, mscp->dmamap_xfer);
429 1.8 thorpej }
430 1.8 thorpej
431 1.1 mycroft /*
432 1.1 mycroft * Otherwise, put the results of the operation
433 1.1 mycroft * into the xfer and call whoever started it
434 1.1 mycroft */
435 1.1 mycroft if ((mscp->flags & MSCP_ALLOC) == 0) {
436 1.3 christos printf("%s: exiting ccb not allocated!\n", sc->sc_dev.dv_xname);
437 1.1 mycroft Debugger();
438 1.1 mycroft return;
439 1.1 mycroft }
440 1.1 mycroft if (xs->error == XS_NOERROR) {
441 1.1 mycroft if (mscp->host_stat != UHA_NO_ERR) {
442 1.1 mycroft switch (mscp->host_stat) {
443 1.1 mycroft case UHA_SBUS_TIMEOUT: /* No response */
444 1.1 mycroft xs->error = XS_SELTIMEOUT;
445 1.1 mycroft break;
446 1.1 mycroft default: /* Other scsi protocol messes */
447 1.3 christos printf("%s: host_stat %x\n",
448 1.1 mycroft sc->sc_dev.dv_xname, mscp->host_stat);
449 1.1 mycroft xs->error = XS_DRIVER_STUFFUP;
450 1.1 mycroft }
451 1.1 mycroft } else if (mscp->target_stat != SCSI_OK) {
452 1.1 mycroft switch (mscp->target_stat) {
453 1.1 mycroft case SCSI_CHECK:
454 1.1 mycroft s1 = &mscp->mscp_sense;
455 1.9 bouyer s2 = &xs->sense.scsi_sense;
456 1.1 mycroft *s2 = *s1;
457 1.1 mycroft xs->error = XS_SENSE;
458 1.1 mycroft break;
459 1.1 mycroft case SCSI_BUSY:
460 1.1 mycroft xs->error = XS_BUSY;
461 1.1 mycroft break;
462 1.1 mycroft default:
463 1.3 christos printf("%s: target_stat %x\n",
464 1.1 mycroft sc->sc_dev.dv_xname, mscp->target_stat);
465 1.1 mycroft xs->error = XS_DRIVER_STUFFUP;
466 1.1 mycroft }
467 1.1 mycroft } else
468 1.1 mycroft xs->resid = 0;
469 1.1 mycroft }
470 1.1 mycroft uha_free_mscp(sc, mscp);
471 1.1 mycroft xs->flags |= ITSDONE;
472 1.9 bouyer scsipi_done(xs);
473 1.11 thorpej
474 1.11 thorpej /*
475 1.11 thorpej * If there are queue entries in the software queue, try to
476 1.11 thorpej * run the first one. We should be more or less guaranteed
477 1.11 thorpej * to succeed, since we just freed an MSCP.
478 1.11 thorpej *
479 1.11 thorpej * NOTE: uha_scsi_cmd() relies on our calling it with
480 1.11 thorpej * the first entry in the queue.
481 1.11 thorpej */
482 1.11 thorpej if ((xs = sc->sc_queue.lh_first) != NULL)
483 1.11 thorpej (void) uha_scsi_cmd(xs);
484 1.1 mycroft }
485 1.1 mycroft
486 1.1 mycroft void
487 1.1 mycroft uhaminphys(bp)
488 1.1 mycroft struct buf *bp;
489 1.1 mycroft {
490 1.1 mycroft
491 1.8 thorpej if (bp->b_bcount > UHA_MAXXFER)
492 1.8 thorpej bp->b_bcount = UHA_MAXXFER;
493 1.1 mycroft minphys(bp);
494 1.1 mycroft }
495 1.1 mycroft
496 1.1 mycroft /*
497 1.1 mycroft * start a scsi operation given the command and the data address. Also
498 1.1 mycroft * needs the unit, target and lu.
499 1.1 mycroft */
500 1.1 mycroft int
501 1.1 mycroft uha_scsi_cmd(xs)
502 1.9 bouyer struct scsipi_xfer *xs;
503 1.1 mycroft {
504 1.9 bouyer struct scsipi_link *sc_link = xs->sc_link;
505 1.1 mycroft struct uha_softc *sc = sc_link->adapter_softc;
506 1.8 thorpej bus_dma_tag_t dmat = sc->sc_dmat;
507 1.1 mycroft struct uha_mscp *mscp;
508 1.1 mycroft struct uha_dma_seg *sg;
509 1.8 thorpej int error, seg, flags, s;
510 1.11 thorpej int fromqueue = 0, dontqueue = 0;
511 1.1 mycroft
512 1.1 mycroft SC_DEBUG(sc_link, SDEV_DB2, ("uha_scsi_cmd\n"));
513 1.11 thorpej
514 1.11 thorpej s = splbio(); /* protect the queue */
515 1.11 thorpej
516 1.11 thorpej /*
517 1.11 thorpej * If we're running the queue from bha_done(), we've been
518 1.11 thorpej * called with the first queue entry as our argument.
519 1.11 thorpej */
520 1.11 thorpej if (xs == sc->sc_queue.lh_first) {
521 1.11 thorpej xs = uha_dequeue(sc);
522 1.11 thorpej fromqueue = 1;
523 1.11 thorpej goto get_mscp;
524 1.11 thorpej }
525 1.11 thorpej
526 1.11 thorpej /* Polled requests can't be queued for later. */
527 1.11 thorpej dontqueue = xs->flags & SCSI_POLL;
528 1.11 thorpej
529 1.11 thorpej /*
530 1.11 thorpej * If there are jobs in the queue, run them first.
531 1.11 thorpej */
532 1.11 thorpej if (sc->sc_queue.lh_first != NULL) {
533 1.11 thorpej /*
534 1.11 thorpej * If we can't queue, we have to abort, since
535 1.11 thorpej * we have to preserve order.
536 1.11 thorpej */
537 1.11 thorpej if (dontqueue) {
538 1.11 thorpej splx(s);
539 1.11 thorpej xs->error = XS_DRIVER_STUFFUP;
540 1.11 thorpej return (TRY_AGAIN_LATER);
541 1.11 thorpej }
542 1.11 thorpej
543 1.11 thorpej /*
544 1.11 thorpej * Swap with the first queue entry.
545 1.11 thorpej */
546 1.11 thorpej uha_enqueue(sc, xs, 0);
547 1.11 thorpej xs = uha_dequeue(sc);
548 1.11 thorpej fromqueue = 1;
549 1.11 thorpej }
550 1.11 thorpej
551 1.11 thorpej get_mscp:
552 1.1 mycroft /*
553 1.1 mycroft * get a mscp (mbox-out) to use. If the transfer
554 1.1 mycroft * is from a buf (possibly from interrupt time)
555 1.1 mycroft * then we can't allow it to sleep
556 1.1 mycroft */
557 1.1 mycroft flags = xs->flags;
558 1.1 mycroft if ((mscp = uha_get_mscp(sc, flags)) == NULL) {
559 1.11 thorpej /*
560 1.11 thorpej * If we can't queue, we lose.
561 1.11 thorpej */
562 1.11 thorpej if (dontqueue) {
563 1.11 thorpej splx(s);
564 1.11 thorpej xs->error = XS_DRIVER_STUFFUP;
565 1.11 thorpej return (TRY_AGAIN_LATER);
566 1.11 thorpej }
567 1.11 thorpej
568 1.11 thorpej /*
569 1.11 thorpej * Stuff ourselves into the queue, in front
570 1.11 thorpej * if we came off in the first place.
571 1.11 thorpej */
572 1.11 thorpej uha_enqueue(sc, xs, fromqueue);
573 1.11 thorpej splx(s);
574 1.11 thorpej return (SUCCESSFULLY_QUEUED);
575 1.1 mycroft }
576 1.11 thorpej
577 1.11 thorpej splx(s); /* done playing with the queue */
578 1.11 thorpej
579 1.1 mycroft mscp->xs = xs;
580 1.1 mycroft mscp->timeout = xs->timeout;
581 1.1 mycroft
582 1.1 mycroft /*
583 1.1 mycroft * Put all the arguments for the xfer in the mscp
584 1.1 mycroft */
585 1.1 mycroft if (flags & SCSI_RESET) {
586 1.1 mycroft mscp->opcode = UHA_SDR;
587 1.1 mycroft mscp->ca = 0x01;
588 1.1 mycroft } else {
589 1.1 mycroft mscp->opcode = UHA_TSP;
590 1.1 mycroft /* XXX Not for tapes. */
591 1.1 mycroft mscp->ca = 0x01;
592 1.1 mycroft bcopy(xs->cmd, &mscp->scsi_cmd, mscp->scsi_cmd_length);
593 1.1 mycroft }
594 1.1 mycroft mscp->xdir = UHA_SDET;
595 1.1 mycroft mscp->dcn = 0x00;
596 1.1 mycroft mscp->chan = 0x00;
597 1.9 bouyer mscp->target = sc_link->scsipi_scsi.target;
598 1.9 bouyer mscp->lun = sc_link->scsipi_scsi.lun;
599 1.1 mycroft mscp->scsi_cmd_length = xs->cmdlen;
600 1.16 thorpej mscp->sense_ptr = sc->sc_dmamap_mscp->dm_segs[0].ds_addr +
601 1.16 thorpej UHA_MSCP_OFF(mscp) + offsetof(struct uha_mscp, mscp_sense);
602 1.1 mycroft mscp->req_sense_length = sizeof(mscp->mscp_sense);
603 1.1 mycroft mscp->host_stat = 0x00;
604 1.1 mycroft mscp->target_stat = 0x00;
605 1.1 mycroft
606 1.1 mycroft if (xs->datalen) {
607 1.1 mycroft sg = mscp->uha_dma;
608 1.1 mycroft seg = 0;
609 1.1 mycroft #ifdef TFS
610 1.1 mycroft if (flags & SCSI_DATA_UIO) {
611 1.8 thorpej error = bus_dmamap_load_uio(dmat,
612 1.8 thorpej mscp->dmamap_xfer, (struct uio *)xs->data,
613 1.8 thorpej (flags & SCSI_NOSLEEP) ? BUS_DMA_NOWAIT :
614 1.8 thorpej BUS_DMA_WAITOK);
615 1.1 mycroft } else
616 1.1 mycroft #endif /*TFS */
617 1.1 mycroft {
618 1.8 thorpej error = bus_dmamap_load(dmat,
619 1.8 thorpej mscp->dmamap_xfer, xs->data, xs->datalen, NULL,
620 1.8 thorpej (flags & SCSI_NOSLEEP) ? BUS_DMA_NOWAIT :
621 1.8 thorpej BUS_DMA_WAITOK);
622 1.8 thorpej }
623 1.8 thorpej
624 1.8 thorpej if (error) {
625 1.8 thorpej if (error == EFBIG) {
626 1.8 thorpej printf("%s: uha_scsi_cmd, more than %d"
627 1.8 thorpej " dma segments\n",
628 1.8 thorpej sc->sc_dev.dv_xname, UHA_NSEG);
629 1.8 thorpej } else {
630 1.8 thorpej printf("%s: uha_scsi_cmd, error %d loading"
631 1.8 thorpej " dma map\n",
632 1.8 thorpej sc->sc_dev.dv_xname, error);
633 1.1 mycroft }
634 1.8 thorpej goto bad;
635 1.1 mycroft }
636 1.8 thorpej
637 1.15 thorpej bus_dmamap_sync(dmat, mscp->dmamap_xfer, 0,
638 1.15 thorpej mscp->dmamap_xfer->dm_mapsize,
639 1.8 thorpej (flags & SCSI_DATA_IN) ? BUS_DMASYNC_PREREAD :
640 1.8 thorpej BUS_DMASYNC_PREWRITE);
641 1.8 thorpej
642 1.8 thorpej /*
643 1.8 thorpej * Load the hardware scatter/gather map with the
644 1.8 thorpej * contents of the DMA map.
645 1.8 thorpej */
646 1.8 thorpej for (seg = 0; seg < mscp->dmamap_xfer->dm_nsegs; seg++) {
647 1.8 thorpej mscp->uha_dma[seg].seg_addr =
648 1.8 thorpej mscp->dmamap_xfer->dm_segs[seg].ds_addr;
649 1.8 thorpej mscp->uha_dma[seg].seg_len =
650 1.8 thorpej mscp->dmamap_xfer->dm_segs[seg].ds_len;
651 1.1 mycroft }
652 1.8 thorpej
653 1.16 thorpej mscp->data_addr = sc->sc_dmamap_mscp->dm_segs[0].ds_addr +
654 1.16 thorpej UHA_MSCP_OFF(mscp) + offsetof(struct uha_mscp, uha_dma);
655 1.1 mycroft mscp->data_length = xs->datalen;
656 1.1 mycroft mscp->sgth = 0x01;
657 1.1 mycroft mscp->sg_num = seg;
658 1.1 mycroft } else { /* No data xfer, use non S/G values */
659 1.1 mycroft mscp->data_addr = (physaddr)0;
660 1.1 mycroft mscp->data_length = 0;
661 1.1 mycroft mscp->sgth = 0x00;
662 1.1 mycroft mscp->sg_num = 0;
663 1.1 mycroft }
664 1.1 mycroft mscp->link_id = 0;
665 1.1 mycroft mscp->link_addr = (physaddr)0;
666 1.16 thorpej
667 1.16 thorpej bus_dmamap_sync(sc->sc_dmat, sc->sc_dmamap_mscp,
668 1.16 thorpej UHA_MSCP_OFF(mscp), sizeof(struct uha_mscp),
669 1.16 thorpej BUS_DMASYNC_PREREAD|BUS_DMASYNC_PREWRITE);
670 1.1 mycroft
671 1.1 mycroft s = splbio();
672 1.1 mycroft (sc->start_mbox)(sc, mscp);
673 1.1 mycroft splx(s);
674 1.1 mycroft
675 1.1 mycroft /*
676 1.1 mycroft * Usually return SUCCESSFULLY QUEUED
677 1.1 mycroft */
678 1.1 mycroft if ((flags & SCSI_POLL) == 0)
679 1.1 mycroft return (SUCCESSFULLY_QUEUED);
680 1.1 mycroft
681 1.1 mycroft /*
682 1.1 mycroft * If we can't use interrupts, poll on completion
683 1.1 mycroft */
684 1.1 mycroft if ((sc->poll)(sc, xs, mscp->timeout)) {
685 1.1 mycroft uha_timeout(mscp);
686 1.1 mycroft if ((sc->poll)(sc, xs, mscp->timeout))
687 1.1 mycroft uha_timeout(mscp);
688 1.1 mycroft }
689 1.1 mycroft return (COMPLETE);
690 1.1 mycroft
691 1.1 mycroft bad:
692 1.1 mycroft xs->error = XS_DRIVER_STUFFUP;
693 1.1 mycroft uha_free_mscp(sc, mscp);
694 1.1 mycroft return (COMPLETE);
695 1.1 mycroft }
696 1.1 mycroft
697 1.1 mycroft void
698 1.1 mycroft uha_timeout(arg)
699 1.1 mycroft void *arg;
700 1.1 mycroft {
701 1.1 mycroft struct uha_mscp *mscp = arg;
702 1.9 bouyer struct scsipi_xfer *xs = mscp->xs;
703 1.9 bouyer struct scsipi_link *sc_link = xs->sc_link;
704 1.1 mycroft struct uha_softc *sc = sc_link->adapter_softc;
705 1.1 mycroft int s;
706 1.1 mycroft
707 1.9 bouyer scsi_print_addr(sc_link);
708 1.3 christos printf("timed out");
709 1.1 mycroft
710 1.1 mycroft s = splbio();
711 1.1 mycroft
712 1.1 mycroft if (mscp->flags & MSCP_ABORT) {
713 1.1 mycroft /* abort timed out */
714 1.3 christos printf(" AGAIN\n");
715 1.1 mycroft /* XXX Must reset! */
716 1.1 mycroft } else {
717 1.1 mycroft /* abort the operation that has timed out */
718 1.3 christos printf("\n");
719 1.1 mycroft mscp->xs->error = XS_TIMEOUT;
720 1.1 mycroft mscp->timeout = UHA_ABORT_TIMEOUT;
721 1.1 mycroft mscp->flags |= MSCP_ABORT;
722 1.1 mycroft (sc->start_mbox)(sc, mscp);
723 1.1 mycroft }
724 1.1 mycroft
725 1.1 mycroft splx(s);
726 1.1 mycroft }
727