/*
 * Copyright(c) 2007 Intel Corporation. All rights reserved.
 * Copyright(c) 2008 Red Hat, Inc.  All rights reserved.
 * Copyright(c) 2008 Mike Christie
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms and conditions of the GNU General Public License,
 * version 2, as published by the Free Software Foundation.
 *
 * This program is distributed in the hope it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
 * more details.
 *
 * You should have received a copy of the GNU General Public License along with
 * this program; if not, write to the Free Software Foundation, Inc.,
 * 51 Franklin St - Fifth Floor, Boston, MA 02110-1301 USA.
 *
 * Maintained at www.Open-FCoE.org
 */

/*
 * Fibre Channel exchange and sequence handling.
 */

#include <linux/timer.h>
#include <linux/gfp.h>
#include <linux/err.h>

#include <scsi/fc/fc_fc2.h>

#include <scsi/libfc.h>
#include <scsi/fc_encode.h>

u16     fc_cpu_mask;            /* cpu mask for possible cpus */
EXPORT_SYMBOL(fc_cpu_mask);
static u16      fc_cpu_order;   /* 2's power to represent total possible cpus */
static struct kmem_cache *fc_em_cachep;        /* cache for exchanges */

/*
 * Structure and function definitions for managing Fibre Channel Exchanges
 * and Sequences.
 *
 * The three primary structures used here are fc_exch_mgr, fc_exch, and fc_seq.
 *
 * fc_exch_mgr holds the exchange state for an N port
 *
 * fc_exch holds state for one exchange and links to its active sequence.
 *
 * fc_seq holds the state for an individual sequence.
 */

/*
 * Per cpu exchange pool
 *
 * This structure manages per cpu exchanges in array of exchange pointers.
 * This array is allocated followed by struct fc_exch_pool memory for
 * assigned range of exchanges to per cpu pool.
 */
struct fc_exch_pool {
        u16             next_index;     /* next possible free exchange index */
        u16             total_exches;   /* total allocated exchanges */
        spinlock_t      lock;           /* exch pool lock */
        struct list_head        ex_list;        /* allocated exchanges list */
};

/*
 * Exchange manager.
 *
 * This structure is the center for creating exchanges and sequences.
 * It manages the allocation of exchange IDs.
 */
struct fc_exch_mgr {
        enum fc_class   class;          /* default class for sequences */
        struct kref     kref;           /* exchange mgr reference count */
        u16             min_xid;        /* min exchange ID */
        u16             max_xid;        /* max exchange ID */
        struct list_head        ex_list;        /* allocated exchanges list */
        mempool_t       *ep_pool;       /* reserve ep's */
        u16             pool_max_index; /* max exch array index in exch pool */
        struct fc_exch_pool *pool;      /* per cpu exch pool */

        /*
         * currently exchange mgr stats are updated but not used.
         * either stats can be expose via sysfs or remove them
         * all together if not used XXX
         */
        struct {
                atomic_t no_free_exch;
                atomic_t no_free_exch_xid;
                atomic_t xid_not_found;
                atomic_t xid_busy;
                atomic_t seq_not_found;
                atomic_t non_bls_resp;
        } stats;
};
#define fc_seq_exch(sp) container_of(sp, struct fc_exch, seq)

struct fc_exch_mgr_anchor {
        struct list_head ema_list;
        struct fc_exch_mgr *mp;
        bool (*match)(struct fc_frame *);
};

static void fc_exch_rrq(struct fc_exch *);
static void fc_seq_ls_acc(struct fc_seq *);
static void fc_seq_ls_rjt(struct fc_seq *, enum fc_els_rjt_reason,
                          enum fc_els_rjt_explan);
static void fc_exch_els_rec(struct fc_seq *, struct fc_frame *);
static void fc_exch_els_rrq(struct fc_seq *, struct fc_frame *);
static struct fc_seq *fc_seq_start_next_locked(struct fc_seq *sp);

/*
 * Internal implementation notes.
 *
 * The exchange manager is one by default in libfc but LLD may choose
 * to have one per CPU. The sequence manager is one per exchange manager
 * and currently never separated.
 *
 * Section 9.8 in FC-FS-2 specifies:  "The SEQ_ID is a one-byte field
 * assigned by the Sequence Initiator that shall be unique for a specific
 * D_ID and S_ID pair while the Sequence is open."   Note that it isn't
 * qualified by exchange ID, which one might think it would be.
 * In practice this limits the number of open sequences and exchanges to 256
 * per session.  For most targets we could treat this limit as per exchange.
 *
 * The exchange and its sequence are freed when the last sequence is received.
 * It's possible for the remote port to leave an exchange open without
 * sending any sequences.
 *
 * Notes on reference counts:
 *
 * Exchanges are reference counted and exchange gets freed when the reference
 * count becomes zero.
 *
 * Timeouts:
 * Sequences are timed out for E_D_TOV and R_A_TOV.
 *
 * Sequence event handling:
 *
 * The following events may occur on initiator sequences:
 *
 *      Send.
 *          For now, the whole thing is sent.
 *      Receive ACK
 *          This applies only to class F.
 *          The sequence is marked complete.
 *      ULP completion.
 *          The upper layer calls fc_exch_done() when done
 *          with exchange and sequence tuple.
 *      RX-inferred completion.
 *          When we receive the next sequence on the same exchange, we can
 *          retire the previous sequence ID.  (XXX not implemented).
 *      Timeout.
 *          R_A_TOV frees the sequence ID.  If we're waiting for ACK,
 *          E_D_TOV causes abort and calls upper layer response handler
 *          with FC_EX_TIMEOUT error.
 *      Receive RJT
 *          XXX defer.
 *      Send ABTS
 *          On timeout.
 *
 * The following events may occur on recipient sequences:
 *
 *      Receive
 *          Allocate sequence for first frame received.
 *          Hold during receive handler.
 *          Release when final frame received.
 *          Keep status of last N of these for the ELS RES command.  XXX TBD.
 *      Receive ABTS
 *          Deallocate sequence
 *      Send RJT
 *          Deallocate
 *
 * For now, we neglect conditions where only part of a sequence was
 * received or transmitted, or where out-of-order receipt is detected.
 */

/*
 * Locking notes:
 *
 * The EM code run in a per-CPU worker thread.
 *
 * To protect against concurrency between a worker thread code and timers,
 * sequence allocation and deallocation must be locked.
 *  - exchange refcnt can be done atomicly without locks.
 *  - sequence allocation must be locked by exch lock.
 *  - If the EM pool lock and ex_lock must be taken at the same time, then the
 *    EM pool lock must be taken before the ex_lock.
 */

/*
 * opcode names for debugging.
 */
static char *fc_exch_rctl_names[] = FC_RCTL_NAMES_INIT;

#define FC_TABLE_SIZE(x)   (sizeof(x) / sizeof(x[0]))

static inline const char *fc_exch_name_lookup(unsigned int op, char **table,
                                              unsigned int max_index)
{
        const char *name = NULL;

        if (op < max_index)
                name = table[op];
        if (!name)
                name = "unknown";
        return name;
}

static const char *fc_exch_rctl_name(unsigned int op)
{
        return fc_exch_name_lookup(op, fc_exch_rctl_names,
                                   FC_TABLE_SIZE(fc_exch_rctl_names));
}

/*
 * Hold an exchange - keep it from being freed.
 */
static void fc_exch_hold(struct fc_exch *ep)
{
        atomic_inc(&ep->ex_refcnt);
}

/*
 * setup fc hdr by initializing few more FC header fields and sof/eof.
 * Initialized fields by this func:
 *      - fh_ox_id, fh_rx_id, fh_seq_id, fh_seq_cnt
 *      - sof and eof
 */
static void fc_exch_setup_hdr(struct fc_exch *ep, struct fc_frame *fp,
                              u32 f_ctl)
{
        struct fc_frame_header *fh = fc_frame_header_get(fp);
        u16 fill;

        fr_sof(fp) = ep->class;
        if (ep->seq.cnt)
                fr_sof(fp) = fc_sof_normal(ep->class);

        if (f_ctl & FC_FC_END_SEQ) {
                fr_eof(fp) = FC_EOF_T;
                if (fc_sof_needs_ack(ep->class))
                        fr_eof(fp) = FC_EOF_N;
                /*
                 * Form f_ctl.
                 * The number of fill bytes to make the length a 4-byte
                 * multiple is the low order 2-bits of the f_ctl.
                 * The fill itself will have been cleared by the frame
                 * allocation.
                 * After this, the length will be even, as expected by
                 * the transport.
                 */
                fill = fr_len(fp) & 3;
                if (fill) {
                        fill = 4 - fill;
                        /* TODO, this may be a problem with fragmented skb */
                        skb_put(fp_skb(fp), fill);
                        hton24(fh->fh_f_ctl, f_ctl | fill);
                }
        } else {
                WARN_ON(fr_len(fp) % 4 != 0);   /* no pad to non last frame */
                fr_eof(fp) = FC_EOF_N;
        }

        /*
         * Initialize remainig fh fields
         * from fc_fill_fc_hdr
         */
        fh->fh_ox_id = htons(ep->oxid);
        fh->fh_rx_id = htons(ep->rxid);
        fh->fh_seq_id = ep->seq.id;
        fh->fh_seq_cnt = htons(ep->seq.cnt);
}


/*
 * Release a reference to an exchange.
 * If the refcnt goes to zero and the exchange is complete, it is freed.
 */
