lseek(fd, n, SEEK_END) does *not* go to eof - n

[linux-2.6/ubuntu-intrepid-eeepc.git] / drivers / misc / mei / hw-me.c

/*
 *
 * Intel Management Engine Interface (Intel MEI) Linux driver
 * Copyright (c) 2003-2012, Intel Corporation.
 *
 * 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.
 *
 */

#include <linux/pci.h>

#include <linux/kthread.h>
#include <linux/interrupt.h>

#include "mei_dev.h"
#include "hw-me.h"

#include "hbm.h"


/**
 * mei_me_reg_read - Reads 32bit data from the mei device
 *
 * @dev: the device structure
 * @offset: offset from which to read the data
 *
 * returns register value (u32)
 */
static inline u32 mei_me_reg_read(const struct mei_me_hw *hw,
                               unsigned long offset)
{
        return ioread32(hw->mem_addr + offset);
}


/**
 * mei_me_reg_write - Writes 32bit data to the mei device
 *
 * @dev: the device structure
 * @offset: offset from which to write the data
 * @value: register value to write (u32)
 */
static inline void mei_me_reg_write(const struct mei_me_hw *hw,
                                 unsigned long offset, u32 value)
{
        iowrite32(value, hw->mem_addr + offset);
}

/**
 * mei_me_mecbrw_read - Reads 32bit data from ME circular buffer
 *  read window register
 *
 * @dev: the device structure
 *
 * returns ME_CB_RW register value (u32)
 */
static u32 mei_me_mecbrw_read(const struct mei_device *dev)
{
        return mei_me_reg_read(to_me_hw(dev), ME_CB_RW);
}
/**
 * mei_me_mecsr_read - Reads 32bit data from the ME CSR
 *
 * @dev: the device structure
 *
 * returns ME_CSR_HA register value (u32)
 */
static inline u32 mei_me_mecsr_read(const struct mei_me_hw *hw)
{
        return mei_me_reg_read(hw, ME_CSR_HA);
}

/**
 * mei_hcsr_read - Reads 32bit data from the host CSR
 *
 * @dev: the device structure
 *
 * returns H_CSR register value (u32)
 */
static inline u32 mei_hcsr_read(const struct mei_me_hw *hw)
{
        return mei_me_reg_read(hw, H_CSR);
}

/**
 * mei_hcsr_set - writes H_CSR register to the mei device,
 * and ignores the H_IS bit for it is write-one-to-zero.
 *
 * @dev: the device structure
 */
static inline void mei_hcsr_set(struct mei_me_hw *hw, u32 hcsr)
{
        hcsr &= ~H_IS;
        mei_me_reg_write(hw, H_CSR, hcsr);
}


/**
 * mei_me_hw_config - configure hw dependent settings
 *
 * @dev: mei device
 */
static void mei_me_hw_config(struct mei_device *dev)
{
        u32 hcsr = mei_hcsr_read(to_me_hw(dev));
        /* Doesn't change in runtime */
        dev->hbuf_depth = (hcsr & H_CBD) >> 24;
}
/**
 * mei_clear_interrupts - clear and stop interrupts
 *
 * @dev: the device structure
 */
static void mei_me_intr_clear(struct mei_device *dev)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        u32 hcsr = mei_hcsr_read(hw);
        if ((hcsr & H_IS) == H_IS)
                mei_me_reg_write(hw, H_CSR, hcsr);
}
/**
 * mei_me_intr_enable - enables mei device interrupts
 *
 * @dev: the device structure
 */
static void mei_me_intr_enable(struct mei_device *dev)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        u32 hcsr = mei_hcsr_read(hw);
        hcsr |= H_IE;
        mei_hcsr_set(hw, hcsr);
}

/**
 * mei_disable_interrupts - disables mei device interrupts
 *
 * @dev: the device structure
 */
static void mei_me_intr_disable(struct mei_device *dev)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        u32 hcsr = mei_hcsr_read(hw);
        hcsr  &= ~H_IE;
        mei_hcsr_set(hw, hcsr);
}

/**
 * mei_me_hw_reset_release - release device from the reset
 *
 * @dev: the device structure
 */
static void mei_me_hw_reset_release(struct mei_device *dev)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        u32 hcsr = mei_hcsr_read(hw);

        hcsr |= H_IG;
        hcsr &= ~H_RST;
        mei_hcsr_set(hw, hcsr);
}
/**
 * mei_me_hw_reset - resets fw via mei csr register.
 *
 * @dev: the device structure
 * @intr_enable: if interrupt should be enabled after reset.
 */
