Quelle  atmel-i2c.c   Sprache: C

// SPDX-License-Identifier: GPL-2.0
/*
 * Microchip / Atmel ECC (I2C) driver.
 *
 * Copyright (c) 2017, Microchip Technology Inc.
 * Author: Tudor Ambarus
 */

#include <linux/bitrev.h>
#include <linux/crc16.h>
#include <linux/delay.h>
#include <linux/device.h>
#include <linux/err.h>
#include <linux/errno.h>
#include <linux/i2c.h>
#include <linux/init.h>
#include <linux/kernel.h>
#include <linux/module.h>
#include <linux/scatterlist.h>
#include <linux/slab.h>
#include <linux/workqueue.h>
#include "atmel-i2c.h"

static const struct {
 u8 value;
 const char *error_text;
} error_list[] = {
 { 0x01, "CheckMac or Verify miscompare" },
 { 0x03, "Parse Error" },
 { 0x05, "ECC Fault" },
 { 0x0F, "Execution Error" },
 { 0xEE, "Watchdog about to expire" },
 { 0xFF, "CRC or other communication error" },
};

/**
 * atmel_i2c_checksum() - Generate 16-bit CRC as required by ATMEL ECC.
 * CRC16 verification of the count, opcode, param1, param2 and data bytes.
 * The checksum is saved in little-endian format in the least significant
 * two bytes of the command. CRC polynomial is 0x8005 and the initial register
 * value should be zero.
 *
 * @cmd : structure used for communicating with the device.
 */
static void atmel_i2c_checksum(struct atmel_i2c_cmd *cmd)
{
 u8 *data = &cmd->count;
 size_t len = cmd->count - CRC_SIZE;
 __le16 *__crc16 = (__le16 *)(data + len);

 *__crc16 = cpu_to_le16(bitrev16(crc16(0, data, len)));
}

void atmel_i2c_init_read_config_cmd(struct atmel_i2c_cmd *cmd)
{
 cmd->word_addr = COMMAND;
 cmd->opcode = OPCODE_READ;
 /*
 * Read the word from Configuration zone that contains the lock bytes
 * (UserExtra, Selector, LockValue, LockConfig).
 */
 cmd->param1 = CONFIGURATION_ZONE;
 cmd->param2 = cpu_to_le16(DEVICE_LOCK_ADDR);
 cmd->count = READ_COUNT;

 atmel_i2c_checksum(cmd);

 cmd->msecs = MAX_EXEC_TIME_READ;
 cmd->rxsize = READ_RSP_SIZE;
}
EXPORT_SYMBOL(atmel_i2c_init_read_config_cmd);

int atmel_i2c_init_read_otp_cmd(struct atmel_i2c_cmd *cmd, u16 addr)
{
 if (addr < 0 || addr > OTP_ZONE_SIZE)
  return -1;

 cmd->word_addr = COMMAND;
 cmd->opcode = OPCODE_READ;
 /*
 * Read the word from OTP zone that may contain e.g. serial
 * numbers or similar if persistently pre-initialized and locked
 */
 cmd->param1 = OTP_ZONE;
 cmd->param2 = cpu_to_le16(addr);
 cmd->count = READ_COUNT;

 atmel_i2c_checksum(cmd);

 cmd->msecs = MAX_EXEC_TIME_READ;
 cmd->rxsize = READ_RSP_SIZE;

 return 0;
}
EXPORT_SYMBOL(atmel_i2c_init_read_otp_cmd);

void atmel_i2c_init_random_cmd(struct atmel_i2c_cmd *cmd)
{
 cmd->word_addr = COMMAND;
 cmd->opcode = OPCODE_RANDOM;
 cmd->param1 = 0;
 cmd->param2 = 0;
 cmd->count = RANDOM_COUNT;

 atmel_i2c_checksum(cmd);

 cmd->msecs = MAX_EXEC_TIME_RANDOM;
 cmd->rxsize = RANDOM_RSP_SIZE;
}
EXPORT_SYMBOL(atmel_i2c_init_random_cmd);

void atmel_i2c_init_genkey_cmd(struct atmel_i2c_cmd *cmd, u16 keyid)
{
 cmd->word_addr = COMMAND;
 cmd->count = GENKEY_COUNT;
 cmd->opcode = OPCODE_GENKEY;
 cmd->param1 = GENKEY_MODE_PRIVATE;
 /* a random private key will be generated and stored in slot keyID */
 cmd->param2 = cpu_to_le16(keyid);

 atmel_i2c_checksum(cmd);

 cmd->msecs = MAX_EXEC_TIME_GENKEY;
 cmd->rxsize = GENKEY_RSP_SIZE;
}
EXPORT_SYMBOL(atmel_i2c_init_genkey_cmd);

int atmel_i2c_init_ecdh_cmd(struct atmel_i2c_cmd *cmd,
       struct scatterlist *pubkey)
{
 size_t copied;