static void fc_exch_release(struct fc_exch *ep)
{
        struct fc_exch_mgr *mp;

        if (atomic_dec_and_test(&ep->ex_refcnt)) {
                mp = ep->em;
                if (ep->destructor)
                        ep->destructor(&ep->seq, ep->arg);
                WARN_ON(!(ep->esb_stat & ESB_ST_COMPLETE));
                mempool_free(ep, mp->ep_pool);
        }
}

static int fc_exch_done_locked(struct fc_exch *ep)
{
        int rc = 1;

        /*
         * We must check for completion in case there are two threads
         * tyring to complete this. But the rrq code will reuse the
         * ep, and in that case we only clear the resp and set it as
         * complete, so it can be reused by the timer to send the rrq.
         */
        ep->resp = NULL;
        if (ep->state & FC_EX_DONE)
                return rc;
        ep->esb_stat |= ESB_ST_COMPLETE;

        if (!(ep->esb_stat & ESB_ST_REC_QUAL)) {
                ep->state |= FC_EX_DONE;
                if (cancel_delayed_work(&ep->timeout_work))
                        atomic_dec(&ep->ex_refcnt); /* drop hold for timer */
                rc = 0;
        }
        return rc;
}

static inline struct fc_exch *fc_exch_ptr_get(struct fc_exch_pool *pool,
                                              u16 index)
{
        struct fc_exch **exches = (struct fc_exch **)(pool + 1);
        return exches[index];
}

static inline void fc_exch_ptr_set(struct fc_exch_pool *pool, u16 index,
                                   struct fc_exch *ep)
{
        ((struct fc_exch **)(pool + 1))[index] = ep;
}

static void fc_exch_delete(struct fc_exch *ep)
{
        struct fc_exch_pool *pool;

        pool = ep->pool;
        spin_lock_bh(&pool->lock);
        WARN_ON(pool->total_exches <= 0);
        pool->total_exches--;
        fc_exch_ptr_set(pool, (ep->xid - ep->em->min_xid) >> fc_cpu_order,
                        NULL);
        list_del(&ep->ex_list);
        spin_unlock_bh(&pool->lock);
        fc_exch_release(ep);    /* drop hold for exch in mp */
}

/*
 * Internal version of fc_exch_timer_set - used with lock held.
 */
static inline void fc_exch_timer_set_locked(struct fc_exch *ep,
                                            unsigned int timer_msec)
{
        if (ep->state & (FC_EX_RST_CLEANUP | FC_EX_DONE))
                return;

        FC_EXCH_DBG(ep, "Exchange timer armed\n");

        if (schedule_delayed_work(&ep->timeout_work,
                                  msecs_to_jiffies(timer_msec)))
                fc_exch_hold(ep);               /* hold for timer */
}

/*
 * Set timer for an exchange.
 * The time is a minimum delay in milliseconds until the timer fires.
 * Used for upper level protocols to time out the exchange.
 * The timer is cancelled when it fires or when the exchange completes.
 * Returns non-zero if a timer couldn't be allocated.
 */
static void fc_exch_timer_set(struct fc_exch *ep, unsigned int timer_msec)
{
        spin_lock_bh(&ep->ex_lock);
        fc_exch_timer_set_locked(ep, timer_msec);
        spin_unlock_bh(&ep->ex_lock);
}

int fc_seq_exch_abort(const struct fc_seq *req_sp, unsigned int timer_msec)
{
        struct fc_seq *sp;
        struct fc_exch *ep;
        struct fc_frame *fp;
        int error;

        ep = fc_seq_exch(req_sp);

        spin_lock_bh(&ep->ex_lock);
        if (ep->esb_stat & (ESB_ST_COMPLETE | ESB_ST_ABNORMAL) ||
            ep->state & (FC_EX_DONE | FC_EX_RST_CLEANUP)) {
                spin_unlock_bh(&ep->ex_lock);
                return -ENXIO;
        }

        /*
         * Send the abort on a new sequence if possible.
         */
        sp = fc_seq_start_next_locked(&ep->seq);
        if (!sp) {
                spin_unlock_bh(&ep->ex_lock);
                return -ENOMEM;
        }

        ep->esb_stat |= ESB_ST_SEQ_INIT | ESB_ST_ABNORMAL;
        if (timer_msec)
                fc_exch_timer_set_locked(ep, timer_msec);
        spin_unlock_bh(&ep->ex_lock);

        /*
         * If not logged into the fabric, don't send ABTS but leave
         * sequence active until next timeout.
         */
        if (!ep->sid)
                return 0;

        /*
         * Send an abort for the sequence that timed out.
         */
        fp = fc_frame_alloc(ep->lp, 0);
        if (fp) {
                fc_fill_fc_hdr(fp, FC_RCTL_BA_ABTS, ep->did, ep->sid,
                               FC_TYPE_BLS, FC_FC_END_SEQ | FC_FC_SEQ_INIT, 0);
                error = fc_seq_send(ep->lp, sp, fp);
        } else
                error = -ENOBUFS;
        return error;
}
EXPORT_SYMBOL(fc_seq_exch_abort);

/*
 * Exchange timeout - handle exchange timer expiration.
 * The timer will have been cancelled before this is called.
 */
static void fc_exch_timeout(struct work_struct *work)
{
        struct fc_exch *ep = container_of(work, struct fc_exch,
                                          timeout_work.work);
        struct fc_seq *sp = &ep->seq;
        void (*resp)(struct fc_seq *, struct fc_frame *fp, void *arg);
        void *arg;
        u32 e_stat;
        int rc = 1;

        FC_EXCH_DBG(ep, "Exchange timed out\n");

        spin_lock_bh(&ep->ex_lock);
        if (ep->state & (FC_EX_RST_CLEANUP | FC_EX_DONE))
                goto unlock;

        e_stat = ep->esb_stat;
        if (e_stat & ESB_ST_COMPLETE) {
                ep->esb_stat = e_stat & ~ESB_ST_REC_QUAL;
                spin_unlock_bh(&ep->ex_lock);
                if (e_stat & ESB_ST_REC_QUAL)
                        fc_exch_rrq(ep);
                goto done;
        } else {
                resp = ep->resp;
                arg = ep->arg;
                ep->resp = NULL;
                if (e_stat & ESB_ST_ABNORMAL)
                        rc = fc_exch_done_locked(ep);
                spin_unlock_bh(&ep->ex_lock);
                if (!rc)
                        fc_exch_delete(ep);
                if (resp)
                        resp(sp, ERR_PTR(-FC_EX_TIMEOUT), arg);
                fc_seq_exch_abort(sp, 2 * ep->r_a_tov);
                goto done;
        }
unlock:
        spin_unlock_bh(&ep->ex_lock);
done:
        /*
         * This release matches the hold taken when the timer was set.
         */
        fc_exch_release(ep);
}

/*
 * Allocate a sequence.
 *
 * We don't support multiple originated sequences on the same exchange.
 * By implication, any previously originated sequence on this exchange
 * is complete, and we reallocate the same sequence.
 */
static struct fc_seq *fc_seq_alloc(struct fc_exch *ep, u8 seq_id)
{
        struct fc_seq *sp;

        sp = &ep->seq;
        sp->ssb_stat = 0;
        sp->cnt = 0;
        sp->id = seq_id;
        return sp;
}

/**
 * fc_exch_em_alloc() - allocate an exchange from a specified EM.
 * @lport:      ptr to the local port
 * @mp:         ptr to the exchange manager
 *
 * Returns pointer to allocated fc_exch with exch lock held.
 */
static struct fc_exch *fc_exch_em_alloc(struct fc_lport *lport,
                                        struct fc_exch_mgr *mp)
{
        struct fc_exch *ep;
        unsigned int cpu;
        u16 index;
        struct fc_exch_pool *pool;

        /* allocate memory for exchange */
        ep = mempool_alloc(mp->ep_pool, GFP_ATOMIC);
        if (!ep) {
                atomic_inc(&mp->stats.no_free_exch);
                goto out;
        }
        memset(ep, 0, sizeof(*ep));

        cpu = smp_processor_id();
        pool = per_cpu_ptr(mp->pool, cpu);
        spin_lock_bh(&pool->lock);
        index = pool->next_index;
        /* allocate new exch from pool */
        while (fc_exch_ptr_get(pool, index)) {
                index = index == mp->pool_max_index ? 0 : index + 1;
                if (index == pool->next_index)
                        goto err;
        }
        pool->next_index = index == mp->pool_max_index ? 0 : index + 1;

        fc_exch_hold(ep);       /* hold for exch in mp */
        spin_lock_init(&ep->ex_lock);
        /*
         * Hold exch lock for caller to prevent fc_exch_reset()
         * from releasing exch  while fc_exch_alloc() caller is
         * still working on exch.
         */
        spin_lock_bh(&ep->ex_lock);

        fc_exch_ptr_set(pool, index, ep);
        list_add_tail(&ep->ex_list, &pool->ex_list);
        fc_seq_alloc(ep, ep->seq_id++);
        pool->total_exches++;
        spin_unlock_bh(&pool->lock);