static void mei_me_hw_reset(struct mei_device *dev, bool intr_enable)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        u32 hcsr = mei_hcsr_read(hw);

        dev_dbg(&dev->pdev->dev, "before reset HCSR = 0x%08x.\n", hcsr);

        hcsr |= (H_RST | H_IG);

        if (intr_enable)
                hcsr |= H_IE;
        else
                hcsr |= ~H_IE;

        mei_hcsr_set(hw, hcsr);

        if (dev->dev_state == MEI_DEV_POWER_DOWN)
                mei_me_hw_reset_release(dev);

        dev_dbg(&dev->pdev->dev, "current HCSR = 0x%08x.\n", mei_hcsr_read(hw));
}

/**
 * mei_me_host_set_ready - enable device
 *
 * @dev - mei device
 * returns bool
 */

static void mei_me_host_set_ready(struct mei_device *dev)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        hw->host_hw_state |= H_IE | H_IG | H_RDY;
        mei_hcsr_set(hw, hw->host_hw_state);
}
/**
 * mei_me_host_is_ready - check whether the host has turned ready
 *
 * @dev - mei device
 * returns bool
 */
static bool mei_me_host_is_ready(struct mei_device *dev)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        hw->host_hw_state = mei_hcsr_read(hw);
        return (hw->host_hw_state & H_RDY) == H_RDY;
}

/**
 * mei_me_hw_is_ready - check whether the me(hw) has turned ready
 *
 * @dev - mei device
 * returns bool
 */
static bool mei_me_hw_is_ready(struct mei_device *dev)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        hw->me_hw_state = mei_me_mecsr_read(hw);
        return (hw->me_hw_state & ME_RDY_HRA) == ME_RDY_HRA;
}

static int mei_me_hw_ready_wait(struct mei_device *dev)
{
        int err;
        if (mei_me_hw_is_ready(dev))
                return 0;

        mutex_unlock(&dev->device_lock);
        err = wait_event_interruptible_timeout(dev->wait_hw_ready,
                        dev->recvd_hw_ready, MEI_INTEROP_TIMEOUT);
        mutex_lock(&dev->device_lock);
        if (!err && !dev->recvd_hw_ready) {
                dev_err(&dev->pdev->dev,
                        "wait hw ready failed. status = 0x%x\n", err);
                return -ETIMEDOUT;
        }

        dev->recvd_hw_ready = false;
        return 0;
}

static int mei_me_hw_start(struct mei_device *dev)
{
        int ret = mei_me_hw_ready_wait(dev);
        if (ret)
                return ret;
        dev_dbg(&dev->pdev->dev, "hw is ready\n");

        mei_me_host_set_ready(dev);
        return ret;
}


/**
 * mei_hbuf_filled_slots - gets number of device filled buffer slots
 *
 * @dev: the device structure
 *
 * returns number of filled slots
 */
static unsigned char mei_hbuf_filled_slots(struct mei_device *dev)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        char read_ptr, write_ptr;

        hw->host_hw_state = mei_hcsr_read(hw);

        read_ptr = (char) ((hw->host_hw_state & H_CBRP) >> 8);
        write_ptr = (char) ((hw->host_hw_state & H_CBWP) >> 16);

        return (unsigned char) (write_ptr - read_ptr);
}

/**
 * mei_me_hbuf_is_empty - checks if host buffer is empty.
 *
 * @dev: the device structure
 *
 * returns true if empty, false - otherwise.
 */
static bool mei_me_hbuf_is_empty(struct mei_device *dev)
{
        return mei_hbuf_filled_slots(dev) == 0;
}

/**
 * mei_me_hbuf_empty_slots - counts write empty slots.
 *
 * @dev: the device structure
 *
 * returns -1(ESLOTS_OVERFLOW) if overflow, otherwise empty slots count
 */
static int mei_me_hbuf_empty_slots(struct mei_device *dev)
{
        unsigned char filled_slots, empty_slots;

        filled_slots = mei_hbuf_filled_slots(dev);
        empty_slots = dev->hbuf_depth - filled_slots;

        /* check for overflow */
        if (filled_slots > dev->hbuf_depth)
                return -EOVERFLOW;

        return empty_slots;
}

