altos/lambdakey: Get save/restore working
authorKeith Packard <keithp@keithp.com>
Sat, 12 Nov 2016 07:36:22 +0000 (23:36 -0800)
committerKeith Packard <keithp@keithp.com>
Mon, 20 Feb 2017 19:16:50 +0000 (11:16 -0800)
Need the HSI clock running for the flash hardware to work.

Signed-off-by: Keith Packard <keithp@keithp.com>
src/lambdakey-v1.0/Makefile
src/lambdakey-v1.0/ao_pins.h
src/lambdakey-v1.0/lambda.ld [new file with mode: 0644]
src/stmf0/ao_flash_stm.c

index 1ac04f24159e7f02a94719967befe3ecc51a49d4..c71e1ab57d3f63ba3e9e932411ec70b1d3060fb8 100644 (file)
@@ -34,6 +34,7 @@ ALTOS_SRC = \
        ao_mutex.c \
        ao_usb_stm.c \
        ao_serial_stm.c \
+       ao_flash_stm.c \
        ao_lisp_lex.c \
        ao_lisp_mem.c \
        ao_lisp_cons.c \
@@ -41,20 +42,22 @@ ALTOS_SRC = \
        ao_lisp_string.c \
        ao_lisp_atom.c \
        ao_lisp_int.c \
-       ao_lisp_prim.c \
+       ao_lisp_poly.c \
        ao_lisp_builtin.c \
        ao_lisp_read.c \
        ao_lisp_rep.c \
        ao_lisp_frame.c \
        ao_lisp_error.c \
        ao_lisp_lambda.c \
+       ao_lisp_save.c \
+       ao_lisp_os_save.c \
        ao_exti_stm.c
 
 PRODUCT=LambdaKey-v1.0
 PRODUCT_DEF=-DLAMBDAKEY
 IDPRODUCT=0x000a
 
-CFLAGS = $(PRODUCT_DEF) $(STMF0_CFLAGS) -Os -g
+CFLAGS = $(PRODUCT_DEF) -I. $(STMF0_CFLAGS) -Os -g
 
 LDFLAGS=$(CFLAGS) -L$(TOPDIR)/stmf0 -Wl,-Tlambda.ld
 
index b8429c5522f0ba6133d92369ffafcbb03e58c02a..167d08576583a398a6179a999020732d1fd3a40e 100644 (file)
 #define AO_LED_RED     (1 << LED_PIN_RED)
 #define AO_LED_PANIC   AO_LED_RED
 #define AO_CMD_LEN     128
-#define AO_LISP_POOL   3072
+#define AO_LISP_POOL_TOTAL     3072
+#define AO_LISP_SAVE   1
 #define AO_STACK_SIZE  1024
 
+/* need HSI active to write to flash */
+#define AO_NEED_HSI    1
+
 #define LEDS_AVAILABLE (AO_LED_RED)
 
 #define AO_POWER_MANAGEMENT    0
diff --git a/src/lambdakey-v1.0/lambda.ld b/src/lambdakey-v1.0/lambda.ld
new file mode 100644 (file)
index 0000000..5de65eb
--- /dev/null
@@ -0,0 +1,117 @@
+/*
+ * Copyright © 2012 Keith Packard <keithp@keithp.com>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program 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
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License along
+ * with this program; if not, write to the Free Software Foundation, Inc.,
+ * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
+ */
+
+MEMORY {
+       rom (rx) :   ORIGIN = 0x08001000, LENGTH = 25K
+       flash (r):   ORIGIN = 0x08007400, LENGTH = 3k
+       ram (!w) :   ORIGIN = 0x20000000, LENGTH = 6k - 128
+       stack (!w) : ORIGIN = 0x20000000 + 6k - 128, LENGTH = 128
+}
+
+INCLUDE registers.ld
+
+EXTERN (stm_interrupt_vector)
+
+SECTIONS {
+       /*
+        * Rom contents
+        */
+
+       .interrupt ORIGIN(ram) : AT (ORIGIN(rom)) {
+               __interrupt_start__ = .;
+               __interrupt_rom__ = ORIGIN(rom);
+               *(.interrupt)   /* Interrupt vectors */
+               __interrupt_end__ = .;
+       } > ram
+
+       .text ORIGIN(rom) + 0x100 : {
+               __text_start__ = .;
+
+               /* Ick. What I want is to specify the
+                * addresses of some global constants so
+                * that I can find them across versions
+                * of the application. I can't figure out
+                * how to make gnu ld do that, so instead
+                * we just load the two files that include
+                * these defines in the right order here and
+                * expect things to 'just work'. Don't change
+                * the contents of those files, ok?
+                */
+               ao_romconfig.o(.romconfig*)
+               ao_product.o(.romconfig*)
+
+               *(.text*)       /* Executable code */
+               *(.ARM.exidx* .gnu.linkonce.armexidx.*)
+               *(.rodata*)     /* Constants */
+
+       } > rom
+       __text_end__ = .;
+       
+
+       /* Boot data which must live at the start of ram so that
+        * the application and bootloader share the same addresses.
+        * This must be all uninitialized data
+        */
+       .boot (NOLOAD) : {
+               __boot_start__ = .;
+               *(.boot)
+               . = ALIGN(4);
+               __boot_end__ = .;
+       } >ram
+
+       /* Functions placed in RAM (required for flashing)
+        *
+        * Align to 8 bytes as that's what the ARM likes text
+        * segment alignments to be, and if we don't, then
+        * we end up with a mismatch between the location in
+        * ROM and the desired location in RAM. I don't
+        * entirely understand this, but at least this appears
+        * to work...
+        */
+
+       .textram BLOCK(8): {
+               __data_start__ = .;
+               __text_ram_start__ = .;
+               *(.ramtext)
+               __text_ram_end = .;
+       } >ram AT>rom
+
+       /* Data -- relocated to RAM, but written to ROM
+        */
+       .data : {
+               *(.data)        /* initialized data */
+               . = ALIGN(4);
+               __data_end__ = .;
+       } >ram AT>rom
+
+       .bss : {
+               __bss_start__ = .;
+               *(.bss)
+               *(COMMON)
+               . = ALIGN(4);
+               __bss_end__ = .;
+       } >ram
+
+       PROVIDE(end = .);
+
+       PROVIDE(__stack__ = ORIGIN(stack) + LENGTH(stack));
+
+       __flash__ = ORIGIN(flash);
+}
+
+ENTRY(start);
index 2aeff3880fce13f3a91ec545276d8e9ab797538c..ef2e261909574d8d8715ac850dc615f0a35f9263 100644 (file)
@@ -44,12 +44,7 @@ ao_flash_lock(void)
        stm_flash.cr |= (1 << STM_FLASH_CR_LOCK);
 }
 
-static void
-ao_flash_wait_bsy(void)
-{
-       while (stm_flash.sr & (1 << STM_FLASH_SR_BSY))
-               ;
-}
+#define ao_flash_wait_bsy() do { while (stm_flash.sr & (1 << STM_FLASH_SR_BSY)); } while (0)
 
 static void __attribute__ ((section(".ramtext"),noinline))
 _ao_flash_erase_page(uint32_t *page)