        /*
         *  update exchange
         */
        ep->oxid = ep->xid = (index << fc_cpu_order | cpu) + mp->min_xid;
        ep->em = mp;
        ep->pool = pool;
        ep->lp = lport;
        ep->f_ctl = FC_FC_FIRST_SEQ;    /* next seq is first seq */
        ep->rxid = FC_XID_UNKNOWN;
        ep->class = mp->class;
        INIT_DELAYED_WORK(&ep->timeout_work, fc_exch_timeout);
out:
        return ep;
err:
        spin_unlock_bh(&pool->lock);
        atomic_inc(&mp->stats.no_free_exch_xid);
        mempool_free(ep, mp->ep_pool);
        return NULL;
}

/**
 * fc_exch_alloc() - allocate an exchange.
 * @lport:      ptr to the local port
 * @fp:         ptr to the FC frame
 *
 * This function walks the list of the exchange manager(EM)
 * anchors to select a EM for new exchange allocation. The
 * EM is selected having either a NULL match function pointer
 * or call to match function returning true.
 */
struct fc_exch *fc_exch_alloc(struct fc_lport *lport, struct fc_frame *fp)
{
        struct fc_exch_mgr_anchor *ema;
        struct fc_exch *ep;

        list_for_each_entry(ema, &lport->ema_list, ema_list) {
                if (!ema->match || ema->match(fp)) {
                        ep = fc_exch_em_alloc(lport, ema->mp);
                        if (ep)
                                return ep;
                }
        }
        return NULL;
}
EXPORT_SYMBOL(fc_exch_alloc);

/*
 * Lookup and hold an exchange.
 */
static struct fc_exch *fc_exch_find(struct fc_exch_mgr *mp, u16 xid)
{
        struct fc_exch_pool *pool;
        struct fc_exch *ep = NULL;

        if ((xid >= mp->min_xid) && (xid <= mp->max_xid)) {
                pool = per_cpu_ptr(mp->pool, xid & fc_cpu_mask);
                spin_lock_bh(&pool->lock);
                ep = fc_exch_ptr_get(pool, (xid - mp->min_xid) >> fc_cpu_order);
                if (ep) {
                        fc_exch_hold(ep);
                        WARN_ON(ep->xid != xid);
                }
                spin_unlock_bh(&pool->lock);
        }
        return ep;
}

void fc_exch_done(struct fc_seq *sp)
{
        struct fc_exch *ep = fc_seq_exch(sp);
        int rc;

        spin_lock_bh(&ep->ex_lock);
        rc = fc_exch_done_locked(ep);
        spin_unlock_bh(&ep->ex_lock);
        if (!rc)
                fc_exch_delete(ep);
}
EXPORT_SYMBOL(fc_exch_done);

/*
 * Allocate a new exchange as responder.
 * Sets the responder ID in the frame header.
 */
static struct fc_exch *fc_exch_resp(struct fc_lport *lport,
                                    struct fc_exch_mgr *mp,
                                    struct fc_frame *fp)
{
        struct fc_exch *ep;
        struct fc_frame_header *fh;

        ep = fc_exch_alloc(lport, fp);
        if (ep) {
                ep->class = fc_frame_class(fp);

                /*
                 * Set EX_CTX indicating we're responding on this exchange.
                 */
                ep->f_ctl |= FC_FC_EX_CTX;      /* we're responding */
                ep->f_ctl &= ~FC_FC_FIRST_SEQ;  /* not new */
                fh = fc_frame_header_get(fp);
                ep->sid = ntoh24(fh->fh_d_id);
                ep->did = ntoh24(fh->fh_s_id);
                ep->oid = ep->did;

                /*
                 * Allocated exchange has placed the XID in the
                 * originator field. Move it to the responder field,
                 * and set the originator XID from the frame.
                 */
                ep->rxid = ep->xid;
                ep->oxid = ntohs(fh->fh_ox_id);
                ep->esb_stat |= ESB_ST_RESP | ESB_ST_SEQ_INIT;
                if ((ntoh24(fh->fh_f_ctl) & FC_FC_SEQ_INIT) == 0)
                        ep->esb_stat &= ~ESB_ST_SEQ_INIT;

                fc_exch_hold(ep);       /* hold for caller */
                spin_unlock_bh(&ep->ex_lock);   /* lock from fc_exch_alloc */
        }
        return ep;
}

/*
 * Find a sequence for receive where the other end is originating the sequence.
 * If fc_pf_rjt_reason is FC_RJT_NONE then this function will have a hold
 * on the ep that should be released by the caller.
 */
static enum fc_pf_rjt_reason fc_seq_lookup_recip(struct fc_lport *lport,
                                                 struct fc_exch_mgr *mp,
                                                 struct fc_frame *fp)
{
        struct fc_frame_header *fh = fc_frame_header_get(fp);
        struct fc_exch *ep = NULL;
        struct fc_seq *sp = NULL;
        enum fc_pf_rjt_reason reject = FC_RJT_NONE;
        u32 f_ctl;
        u16 xid;

        f_ctl = ntoh24(fh->fh_f_ctl);
        WARN_ON((f_ctl & FC_FC_SEQ_CTX) != 0);

        /*
         * Lookup or create the exchange if we will be creating the sequence.
         */
        if (f_ctl & FC_FC_EX_CTX) {
                xid = ntohs(fh->fh_ox_id);      /* we originated exch */
                ep = fc_exch_find(mp, xid);
                if (!ep) {
                        atomic_inc(&mp->stats.xid_not_found);
                        reject = FC_RJT_OX_ID;
                        goto out;
                }
                if (ep->rxid == FC_XID_UNKNOWN)
                        ep->rxid = ntohs(fh->fh_rx_id);
                else if (ep->rxid != ntohs(fh->fh_rx_id)) {
                        reject = FC_RJT_OX_ID;
                        goto rel;
                }
        } else {
                xid = ntohs(fh->fh_rx_id);      /* we are the responder */

                /*
                 * Special case for MDS issuing an ELS TEST with a
                 * bad rxid of 0.
                 * XXX take this out once we do the proper reject.
                 */
                if (xid == 0 && fh->fh_r_ctl == FC_RCTL_ELS_REQ &&
                    fc_frame_payload_op(fp) == ELS_TEST) {
                        fh->fh_rx_id = htons(FC_XID_UNKNOWN);
                        xid = FC_XID_UNKNOWN;
                }

                /*
                 * new sequence - find the exchange
                 */
                ep = fc_exch_find(mp, xid);
                if ((f_ctl & FC_FC_FIRST_SEQ) && fc_sof_is_init(fr_sof(fp))) {
                        if (ep) {
                                atomic_inc(&mp->stats.xid_busy);
                                reject = FC_RJT_RX_ID;
                                goto rel;
                        }
                        ep = fc_exch_resp(lport, mp, fp);
                        if (!ep) {
                                reject = FC_RJT_EXCH_EST;       /* XXX */
                                goto out;
                        }
                        xid = ep->xid;  /* get our XID */
                } else if (!ep) {
                        atomic_inc(&mp->stats.xid_not_found);
                        reject = FC_RJT_RX_ID;  /* XID not found */
                        goto out;
                }
        }

        /*
         * At this point, we have the exchange held.
         * Find or create the sequence.
         */
        if (fc_sof_is_init(fr_sof(fp))) {
                sp = fc_seq_start_next(&ep->seq);
                if (!sp) {
                        reject = FC_RJT_SEQ_XS; /* exchange shortage */
                        goto rel;
                }
                sp->id = fh->fh_seq_id;
                sp->ssb_stat |= SSB_ST_RESP;
        } else {
                sp = &ep->seq;
                if (sp->id != fh->fh_seq_id) {
                        atomic_inc(&mp->stats.seq_not_found);
                        reject = FC_RJT_SEQ_ID; /* sequence/exch should exist */
                        goto rel;
                }
        }
        WARN_ON(ep != fc_seq_exch(sp));

        if (f_ctl & FC_FC_SEQ_INIT)
                ep->esb_stat |= ESB_ST_SEQ_INIT;

        fr_seq(fp) = sp;
out:
        return reject;
rel:
        fc_exch_done(&ep->seq);
        fc_exch_release(ep);    /* hold from fc_exch_find/fc_exch_resp */
        return reject;
}

/*
 * Find the sequence for a frame being received.
 * We originated the sequence, so it should be found.
 * We may or may not have originated the exchange.
 * Does not hold the sequence for the caller.
 */
static struct fc_seq *fc_seq_lookup_orig(struct fc_exch_mgr *mp,
                                         struct fc_frame *fp)
{
        struct fc_frame_header *fh = fc_frame_header_get(fp);
        struct fc_exch *ep;
        struct fc_seq *sp = NULL;
        u32 f_ctl;
        u16 xid;

        f_ctl = ntoh24(fh->fh_f_ctl);
        WARN_ON((f_ctl & FC_FC_SEQ_CTX) != FC_FC_SEQ_CTX);
        xid = ntohs((f_ctl & FC_FC_EX_CTX) ? fh->fh_ox_id : fh->fh_rx_id);
        ep = fc_exch_find(mp, xid);
        if (!ep)
                return NULL;
        if (ep->seq.id == fh->fh_seq_id) {
                /*
                 * Save the RX_ID if we didn't previously know it.
                 */
                sp = &ep->seq;
                if ((f_ctl & FC_FC_EX_CTX) != 0 &&
                    ep->rxid == FC_XID_UNKNOWN) {
                        ep->rxid = ntohs(fh->fh_rx_id);
                }
        }
        fc_exch_release(ep);
        return sp;
}

/*
 * Set addresses for an exchange.
 * Note this must be done before the first sequence of the exchange is sent.
 */