 cmd->word_addr = COMMAND;
 cmd->count = ECDH_COUNT;
 cmd->opcode = OPCODE_ECDH;
 cmd->param1 = ECDH_PREFIX_MODE;
 /* private key slot */
 cmd->param2 = cpu_to_le16(DATA_SLOT_2);

 /*
 * The device only supports NIST P256 ECC keys. The public key size will
 * always be the same. Use a macro for the key size to avoid unnecessary
 * computations.
 */
 copied = sg_copy_to_buffer(pubkey,
       sg_nents_for_len(pubkey,
          ATMEL_ECC_PUBKEY_SIZE),
       cmd->data, ATMEL_ECC_PUBKEY_SIZE);
 if (copied != ATMEL_ECC_PUBKEY_SIZE)
  return -EINVAL;

 atmel_i2c_checksum(cmd);

 cmd->msecs = MAX_EXEC_TIME_ECDH;
 cmd->rxsize = ECDH_RSP_SIZE;

 return 0;
}
EXPORT_SYMBOL(atmel_i2c_init_ecdh_cmd);

/*
 * After wake and after execution of a command, there will be error, status, or
 * result bytes in the device's output register that can be retrieved by the
 * system. When the length of that group is four bytes, the codes returned are
 * detailed in error_list.
 */
static int atmel_i2c_status(struct device *dev, u8 *status)
{
 size_t err_list_len = ARRAY_SIZE(error_list);
 int i;
 u8 err_id = status[1];

 if (*status != STATUS_SIZE)
  return 0;

 if (err_id == STATUS_WAKE_SUCCESSFUL || err_id == STATUS_NOERR)
  return 0;

 for (i = 0; i < err_list_len; i++)
  if (error_list[i].value == err_id)
   break;

 /* if err_id is not in the error_list then ignore it */
 if (i != err_list_len) {
  dev_err(dev, "%02x: %s:\n", err_id, error_list[i].error_text);
  return err_id;
 }

 return 0;
}

static int atmel_i2c_wakeup(struct i2c_client *client)
{
 struct atmel_i2c_client_priv *i2c_priv = i2c_get_clientdata(client);
 u8 status[STATUS_RSP_SIZE];
 int ret;

 /*
 * The device ignores any levels or transitions on the SCL pin when the
 * device is idle, asleep or during waking up. Don't check for error
 * when waking up the device.
 */
 i2c_transfer_buffer_flags(client, i2c_priv->wake_token,
    i2c_priv->wake_token_sz, I2C_M_IGNORE_NAK);

 /*
 * Wait to wake the device. Typical execution times for ecdh and genkey
 * are around tens of milliseconds. Delta is chosen to 50 microseconds.
 */
 usleep_range(TWHI_MIN, TWHI_MAX);

 ret = i2c_master_recv(client, status, STATUS_SIZE);
 if (ret < 0)
  return ret;

 return atmel_i2c_status(&client->dev, status);
}

static int atmel_i2c_sleep(struct i2c_client *client)
{
 u8 sleep = SLEEP_TOKEN;

 return i2c_master_send(client, &sleep, 1);
}

/*
 * atmel_i2c_send_receive() - send a command to the device and receive its
 *                            response.
 * @client: i2c client device
 * @cmd   : structure used to communicate with the device
 *
 * After the device receives a Wake token, a watchdog counter starts within the
 * device. After the watchdog timer expires, the device enters sleep mode
 * regardless of whether some I/O transmission or command execution is in
 * progress. If a command is attempted when insufficient time remains prior to
 * watchdog timer execution, the device will return the watchdog timeout error
 * code without attempting to execute the command. There is no way to reset the
 * counter other than to put the device into sleep or idle mode and then
 * wake it up again.
 */
int atmel_i2c_send_receive(struct i2c_client *client, struct atmel_i2c_cmd *cmd)
{
 struct atmel_i2c_client_priv *i2c_priv = i2c_get_clientdata(client);
 int ret;

 mutex_lock(&i2c_priv->lock);

 ret = atmel_i2c_wakeup(client);
 if (ret)
  goto err;

 /* send the command */
 ret = i2c_master_send(client, (u8 *)cmd, cmd->count + WORD_ADDR_SIZE);
 if (ret < 0)
  goto err;

 /* delay the appropriate amount of time for command to execute */
 msleep(cmd->msecs);

 /* receive the response */
 ret = i2c_master_recv(client, cmd->data, cmd->rxsize);
 if (ret < 0)
  goto err;

 /* put the device into low-power mode */
 ret = atmel_i2c_sleep(client);
 if (ret < 0)
  goto err;

 mutex_unlock(&i2c_priv->lock);
 return atmel_i2c_status(&client->dev, cmd->data);
err:
 mutex_unlock(&i2c_priv->lock);
 return ret;
}
EXPORT_SYMBOL(atmel_i2c_send_receive);

