There is no "version 2" of the "Lesser" General Public License. It is either "GPL version 2.0" or "Lesser GPL version 2.1". This patch replaces all occurrences of "Lesser GPL version 2" with "Lesser GPL version 2.1" in comment section. Signed-off-by: Chetan Pant <chetan4windows@gmail.com> Message-Id: <20201023123034.19609-1-chetan4windows@gmail.com> Reviewed-by: Thomas Huth <thuth@redhat.com> [thuth: Fixed subject] Signed-off-by: Thomas Huth <thuth@redhat.com>
1023 lines
33 KiB
C
1023 lines
33 KiB
C
/*
|
|
* CFI parallel flash with AMD command set emulation
|
|
*
|
|
* Copyright (c) 2005 Jocelyn Mayer
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
/*
|
|
* For now, this code can emulate flashes of 1, 2 or 4 bytes width.
|
|
* Supported commands/modes are:
|
|
* - flash read
|
|
* - flash write
|
|
* - flash ID read
|
|
* - sector erase
|
|
* - chip erase
|
|
* - unlock bypass command
|
|
* - CFI queries
|
|
*
|
|
* It does not support flash interleaving.
|
|
* It does not implement software data protection as found in many real chips
|
|
*/
|
|
|
|
#include "qemu/osdep.h"
|
|
#include "hw/block/block.h"
|
|
#include "hw/block/flash.h"
|
|
#include "hw/qdev-properties.h"
|
|
#include "qapi/error.h"
|
|
#include "qemu/error-report.h"
|
|
#include "qemu/bitmap.h"
|
|
#include "qemu/timer.h"
|
|
#include "sysemu/block-backend.h"
|
|
#include "qemu/host-utils.h"
|
|
#include "qemu/module.h"
|
|
#include "hw/sysbus.h"
|
|
#include "migration/vmstate.h"
|
|
#include "trace.h"
|
|
|
|
#define PFLASH_DEBUG false
|
|
#define DPRINTF(fmt, ...) \
|
|
do { \
|
|
if (PFLASH_DEBUG) { \
|
|
fprintf(stderr, "PFLASH: " fmt, ## __VA_ARGS__); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define PFLASH_LAZY_ROMD_THRESHOLD 42
|
|
|
|
/*
|
|
* The size of the cfi_table indirectly depends on this and the start of the
|
|
* PRI table directly depends on it. 4 is the maximum size (and also what
|
|
* seems common) without changing the PRT table address.
|
|
*/
|
|
#define PFLASH_MAX_ERASE_REGIONS 4
|
|
|
|
/* Special write cycles for CFI queries. */
|
|
enum {
|
|
WCYCLE_CFI = 7,
|
|
WCYCLE_AUTOSELECT_CFI = 8,
|
|
};
|
|
|
|
struct PFlashCFI02 {
|
|
/*< private >*/
|
|
SysBusDevice parent_obj;
|
|
/*< public >*/
|
|
|
|
BlockBackend *blk;
|
|
uint32_t uniform_nb_blocs;
|
|
uint32_t uniform_sector_len;
|
|
uint32_t total_sectors;
|
|
uint32_t nb_blocs[PFLASH_MAX_ERASE_REGIONS];
|
|
uint32_t sector_len[PFLASH_MAX_ERASE_REGIONS];
|
|
uint32_t chip_len;
|
|
uint8_t mappings;
|
|
uint8_t width;
|
|
uint8_t be;
|
|
int wcycle; /* if 0, the flash is read normally */
|
|
int bypass;
|
|
int ro;
|
|
uint8_t cmd;
|
|
uint8_t status;
|
|
/* FIXME: implement array device properties */
|
|
uint16_t ident0;
|
|
uint16_t ident1;
|
|
uint16_t ident2;
|
|
uint16_t ident3;
|
|
uint16_t unlock_addr0;
|
|
uint16_t unlock_addr1;
|
|
uint8_t cfi_table[0x4d];
|
|
QEMUTimer timer;
|
|
/* The device replicates the flash memory across its memory space. Emulate
|
|
* that by having a container (.mem) filled with an array of aliases
|
|
* (.mem_mappings) pointing to the flash memory (.orig_mem).
|
|
*/
|
|
MemoryRegion mem;
|
|
MemoryRegion *mem_mappings; /* array; one per mapping */
|
|
MemoryRegion orig_mem;
|
|
int rom_mode;
|
|
int read_counter; /* used for lazy switch-back to rom mode */
|
|
int sectors_to_erase;
|
|
uint64_t erase_time_remaining;
|
|
unsigned long *sector_erase_map;
|
|
char *name;
|
|
void *storage;
|
|
};
|
|
|
|
/*
|
|
* Toggle status bit DQ7.
|
|
*/
|
|
static inline void toggle_dq7(PFlashCFI02 *pfl)
|
|
{
|
|
pfl->status ^= 0x80;
|
|
}
|
|
|
|
/*
|
|
* Set status bit DQ7 to bit 7 of value.
|
|
*/
|
|
static inline void set_dq7(PFlashCFI02 *pfl, uint8_t value)
|
|
{
|
|
pfl->status &= 0x7F;
|
|
pfl->status |= value & 0x80;
|
|
}
|
|
|
|
/*
|
|
* Toggle status bit DQ6.
|
|
*/
|
|
static inline void toggle_dq6(PFlashCFI02 *pfl)
|
|
{
|
|
pfl->status ^= 0x40;
|
|
}
|
|
|
|
/*
|
|
* Turn on DQ3.
|
|
*/
|
|
static inline void assert_dq3(PFlashCFI02 *pfl)
|
|
{
|
|
pfl->status |= 0x08;
|
|
}
|
|
|
|
/*
|
|
* Turn off DQ3.
|
|
*/
|
|
static inline void reset_dq3(PFlashCFI02 *pfl)
|
|
{
|
|
pfl->status &= ~0x08;
|
|
}
|
|
|
|
/*
|
|
* Toggle status bit DQ2.
|
|
*/
|
|
static inline void toggle_dq2(PFlashCFI02 *pfl)
|
|
{
|
|
pfl->status ^= 0x04;
|
|
}
|
|
|
|
/*
|
|
* Set up replicated mappings of the same region.
|
|
*/
|
|
static void pflash_setup_mappings(PFlashCFI02 *pfl)
|
|
{
|
|
unsigned i;
|
|
hwaddr size = memory_region_size(&pfl->orig_mem);
|
|
|
|
memory_region_init(&pfl->mem, OBJECT(pfl), "pflash", pfl->mappings * size);
|
|
pfl->mem_mappings = g_new(MemoryRegion, pfl->mappings);
|
|
for (i = 0; i < pfl->mappings; ++i) {
|
|
memory_region_init_alias(&pfl->mem_mappings[i], OBJECT(pfl),
|
|
"pflash-alias", &pfl->orig_mem, 0, size);
|
|
memory_region_add_subregion(&pfl->mem, i * size, &pfl->mem_mappings[i]);
|
|
}
|
|
}
|
|
|
|
static void pflash_register_memory(PFlashCFI02 *pfl, int rom_mode)
|
|
{
|
|
memory_region_rom_device_set_romd(&pfl->orig_mem, rom_mode);
|
|
pfl->rom_mode = rom_mode;
|
|
}
|
|
|
|
static size_t pflash_regions_count(PFlashCFI02 *pfl)
|
|
{
|
|
return pfl->cfi_table[0x2c];
|
|
}
|
|
|
|
/*
|
|
* Returns the time it takes to erase the number of sectors scheduled for
|
|
* erasure based on CFI address 0x21 which is "Typical timeout per individual
|
|
* block erase 2^N ms."
|
|
*/
|
|
static uint64_t pflash_erase_time(PFlashCFI02 *pfl)
|
|
{
|
|
/*
|
|
* If there are no sectors to erase (which can happen if all of the sectors
|
|
* to be erased are protected), then erase takes 100 us. Protected sectors
|
|
* aren't supported so this should never happen.
|
|
*/
|
|
return ((1ULL << pfl->cfi_table[0x21]) * pfl->sectors_to_erase) * SCALE_US;
|
|
}
|
|
|
|
/*
|
|
* Returns true if the device is currently in erase suspend mode.
|
|
*/
|
|
static inline bool pflash_erase_suspend_mode(PFlashCFI02 *pfl)
|
|
{
|
|
return pfl->erase_time_remaining > 0;
|
|
}
|
|
|
|
static void pflash_timer(void *opaque)
|
|
{
|
|
PFlashCFI02 *pfl = opaque;
|
|
|
|
trace_pflash_timer_expired(pfl->cmd);
|
|
if (pfl->cmd == 0x30) {
|
|
/*
|
|
* Sector erase. If DQ3 is 0 when the timer expires, then the 50
|
|
* us erase timeout has expired so we need to start the timer for the
|
|
* sector erase algorithm. Otherwise, the erase completed and we should
|
|
* go back to read array mode.
|
|
*/
|
|
if ((pfl->status & 0x08) == 0) {
|
|
assert_dq3(pfl);
|
|
uint64_t timeout = pflash_erase_time(pfl);
|
|
timer_mod(&pfl->timer,
|
|
qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL) + timeout);
|
|
DPRINTF("%s: erase timeout fired; erasing %d sectors\n",
|
|
__func__, pfl->sectors_to_erase);
|
|
return;
|
|
}
|
|
DPRINTF("%s: sector erase complete\n", __func__);
|
|
bitmap_zero(pfl->sector_erase_map, pfl->total_sectors);
|
|
pfl->sectors_to_erase = 0;
|
|
reset_dq3(pfl);
|
|
}
|
|
|
|
/* Reset flash */
|
|
toggle_dq7(pfl);
|
|
if (pfl->bypass) {
|
|
pfl->wcycle = 2;
|
|
} else {
|
|
pflash_register_memory(pfl, 1);
|
|
pfl->wcycle = 0;
|
|
}
|
|
pfl->cmd = 0;
|
|
}
|
|
|
|
/*
|
|
* Read data from flash.
|
|
*/
|
|
static uint64_t pflash_data_read(PFlashCFI02 *pfl, hwaddr offset,
|
|
unsigned int width)
|
|
{
|
|
uint8_t *p = (uint8_t *)pfl->storage + offset;
|
|
uint64_t ret = pfl->be ? ldn_be_p(p, width) : ldn_le_p(p, width);
|
|
trace_pflash_data_read(offset, width, ret);
|
|
return ret;
|
|
}
|
|
|
|
typedef struct {
|
|
uint32_t len;
|
|
uint32_t num;
|
|
} SectorInfo;
|
|
|
|
/*
|
|
* offset should be a byte offset of the QEMU device and _not_ a device
|
|
* offset.
|
|
*/
|
|
static SectorInfo pflash_sector_info(PFlashCFI02 *pfl, hwaddr offset)
|
|
{
|
|
assert(offset < pfl->chip_len);
|
|
hwaddr addr = 0;
|
|
uint32_t sector_num = 0;
|
|
for (int i = 0; i < pflash_regions_count(pfl); ++i) {
|
|
uint64_t region_size = (uint64_t)pfl->nb_blocs[i] * pfl->sector_len[i];
|
|
if (addr <= offset && offset < addr + region_size) {
|
|
return (SectorInfo) {
|
|
.len = pfl->sector_len[i],
|
|
.num = sector_num + (offset - addr) / pfl->sector_len[i],
|
|
};
|
|
}
|
|
sector_num += pfl->nb_blocs[i];
|
|
addr += region_size;
|
|
}
|
|
abort();
|
|
}
|
|
|
|
/*
|
|
* Returns true if the offset refers to a flash sector that is currently being
|
|
* erased.
|
|
*/
|
|
static bool pflash_sector_is_erasing(PFlashCFI02 *pfl, hwaddr offset)
|
|
{
|
|
long sector_num = pflash_sector_info(pfl, offset).num;
|
|
return test_bit(sector_num, pfl->sector_erase_map);
|
|
}
|
|
|
|
static uint64_t pflash_read(void *opaque, hwaddr offset, unsigned int width)
|
|
{
|
|
PFlashCFI02 *pfl = opaque;
|
|
hwaddr boff;
|
|
uint64_t ret;
|
|
|
|
/* Lazy reset to ROMD mode after a certain amount of read accesses */
|
|
if (!pfl->rom_mode && pfl->wcycle == 0 &&
|
|
++pfl->read_counter > PFLASH_LAZY_ROMD_THRESHOLD) {
|
|
pflash_register_memory(pfl, 1);
|
|
}
|
|
offset &= pfl->chip_len - 1;
|
|
boff = offset & 0xFF;
|
|
if (pfl->width == 2) {
|
|
boff = boff >> 1;
|
|
} else if (pfl->width == 4) {
|
|
boff = boff >> 2;
|
|
}
|
|
switch (pfl->cmd) {
|
|
default:
|
|
/* This should never happen : reset state & treat it as a read*/
|
|
DPRINTF("%s: unknown command state: %x\n", __func__, pfl->cmd);
|
|
pfl->wcycle = 0;
|
|
pfl->cmd = 0;
|
|
/* fall through to the read code */
|
|
case 0x80: /* Erase (unlock) */
|
|
/* We accept reads during second unlock sequence... */
|
|
case 0x00:
|
|
if (pflash_erase_suspend_mode(pfl) &&
|
|
pflash_sector_is_erasing(pfl, offset)) {
|
|
/* Toggle bit 2, but not 6. */
|
|
toggle_dq2(pfl);
|
|
/* Status register read */
|
|
ret = pfl->status;
|
|
DPRINTF("%s: status %" PRIx64 "\n", __func__, ret);
|
|
break;
|
|
}
|
|
/* Flash area read */
|
|
ret = pflash_data_read(pfl, offset, width);
|
|
break;
|
|
case 0x90: /* flash ID read */
|
|
switch (boff) {
|
|
case 0x00:
|
|
case 0x01:
|
|
ret = boff & 0x01 ? pfl->ident1 : pfl->ident0;
|
|
break;
|
|
case 0x02:
|
|
ret = 0x00; /* Pretend all sectors are unprotected */
|
|
break;
|
|
case 0x0E:
|
|
case 0x0F:
|
|
ret = boff & 0x01 ? pfl->ident3 : pfl->ident2;
|
|
if (ret != (uint8_t)-1) {
|
|
break;
|
|
}
|
|
/* Fall through to data read. */
|
|
default:
|
|
ret = pflash_data_read(pfl, offset, width);
|
|
}
|
|
DPRINTF("%s: ID " TARGET_FMT_plx " %" PRIx64 "\n", __func__, boff, ret);
|
|
break;
|
|
case 0x10: /* Chip Erase */
|
|
case 0x30: /* Sector Erase */
|
|
/* Toggle bit 2 during erase, but not program. */
|
|
toggle_dq2(pfl);
|
|
/* fall through */
|
|
case 0xA0: /* Program */
|
|
/* Toggle bit 6 */
|
|
toggle_dq6(pfl);
|
|
/* Status register read */
|
|
ret = pfl->status;
|
|
DPRINTF("%s: status %" PRIx64 "\n", __func__, ret);
|
|
break;
|
|
case 0x98:
|
|
/* CFI query mode */
|
|
if (boff < sizeof(pfl->cfi_table)) {
|
|
ret = pfl->cfi_table[boff];
|
|
} else {
|
|
ret = 0;
|
|
}
|
|
break;
|
|
}
|
|
trace_pflash_io_read(offset, width, ret, pfl->cmd, pfl->wcycle);
|
|
|
|
return ret;
|
|
}
|
|
|
|
/* update flash content on disk */
|
|
static void pflash_update(PFlashCFI02 *pfl, int offset, int size)
|
|
{
|
|
int offset_end;
|
|
int ret;
|
|
if (pfl->blk) {
|
|
offset_end = offset + size;
|
|
/* widen to sector boundaries */
|
|
offset = QEMU_ALIGN_DOWN(offset, BDRV_SECTOR_SIZE);
|
|
offset_end = QEMU_ALIGN_UP(offset_end, BDRV_SECTOR_SIZE);
|
|
ret = blk_pwrite(pfl->blk, offset, pfl->storage + offset,
|
|
offset_end - offset, 0);
|
|
if (ret < 0) {
|
|
/* TODO set error bit in status */
|
|
error_report("Could not update PFLASH: %s", strerror(-ret));
|
|
}
|
|
}
|
|
}
|
|
|
|
static void pflash_sector_erase(PFlashCFI02 *pfl, hwaddr offset)
|
|
{
|
|
SectorInfo sector_info = pflash_sector_info(pfl, offset);
|
|
uint64_t sector_len = sector_info.len;
|
|
offset &= ~(sector_len - 1);
|
|
DPRINTF("%s: start sector erase at %0*" PRIx64 "-%0*" PRIx64 "\n",
|
|
__func__, pfl->width * 2, offset,
|
|
pfl->width * 2, offset + sector_len - 1);
|
|
if (!pfl->ro) {
|
|
uint8_t *p = pfl->storage;
|
|
memset(p + offset, 0xff, sector_len);
|
|
pflash_update(pfl, offset, sector_len);
|
|
}
|
|
set_dq7(pfl, 0x00);
|
|
++pfl->sectors_to_erase;
|
|
set_bit(sector_info.num, pfl->sector_erase_map);
|
|
/* Set (or reset) the 50 us timer for additional erase commands. */
|
|
timer_mod(&pfl->timer, qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL) + 50000);
|
|
}
|
|
|
|
static void pflash_write(void *opaque, hwaddr offset, uint64_t value,
|
|
unsigned int width)
|
|
{
|
|
PFlashCFI02 *pfl = opaque;
|
|
hwaddr boff;
|
|
uint8_t *p;
|
|
uint8_t cmd;
|
|
|
|
trace_pflash_io_write(offset, width, value, pfl->wcycle);
|
|
cmd = value;
|
|
if (pfl->cmd != 0xA0) {
|
|
/* Reset does nothing during chip erase and sector erase. */
|
|
if (cmd == 0xF0 && pfl->cmd != 0x10 && pfl->cmd != 0x30) {
|
|
if (pfl->wcycle == WCYCLE_AUTOSELECT_CFI) {
|
|
/* Return to autoselect mode. */
|
|
pfl->wcycle = 3;
|
|
pfl->cmd = 0x90;
|
|
return;
|
|
}
|
|
goto reset_flash;
|
|
}
|
|
}
|
|
offset &= pfl->chip_len - 1;
|
|
|
|
boff = offset;
|
|
if (pfl->width == 2) {
|
|
boff = boff >> 1;
|
|
} else if (pfl->width == 4) {
|
|
boff = boff >> 2;
|
|
}
|
|
/* Only the least-significant 11 bits are used in most cases. */
|
|
boff &= 0x7FF;
|
|
switch (pfl->wcycle) {
|
|
case 0:
|
|
/* Set the device in I/O access mode if required */
|
|
if (pfl->rom_mode)
|
|
pflash_register_memory(pfl, 0);
|
|
pfl->read_counter = 0;
|
|
/* We're in read mode */
|
|
check_unlock0:
|
|
if (boff == 0x55 && cmd == 0x98) {
|
|
/* Enter CFI query mode */
|
|
pfl->wcycle = WCYCLE_CFI;
|
|
pfl->cmd = 0x98;
|
|
return;
|
|
}
|
|
/* Handle erase resume in erase suspend mode, otherwise reset. */
|
|
if (cmd == 0x30) { /* Erase Resume */
|
|
if (pflash_erase_suspend_mode(pfl)) {
|
|
/* Resume the erase. */
|
|
timer_mod(&pfl->timer, qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL) +
|
|
pfl->erase_time_remaining);
|
|
pfl->erase_time_remaining = 0;
|
|
pfl->wcycle = 6;
|
|
pfl->cmd = 0x30;
|
|
set_dq7(pfl, 0x00);
|
|
assert_dq3(pfl);
|
|
return;
|
|
}
|
|
goto reset_flash;
|
|
}
|
|
/* Ignore erase suspend. */
|
|
if (cmd == 0xB0) { /* Erase Suspend */
|
|
return;
|
|
}
|
|
if (boff != pfl->unlock_addr0 || cmd != 0xAA) {
|
|
DPRINTF("%s: unlock0 failed " TARGET_FMT_plx " %02x %04x\n",
|
|
__func__, boff, cmd, pfl->unlock_addr0);
|
|
goto reset_flash;
|
|
}
|
|
DPRINTF("%s: unlock sequence started\n", __func__);
|
|
break;
|
|
case 1:
|
|
/* We started an unlock sequence */
|
|
check_unlock1:
|
|
if (boff != pfl->unlock_addr1 || cmd != 0x55) {
|
|
DPRINTF("%s: unlock1 failed " TARGET_FMT_plx " %02x\n", __func__,
|
|
boff, cmd);
|
|
goto reset_flash;
|
|
}
|
|
DPRINTF("%s: unlock sequence done\n", __func__);
|
|
break;
|
|
case 2:
|
|
/* We finished an unlock sequence */
|
|
if (!pfl->bypass && boff != pfl->unlock_addr0) {
|
|
DPRINTF("%s: command failed " TARGET_FMT_plx " %02x\n", __func__,
|
|
boff, cmd);
|
|
goto reset_flash;
|
|
}
|
|
switch (cmd) {
|
|
case 0x20:
|
|
pfl->bypass = 1;
|
|
goto do_bypass;
|
|
case 0x80: /* Erase */
|
|
case 0x90: /* Autoselect */
|
|
case 0xA0: /* Program */
|
|
pfl->cmd = cmd;
|
|
DPRINTF("%s: starting command %02x\n", __func__, cmd);
|
|
break;
|
|
default:
|
|
DPRINTF("%s: unknown command %02x\n", __func__, cmd);
|
|
goto reset_flash;
|
|
}
|
|
break;
|
|
case 3:
|
|
switch (pfl->cmd) {
|
|
case 0x80: /* Erase */
|
|
/* We need another unlock sequence */
|
|
goto check_unlock0;
|
|
case 0xA0: /* Program */
|
|
if (pflash_erase_suspend_mode(pfl) &&
|
|
pflash_sector_is_erasing(pfl, offset)) {
|
|
/* Ignore writes to erasing sectors. */
|
|
if (pfl->bypass) {
|
|
goto do_bypass;
|
|
}
|
|
goto reset_flash;
|
|
}
|
|
trace_pflash_data_write(offset, width, value, 0);
|
|
if (!pfl->ro) {
|
|
p = (uint8_t *)pfl->storage + offset;
|
|
if (pfl->be) {
|
|
uint64_t current = ldn_be_p(p, width);
|
|
stn_be_p(p, width, current & value);
|
|
} else {
|
|
uint64_t current = ldn_le_p(p, width);
|
|
stn_le_p(p, width, current & value);
|
|
}
|
|
pflash_update(pfl, offset, width);
|
|
}
|
|
/*
|
|
* While programming, status bit DQ7 should hold the opposite
|
|
* value from how it was programmed.
|
|
*/
|
|
set_dq7(pfl, ~value);
|
|
/* Let's pretend write is immediate */
|
|
if (pfl->bypass)
|
|
goto do_bypass;
|
|
goto reset_flash;
|
|
case 0x90: /* Autoselect */
|
|
if (pfl->bypass && cmd == 0x00) {
|
|
/* Unlock bypass reset */
|
|
goto reset_flash;
|
|
}
|
|
/*
|
|
* We can enter CFI query mode from autoselect mode, but we must
|
|
* return to autoselect mode after a reset.
|
|
*/
|
|
if (boff == 0x55 && cmd == 0x98) {
|
|
/* Enter autoselect CFI query mode */
|
|
pfl->wcycle = WCYCLE_AUTOSELECT_CFI;
|
|
pfl->cmd = 0x98;
|
|
return;
|
|
}
|
|
/* fall through */
|
|
default:
|
|
DPRINTF("%s: invalid write for command %02x\n",
|
|
__func__, pfl->cmd);
|
|
goto reset_flash;
|
|
}
|
|
case 4:
|
|
switch (pfl->cmd) {
|
|
case 0xA0: /* Program */
|
|
/* Ignore writes while flash data write is occurring */
|
|
/* As we suppose write is immediate, this should never happen */
|
|
return;
|
|
case 0x80: /* Erase */
|
|
goto check_unlock1;
|
|
default:
|
|
/* Should never happen */
|
|
DPRINTF("%s: invalid command state %02x (wc 4)\n",
|
|
__func__, pfl->cmd);
|
|
goto reset_flash;
|
|
}
|
|
break;
|
|
case 5:
|
|
if (pflash_erase_suspend_mode(pfl)) {
|
|
/* Erasing is not supported in erase suspend mode. */
|
|
goto reset_flash;
|
|
}
|
|
switch (cmd) {
|
|
case 0x10: /* Chip Erase */
|
|
if (boff != pfl->unlock_addr0) {
|
|
DPRINTF("%s: chip erase: invalid address " TARGET_FMT_plx "\n",
|
|
__func__, offset);
|
|
goto reset_flash;
|
|
}
|
|
/* Chip erase */
|
|
DPRINTF("%s: start chip erase\n", __func__);
|
|
if (!pfl->ro) {
|
|
memset(pfl->storage, 0xff, pfl->chip_len);
|
|
pflash_update(pfl, 0, pfl->chip_len);
|
|
}
|
|
set_dq7(pfl, 0x00);
|
|
/* Wait the time specified at CFI address 0x22. */
|
|
timer_mod(&pfl->timer, qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL) +
|
|
(1ULL << pfl->cfi_table[0x22]) * SCALE_MS);
|
|
break;
|
|
case 0x30: /* Sector erase */
|
|
pflash_sector_erase(pfl, offset);
|
|
break;
|
|
default:
|
|
DPRINTF("%s: invalid command %02x (wc 5)\n", __func__, cmd);
|
|
goto reset_flash;
|
|
}
|
|
pfl->cmd = cmd;
|
|
break;
|
|
case 6:
|
|
switch (pfl->cmd) {
|
|
case 0x10: /* Chip Erase */
|
|
/* Ignore writes during chip erase */
|
|
return;
|
|
case 0x30: /* Sector erase */
|
|
if (cmd == 0xB0) {
|
|
/*
|
|
* If erase suspend happens during the erase timeout (so DQ3 is
|
|
* 0), then the device suspends erasing immediately. Set the
|
|
* remaining time to be the total time to erase. Otherwise,
|
|
* there is a maximum amount of time it can take to enter
|
|
* suspend mode. Let's ignore that and suspend immediately and
|
|
* set the remaining time to the actual time remaining on the
|
|
* timer.
|
|
*/
|
|
if ((pfl->status & 0x08) == 0) {
|
|
pfl->erase_time_remaining = pflash_erase_time(pfl);
|
|
} else {
|
|
int64_t delta = timer_expire_time_ns(&pfl->timer) -
|
|
qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL);
|
|
/* Make sure we have a positive time remaining. */
|
|
pfl->erase_time_remaining = delta <= 0 ? 1 : delta;
|
|
}
|
|
reset_dq3(pfl);
|
|
timer_del(&pfl->timer);
|
|
pfl->wcycle = 0;
|
|
pfl->cmd = 0;
|
|
return;
|
|
}
|
|
/*
|
|
* If DQ3 is 0, additional sector erase commands can be
|
|
* written and anything else (other than an erase suspend) resets
|
|
* the device.
|
|
*/
|
|
if ((pfl->status & 0x08) == 0) {
|
|
if (cmd == 0x30) {
|
|
pflash_sector_erase(pfl, offset);
|
|
} else {
|
|
goto reset_flash;
|
|
}
|
|
}
|
|
/* Ignore writes during the actual erase. */
|
|
return;
|
|
default:
|
|
/* Should never happen */
|
|
DPRINTF("%s: invalid command state %02x (wc 6)\n",
|
|
__func__, pfl->cmd);
|
|
goto reset_flash;
|
|
}
|
|
break;
|
|
/* Special values for CFI queries */
|
|
case WCYCLE_CFI:
|
|
case WCYCLE_AUTOSELECT_CFI:
|
|
DPRINTF("%s: invalid write in CFI query mode\n", __func__);
|
|
goto reset_flash;
|
|
default:
|
|
/* Should never happen */
|
|
DPRINTF("%s: invalid write state (wc 7)\n", __func__);
|
|
goto reset_flash;
|
|
}
|
|
pfl->wcycle++;
|
|
|
|
return;
|
|
|
|
/* Reset flash */
|
|
reset_flash:
|
|
trace_pflash_reset();
|
|
pfl->bypass = 0;
|
|
pfl->wcycle = 0;
|
|
pfl->cmd = 0;
|
|
return;
|
|
|
|
do_bypass:
|
|
pfl->wcycle = 2;
|
|
pfl->cmd = 0;
|
|
}
|
|
|
|
static const MemoryRegionOps pflash_cfi02_ops = {
|
|
.read = pflash_read,
|
|
.write = pflash_write,
|
|
.valid.min_access_size = 1,
|
|
.valid.max_access_size = 4,
|
|
.endianness = DEVICE_NATIVE_ENDIAN,
|
|
};
|
|
|
|
static void pflash_cfi02_realize(DeviceState *dev, Error **errp)
|
|
{
|
|
ERRP_GUARD();
|
|
PFlashCFI02 *pfl = PFLASH_CFI02(dev);
|
|
int ret;
|
|
|
|
if (pfl->uniform_sector_len == 0 && pfl->sector_len[0] == 0) {
|
|
error_setg(errp, "attribute \"sector-length\" not specified or zero.");
|
|
return;
|
|
}
|
|
if (pfl->uniform_nb_blocs == 0 && pfl->nb_blocs[0] == 0) {
|
|
error_setg(errp, "attribute \"num-blocks\" not specified or zero.");
|
|
return;
|
|
}
|
|
if (pfl->name == NULL) {
|
|
error_setg(errp, "attribute \"name\" not specified.");
|
|
return;
|
|
}
|
|
|
|
int nb_regions;
|
|
pfl->chip_len = 0;
|
|
pfl->total_sectors = 0;
|
|
for (nb_regions = 0; nb_regions < PFLASH_MAX_ERASE_REGIONS; ++nb_regions) {
|
|
if (pfl->nb_blocs[nb_regions] == 0) {
|
|
break;
|
|
}
|
|
pfl->total_sectors += pfl->nb_blocs[nb_regions];
|
|
uint64_t sector_len_per_device = pfl->sector_len[nb_regions];
|
|
|
|
/*
|
|
* The size of each flash sector must be a power of 2 and it must be
|
|
* aligned at the same power of 2.
|
|
*/
|
|
if (sector_len_per_device & 0xff ||
|
|
sector_len_per_device >= (1 << 24) ||
|
|
!is_power_of_2(sector_len_per_device))
|
|
{
|
|
error_setg(errp, "unsupported configuration: "
|
|
"sector length[%d] per device = %" PRIx64 ".",
|
|
nb_regions, sector_len_per_device);
|
|
return;
|
|
}
|
|
if (pfl->chip_len & (sector_len_per_device - 1)) {
|
|
error_setg(errp, "unsupported configuration: "
|
|
"flash region %d not correctly aligned.",
|
|
nb_regions);
|
|
return;
|
|
}
|
|
|
|
pfl->chip_len += (uint64_t)pfl->sector_len[nb_regions] *
|
|
pfl->nb_blocs[nb_regions];
|
|
}
|
|
|
|
uint64_t uniform_len = (uint64_t)pfl->uniform_nb_blocs *
|
|
pfl->uniform_sector_len;
|
|
if (nb_regions == 0) {
|
|
nb_regions = 1;
|
|
pfl->nb_blocs[0] = pfl->uniform_nb_blocs;
|
|
pfl->sector_len[0] = pfl->uniform_sector_len;
|
|
pfl->chip_len = uniform_len;
|
|
pfl->total_sectors = pfl->uniform_nb_blocs;
|
|
} else if (uniform_len != 0 && uniform_len != pfl->chip_len) {
|
|
error_setg(errp, "\"num-blocks\"*\"sector-length\" "
|
|
"different from \"num-blocks0\"*\'sector-length0\" + ... + "
|
|
"\"num-blocks3\"*\"sector-length3\"");
|
|
return;
|
|
}
|
|
|
|
memory_region_init_rom_device(&pfl->orig_mem, OBJECT(pfl),
|
|
&pflash_cfi02_ops, pfl, pfl->name,
|
|
pfl->chip_len, errp);
|
|
if (*errp) {
|
|
return;
|
|
}
|
|
|
|
pfl->storage = memory_region_get_ram_ptr(&pfl->orig_mem);
|
|
|
|
if (pfl->blk) {
|
|
uint64_t perm;
|
|
pfl->ro = blk_is_read_only(pfl->blk);
|
|
perm = BLK_PERM_CONSISTENT_READ | (pfl->ro ? 0 : BLK_PERM_WRITE);
|
|
ret = blk_set_perm(pfl->blk, perm, BLK_PERM_ALL, errp);
|
|
if (ret < 0) {
|
|
return;
|
|
}
|
|
} else {
|
|
pfl->ro = 0;
|
|
}
|
|
|
|
if (pfl->blk) {
|
|
if (!blk_check_size_and_read_all(pfl->blk, pfl->storage,
|
|
pfl->chip_len, errp)) {
|
|
vmstate_unregister_ram(&pfl->orig_mem, DEVICE(pfl));
|
|
return;
|
|
}
|
|
}
|
|
|
|
/* Only 11 bits are used in the comparison. */
|
|
pfl->unlock_addr0 &= 0x7FF;
|
|
pfl->unlock_addr1 &= 0x7FF;
|
|
|
|
/* Allocate memory for a bitmap for sectors being erased. */
|
|
pfl->sector_erase_map = bitmap_new(pfl->total_sectors);
|
|
|
|
pflash_setup_mappings(pfl);
|
|
pfl->rom_mode = 1;
|
|
sysbus_init_mmio(SYS_BUS_DEVICE(dev), &pfl->mem);
|
|
|
|
timer_init_ns(&pfl->timer, QEMU_CLOCK_VIRTUAL, pflash_timer, pfl);
|
|
pfl->wcycle = 0;
|
|
pfl->cmd = 0;
|
|
pfl->status = 0;
|
|
|
|
/* Hardcoded CFI table (mostly from SG29 Spansion flash) */
|
|
const uint16_t pri_ofs = 0x40;
|
|
/* Standard "QRY" string */
|
|
pfl->cfi_table[0x10] = 'Q';
|
|
pfl->cfi_table[0x11] = 'R';
|
|
pfl->cfi_table[0x12] = 'Y';
|
|
/* Command set (AMD/Fujitsu) */
|
|
pfl->cfi_table[0x13] = 0x02;
|
|
pfl->cfi_table[0x14] = 0x00;
|
|
/* Primary extended table address */
|
|
pfl->cfi_table[0x15] = pri_ofs;
|
|
pfl->cfi_table[0x16] = pri_ofs >> 8;
|
|
/* Alternate command set (none) */
|
|
pfl->cfi_table[0x17] = 0x00;
|
|
pfl->cfi_table[0x18] = 0x00;
|
|
/* Alternate extended table (none) */
|
|
pfl->cfi_table[0x19] = 0x00;
|
|
pfl->cfi_table[0x1A] = 0x00;
|
|
/* Vcc min */
|
|
pfl->cfi_table[0x1B] = 0x27;
|
|
/* Vcc max */
|
|
pfl->cfi_table[0x1C] = 0x36;
|
|
/* Vpp min (no Vpp pin) */
|
|
pfl->cfi_table[0x1D] = 0x00;
|
|
/* Vpp max (no Vpp pin) */
|
|
pfl->cfi_table[0x1E] = 0x00;
|
|
/* Timeout per single byte/word write (128 ms) */
|
|
pfl->cfi_table[0x1F] = 0x07;
|
|
/* Timeout for min size buffer write (NA) */
|
|
pfl->cfi_table[0x20] = 0x00;
|
|
/* Typical timeout for block erase (512 ms) */
|
|
pfl->cfi_table[0x21] = 0x09;
|
|
/* Typical timeout for full chip erase (4096 ms) */
|
|
pfl->cfi_table[0x22] = 0x0C;
|
|
/* Reserved */
|
|
pfl->cfi_table[0x23] = 0x01;
|
|
/* Max timeout for buffer write (NA) */
|
|
pfl->cfi_table[0x24] = 0x00;
|
|
/* Max timeout for block erase */
|
|
pfl->cfi_table[0x25] = 0x0A;
|
|
/* Max timeout for chip erase */
|
|
pfl->cfi_table[0x26] = 0x0D;
|
|
/* Device size */
|
|
pfl->cfi_table[0x27] = ctz32(pfl->chip_len);
|
|
/* Flash device interface (8 & 16 bits) */
|
|
pfl->cfi_table[0x28] = 0x02;
|
|
pfl->cfi_table[0x29] = 0x00;
|
|
/* Max number of bytes in multi-bytes write */
|
|
/* XXX: disable buffered write as it's not supported */
|
|
// pfl->cfi_table[0x2A] = 0x05;
|
|
pfl->cfi_table[0x2A] = 0x00;
|
|
pfl->cfi_table[0x2B] = 0x00;
|
|
/* Number of erase block regions */
|
|
pfl->cfi_table[0x2c] = nb_regions;
|
|
/* Erase block regions */
|
|
for (int i = 0; i < nb_regions; ++i) {
|
|
uint32_t sector_len_per_device = pfl->sector_len[i];
|
|
pfl->cfi_table[0x2d + 4 * i] = pfl->nb_blocs[i] - 1;
|
|
pfl->cfi_table[0x2e + 4 * i] = (pfl->nb_blocs[i] - 1) >> 8;
|
|
pfl->cfi_table[0x2f + 4 * i] = sector_len_per_device >> 8;
|
|
pfl->cfi_table[0x30 + 4 * i] = sector_len_per_device >> 16;
|
|
}
|
|
assert(0x2c + 4 * nb_regions < pri_ofs);
|
|
|
|
/* Extended */
|
|
pfl->cfi_table[0x00 + pri_ofs] = 'P';
|
|
pfl->cfi_table[0x01 + pri_ofs] = 'R';
|
|
pfl->cfi_table[0x02 + pri_ofs] = 'I';
|
|
|
|
/* Extended version 1.0 */
|
|
pfl->cfi_table[0x03 + pri_ofs] = '1';
|
|
pfl->cfi_table[0x04 + pri_ofs] = '0';
|
|
|
|
/* Address sensitive unlock required. */
|
|
pfl->cfi_table[0x05 + pri_ofs] = 0x00;
|
|
/* Erase suspend to read/write. */
|
|
pfl->cfi_table[0x06 + pri_ofs] = 0x02;
|
|
/* Sector protect not supported. */
|
|
pfl->cfi_table[0x07 + pri_ofs] = 0x00;
|
|
/* Temporary sector unprotect not supported. */
|
|
pfl->cfi_table[0x08 + pri_ofs] = 0x00;
|
|
|
|
/* Sector protect/unprotect scheme. */
|
|
pfl->cfi_table[0x09 + pri_ofs] = 0x00;
|
|
|
|
/* Simultaneous operation not supported. */
|
|
pfl->cfi_table[0x0a + pri_ofs] = 0x00;
|
|
/* Burst mode not supported. */
|
|
pfl->cfi_table[0x0b + pri_ofs] = 0x00;
|
|
/* Page mode not supported. */
|
|
pfl->cfi_table[0x0c + pri_ofs] = 0x00;
|
|
assert(0x0c + pri_ofs < ARRAY_SIZE(pfl->cfi_table));
|
|
}
|
|
|
|
static Property pflash_cfi02_properties[] = {
|
|
DEFINE_PROP_DRIVE("drive", PFlashCFI02, blk),
|
|
DEFINE_PROP_UINT32("num-blocks", PFlashCFI02, uniform_nb_blocs, 0),
|
|
DEFINE_PROP_UINT32("sector-length", PFlashCFI02, uniform_sector_len, 0),
|
|
DEFINE_PROP_UINT32("num-blocks0", PFlashCFI02, nb_blocs[0], 0),
|
|
DEFINE_PROP_UINT32("sector-length0", PFlashCFI02, sector_len[0], 0),
|
|
DEFINE_PROP_UINT32("num-blocks1", PFlashCFI02, nb_blocs[1], 0),
|
|
DEFINE_PROP_UINT32("sector-length1", PFlashCFI02, sector_len[1], 0),
|
|
DEFINE_PROP_UINT32("num-blocks2", PFlashCFI02, nb_blocs[2], 0),
|
|
DEFINE_PROP_UINT32("sector-length2", PFlashCFI02, sector_len[2], 0),
|
|
DEFINE_PROP_UINT32("num-blocks3", PFlashCFI02, nb_blocs[3], 0),
|
|
DEFINE_PROP_UINT32("sector-length3", PFlashCFI02, sector_len[3], 0),
|
|
DEFINE_PROP_UINT8("width", PFlashCFI02, width, 0),
|
|
DEFINE_PROP_UINT8("mappings", PFlashCFI02, mappings, 0),
|
|
DEFINE_PROP_UINT8("big-endian", PFlashCFI02, be, 0),
|
|
DEFINE_PROP_UINT16("id0", PFlashCFI02, ident0, 0),
|
|
DEFINE_PROP_UINT16("id1", PFlashCFI02, ident1, 0),
|
|
DEFINE_PROP_UINT16("id2", PFlashCFI02, ident2, 0),
|
|
DEFINE_PROP_UINT16("id3", PFlashCFI02, ident3, 0),
|
|
DEFINE_PROP_UINT16("unlock-addr0", PFlashCFI02, unlock_addr0, 0),
|
|
DEFINE_PROP_UINT16("unlock-addr1", PFlashCFI02, unlock_addr1, 0),
|
|
DEFINE_PROP_STRING("name", PFlashCFI02, name),
|
|
DEFINE_PROP_END_OF_LIST(),
|
|
};
|
|
|
|
static void pflash_cfi02_unrealize(DeviceState *dev)
|
|
{
|
|
PFlashCFI02 *pfl = PFLASH_CFI02(dev);
|
|
timer_del(&pfl->timer);
|
|
g_free(pfl->sector_erase_map);
|
|
}
|
|
|
|
static void pflash_cfi02_class_init(ObjectClass *klass, void *data)
|
|
{
|
|
DeviceClass *dc = DEVICE_CLASS(klass);
|
|
|
|
dc->realize = pflash_cfi02_realize;
|
|
dc->unrealize = pflash_cfi02_unrealize;
|
|
device_class_set_props(dc, pflash_cfi02_properties);
|
|
set_bit(DEVICE_CATEGORY_STORAGE, dc->categories);
|
|
}
|
|
|
|
static const TypeInfo pflash_cfi02_info = {
|
|
.name = TYPE_PFLASH_CFI02,
|
|
.parent = TYPE_SYS_BUS_DEVICE,
|
|
.instance_size = sizeof(PFlashCFI02),
|
|
.class_init = pflash_cfi02_class_init,
|
|
};
|
|
|
|
static void pflash_cfi02_register_types(void)
|
|
{
|
|
type_register_static(&pflash_cfi02_info);
|
|
}
|
|
|
|
type_init(pflash_cfi02_register_types)
|
|
|
|
PFlashCFI02 *pflash_cfi02_register(hwaddr base,
|
|
const char *name,
|
|
hwaddr size,
|
|
BlockBackend *blk,
|
|
uint32_t sector_len,
|
|
int nb_mappings, int width,
|
|
uint16_t id0, uint16_t id1,
|
|
uint16_t id2, uint16_t id3,
|
|
uint16_t unlock_addr0,
|
|
uint16_t unlock_addr1,
|
|
int be)
|
|
{
|
|
DeviceState *dev = qdev_new(TYPE_PFLASH_CFI02);
|
|
|
|
if (blk) {
|
|
qdev_prop_set_drive(dev, "drive", blk);
|
|
}
|
|
assert(QEMU_IS_ALIGNED(size, sector_len));
|
|
qdev_prop_set_uint32(dev, "num-blocks", size / sector_len);
|
|
qdev_prop_set_uint32(dev, "sector-length", sector_len);
|
|
qdev_prop_set_uint8(dev, "width", width);
|
|
qdev_prop_set_uint8(dev, "mappings", nb_mappings);
|
|
qdev_prop_set_uint8(dev, "big-endian", !!be);
|
|
qdev_prop_set_uint16(dev, "id0", id0);
|
|
qdev_prop_set_uint16(dev, "id1", id1);
|
|
qdev_prop_set_uint16(dev, "id2", id2);
|
|
qdev_prop_set_uint16(dev, "id3", id3);
|
|
qdev_prop_set_uint16(dev, "unlock-addr0", unlock_addr0);
|
|
qdev_prop_set_uint16(dev, "unlock-addr1", unlock_addr1);
|
|
qdev_prop_set_string(dev, "name", name);
|
|
sysbus_realize_and_unref(SYS_BUS_DEVICE(dev), &error_fatal);
|
|
|
|
sysbus_mmio_map(SYS_BUS_DEVICE(dev), 0, base);
|
|
return PFLASH_CFI02(dev);
|
|
}
|