static void fc_exch_set_addr(struct fc_exch *ep,
                             u32 orig_id, u32 resp_id)
{
        ep->oid = orig_id;
        if (ep->esb_stat & ESB_ST_RESP) {
                ep->sid = resp_id;
                ep->did = orig_id;
        } else {
                ep->sid = orig_id;
                ep->did = resp_id;
        }
}

static struct fc_seq *fc_seq_start_next_locked(struct fc_seq *sp)
{
        struct fc_exch *ep = fc_seq_exch(sp);

        sp = fc_seq_alloc(ep, ep->seq_id++);
        FC_EXCH_DBG(ep, "f_ctl %6x seq %2x\n",
                    ep->f_ctl, sp->id);
        return sp;
}
/*
 * Allocate a new sequence on the same exchange as the supplied sequence.
 * This will never return NULL.
 */
struct fc_seq *fc_seq_start_next(struct fc_seq *sp)
{
        struct fc_exch *ep = fc_seq_exch(sp);

        spin_lock_bh(&ep->ex_lock);
        sp = fc_seq_start_next_locked(sp);
        spin_unlock_bh(&ep->ex_lock);

        return sp;
}
EXPORT_SYMBOL(fc_seq_start_next);

int fc_seq_send(struct fc_lport *lp, struct fc_seq *sp, struct fc_frame *fp)
{
        struct fc_exch *ep;
        struct fc_frame_header *fh = fc_frame_header_get(fp);
        int error;
        u32     f_ctl;

        ep = fc_seq_exch(sp);
        WARN_ON((ep->esb_stat & ESB_ST_SEQ_INIT) != ESB_ST_SEQ_INIT);

        f_ctl = ntoh24(fh->fh_f_ctl);
        fc_exch_setup_hdr(ep, fp, f_ctl);

        /*
         * update sequence count if this frame is carrying
         * multiple FC frames when sequence offload is enabled
         * by LLD.
         */
        if (fr_max_payload(fp))
                sp->cnt += DIV_ROUND_UP((fr_len(fp) - sizeof(*fh)),
                                        fr_max_payload(fp));
        else
                sp->cnt++;

        /*
         * Send the frame.
         */
        error = lp->tt.frame_send(lp, fp);

        /*
         * Update the exchange and sequence flags,
         * assuming all frames for the sequence have been sent.
         * We can only be called to send once for each sequence.
         */
        spin_lock_bh(&ep->ex_lock);
        ep->f_ctl = f_ctl & ~FC_FC_FIRST_SEQ;   /* not first seq */
        if (f_ctl & (FC_FC_END_SEQ | FC_FC_SEQ_INIT))
                ep->esb_stat &= ~ESB_ST_SEQ_INIT;
        spin_unlock_bh(&ep->ex_lock);
        return error;
}
EXPORT_SYMBOL(fc_seq_send);

void fc_seq_els_rsp_send(struct fc_seq *sp, enum fc_els_cmd els_cmd,
                         struct fc_seq_els_data *els_data)
{
        switch (els_cmd) {
        case ELS_LS_RJT:
                fc_seq_ls_rjt(sp, els_data->reason, els_data->explan);
                break;
        case ELS_LS_ACC:
                fc_seq_ls_acc(sp);
                break;
        case ELS_RRQ:
                fc_exch_els_rrq(sp, els_data->fp);
                break;
        case ELS_REC:
                fc_exch_els_rec(sp, els_data->fp);
                break;
        default:
                FC_EXCH_DBG(fc_seq_exch(sp), "Invalid ELS CMD:%x\n", els_cmd);
        }
}
EXPORT_SYMBOL(fc_seq_els_rsp_send);

/*
 * Send a sequence, which is also the last sequence in the exchange.
 */
static void fc_seq_send_last(struct fc_seq *sp, struct fc_frame *fp,
                             enum fc_rctl rctl, enum fc_fh_type fh_type)
{
        u32 f_ctl;
        struct fc_exch *ep = fc_seq_exch(sp);

        f_ctl = FC_FC_LAST_SEQ | FC_FC_END_SEQ | FC_FC_SEQ_INIT;
        f_ctl |= ep->f_ctl;
        fc_fill_fc_hdr(fp, rctl, ep->did, ep->sid, fh_type, f_ctl, 0);
        fc_seq_send(ep->lp, sp, fp);
}

/*
 * Send ACK_1 (or equiv.) indicating we received something.
 * The frame we're acking is supplied.
 */
static void fc_seq_send_ack(struct fc_seq *sp, const struct fc_frame *rx_fp)
{
        struct fc_frame *fp;
        struct fc_frame_header *rx_fh;
        struct fc_frame_header *fh;
        struct fc_exch *ep = fc_seq_exch(sp);
        struct fc_lport *lp = ep->lp;
        unsigned int f_ctl;

        /*
         * Don't send ACKs for class 3.
         */
        if (fc_sof_needs_ack(fr_sof(rx_fp))) {
                fp = fc_frame_alloc(lp, 0);
                if (!fp)
                        return;

                fh = fc_frame_header_get(fp);
                fh->fh_r_ctl = FC_RCTL_ACK_1;
                fh->fh_type = FC_TYPE_BLS;

                /*
                 * Form f_ctl by inverting EX_CTX and SEQ_CTX (bits 23, 22).
                 * Echo FIRST_SEQ, LAST_SEQ, END_SEQ, END_CONN, SEQ_INIT.
                 * Bits 9-8 are meaningful (retransmitted or unidirectional).
                 * Last ACK uses bits 7-6 (continue sequence),
                 * bits 5-4 are meaningful (what kind of ACK to use).
                 */
                rx_fh = fc_frame_header_get(rx_fp);
                f_ctl = ntoh24(rx_fh->fh_f_ctl);
                f_ctl &= FC_FC_EX_CTX | FC_FC_SEQ_CTX |
                        FC_FC_FIRST_SEQ | FC_FC_LAST_SEQ |
                        FC_FC_END_SEQ | FC_FC_END_CONN | FC_FC_SEQ_INIT |
                        FC_FC_RETX_SEQ | FC_FC_UNI_TX;
                f_ctl ^= FC_FC_EX_CTX | FC_FC_SEQ_CTX;
                hton24(fh->fh_f_ctl, f_ctl);

                fc_exch_setup_hdr(ep, fp, f_ctl);
                fh->fh_seq_id = rx_fh->fh_seq_id;
                fh->fh_seq_cnt = rx_fh->fh_seq_cnt;
                fh->fh_parm_offset = htonl(1);  /* ack single frame */

                fr_sof(fp) = fr_sof(rx_fp);
                if (f_ctl & FC_FC_END_SEQ)
                        fr_eof(fp) = FC_EOF_T;
                else
                        fr_eof(fp) = FC_EOF_N;

                (void) lp->tt.frame_send(lp, fp);
        }
}

/*
 * Send BLS Reject.
 * This is for rejecting BA_ABTS only.
 */
static void fc_exch_send_ba_rjt(struct fc_frame *rx_fp,
                                enum fc_ba_rjt_reason reason,
                                enum fc_ba_rjt_explan explan)
{
        struct fc_frame *fp;
        struct fc_frame_header *rx_fh;
        struct fc_frame_header *fh;
        struct fc_ba_rjt *rp;
        struct fc_lport *lp;
        unsigned int f_ctl;

        lp = fr_dev(rx_fp);
        fp = fc_frame_alloc(lp, sizeof(*rp));
        if (!fp)
                return;
        fh = fc_frame_header_get(fp);
        rx_fh = fc_frame_header_get(rx_fp);

        memset(fh, 0, sizeof(*fh) + sizeof(*rp));

        rp = fc_frame_payload_get(fp, sizeof(*rp));
        rp->br_reason = reason;
        rp->br_explan = explan;

        /*
         * seq_id, cs_ctl, df_ctl and param/offset are zero.
         */
        memcpy(fh->fh_s_id, rx_fh->fh_d_id, 3);
        memcpy(fh->fh_d_id, rx_fh->fh_s_id, 3);
        fh->fh_ox_id = rx_fh->fh_ox_id;
        fh->fh_rx_id = rx_fh->fh_rx_id;
        fh->fh_seq_cnt = rx_fh->fh_seq_cnt;
        fh->fh_r_ctl = FC_RCTL_BA_RJT;
        fh->fh_type = FC_TYPE_BLS;

        /*
         * Form f_ctl by inverting EX_CTX and SEQ_CTX (bits 23, 22).
         * Echo FIRST_SEQ, LAST_SEQ, END_SEQ, END_CONN, SEQ_INIT.
         * Bits 9-8 are meaningful (retransmitted or unidirectional).
         * Last ACK uses bits 7-6 (continue sequence),
         * bits 5-4 are meaningful (what kind of ACK to use).
         * Always set LAST_SEQ, END_SEQ.
         */
        f_ctl = ntoh24(rx_fh->fh_f_ctl);
        f_ctl &= FC_FC_EX_CTX | FC_FC_SEQ_CTX |
                FC_FC_END_CONN | FC_FC_SEQ_INIT |
                FC_FC_RETX_SEQ | FC_FC_UNI_TX;
        f_ctl ^= FC_FC_EX_CTX | FC_FC_SEQ_CTX;
        f_ctl |= FC_FC_LAST_SEQ | FC_FC_END_SEQ;
        f_ctl &= ~FC_FC_FIRST_SEQ;
        hton24(fh->fh_f_ctl, f_ctl);