static void atmel_i2c_work_handler(struct work_struct *work)
{
 struct atmel_i2c_work_data *work_data =
   container_of(work, struct atmel_i2c_work_data, work);
 struct atmel_i2c_cmd *cmd = &work_data->cmd;
 struct i2c_client *client = work_data->client;
 int status;

 status = atmel_i2c_send_receive(client, cmd);
 work_data->cbk(work_data, work_data->areq, status);
}

static struct workqueue_struct *atmel_wq;

void atmel_i2c_enqueue(struct atmel_i2c_work_data *work_data,
         void (*cbk)(struct atmel_i2c_work_data *work_data,
       void *areq, int status),
         void *areq)
{
 work_data->cbk = (void *)cbk;
 work_data->areq = areq;

 INIT_WORK(&work_data->work, atmel_i2c_work_handler);
 queue_work(atmel_wq, &work_data->work);
}
EXPORT_SYMBOL(atmel_i2c_enqueue);

void atmel_i2c_flush_queue(void)
{
 flush_workqueue(atmel_wq);
}
EXPORT_SYMBOL(atmel_i2c_flush_queue);

static inline size_t atmel_i2c_wake_token_sz(u32 bus_clk_rate)
{
 u32 no_of_bits = DIV_ROUND_UP(TWLO_USEC * bus_clk_rate, USEC_PER_SEC);

 /* return the size of the wake_token in bytes */
 return DIV_ROUND_UP(no_of_bits, 8);
}

static int device_sanity_check(struct i2c_client *client)
{
 struct atmel_i2c_cmd *cmd;
 int ret;

 cmd = kmalloc(sizeof(*cmd), GFP_KERNEL);
 if (!cmd)
  return -ENOMEM;

 atmel_i2c_init_read_config_cmd(cmd);

 ret = atmel_i2c_send_receive(client, cmd);
 if (ret)
  goto free_cmd;

 /*
 * It is vital that the Configuration, Data and OTP zones be locked
 * prior to release into the field of the system containing the device.
 * Failure to lock these zones may permit modification of any secret
 * keys and may lead to other security problems.
 */
 if (cmd->data[LOCK_CONFIG_IDX] || cmd->data[LOCK_VALUE_IDX]) {
  dev_err(&client->dev, "Configuration or Data and OTP zones are unlocked!\n");
  ret = -ENOTSUPP;
 }

 /* fall through */
free_cmd:
 kfree(cmd);
 return ret;
}

int atmel_i2c_probe(struct i2c_client *client)
{
 struct atmel_i2c_client_priv *i2c_priv;
 struct device *dev = &client->dev;
 int ret;
 u32 bus_clk_rate;

 if (!i2c_check_functionality(client->adapter, I2C_FUNC_I2C)) {
  dev_err(dev, "I2C_FUNC_I2C not supported\n");
  return -ENODEV;
 }

 bus_clk_rate = i2c_acpi_find_bus_speed(&client->adapter->dev);
 if (!bus_clk_rate) {
  ret = device_property_read_u32(&client->adapter->dev,
            "clock-frequency", &bus_clk_rate);
  if (ret) {
   dev_err(dev, "failed to read clock-frequency property\n");
   return ret;
  }
 }

 if (bus_clk_rate > 1000000L) {
  dev_err(dev, "%u exceeds maximum supported clock frequency (1MHz)\n",
   bus_clk_rate);
  return -EINVAL;
 }

 i2c_priv = devm_kmalloc(dev, sizeof(*i2c_priv), GFP_KERNEL);
 if (!i2c_priv)
  return -ENOMEM;

 i2c_priv->client = client;
 mutex_init(&i2c_priv->lock);

 /*
 * WAKE_TOKEN_MAX_SIZE was calculated for the maximum bus_clk_rate -
 * 1MHz. The previous bus_clk_rate check ensures us that wake_token_sz
 * will always be smaller than or equal to WAKE_TOKEN_MAX_SIZE.
 */
 i2c_priv->wake_token_sz = atmel_i2c_wake_token_sz(bus_clk_rate);

 memset(i2c_priv->wake_token, 0, sizeof(i2c_priv->wake_token));

 atomic_set(&i2c_priv->tfm_count, 0);

 i2c_set_clientdata(client, i2c_priv);

 return device_sanity_check(client);
}
EXPORT_SYMBOL(atmel_i2c_probe);

static int __init atmel_i2c_init(void)
{
 atmel_wq = alloc_workqueue("atmel_wq", 0, 0);
 return atmel_wq ? 0 : -ENOMEM;
}

static void __exit atmel_i2c_exit(void)
{
 destroy_workqueue(atmel_wq);
}

module_init(atmel_i2c_init);
module_exit(atmel_i2c_exit);

MODULE_AUTHOR("Tudor Ambarus");
MODULE_DESCRIPTION("Microchip / Atmel ECC (I2C) driver");
MODULE_LICENSE("GPL v2");