/* fc.c: Generic Fibre Channel and FC4 SCSI driver. * * Copyright (C) 1997,1998,1999 Jakub Jelinek (jj@ultra.linux.cz) * Copyright (C) 1997,1998 Jirka Hanika (geo@ff.cuni.cz) * * There are two kinds of Fibre Channel adapters used in Linux. Either * the adapter is "smart" and does all FC bookkeeping by itself and * just presents a standard SCSI interface to the operating system * (that's e.g. the case with Qlogic FC cards), or leaves most of the FC * bookkeeping to the OS (e.g. soc, socal). Drivers for the former adapters * will look like normal SCSI drivers (with the exception of max_id will be * usually 127), the latter on the other side allows SCSI, IP over FC and other * protocols. This driver tree is for the latter adapters. * * This file should support both Point-to-Point and Arbitrated Loop topologies. * * Sources: *	Fibre Channel Physical & Signaling Interface (FC-PH), dpANS, 1994 *	dpANS Fibre Channel Protocol for SCSI (X3.269-199X), Rev. 012, 1995 *	Fibre Channel Arbitrated Loop (FC-AL), Rev. 4.5, 1995 *	Fibre Channel Private Loop SCSI Direct Attach (FC-PLDA), Rev. 2.1, 1997 */#include <linux/module.h>#include <linux/kernel.h>#include <linux/jiffies.h>#include <linux/types.h>#include <linux/fcntl.h>#include <linux/interrupt.h>#include <linux/ptrace.h>#include <linux/ioport.h>#include <linux/in.h>#include <linux/slab.h>#include <linux/string.h>#include <linux/init.h>#include <asm/pgtable.h>#include <asm/irq.h>#include <asm/semaphore.h>#include "fcp_impl.h"#include <scsi/scsi_host.h>/* #define FCDEBUG */#define fc_printk printk ("%s: ", fc->name); printk #ifdef FCDEBUG#define FCD(x)  fc_printk x;#define FCND(x)	printk ("FC: "); printk x;#else#define FCD(x)#define FCND(x)#endif#ifdef __sparc__#define dma_alloc_consistent(d,s,p) sbus_alloc_consistent(d,s,p)#define dma_free_consistent(d,s,v,h) sbus_free_consistent(d,s,v,h)#define dma_map_single(d,v,s,dir) sbus_map_single(d,v,s,dir)#define dma_unmap_single(d,h,s,dir) sbus_unmap_single(d,h,s,dir)#define dma_map_sg(d,s,n,dir) sbus_map_sg(d,s,n,dir)#define dma_unmap_sg(d,s,n,dir) sbus_unmap_sg(d,s,n,dir)#else#define dma_alloc_consistent(d,s,p) pci_alloc_consistent(d,s,p)#define dma_free_consistent(d,s,v,h) pci_free_consistent(d,s,v,h)#define dma_map_single(d,v,s,dir) pci_map_single(d,v,s,dir)#define dma_unmap_single(d,h,s,dir) pci_unmap_single(d,h,s,dir)#define dma_map_sg(d,s,n,dir) pci_map_sg(d,s,n,dir)#define dma_unmap_sg(d,s,n,dir) pci_unmap_sg(d,s,n,dir)#endif							       #define FCP_CMND(SCpnt) ((fcp_cmnd *)&(SCpnt->SCp))#define FC_SCMND(SCpnt) ((fc_channel *)(SCpnt->device->host->hostdata[0]))#define SC_FCMND(fcmnd) ((Scsi_Cmnd *)((long)fcmnd - (long)&(((Scsi_Cmnd *)0)->SCp)))static int fcp_scsi_queue_it(fc_channel *, Scsi_Cmnd *, fcp_cmnd *, int);void fcp_queue_empty(fc_channel *);static void fcp_scsi_insert_queue (fc_channel *fc, fcp_cmnd *fcmd){	if (!fc->scsi_que) {		fc->scsi_que = fcmd;		fcmd->next = fcmd;		fcmd->prev = fcmd;	} else {		fc->scsi_que->prev->next = fcmd;		fcmd->prev = fc->scsi_que->prev;		fc->scsi_que->prev = fcmd;		fcmd->next = fc->scsi_que;	}}static void fcp_scsi_remove_queue (fc_channel *fc, fcp_cmnd *fcmd){	if (fcmd == fcmd->next) {		fc->scsi_que = NULL;		return;	}	if (fcmd == fc->scsi_que)		fc->scsi_que = fcmd->next;	fcmd->prev->next = fcmd->next;	fcmd->next->prev = fcmd->prev;}fc_channel *fc_channels = NULL;#define LSMAGIC	620829043typedef struct {	/* Must be first */	struct semaphore sem;	int magic;	int count;	logi *logi;	fcp_cmnd *fcmds;	atomic_t todo;	struct timer_list timer;	unsigned char grace[0];} ls;#define LSOMAGIC 654907799typedef struct {	/* Must be first */	struct semaphore sem;	int magic;	int count;	fcp_cmnd *fcmds;	atomic_t todo;	struct timer_list timer;} lso;#define LSEMAGIC 84482456typedef struct {	/* Must be first */	struct semaphore sem;	int magic;	int status;	struct timer_list timer;} lse;static void fcp_login_timeout(unsigned long data){	ls *l = (ls *)data;	FCND(("Login timeout\n"))	up(&l->sem);}static void fcp_login_done(fc_channel *fc, int i, int status){	fcp_cmnd *fcmd;	logi *plogi;	fc_hdr *fch;	ls *l = (ls *)fc->ls;		FCD(("Login done %d %d\n", i, status))	if (i < l->count) {		if (fc->state == FC_STATE_FPORT_OK) {			FCD(("Additional FPORT_OK received with status %d\n", status))			return;		}		switch (status) {		case FC_STATUS_OK: /* Oh, we found a fabric */		case FC_STATUS_P_RJT: /* Oh, we haven't found any */			fc->state = FC_STATE_FPORT_OK;			fcmd = l->fcmds + i;			plogi = l->logi + 3 * i;			dma_unmap_single (fc->dev, fcmd->cmd, 3 * sizeof(logi),					  DMA_BIDIRECTIONAL);			plogi->code = LS_PLOGI;			memcpy (&plogi->nport_wwn, &fc->wwn_nport, sizeof(fc_wwn));			memcpy (&plogi->node_wwn, &fc->wwn_node, sizeof(fc_wwn));			memcpy (&plogi->common, fc->common_svc, sizeof(common_svc_parm));			memcpy (&plogi->class1, fc->class_svcs, 3*sizeof(svc_parm));			fch = &fcmd->fch;			fcmd->token += l->count;			FILL_FCHDR_RCTL_DID(fch, R_CTL_ELS_REQ, fc->did);			FILL_FCHDR_SID(fch, fc->sid);#ifdef FCDEBUG			{				int i;				unsigned *x = (unsigned *)plogi;				printk ("logi: ");				for (i = 0; i < 21; i++)					printk ("%08x ", x[i]);				printk ("\n");			}#endif						fcmd->cmd = dma_map_single (fc->dev, plogi, 3 * sizeof(logi),						    DMA_BIDIRECTIONAL);			fcmd->rsp = fcmd->cmd + 2 * sizeof(logi);			if (fc->hw_enque (fc, fcmd))				printk ("FC: Cannot enque PLOGI packet on %s\n", fc->name);			break;		case FC_STATUS_ERR_OFFLINE:			fc->state = FC_STATE_MAYBEOFFLINE;			FCD (("FC is offline %d\n", l->grace[i]))			break;		default:			printk ("FLOGI failed for %s with status %d\n", fc->name, status);			/* Do some sort of error recovery here */			break;		}	} else {		i -= l->count;		if (fc->state != FC_STATE_FPORT_OK) {			FCD(("Unexpected N-PORT rsp received"))			return;		}		switch (status) {		case FC_STATUS_OK:			plogi = l->logi + 3 * i;			dma_unmap_single (fc->dev, l->fcmds[i].cmd, 3 * sizeof(logi),					  DMA_BIDIRECTIONAL);			if (!fc->wwn_dest.lo && !fc->wwn_dest.hi) {				memcpy (&fc->wwn_dest, &plogi[1].node_wwn, sizeof(fc_wwn)); 				FCD(("Dest WWN %08x%08x\n", *(u32 *)&fc->wwn_dest, fc->wwn_dest.lo))			} else if (fc->wwn_dest.lo != plogi[1].node_wwn.lo ||				   fc->wwn_dest.hi != plogi[1].node_wwn.hi) {				printk ("%s: mismatch in wwns. Got %08x%08x, expected %08x%08x\n",					fc->name,					*(u32 *)&plogi[1].node_wwn, plogi[1].node_wwn.lo,					*(u32 *)&fc->wwn_dest, fc->wwn_dest.lo);			}			fc->state = FC_STATE_ONLINE;			printk ("%s: ONLINE\n", fc->name);			if (atomic_dec_and_test (&l->todo))				up(&l->sem);			break;		case FC_STATUS_ERR_OFFLINE:			fc->state = FC_STATE_OFFLINE;			dma_unmap_single (fc->dev, l->fcmds[i].cmd, 3 * sizeof(logi),					  DMA_BIDIRECTIONAL);			printk ("%s: FC is offline\n", fc->name);			if (atomic_dec_and_test (&l->todo))				up(&l->sem);			break;		default:			printk ("PLOGI failed for %s with status %d\n", fc->name, status);			/* Do some sort of error recovery here */			break;		}	}}static void fcp_report_map_done(fc_channel *fc, int i, int status){	fcp_cmnd *fcmd;	fc_hdr *fch;	unsigned char j;	ls *l = (ls *)fc->ls;	fc_al_posmap *p;		FCD(("Report map done %d %d\n", i, status))	switch (status) {	case FC_STATUS_OK: /* Ok, let's have a fun on a loop */		dma_unmap_single (fc->dev, l->fcmds[i].cmd, 3 * sizeof(logi),				  DMA_BIDIRECTIONAL);		p = (fc_al_posmap *)(l->logi + 3 * i);#ifdef FCDEBUG		{		u32 *u = (u32 *)p;		FCD(("%08x\n", u[0]))		u ++;		FCD(("%08x.%08x.%08x.%08x.%08x.%08x.%08x.%08x\n", u[0],u[1],u[2],u[3],u[4],u[5],u[6],u[7]))		}#endif				if ((p->magic & 0xffff0000) != FC_AL_LILP || !p->len) {			printk ("FC: Bad magic from REPORT_AL_MAP on %s - %08x\n", fc->name, p->magic);			fc->state = FC_STATE_OFFLINE;		} else {			fc->posmap = (fcp_posmap *)kmalloc(sizeof(fcp_posmap)+p->len, GFP_KERNEL);			if (!fc->posmap) {				printk("FC: Not enough memory, offlining channel\n");				fc->state = FC_STATE_OFFLINE;			} else {				int k;				memset(fc->posmap, 0, sizeof(fcp_posmap)+p->len);				/* FIXME: This is where SOCAL transfers our AL-PA.				   Keep it here till we found out what other cards do... */				fc->sid = (p->magic & 0xff);				for (i = 0; i < p->len; i++)					if (p->alpa[i] == fc->sid)						break;				k = p->len;				if (i == p->len)					i = 0;				else {					p->len--;					i++;				}				fc->posmap->len = p->len;				for (j = 0; j < p->len; j++) {					if (i == k) i = 0;					fc->posmap->list[j] = p->alpa[i++];				}				fc->state = FC_STATE_ONLINE;			}		}		printk ("%s: ONLINE\n", fc->name);		if (atomic_dec_and_test (&l->todo))			up(&l->sem);		break;	case FC_STATUS_POINTTOPOINT: /* We're Point-to-Point, no AL... */		FCD(("SID %d DID %d\n", fc->sid, fc->did))		fcmd = l->fcmds + i;		dma_unmap_single(fc->dev, fcmd->cmd, 3 * sizeof(logi),				 DMA_BIDIRECTIONAL);		fch = &fcmd->fch;		memset(l->logi + 3 * i, 0, 3 * sizeof(logi));		FILL_FCHDR_RCTL_DID(fch, R_CTL_ELS_REQ, FS_FABRIC_F_PORT);		FILL_FCHDR_SID(fch, 0);		FILL_FCHDR_TYPE_FCTL(fch, TYPE_EXTENDED_LS, F_CTL_FIRST_SEQ | F_CTL_SEQ_INITIATIVE);		FILL_FCHDR_SEQ_DF_SEQ(fch, 0, 0, 0);		FILL_FCHDR_OXRX(fch, 0xffff, 0xffff);		fch->param = 0;		l->logi [3 * i].code = LS_FLOGI;		fcmd->cmd = dma_map_single (fc->dev, l->logi + 3 * i, 3 * sizeof(logi),					    DMA_BIDIRECTIONAL);		fcmd->rsp = fcmd->cmd + sizeof(logi);		fcmd->cmdlen = sizeof(logi);		fcmd->rsplen = sizeof(logi);		fcmd->data = (dma_addr_t)NULL;		fcmd->class = FC_CLASS_SIMPLE;		fcmd->proto = TYPE_EXTENDED_LS;		if (fc->hw_enque (fc, fcmd))			printk ("FC: Cannot enque FLOGI packet on %s\n", fc->name);		break;	case FC_STATUS_ERR_OFFLINE:		fc->state = FC_STATE_MAYBEOFFLINE;		FCD (("FC is offline %d\n", l->grace[i]))		break;	default:		printk ("FLOGI failed for %s with status %d\n", fc->name, status);		/* Do some sort of error recovery here */		break;	}}void fcp_register(fc_channel *fc, u8 type, int unregister){	int size, i;	int slots = (fc->can_queue * 3) >> 1;	FCND(("Going to %sregister\n", unregister ? "un" : ""))	if (type == TYPE_SCSI_FCP) {		if (!unregister) {			fc->scsi_cmd_pool = (fcp_cmd *)				dma_alloc_consistent (fc->dev,						      slots * (sizeof (fcp_cmd) + fc->rsp_size),						      &fc->dma_scsi_cmd);			fc->scsi_rsp_pool = (char *)(fc->scsi_cmd_pool + slots);			fc->dma_scsi_rsp = fc->dma_scsi_cmd + slots * sizeof (fcp_cmd);			fc->scsi_bitmap_end = (slots + 63) & ~63;			size = fc->scsi_bitmap_end / 8;			fc->scsi_bitmap = kmalloc (size, GFP_KERNEL);			memset (fc->scsi_bitmap, 0, size);			set_bit (0, fc->scsi_bitmap);			for (i = fc->can_queue; i < fc->scsi_bitmap_end; i++)				set_bit (i, fc->scsi_bitmap);			fc->scsi_free = fc->can_queue;			fc->cmd_slots = (fcp_cmnd **)kmalloc(slots * sizeof(fcp_cmnd*), GFP_KERNEL);			memset(fc->cmd_slots, 0, slots * sizeof(fcp_cmnd*));			fc->abort_count = 0;		} else {			fc->scsi_name[0] = 0;			kfree (fc->scsi_bitmap);			kfree (fc->cmd_slots);			FCND(("Unregistering\n"));			if (fc->rst_pkt) {				if (fc->rst_pkt->eh_state == SCSI_STATE_UNUSED)					kfree(fc->rst_pkt);				else {					/* Can't happen. Some memory would be lost. */					printk("FC: Reset in progress. Now?!");				}			}			FCND(("Unregistered\n"));		}	} else		printk ("FC: %segistering unknown type %02x\n", unregister ? "Unr" : "R", type);}static void fcp_scsi_done(Scsi_Cmnd *SCpnt);static inline void fcp_scsi_receive(fc_channel *fc, int token, int status, fc_hdr *fch){	fcp_cmnd *fcmd;	fcp_rsp  *rsp;