        fr_sof(fp) = fc_sof_class(fr_sof(rx_fp));
        fr_eof(fp) = FC_EOF_T;
        if (fc_sof_needs_ack(fr_sof(fp)))
                fr_eof(fp) = FC_EOF_N;

        (void) lp->tt.frame_send(lp, fp);
}

/*
 * Handle an incoming ABTS.  This would be for target mode usually,
 * but could be due to lost FCP transfer ready, confirm or RRQ.
 * We always handle this as an exchange abort, ignoring the parameter.
 */
static void fc_exch_recv_abts(struct fc_exch *ep, struct fc_frame *rx_fp)
{
        struct fc_frame *fp;
        struct fc_ba_acc *ap;
        struct fc_frame_header *fh;
        struct fc_seq *sp;

        if (!ep)
                goto reject;
        spin_lock_bh(&ep->ex_lock);
        if (ep->esb_stat & ESB_ST_COMPLETE) {
                spin_unlock_bh(&ep->ex_lock);
                goto reject;
        }
        if (!(ep->esb_stat & ESB_ST_REC_QUAL))
                fc_exch_hold(ep);               /* hold for REC_QUAL */
        ep->esb_stat |= ESB_ST_ABNORMAL | ESB_ST_REC_QUAL;
        fc_exch_timer_set_locked(ep, ep->r_a_tov);

        fp = fc_frame_alloc(ep->lp, sizeof(*ap));
        if (!fp) {
                spin_unlock_bh(&ep->ex_lock);
                goto free;
        }
        fh = fc_frame_header_get(fp);
        ap = fc_frame_payload_get(fp, sizeof(*ap));
        memset(ap, 0, sizeof(*ap));
        sp = &ep->seq;
        ap->ba_high_seq_cnt = htons(0xffff);
        if (sp->ssb_stat & SSB_ST_RESP) {
                ap->ba_seq_id = sp->id;
                ap->ba_seq_id_val = FC_BA_SEQ_ID_VAL;
                ap->ba_high_seq_cnt = fh->fh_seq_cnt;
                ap->ba_low_seq_cnt = htons(sp->cnt);
        }
        sp = fc_seq_start_next_locked(sp);
        spin_unlock_bh(&ep->ex_lock);
        fc_seq_send_last(sp, fp, FC_RCTL_BA_ACC, FC_TYPE_BLS);
        fc_frame_free(rx_fp);
        return;

reject:
        fc_exch_send_ba_rjt(rx_fp, FC_BA_RJT_UNABLE, FC_BA_RJT_INV_XID);
free:
        fc_frame_free(rx_fp);
}

/*
 * Handle receive where the other end is originating the sequence.
 */
static void fc_exch_recv_req(struct fc_lport *lp, struct fc_exch_mgr *mp,
                             struct fc_frame *fp)
{
        struct fc_frame_header *fh = fc_frame_header_get(fp);
        struct fc_seq *sp = NULL;
        struct fc_exch *ep = NULL;
        enum fc_sof sof;
        enum fc_eof eof;
        u32 f_ctl;
        enum fc_pf_rjt_reason reject;

        fr_seq(fp) = NULL;
        reject = fc_seq_lookup_recip(lp, mp, fp);
        if (reject == FC_RJT_NONE) {
                sp = fr_seq(fp);        /* sequence will be held */
                ep = fc_seq_exch(sp);
                sof = fr_sof(fp);
                eof = fr_eof(fp);
                f_ctl = ntoh24(fh->fh_f_ctl);
                fc_seq_send_ack(sp, fp);

                /*
                 * Call the receive function.
                 *
                 * The receive function may allocate a new sequence
                 * over the old one, so we shouldn't change the
                 * sequence after this.
                 *
                 * The frame will be freed by the receive function.
                 * If new exch resp handler is valid then call that
                 * first.
                 */
                if (ep->resp)
                        ep->resp(sp, fp, ep->arg);
                else
                        lp->tt.lport_recv(lp, sp, fp);
                fc_exch_release(ep);    /* release from lookup */
        } else {
                FC_LPORT_DBG(lp, "exch/seq lookup failed: reject %x\n", reject);
                fc_frame_free(fp);
        }
}

/*
 * Handle receive where the other end is originating the sequence in
 * response to our exchange.
 */
static void fc_exch_recv_seq_resp(struct fc_exch_mgr *mp, struct fc_frame *fp)
{
        struct fc_frame_header *fh = fc_frame_header_get(fp);
        struct fc_seq *sp;
        struct fc_exch *ep;
        enum fc_sof sof;
        u32 f_ctl;
        void (*resp)(struct fc_seq *, struct fc_frame *fp, void *arg);
        void *ex_resp_arg;
        int rc;

        ep = fc_exch_find(mp, ntohs(fh->fh_ox_id));
        if (!ep) {
                atomic_inc(&mp->stats.xid_not_found);
                goto out;
        }
        if (ep->esb_stat & ESB_ST_COMPLETE) {
                atomic_inc(&mp->stats.xid_not_found);
                goto out;
        }
        if (ep->rxid == FC_XID_UNKNOWN)
                ep->rxid = ntohs(fh->fh_rx_id);
        if (ep->sid != 0 && ep->sid != ntoh24(fh->fh_d_id)) {
                atomic_inc(&mp->stats.xid_not_found);
                goto rel;
        }
        if (ep->did != ntoh24(fh->fh_s_id) &&
            ep->did != FC_FID_FLOGI) {
                atomic_inc(&mp->stats.xid_not_found);
                goto rel;
        }
        sof = fr_sof(fp);
        if (fc_sof_is_init(sof)) {
                sp = fc_seq_start_next(&ep->seq);
                sp->id = fh->fh_seq_id;
                sp->ssb_stat |= SSB_ST_RESP;
        } else {
                sp = &ep->seq;
                if (sp->id != fh->fh_seq_id) {
                        atomic_inc(&mp->stats.seq_not_found);
                        goto rel;
                }
        }
        f_ctl = ntoh24(fh->fh_f_ctl);
        fr_seq(fp) = sp;
        if (f_ctl & FC_FC_SEQ_INIT)
                ep->esb_stat |= ESB_ST_SEQ_INIT;

        if (fc_sof_needs_ack(sof))
                fc_seq_send_ack(sp, fp);
        resp = ep->resp;
        ex_resp_arg = ep->arg;

        if (fh->fh_type != FC_TYPE_FCP && fr_eof(fp) == FC_EOF_T &&
            (f_ctl & (FC_FC_LAST_SEQ | FC_FC_END_SEQ)) ==
            (FC_FC_LAST_SEQ | FC_FC_END_SEQ)) {
                spin_lock_bh(&ep->ex_lock);
                rc = fc_exch_done_locked(ep);
                WARN_ON(fc_seq_exch(sp) != ep);
                spin_unlock_bh(&ep->ex_lock);
                if (!rc)
                        fc_exch_delete(ep);
        }

        /*
         * Call the receive function.
         * The sequence is held (has a refcnt) for us,
         * but not for the receive function.
         *
         * The receive function may allocate a new sequence
         * over the old one, so we shouldn't change the
         * sequence after this.
         *
         * The frame will be freed by the receive function.
         * If new exch resp handler is valid then call that
         * first.
         */
        if (resp)
                resp(sp, fp, ex_resp_arg);
        else
                fc_frame_free(fp);
        fc_exch_release(ep);
        return;
rel:
        fc_exch_release(ep);
out:
        fc_frame_free(fp);
}

/*
 * Handle receive for a sequence where other end is responding to our sequence.
 */
static void fc_exch_recv_resp(struct fc_exch_mgr *mp, struct fc_frame *fp)
{
        struct fc_seq *sp;

        sp = fc_seq_lookup_orig(mp, fp);        /* doesn't hold sequence */

        if (!sp)
                atomic_inc(&mp->stats.xid_not_found);
        else
                atomic_inc(&mp->stats.non_bls_resp);

        fc_frame_free(fp);
}

/*
 * Handle the response to an ABTS for exchange or sequence.
 * This can be BA_ACC or BA_RJT.
 */
