/*-
 * SPDX-License-Identifier: BSD-2-Clause OR GPL-2.0
 *
 * Copyright (c) 2004, 2005 Topspin Communications.  All rights reserved.
 * Copyright (c) 2005 Mellanox Technologies. All rights reserved.
 *
 * This software is available to you under a choice of one of two
 * licenses.  You may choose to be licensed under the terms of the GNU
 * General Public License (GPL) Version 2, available from the file
 * COPYING in the main directory of this source tree, or the
 * OpenIB.org BSD license below:
 *
 *     Redistribution and use in source and binary forms, with or
 *     without modification, are permitted provided that the following
 *     conditions are met:
 *
 *      - Redistributions of source code must retain the above
 *        copyright notice, this list of conditions and the following
 *        disclaimer.
 *
 *      - Redistributions in binary form must reproduce the above
 *        copyright notice, this list of conditions and the following
 *        disclaimer in the documentation and/or other materials
 *        provided with the distribution.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
 * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
 * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
 * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 */

#include <sys/cdefs.h>
#include "ipoib.h"

int ipoib_mcast_attach(struct ipoib_dev_priv *priv, u16 mlid, union ib_gid *mgid, int set_qkey)
{
        struct ib_qp_attr *qp_attr = NULL;
        int ret;
        u16 pkey_index;

        if (ib_find_pkey(priv->ca, priv->port, priv->pkey, &pkey_index)) {
                clear_bit(IPOIB_PKEY_ASSIGNED, &priv->flags);
                ret = -ENXIO;
                goto out;
        }
        set_bit(IPOIB_PKEY_ASSIGNED, &priv->flags);

        if (set_qkey) {
                ret = -ENOMEM;
                qp_attr = kmalloc(sizeof *qp_attr, GFP_KERNEL);
                if (!qp_attr)
                        goto out;

                /* set correct QKey for QP */
                qp_attr->qkey = priv->qkey;
                ret = ib_modify_qp(priv->qp, qp_attr, IB_QP_QKEY);
                if (ret) {
                        ipoib_warn(priv, "failed to modify QP, ret = %d\n", ret);
                        goto out;
                }
        }

        /* attach QP to multicast group */
        ret = ib_attach_mcast(priv->qp, mgid, mlid);
        if (ret)
                ipoib_warn(priv, "failed to attach to multicast group, ret = %d\n", ret);

out:
        kfree(qp_attr);
        return ret;
}

int ipoib_init_qp(struct ipoib_dev_priv *priv)
{
        int ret;
        struct ib_qp_attr qp_attr;
        int attr_mask;

        if (!test_bit(IPOIB_PKEY_ASSIGNED, &priv->flags))
                return -1;

        qp_attr.qp_state = IB_QPS_INIT;
        qp_attr.qkey = 0;
        qp_attr.port_num = priv->port;
        qp_attr.pkey_index = priv->pkey_index;
        attr_mask =
            IB_QP_QKEY |
            IB_QP_PORT |
            IB_QP_PKEY_INDEX |
            IB_QP_STATE;

        ret = ib_modify_qp(priv->qp, &qp_attr, attr_mask);
        if (ret) {
                ipoib_warn(priv, "failed to modify QP to init, ret = %d\n", ret);
                goto out_fail;
        }

        qp_attr.qp_state = IB_QPS_RTR;
        /* Can't set this in a INIT->RTR transition */
        attr_mask &= ~IB_QP_PORT;
        ret = ib_modify_qp(priv->qp, &qp_attr, attr_mask);
        if (ret) {
                ipoib_warn(priv, "failed to modify QP to RTR, ret = %d\n", ret);
                goto out_fail;
        }

        qp_attr.qp_state = IB_QPS_RTS;
        qp_attr.sq_psn = 0;
        attr_mask |= IB_QP_SQ_PSN;
        attr_mask &= ~IB_QP_PKEY_INDEX;
        ret = ib_modify_qp(priv->qp, &qp_attr, attr_mask);
        if (ret) {
                ipoib_warn(priv, "failed to modify QP to RTS, ret = %d\n", ret);
                goto out_fail;
        }

        return 0;

out_fail:
        qp_attr.qp_state = IB_QPS_RESET;
        if (ib_modify_qp(priv->qp, &qp_attr, IB_QP_STATE))
                ipoib_warn(priv, "Failed to modify QP to RESET state\n");

        return ret;
}

