git.gag.com Git - fw/altos/blob - src/stm32l0/ao_flash_stm32l0.c

   1 /*
   2  * Copyright © 2020 Keith Packard <keithp@keithp.com>
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation; either version 2 of the License, or
   7  * (at your option) any later version.
   8  *
   9  * This program is distributed in the hope that it will be useful, but
  10  * WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU General Public License along
  15  * with this program; if not, write to the Free Software Foundation, Inc.,
  16  * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
  17  */
  18
  19 #include <ao.h>
  20 #include <ao_flash.h>
  21
  22 static uint8_t
  23 ao_flash_pecr_is_locked(void)
  24 {
  25         return (stm_flash.pecr & (1 << STM_FLASH_PECR_PE_LOCK)) != 0;
  26 }
  27
  28 static uint8_t
  29 ao_flash_pgr_is_locked(void)
  30 {
  31         return (stm_flash.pecr & (1 << STM_FLASH_PECR_PRG_LOCK)) != 0;
  32 }
  33
  34 static void
  35 ao_flash_pecr_unlock(void)
  36 {
  37         if (!ao_flash_pecr_is_locked())
  38                 return;
  39
  40         /* Unlock Data EEPROM and FLASH_PECR register */
  41         stm_flash.pekeyr = STM_FLASH_PEKEYR_PEKEY1;
  42         stm_flash.pekeyr = STM_FLASH_PEKEYR_PEKEY2;
  43         if (ao_flash_pecr_is_locked())
  44                 ao_panic(AO_PANIC_FLASH);
  45 }
  46
  47 static void
  48 ao_flash_pgr_unlock(void)
  49 {
  50         if (!ao_flash_pgr_is_locked())
  51                 return;
  52
  53         /* Unlock program memory */
  54         stm_flash.prgkeyr = STM_FLASH_PRGKEYR_PRGKEY1;
  55         stm_flash.prgkeyr = STM_FLASH_PRGKEYR_PRGKEY2;
  56         if (ao_flash_pgr_is_locked())
  57                 ao_panic(AO_PANIC_FLASH);
  58 }
  59
  60 static void
  61 ao_flash_lock(void)
  62 {
  63         stm_flash.pecr |= (1 << STM_FLASH_PECR_OPT_LOCK) | (1 << STM_FLASH_PECR_PRG_LOCK) | (1 << STM_FLASH_PECR_PE_LOCK);
  64 }
  65
  66 static void
  67 ao_flash_wait_bsy(void)
  68 {
  69         while (stm_flash.sr & (1 << STM_FLASH_SR_BSY))
  70                 ;
  71 }
  72
  73 static void __attribute__ ((section(".sdata2.flash"), noinline))
  74 _ao_flash_erase_page(uint32_t *page)
  75 {
  76         stm_flash.pecr |= (1 << STM_FLASH_PECR_ERASE) | (1 << STM_FLASH_PECR_PROG);
  77
  78         *page = 0x00000000;
  79
  80         ao_flash_wait_bsy();
  81 }
  82
  83 void
  84 ao_flash_erase_page(uint32_t *page)
  85 {
  86         ao_arch_block_interrupts();
  87         ao_flash_pecr_unlock();
  88         ao_flash_pgr_unlock();
  89
  90         _ao_flash_erase_page(page);
  91
  92         ao_flash_lock();
  93         ao_arch_release_interrupts();
  94 }
  95
  96 #if 0
  97 static void __attribute__ ((section(".sdata2.flash"), noinline))
  98 _ao_flash_half_page(uint32_t *dst, uint32_t *src)
  99 {
 100         uint8_t         i;
 101
 102         stm_flash.pecr |= (1 << STM_FLASH_PECR_FPRG);
 103         stm_flash.pecr |= (1 << STM_FLASH_PECR_PROG);
 104
 105         ao_flash_wait_bsy();
 106
 107         for (i = 0; i < 32; i++) {
 108                 *dst++ = *src++;
 109         }
 110
 111         while (stm_flash.sr & (1 << STM_FLASH_SR_BSY))
 112                 ;
 113 }
 114
 115 void
 116 ao_flash_page(uint32_t *page, uint32_t *src)
 117 {
 118         uint8_t         h;
 119
 120         ao_flash_erase_page(page);
 121
 122         ao_arch_block_interrupts();
 123         ao_flash_pecr_unlock();
 124         ao_flash_pgr_unlock();
 125         for (h = 0; h < 2; h++) {
 126                 _ao_flash_half_page(page, src);
 127                 page += 32;
 128                 src += 32;
 129         }
 130         ao_flash_lock();
 131         ao_arch_release_interrupts();
 132 }
 133 #endif
 134
 135 void
 136 ao_storage_setup(void)
 137 {
 138 }
 139
 140 static ao_pos_t write_pos;
 141 static uint8_t write_pending;
 142 static union {
 143         uint32_t        u32;
 144         uint8_t         u8[4];
 145 } write_buf;
 146
 147 void
 148 ao_storage_flush(void)
 149 {
 150         if (write_pending) {
 151                 ao_flash_pecr_unlock();
 152                 ao_flash_pgr_unlock();
 153                 __storage[write_pos] = write_buf.u32;
 154                 ao_flash_lock();
 155                 write_pending = 0;
 156         }
 157 }
 158
 159 /* Read data within a storage unit */
 160 uint8_t
 161 ao_storage_device_read(ao_pos_t pos, void *buf, uint16_t len)
 162 {
 163         memcpy(buf, ((uint8_t *) __storage) + pos, len);
 164         return 1;
 165 }
 166
 167 static void
 168 flash_write_select(ao_pos_t pos)
 169 {
 170         /* Flush any pending writes to another word */
 171         if (write_pending) {
 172                 if (pos == write_pos)
 173                         return;
 174                 __storage[write_pos] = write_buf.u32;
 175                 write_pending = 0;
 176         }
 177         write_pos = pos;
 178 }
 179
 180 /* Write data within a storage unit */
 181 uint8_t
 182 ao_storage_device_write(ao_pos_t pos, void *buf, uint16_t len)
 183 {
 184         uint8_t *b8 = buf;
 185
 186         ao_flash_pecr_unlock();
 187         ao_flash_pgr_unlock();
 188         while (len) {
 189                 ao_pos_t        this_pos = pos >> 2;
 190
 191                 flash_write_select(this_pos);
 192
 193                 /* Update write buffer with new contents */
 194                 int this_word = 4 - (pos & 3);
 195                 if (this_word > len)
 196                         this_word = len;
 197                 memcpy(&write_buf.u8[pos & 3], b8, this_word);
 198                 pos += this_word;
 199                 len -= this_word;
 200                 b8 += this_word;
 201
 202                 /* If we filled the buffer, flush it out */
 203                 if ((pos & 3) == 0) {
 204                         __storage[write_pos] = write_buf.u32;
 205                 } else {
 206                         write_pending = 1;
 207                 }
 208         }
 209         ao_flash_lock();
 210         return 1;
 211 }
 212
 213 /* Erase device from pos through pos + ao_storage_block */
 214 uint8_t
 215 ao_storage_device_erase(uint32_t pos)
 216 {
 217         ao_flash_erase_page(__storage + pos);
 218         return 1;
 219 }
 220
 221 /* Initialize low-level device bits */
 222 void
 223 ao_storage_device_init(void)
 224 {
 225 }
 226
 227 /* Print out information about flash chips */
 228 void
 229 ao_storage_device_info(void)
 230 {
 231         printf("Detected chips 1 size %d\n", ao_storage_total);
 232 }