static void fc_exch_abts_resp(struct fc_exch *ep, struct fc_frame *fp)
{
        void (*resp)(struct fc_seq *, struct fc_frame *fp, void *arg);
        void *ex_resp_arg;
        struct fc_frame_header *fh;
        struct fc_ba_acc *ap;
        struct fc_seq *sp;
        u16 low;
        u16 high;
        int rc = 1, has_rec = 0;

        fh = fc_frame_header_get(fp);
        FC_EXCH_DBG(ep, "exch: BLS rctl %x - %s\n", fh->fh_r_ctl,
                    fc_exch_rctl_name(fh->fh_r_ctl));

        if (cancel_delayed_work_sync(&ep->timeout_work))
                fc_exch_release(ep);    /* release from pending timer hold */

        spin_lock_bh(&ep->ex_lock);
        switch (fh->fh_r_ctl) {
        case FC_RCTL_BA_ACC:
                ap = fc_frame_payload_get(fp, sizeof(*ap));
                if (!ap)
                        break;

                /*
                 * Decide whether to establish a Recovery Qualifier.
                 * We do this if there is a non-empty SEQ_CNT range and
                 * SEQ_ID is the same as the one we aborted.
                 */
                low = ntohs(ap->ba_low_seq_cnt);
                high = ntohs(ap->ba_high_seq_cnt);
                if ((ep->esb_stat & ESB_ST_REC_QUAL) == 0 &&
                    (ap->ba_seq_id_val != FC_BA_SEQ_ID_VAL ||
                     ap->ba_seq_id == ep->seq_id) && low != high) {
                        ep->esb_stat |= ESB_ST_REC_QUAL;
                        fc_exch_hold(ep);  /* hold for recovery qualifier */
                        has_rec = 1;
                }
                break;
        case FC_RCTL_BA_RJT:
                break;
        default:
                break;
        }

        resp = ep->resp;
        ex_resp_arg = ep->arg;

        /* do we need to do some other checks here. Can we reuse more of
         * fc_exch_recv_seq_resp
         */
        sp = &ep->seq;
        /*
         * do we want to check END_SEQ as well as LAST_SEQ here?
         */
        if (ep->fh_type != FC_TYPE_FCP &&
            ntoh24(fh->fh_f_ctl) & FC_FC_LAST_SEQ)
                rc = fc_exch_done_locked(ep);
        spin_unlock_bh(&ep->ex_lock);
        if (!rc)
                fc_exch_delete(ep);

        if (resp)
                resp(sp, fp, ex_resp_arg);
        else
                fc_frame_free(fp);

        if (has_rec)
                fc_exch_timer_set(ep, ep->r_a_tov);

}

/*
 * Receive BLS sequence.
 * This is always a sequence initiated by the remote side.
 * We may be either the originator or recipient of the exchange.
 */
static void fc_exch_recv_bls(struct fc_exch_mgr *mp, struct fc_frame *fp)
{
        struct fc_frame_header *fh;
        struct fc_exch *ep;
        u32 f_ctl;

        fh = fc_frame_header_get(fp);
        f_ctl = ntoh24(fh->fh_f_ctl);
        fr_seq(fp) = NULL;

        ep = fc_exch_find(mp, (f_ctl & FC_FC_EX_CTX) ?
                          ntohs(fh->fh_ox_id) : ntohs(fh->fh_rx_id));
        if (ep && (f_ctl & FC_FC_SEQ_INIT)) {
                spin_lock_bh(&ep->ex_lock);
                ep->esb_stat |= ESB_ST_SEQ_INIT;
                spin_unlock_bh(&ep->ex_lock);
        }
        if (f_ctl & FC_FC_SEQ_CTX) {
                /*
                 * A response to a sequence we initiated.
                 * This should only be ACKs for class 2 or F.
                 */
                switch (fh->fh_r_ctl) {
                case FC_RCTL_ACK_1:
                case FC_RCTL_ACK_0:
                        break;
                default:
                        FC_EXCH_DBG(ep, "BLS rctl %x - %s received",
                                    fh->fh_r_ctl,
                                    fc_exch_rctl_name(fh->fh_r_ctl));
                        break;
                }
                fc_frame_free(fp);
        } else {
                switch (fh->fh_r_ctl) {
                case FC_RCTL_BA_RJT:
                case FC_RCTL_BA_ACC:
                        if (ep)
                                fc_exch_abts_resp(ep, fp);
                        else
                                fc_frame_free(fp);
                        break;
                case FC_RCTL_BA_ABTS:
                        fc_exch_recv_abts(ep, fp);
                        break;
                default:                        /* ignore junk */
                        fc_frame_free(fp);
                        break;
                }
        }
        if (ep)
                fc_exch_release(ep);    /* release hold taken by fc_exch_find */
}

/*
 * Accept sequence with LS_ACC.
 * If this fails due to allocation or transmit congestion, assume the
 * originator will repeat the sequence.
 */
static void fc_seq_ls_acc(struct fc_seq *req_sp)
{
        struct fc_seq *sp;
        struct fc_els_ls_acc *acc;
        struct fc_frame *fp;

        sp = fc_seq_start_next(req_sp);
        fp = fc_frame_alloc(fc_seq_exch(sp)->lp, sizeof(*acc));
        if (fp) {
                acc = fc_frame_payload_get(fp, sizeof(*acc));
                memset(acc, 0, sizeof(*acc));
                acc->la_cmd = ELS_LS_ACC;
                fc_seq_send_last(sp, fp, FC_RCTL_ELS_REP, FC_TYPE_ELS);
        }
}

/*
 * Reject sequence with ELS LS_RJT.
 * If this fails due to allocation or transmit congestion, assume the
 * originator will repeat the sequence.
 */
static void fc_seq_ls_rjt(struct fc_seq *req_sp, enum fc_els_rjt_reason reason,
                          enum fc_els_rjt_explan explan)
{
        struct fc_seq *sp;
        struct fc_els_ls_rjt *rjt;
        struct fc_frame *fp;

        sp = fc_seq_start_next(req_sp);
        fp = fc_frame_alloc(fc_seq_exch(sp)->lp, sizeof(*rjt));
        if (fp) {
                rjt = fc_frame_payload_get(fp, sizeof(*rjt));
                memset(rjt, 0, sizeof(*rjt));
                rjt->er_cmd = ELS_LS_RJT;
                rjt->er_reason = reason;
                rjt->er_explan = explan;
                fc_seq_send_last(sp, fp, FC_RCTL_ELS_REP, FC_TYPE_ELS);
        }
}

static void fc_exch_reset(struct fc_exch *ep)
{
        struct fc_seq *sp;
        void (*resp)(struct fc_seq *, struct fc_frame *, void *);
        void *arg;
        int rc = 1;

        spin_lock_bh(&ep->ex_lock);
        ep->state |= FC_EX_RST_CLEANUP;
        /*
         * we really want to call del_timer_sync, but cannot due
         * to the lport calling with the lport lock held (some resp
         * functions can also grab the lport lock which could cause
         * a deadlock).
         */
        if (cancel_delayed_work(&ep->timeout_work))
                atomic_dec(&ep->ex_refcnt);     /* drop hold for timer */
        resp = ep->resp;
        ep->resp = NULL;
        if (ep->esb_stat & ESB_ST_REC_QUAL)
                atomic_dec(&ep->ex_refcnt);     /* drop hold for rec_qual */
        ep->esb_stat &= ~ESB_ST_REC_QUAL;
        arg = ep->arg;
        sp = &ep->seq;
        rc = fc_exch_done_locked(ep);
        spin_unlock_bh(&ep->ex_lock);
        if (!rc)
                fc_exch_delete(ep);

        if (resp)
                resp(sp, ERR_PTR(-FC_EX_CLOSED), arg);
}

/**
 * fc_exch_pool_reset() - Resets an per cpu exches pool.
 * @lport:      ptr to the local port
 * @pool:       ptr to the per cpu exches pool
 * @sid:        source FC ID
 * @did:        destination FC ID
 *
 * Resets an per cpu exches pool, releasing its all sequences
 * and exchanges. If sid is non-zero, then reset only exchanges
 * we sourced from that FID. If did is non-zero, reset only
 * exchanges destined to that FID.
 */
static void fc_exch_pool_reset(struct fc_lport *lport,
                               struct fc_exch_pool *pool,
                               u32 sid, u32 did)
{
        struct fc_exch *ep;
        struct fc_exch *next;

        spin_lock_bh(&pool->lock);
restart:
        list_for_each_entry_safe(ep, next, &pool->ex_list, ex_list) {
                if ((lport == ep->lp) &&
                    (sid == 0 || sid == ep->sid) &&
                    (did == 0 || did == ep->did)) {
                        fc_exch_hold(ep);
                        spin_unlock_bh(&pool->lock);

                        fc_exch_reset(ep);

                        fc_exch_release(ep);
                        spin_lock_bh(&pool->lock);

                        /*
                         * must restart loop incase while lock
                         * was down multiple eps were released.
                         */
                        goto restart;
                }
        }
        spin_unlock_bh(&pool->lock);
}

/**
 * fc_exch_mgr_reset() - Resets all EMs of a lport
 * @lport:      ptr to the local port
 * @sid:        source FC ID
 * @did:        destination FC ID
 *
 * Reset all EMs of a lport, releasing its all sequences and
 * exchanges. If sid is non-zero, then reset only exchanges
 * we sourced from that FID. If did is non-zero, reset only
 * exchanges destined to that FID.
 */
void fc_exch_mgr_reset(struct fc_lport *lport, u32 sid, u32 did)
{
        struct fc_exch_mgr_anchor *ema;
        unsigned int cpu;

        list_for_each_entry(ema, &lport->ema_list, ema_list) {
                for_each_possible_cpu(cpu)
                        fc_exch_pool_reset(lport,
                                           per_cpu_ptr(ema->mp->pool, cpu),
                                           sid, did);
        }
}
EXPORT_SYMBOL(fc_exch_mgr_reset);

/*
 * Handle incoming ELS REC - Read Exchange Concise.
 * Note that the requesting port may be different than the S_ID in the request.
 */