static size_t mei_me_hbuf_max_len(const struct mei_device *dev)
{
        return dev->hbuf_depth * sizeof(u32) - sizeof(struct mei_msg_hdr);
}


/**
 * mei_write_message - writes a message to mei device.
 *
 * @dev: the device structure
 * @header: mei HECI header of message
 * @buf: message payload will be written
 *
 * This function returns -EIO if write has failed
 */
static int mei_me_write_message(struct mei_device *dev,
                        struct mei_msg_hdr *header,
                        unsigned char *buf)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        unsigned long rem;
        unsigned long length = header->length;
        u32 *reg_buf = (u32 *)buf;
        u32 hcsr;
        u32 dw_cnt;
        int i;
        int empty_slots;

        dev_dbg(&dev->pdev->dev, MEI_HDR_FMT, MEI_HDR_PRM(header));

        empty_slots = mei_hbuf_empty_slots(dev);
        dev_dbg(&dev->pdev->dev, "empty slots = %hu.\n", empty_slots);

        dw_cnt = mei_data2slots(length);
        if (empty_slots < 0 || dw_cnt > empty_slots)
                return -EIO;

        mei_me_reg_write(hw, H_CB_WW, *((u32 *) header));

        for (i = 0; i < length / 4; i++)
                mei_me_reg_write(hw, H_CB_WW, reg_buf[i]);

        rem = length & 0x3;
        if (rem > 0) {
                u32 reg = 0;
                memcpy(&reg, &buf[length - rem], rem);
                mei_me_reg_write(hw, H_CB_WW, reg);
        }

        hcsr = mei_hcsr_read(hw) | H_IG;
        mei_hcsr_set(hw, hcsr);
        if (!mei_me_hw_is_ready(dev))
                return -EIO;

        return 0;
}

/**
 * mei_me_count_full_read_slots - counts read full slots.
 *
 * @dev: the device structure
 *
 * returns -1(ESLOTS_OVERFLOW) if overflow, otherwise filled slots count
 */
static int mei_me_count_full_read_slots(struct mei_device *dev)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        char read_ptr, write_ptr;
        unsigned char buffer_depth, filled_slots;

        hw->me_hw_state = mei_me_mecsr_read(hw);
        buffer_depth = (unsigned char)((hw->me_hw_state & ME_CBD_HRA) >> 24);
        read_ptr = (char) ((hw->me_hw_state & ME_CBRP_HRA) >> 8);
        write_ptr = (char) ((hw->me_hw_state & ME_CBWP_HRA) >> 16);
        filled_slots = (unsigned char) (write_ptr - read_ptr);

        /* check for overflow */
        if (filled_slots > buffer_depth)
                return -EOVERFLOW;

        dev_dbg(&dev->pdev->dev, "filled_slots =%08x\n", filled_slots);
        return (int)filled_slots;
}

/**
 * mei_me_read_slots - reads a message from mei device.
 *
 * @dev: the device structure
 * @buffer: message buffer will be written
 * @buffer_length: message size will be read
 */
static int mei_me_read_slots(struct mei_device *dev, unsigned char *buffer,
                    unsigned long buffer_length)
{
        struct mei_me_hw *hw = to_me_hw(dev);
        u32 *reg_buf = (u32 *)buffer;
        u32 hcsr;

        for (; buffer_length >= sizeof(u32); buffer_length -= sizeof(u32))
                *reg_buf++ = mei_me_mecbrw_read(dev);

        if (buffer_length > 0) {
                u32 reg = mei_me_mecbrw_read(dev);
                memcpy(reg_buf, &reg, buffer_length);
        }

        hcsr = mei_hcsr_read(hw) | H_IG;
        mei_hcsr_set(hw, hcsr);
        return 0;
}

/**
 * mei_me_irq_quick_handler - The ISR of the MEI device
 *
 * @irq: The irq number
 * @dev_id: pointer to the device structure
 *
 * returns irqreturn_t
 */

irqreturn_t mei_me_irq_quick_handler(int irq, void *dev_id)
{
        struct mei_device *dev = (struct mei_device *) dev_id;
        struct mei_me_hw *hw = to_me_hw(dev);
        u32 csr_reg = mei_hcsr_read(hw);

        if ((csr_reg & H_IS) != H_IS)
                return IRQ_NONE;

        /* clear H_IS bit in H_CSR */
        mei_me_reg_write(hw, H_CSR, csr_reg);

        return IRQ_WAKE_THREAD;
}