int ipoib_transport_dev_init(struct ipoib_dev_priv *priv, struct ib_device *ca)
{
        struct ib_qp_init_attr init_attr = {
                .cap = {
                        .max_send_wr  = ipoib_sendq_size,
                        .max_recv_wr  = ipoib_recvq_size,
                        .max_send_sge = 1,
                        .max_recv_sge = IPOIB_UD_RX_SG
                },
                .sq_sig_type = IB_SIGNAL_ALL_WR,
                .qp_type     = IB_QPT_UD
        };
        struct ib_cq_init_attr cq_attr = {};
        caddr_t lla;

        int ret, size;
        int i;
        /* XXX struct ethtool_coalesce *coal; */

        priv->pd = ib_alloc_pd(priv->ca, 0);
        if (IS_ERR(priv->pd)) {
                printk(KERN_WARNING "%s: failed to allocate PD\n", ca->name);
                return -ENODEV;
        }

        size = ipoib_recvq_size + 1;
        ret = ipoib_cm_dev_init(priv);
        if (!ret) {
                size += ipoib_sendq_size;
                if (ipoib_cm_has_srq(priv))
                        size += ipoib_recvq_size + 1; /* 1 extra for rx_drain_qp */
                else
                        size += ipoib_recvq_size * ipoib_max_conn_qp;
        }

        cq_attr.cqe = size;
        priv->recv_cq = ib_create_cq(priv->ca, ipoib_ib_completion, NULL, priv, &cq_attr);
        if (IS_ERR(priv->recv_cq)) {
                printk(KERN_WARNING "%s: failed to create receive CQ\n", ca->name);
                goto out_free_mr;
        }

        cq_attr.cqe = ipoib_sendq_size;
        priv->send_cq = ib_create_cq(priv->ca, ipoib_send_comp_handler, NULL,
                                     priv, &cq_attr);
        if (IS_ERR(priv->send_cq)) {
                printk(KERN_WARNING "%s: failed to create send CQ\n", ca->name);
                goto out_free_recv_cq;
        }

        if (ib_req_notify_cq(priv->recv_cq, IB_CQ_NEXT_COMP))
                goto out_free_send_cq;

#if 0
        /* XXX */
        coal = kzalloc(sizeof *coal, GFP_KERNEL);
        if (coal) {
                coal->rx_coalesce_usecs = 10;
                coal->tx_coalesce_usecs = 10;
                coal->rx_max_coalesced_frames = 16;
                coal->tx_max_coalesced_frames = 16;
                dev->ethtool_ops->set_coalesce(dev, coal);
                kfree(coal);
        }
#endif

        init_attr.send_cq = priv->send_cq;
        init_attr.recv_cq = priv->recv_cq;

        if (priv->hca_caps & IB_DEVICE_UD_TSO)
                init_attr.create_flags |= IB_QP_CREATE_IPOIB_UD_LSO;

        if (priv->hca_caps & IB_DEVICE_BLOCK_MULTICAST_LOOPBACK)
                init_attr.create_flags |= IB_QP_CREATE_BLOCK_MULTICAST_LOOPBACK;

        init_attr.cap.max_send_sge = IPOIB_UD_TX_SG;

        priv->qp = ib_create_qp(priv->pd, &init_attr);
        if (IS_ERR(priv->qp)) {
                printk(KERN_WARNING "%s: failed to create QP\n", ca->name);
                goto out_free_send_cq;
        }

        lla = if_getlladdr(priv->dev);
        lla[1] = (priv->qp->qp_num >> 16) & 0xff;
        lla[2] = (priv->qp->qp_num >>  8) & 0xff;
        lla[3] = (priv->qp->qp_num      ) & 0xff;

        for (i = 0; i < IPOIB_MAX_TX_SG; ++i)
                priv->tx_sge[i].lkey = priv->pd->local_dma_lkey;

        priv->tx_wr.wr.opcode           = IB_WR_SEND;
        priv->tx_wr.wr.sg_list          = priv->tx_sge;
        priv->tx_wr.wr.send_flags       = IB_SEND_SIGNALED;

        for (i = 0; i < IPOIB_UD_RX_SG; ++i)
                priv->rx_sge[i].lkey = priv->pd->local_dma_lkey;
        priv->rx_wr.next = NULL;
        priv->rx_wr.sg_list = priv->rx_sge;

        return 0;

out_free_send_cq:
        ib_destroy_cq(priv->send_cq);

out_free_recv_cq:
        ib_destroy_cq(priv->recv_cq);

out_free_mr:
        ipoib_cm_dev_cleanup(priv);

        ib_dealloc_pd(priv->pd);
        return -ENODEV;
}

void ipoib_transport_dev_cleanup(struct ipoib_dev_priv *priv)
{

        if (priv->qp) {
                if (ib_destroy_qp(priv->qp))
                        ipoib_warn(priv, "ib_qp_destroy failed\n");

                priv->qp = NULL;
                clear_bit(IPOIB_PKEY_ASSIGNED, &priv->flags);
        }

        ib_destroy_cq(priv->send_cq);

        ib_destroy_cq(priv->recv_cq);

        ipoib_cm_dev_cleanup(priv);

        ib_dealloc_pd(priv->pd);
}

void ipoib_event(struct ib_event_handler *handler,
                 struct ib_event *record)
{
        struct ipoib_dev_priv *priv =
                container_of(handler, struct ipoib_dev_priv, event_handler);

        if (record->element.port_num != priv->port)
                return;

        ipoib_dbg(priv, "Event %d on device %s port %d\n", record->event,
                  record->device->name, record->element.port_num);

        if (record->event == IB_EVENT_SM_CHANGE ||
            record->event == IB_EVENT_CLIENT_REREGISTER) {
                queue_work(ipoib_workqueue, &priv->flush_light);
        } else if (record->event == IB_EVENT_PORT_ERR ||
                   record->event == IB_EVENT_PORT_ACTIVE ||
                   record->event == IB_EVENT_LID_CHANGE ||
                   record->event == IB_EVENT_DEVICE_FATAL) {
                queue_work(ipoib_workqueue, &priv->flush_normal);
        } else if (record->event == IB_EVENT_PKEY_CHANGE) {
                queue_work(ipoib_workqueue, &priv->flush_heavy);
        }
}