static void fc_exch_els_rec(struct fc_seq *sp, struct fc_frame *rfp)
{
        struct fc_frame *fp;
        struct fc_exch *ep;
        struct fc_exch_mgr *em;
        struct fc_els_rec *rp;
        struct fc_els_rec_acc *acc;
        enum fc_els_rjt_reason reason = ELS_RJT_LOGIC;
        enum fc_els_rjt_explan explan;
        u32 sid;
        u16 rxid;
        u16 oxid;

        rp = fc_frame_payload_get(rfp, sizeof(*rp));
        explan = ELS_EXPL_INV_LEN;
        if (!rp)
                goto reject;
        sid = ntoh24(rp->rec_s_id);
        rxid = ntohs(rp->rec_rx_id);
        oxid = ntohs(rp->rec_ox_id);

        /*
         * Currently it's hard to find the local S_ID from the exchange
         * manager.  This will eventually be fixed, but for now it's easier
         * to lookup the subject exchange twice, once as if we were
         * the initiator, and then again if we weren't.
         */
        em = fc_seq_exch(sp)->em;
        ep = fc_exch_find(em, oxid);
        explan = ELS_EXPL_OXID_RXID;
        if (ep && ep->oid == sid) {
                if (ep->rxid != FC_XID_UNKNOWN &&
                    rxid != FC_XID_UNKNOWN &&
                    ep->rxid != rxid)
                        goto rel;
        } else {
                if (ep)
                        fc_exch_release(ep);
                ep = NULL;
                if (rxid != FC_XID_UNKNOWN)
                        ep = fc_exch_find(em, rxid);
                if (!ep)
                        goto reject;
        }

        fp = fc_frame_alloc(fc_seq_exch(sp)->lp, sizeof(*acc));
        if (!fp) {
                fc_exch_done(sp);
                goto out;
        }
        sp = fc_seq_start_next(sp);
        acc = fc_frame_payload_get(fp, sizeof(*acc));
        memset(acc, 0, sizeof(*acc));
        acc->reca_cmd = ELS_LS_ACC;
        acc->reca_ox_id = rp->rec_ox_id;
        memcpy(acc->reca_ofid, rp->rec_s_id, 3);
        acc->reca_rx_id = htons(ep->rxid);
        if (ep->sid == ep->oid)
                hton24(acc->reca_rfid, ep->did);
        else
                hton24(acc->reca_rfid, ep->sid);
        acc->reca_fc4value = htonl(ep->seq.rec_data);
        acc->reca_e_stat = htonl(ep->esb_stat & (ESB_ST_RESP |
                                                 ESB_ST_SEQ_INIT |
                                                 ESB_ST_COMPLETE));
        sp = fc_seq_start_next(sp);
        fc_seq_send_last(sp, fp, FC_RCTL_ELS_REP, FC_TYPE_ELS);
out:
        fc_exch_release(ep);
        fc_frame_free(rfp);
        return;

rel:
        fc_exch_release(ep);
reject:
        fc_seq_ls_rjt(sp, reason, explan);
        fc_frame_free(rfp);
}

/*
 * Handle response from RRQ.
 * Not much to do here, really.
 * Should report errors.
 *
 * TODO: fix error handler.
 */
static void fc_exch_rrq_resp(struct fc_seq *sp, struct fc_frame *fp, void *arg)
{
        struct fc_exch *aborted_ep = arg;
        unsigned int op;

        if (IS_ERR(fp)) {
                int err = PTR_ERR(fp);

                if (err == -FC_EX_CLOSED || err == -FC_EX_TIMEOUT)
                        goto cleanup;
                FC_EXCH_DBG(aborted_ep, "Cannot process RRQ, "
                            "frame error %d\n", err);
                return;
        }

        op = fc_frame_payload_op(fp);
        fc_frame_free(fp);

        switch (op) {
        case ELS_LS_RJT:
                FC_EXCH_DBG(aborted_ep, "LS_RJT for RRQ");
                /* fall through */
        case ELS_LS_ACC:
                goto cleanup;
        default:
                FC_EXCH_DBG(aborted_ep, "unexpected response op %x "
                            "for RRQ", op);
                return;
        }

cleanup:
        fc_exch_done(&aborted_ep->seq);
        /* drop hold for rec qual */
        fc_exch_release(aborted_ep);
}

/*
 * Send ELS RRQ - Reinstate Recovery Qualifier.
 * This tells the remote port to stop blocking the use of
 * the exchange and the seq_cnt range.
 */
static void fc_exch_rrq(struct fc_exch *ep)
{
        struct fc_lport *lp;
        struct fc_els_rrq *rrq;
        struct fc_frame *fp;
        u32 did;

        lp = ep->lp;

        fp = fc_frame_alloc(lp, sizeof(*rrq));
        if (!fp)
                goto retry;

        rrq = fc_frame_payload_get(fp, sizeof(*rrq));
        memset(rrq, 0, sizeof(*rrq));
        rrq->rrq_cmd = ELS_RRQ;
        hton24(rrq->rrq_s_id, ep->sid);
        rrq->rrq_ox_id = htons(ep->oxid);
        rrq->rrq_rx_id = htons(ep->rxid);

        did = ep->did;
        if (ep->esb_stat & ESB_ST_RESP)
                did = ep->sid;

        fc_fill_fc_hdr(fp, FC_RCTL_ELS_REQ, did,
                       fc_host_port_id(lp->host), FC_TYPE_ELS,
                       FC_FC_FIRST_SEQ | FC_FC_END_SEQ | FC_FC_SEQ_INIT, 0);

        if (fc_exch_seq_send(lp, fp, fc_exch_rrq_resp, NULL, ep, lp->e_d_tov))
                return;

retry:
        spin_lock_bh(&ep->ex_lock);
        if (ep->state & (FC_EX_RST_CLEANUP | FC_EX_DONE)) {
                spin_unlock_bh(&ep->ex_lock);
                /* drop hold for rec qual */
                fc_exch_release(ep);
                return;
        }
        ep->esb_stat |= ESB_ST_REC_QUAL;
        fc_exch_timer_set_locked(ep, ep->r_a_tov);
        spin_unlock_bh(&ep->ex_lock);
}


/*
 * Handle incoming ELS RRQ - Reset Recovery Qualifier.
 */
static void fc_exch_els_rrq(struct fc_seq *sp, struct fc_frame *fp)
{
        struct fc_exch *ep;             /* request or subject exchange */
        struct fc_els_rrq *rp;
        u32 sid;
        u16 xid;
        enum fc_els_rjt_explan explan;

        rp = fc_frame_payload_get(fp, sizeof(*rp));
        explan = ELS_EXPL_INV_LEN;
        if (!rp)
                goto reject;

        /*
         * lookup subject exchange.
         */
        ep = fc_seq_exch(sp);
        sid = ntoh24(rp->rrq_s_id);             /* subject source */
        xid = ep->did == sid ? ntohs(rp->rrq_ox_id) : ntohs(rp->rrq_rx_id);
        ep = fc_exch_find(ep->em, xid);

        explan = ELS_EXPL_OXID_RXID;
        if (!ep)
                goto reject;
        spin_lock_bh(&ep->ex_lock);
        if (ep->oxid != ntohs(rp->rrq_ox_id))
                goto unlock_reject;
        if (ep->rxid != ntohs(rp->rrq_rx_id) &&
            ep->rxid != FC_XID_UNKNOWN)
                goto unlock_reject;
        explan = ELS_EXPL_SID;
        if (ep->sid != sid)
                goto unlock_reject;

        /*
         * Clear Recovery Qualifier state, and cancel timer if complete.
         */
        if (ep->esb_stat & ESB_ST_REC_QUAL) {
                ep->esb_stat &= ~ESB_ST_REC_QUAL;
                atomic_dec(&ep->ex_refcnt);     /* drop hold for rec qual */
        }
        if (ep->esb_stat & ESB_ST_COMPLETE) {
                if (cancel_delayed_work(&ep->timeout_work))
                        atomic_dec(&ep->ex_refcnt);     /* drop timer hold */
        }

        spin_unlock_bh(&ep->ex_lock);

        /*
         * Send LS_ACC.
         */
        fc_seq_ls_acc(sp);
        fc_frame_free(fp);
        return;

unlock_reject:
        spin_unlock_bh(&ep->ex_lock);
        fc_exch_release(ep);    /* drop hold from fc_exch_find */
reject:
        fc_seq_ls_rjt(sp, ELS_RJT_LOGIC, explan);
        fc_frame_free(fp);
}

struct fc_exch_mgr_anchor *fc_exch_mgr_add(struct fc_lport *lport,
                                           struct fc_exch_mgr *mp,
                                           bool (*match)(struct fc_frame *))
{
        struct fc_exch_mgr_anchor *ema;

        ema = kmalloc(sizeof(*ema), GFP_ATOMIC);
        if (!ema)
                return ema;

        ema->mp = mp;
        ema->match = match;
        /* add EM anchor to EM anchors list */
        list_add_tail(&ema->ema_list, &lport->ema_list);
        kref_get(&mp->kref);
        return ema;
}
EXPORT_SYMBOL(fc_exch_mgr_add);

static void fc_exch_mgr_destroy(struct kref *kref)
{
        struct fc_exch_mgr *mp = container_of(kref, struct fc_exch_mgr, kref);

        mempool_destroy(mp->ep_pool);
        free_percpu(mp->pool);
        kfree(mp);
}

void fc_exch_mgr_del(struct fc_exch_mgr_anchor *ema)
{
        /* remove EM anchor from EM anchors list */
        list_del(&ema->ema_list);
        kref_put(&ema->mp->kref, fc_exch_mgr_destroy);
        kfree(ema);
}
EXPORT_SYMBOL(fc_exch_mgr_del);