/**
 * mei_me_irq_thread_handler - function called after ISR to handle the interrupt
 * processing.
 *
 * @irq: The irq number
 * @dev_id: pointer to the device structure
 *
 * returns irqreturn_t
 *
 */
irqreturn_t mei_me_irq_thread_handler(int irq, void *dev_id)
{
        struct mei_device *dev = (struct mei_device *) dev_id;
        struct mei_cl_cb complete_list;
        s32 slots;
        int rets;

        dev_dbg(&dev->pdev->dev, "function called after ISR to handle the interrupt processing.\n");
        /* initialize our complete list */
        mutex_lock(&dev->device_lock);
        mei_io_list_init(&complete_list);

        /* Ack the interrupt here
         * In case of MSI we don't go through the quick handler */
        if (pci_dev_msi_enabled(dev->pdev))
                mei_clear_interrupts(dev);

        /* check if ME wants a reset */
        if (!mei_hw_is_ready(dev) &&
            dev->dev_state != MEI_DEV_RESETTING &&
            dev->dev_state != MEI_DEV_INITIALIZING) {
                dev_dbg(&dev->pdev->dev, "FW not ready.\n");
                mei_reset(dev, 1);
                mutex_unlock(&dev->device_lock);
                return IRQ_HANDLED;
        }

        /*  check if we need to start the dev */
        if (!mei_host_is_ready(dev)) {
                if (mei_hw_is_ready(dev)) {
                        dev_dbg(&dev->pdev->dev, "we need to start the dev.\n");

                        dev->recvd_hw_ready = true;
                        wake_up_interruptible(&dev->wait_hw_ready);

                        mutex_unlock(&dev->device_lock);
                        return IRQ_HANDLED;
                } else {
                        dev_dbg(&dev->pdev->dev, "Reset Completed.\n");
                        mei_me_hw_reset_release(dev);
                        mutex_unlock(&dev->device_lock);
                        return IRQ_HANDLED;
                }
        }
        /* check slots available for reading */
        slots = mei_count_full_read_slots(dev);
        while (slots > 0) {
                /* we have urgent data to send so break the read */
                if (dev->wr_ext_msg.hdr.length)
                        break;
                dev_dbg(&dev->pdev->dev, "slots =%08x\n", slots);
                dev_dbg(&dev->pdev->dev, "call mei_irq_read_handler.\n");
                rets = mei_irq_read_handler(dev, &complete_list, &slots);
                if (rets)
                        goto end;
        }
        rets = mei_irq_write_handler(dev, &complete_list);
end:
        dev_dbg(&dev->pdev->dev, "end of bottom half function.\n");
        dev->hbuf_is_ready = mei_hbuf_is_ready(dev);

        mutex_unlock(&dev->device_lock);

        mei_irq_compl_handler(dev, &complete_list);

        return IRQ_HANDLED;
}
static const struct mei_hw_ops mei_me_hw_ops = {

        .host_is_ready = mei_me_host_is_ready,

        .hw_is_ready = mei_me_hw_is_ready,
        .hw_reset = mei_me_hw_reset,
        .hw_config = mei_me_hw_config,
        .hw_start = mei_me_hw_start,

        .intr_clear = mei_me_intr_clear,
        .intr_enable = mei_me_intr_enable,
        .intr_disable = mei_me_intr_disable,

        .hbuf_free_slots = mei_me_hbuf_empty_slots,
        .hbuf_is_ready = mei_me_hbuf_is_empty,
        .hbuf_max_len = mei_me_hbuf_max_len,

        .write = mei_me_write_message,

        .rdbuf_full_slots = mei_me_count_full_read_slots,
        .read_hdr = mei_me_mecbrw_read,
        .read = mei_me_read_slots
};

/**
 * mei_me_dev_init - allocates and initializes the mei device structure
 *
 * @pdev: The pci device structure
 *
 * returns The mei_device_device pointer on success, NULL on failure.
 */
struct mei_device *mei_me_dev_init(struct pci_dev *pdev)
{
        struct mei_device *dev;

        dev = kzalloc(sizeof(struct mei_device) +
                         sizeof(struct mei_me_hw), GFP_KERNEL);
        if (!dev)
                return NULL;

        mei_device_init(dev);

        dev->ops = &mei_me_hw_ops;

        dev->pdev = pdev;
        return dev;
}