struct fc_exch_mgr *fc_exch_mgr_alloc(struct fc_lport *lp,
                                      enum fc_class class,
                                      u16 min_xid, u16 max_xid,
                                      bool (*match)(struct fc_frame *))
{
        struct fc_exch_mgr *mp;
        u16 pool_exch_range;
        size_t pool_size;
        unsigned int cpu;
        struct fc_exch_pool *pool;

        if (max_xid <= min_xid || max_xid == FC_XID_UNKNOWN ||
            (min_xid & fc_cpu_mask) != 0) {
                FC_LPORT_DBG(lp, "Invalid min_xid 0x:%x and max_xid 0x:%x\n",
                             min_xid, max_xid);
                return NULL;
        }

        /*
         * allocate memory for EM
         */
        mp = kzalloc(sizeof(struct fc_exch_mgr), GFP_ATOMIC);
        if (!mp)
                return NULL;

        mp->class = class;
        /* adjust em exch xid range for offload */
        mp->min_xid = min_xid;
        mp->max_xid = max_xid;

        mp->ep_pool = mempool_create_slab_pool(2, fc_em_cachep);
        if (!mp->ep_pool)
                goto free_mp;

        /*
         * Setup per cpu exch pool with entire exchange id range equally
         * divided across all cpus. The exch pointers array memory is
         * allocated for exch range per pool.
         */
        pool_exch_range = (mp->max_xid - mp->min_xid + 1) / (fc_cpu_mask + 1);
        mp->pool_max_index = pool_exch_range - 1;

        /*
         * Allocate and initialize per cpu exch pool
         */
        pool_size = sizeof(*pool) + pool_exch_range * sizeof(struct fc_exch *);
        mp->pool = __alloc_percpu(pool_size, __alignof__(struct fc_exch_pool));
        if (!mp->pool)
                goto free_mempool;
        for_each_possible_cpu(cpu) {
                pool = per_cpu_ptr(mp->pool, cpu);
                spin_lock_init(&pool->lock);
                INIT_LIST_HEAD(&pool->ex_list);
        }

        kref_init(&mp->kref);
        if (!fc_exch_mgr_add(lp, mp, match)) {
                free_percpu(mp->pool);
                goto free_mempool;
        }

        /*
         * Above kref_init() sets mp->kref to 1 and then
         * call to fc_exch_mgr_add incremented mp->kref again,
         * so adjust that extra increment.
         */
        kref_put(&mp->kref, fc_exch_mgr_destroy);
        return mp;

free_mempool:
        mempool_destroy(mp->ep_pool);
free_mp:
        kfree(mp);
        return NULL;
}
EXPORT_SYMBOL(fc_exch_mgr_alloc);

void fc_exch_mgr_free(struct fc_lport *lport)
{
        struct fc_exch_mgr_anchor *ema, *next;

        list_for_each_entry_safe(ema, next, &lport->ema_list, ema_list)
                fc_exch_mgr_del(ema);
}
EXPORT_SYMBOL(fc_exch_mgr_free);


struct fc_seq *fc_exch_seq_send(struct fc_lport *lp,
                                struct fc_frame *fp,
                                void (*resp)(struct fc_seq *,
                                             struct fc_frame *fp,
                                             void *arg),
                                void (*destructor)(struct fc_seq *, void *),
                                void *arg, u32 timer_msec)
{
        struct fc_exch *ep;
        struct fc_seq *sp = NULL;
        struct fc_frame_header *fh;
        int rc = 1;

        ep = fc_exch_alloc(lp, fp);
        if (!ep) {
                fc_frame_free(fp);
                return NULL;
        }
        ep->esb_stat |= ESB_ST_SEQ_INIT;
        fh = fc_frame_header_get(fp);
        fc_exch_set_addr(ep, ntoh24(fh->fh_s_id), ntoh24(fh->fh_d_id));
        ep->resp = resp;
        ep->destructor = destructor;
        ep->arg = arg;
        ep->r_a_tov = FC_DEF_R_A_TOV;
        ep->lp = lp;
        sp = &ep->seq;

        ep->fh_type = fh->fh_type; /* save for possbile timeout handling */
        ep->f_ctl = ntoh24(fh->fh_f_ctl);
        fc_exch_setup_hdr(ep, fp, ep->f_ctl);
        sp->cnt++;

        if (ep->xid <= lp->lro_xid)
                fc_fcp_ddp_setup(fr_fsp(fp), ep->xid);

        if (unlikely(lp->tt.frame_send(lp, fp)))
                goto err;

        if (timer_msec)
                fc_exch_timer_set_locked(ep, timer_msec);
        ep->f_ctl &= ~FC_FC_FIRST_SEQ;  /* not first seq */

        if (ep->f_ctl & FC_FC_SEQ_INIT)
                ep->esb_stat &= ~ESB_ST_SEQ_INIT;
        spin_unlock_bh(&ep->ex_lock);
        return sp;
err:
        rc = fc_exch_done_locked(ep);
        spin_unlock_bh(&ep->ex_lock);
        if (!rc)
                fc_exch_delete(ep);
        return NULL;
}
EXPORT_SYMBOL(fc_exch_seq_send);

/*
 * Receive a frame
 */
void fc_exch_recv(struct fc_lport *lp, struct fc_frame *fp)
{
        struct fc_frame_header *fh = fc_frame_header_get(fp);
        struct fc_exch_mgr_anchor *ema;
        u32 f_ctl, found = 0;
        u16 oxid;

        /* lport lock ? */
        if (!lp || lp->state == LPORT_ST_DISABLED) {
                FC_LPORT_DBG(lp, "Receiving frames for an lport that "
                             "has not been initialized correctly\n");
                fc_frame_free(fp);
                return;
        }

        f_ctl = ntoh24(fh->fh_f_ctl);
        oxid = ntohs(fh->fh_ox_id);
        if (f_ctl & FC_FC_EX_CTX) {
                list_for_each_entry(ema, &lp->ema_list, ema_list) {
                        if ((oxid >= ema->mp->min_xid) &&
                            (oxid <= ema->mp->max_xid)) {
                                found = 1;
                                break;
                        }
                }

                if (!found) {
                        FC_LPORT_DBG(lp, "Received response for out "
                                     "of range oxid:%hx\n", oxid);
                        fc_frame_free(fp);
                        return;
                }
        } else
                ema = list_entry(lp->ema_list.prev, typeof(*ema), ema_list);

        /*
         * If frame is marked invalid, just drop it.
         */
        switch (fr_eof(fp)) {
        case FC_EOF_T:
                if (f_ctl & FC_FC_END_SEQ)
                        skb_trim(fp_skb(fp), fr_len(fp) - FC_FC_FILL(f_ctl));
                /* fall through */
        case FC_EOF_N:
                if (fh->fh_type == FC_TYPE_BLS)
                        fc_exch_recv_bls(ema->mp, fp);
                else if ((f_ctl & (FC_FC_EX_CTX | FC_FC_SEQ_CTX)) ==
                         FC_FC_EX_CTX)
                        fc_exch_recv_seq_resp(ema->mp, fp);
                else if (f_ctl & FC_FC_SEQ_CTX)
                        fc_exch_recv_resp(ema->mp, fp);
                else
                        fc_exch_recv_req(lp, ema->mp, fp);
                break;
        default:
                FC_LPORT_DBG(lp, "dropping invalid frame (eof %x)", fr_eof(fp));
                fc_frame_free(fp);
        }
}
EXPORT_SYMBOL(fc_exch_recv);

int fc_exch_init(struct fc_lport *lp)
{
        if (!lp->tt.seq_start_next)
                lp->tt.seq_start_next = fc_seq_start_next;

        if (!lp->tt.exch_seq_send)
                lp->tt.exch_seq_send = fc_exch_seq_send;

        if (!lp->tt.seq_send)
                lp->tt.seq_send = fc_seq_send;

        if (!lp->tt.seq_els_rsp_send)
                lp->tt.seq_els_rsp_send = fc_seq_els_rsp_send;

        if (!lp->tt.exch_done)
                lp->tt.exch_done = fc_exch_done;

        if (!lp->tt.exch_mgr_reset)
                lp->tt.exch_mgr_reset = fc_exch_mgr_reset;

        if (!lp->tt.seq_exch_abort)
                lp->tt.seq_exch_abort = fc_seq_exch_abort;

        /*
         * Initialize fc_cpu_mask and fc_cpu_order. The
         * fc_cpu_mask is set for nr_cpu_ids rounded up
         * to order of 2's * power and order is stored
         * in fc_cpu_order as this is later required in
         * mapping between an exch id and exch array index
         * in per cpu exch pool.
         *
         * This round up is required to align fc_cpu_mask
         * to exchange id's lower bits such that all incoming
         * frames of an exchange gets delivered to the same
         * cpu on which exchange originated by simple bitwise
         * AND operation between fc_cpu_mask and exchange id.
         */
        fc_cpu_mask = 1;
        fc_cpu_order = 0;
        while (fc_cpu_mask < nr_cpu_ids) {
                fc_cpu_mask <<= 1;
                fc_cpu_order++;
        }
        fc_cpu_mask--;

        return 0;
}
EXPORT_SYMBOL(fc_exch_init);

int fc_setup_exch_mgr(void)
{
        fc_em_cachep = kmem_cache_create("libfc_em", sizeof(struct fc_exch),
                                         0, SLAB_HWCACHE_ALIGN, NULL);
        if (!fc_em_cachep)
                return -ENOMEM;
        return 0;
}

void fc_destroy_exch_mgr(void)
{
        kmem_cache_destroy(fc_em_cachep);
}