WIP ti/vars: add os_DelVarArc() and deleteArchivedVariable()

Author: adriweb

src/ce/extravars.c

@@ -0,0 +1,45 @@
+#include <stdbool.h>
+#include <stdint.h>
+
+// From <ti/error.h>
+int os_PushErrorHandler(void) __attribute__((returns_twice));
+void os_PopErrorHandler(void);
+// From <ti/vars.h>
+#define os_OP1   ((uint8_t*)0xD005F8)
+#define os_Flags ((uint8_t*)0xD00080)
+
+void os_DelVar(void *entry)
+{
+    int clobber_hl, clobber_de;
+    unsigned int *tmp = (unsigned int *)(entry - 5);
+    void *data = (void*)((*tmp & 0xFF) << 16 | (*tmp & 0xFF00) | (*tmp & 0xFF0000) >> 16);
+    asm volatile (
+        "call 021434h"    // DelVarArc
+        : "=l" (clobber_hl),
+          "=e" (clobber_de)
+        : [hl] "l" (entry),
+          [de] "e" (data),
+          [flags] "iyl" (os_Flags)
+        : "cc", "a", "bc", "ix", "iy"
+    );
+}
+
+bool arcUnarcVariable(uint8_t varType, uint8_t nameLen, const char *name)
+{
+    const int err = os_PushErrorHandler();
+    if (err) {
+        // dbg_printf("[ERROR caught] [arcUnarcVariable] errno = %d\n", err);
+        return false;
+    }
+    *(os_OP1) = varType;
+    __builtin_memcpy((char*)(os_OP1+1), name, nameLen);
+    *(os_OP1+1+nameLen) = '\0';
+    asm volatile (
+        "call 021448h"    // Arc_Unarc
+        :
+        : [flags] "iyl" (os_Flags)
+        : "cc", "a", "bc", "de", "hl", "ix", "iy"
+    );
+    os_PopErrorHandler();
+    return true;
+}

src/ce/include/ti/vars.h

@@ -12,6 +12,7 @@
 #ifndef TI_VARS_H
 #define TI_VARS_H
 
+#include <stdbool.h>
 #include <stdint.h>
 #include <stddef.h>
 #include <ti/real.h>
@@ -291,6 +292,23 @@ void *os_NextSymEntry(void *entry, uint24_t *type, uint24_t *nameLength, char *n
  */
 int os_DelSymEntry(void *entry);
 
+/**
+ * Delete a var from RAM or archive (Flash).
+ *
+ * @param[in] entry An entry as used in (or returned from) \c os_NextSymEntry or \c os_ChkFindSym.
+ */
+void os_DelVar(void *entry);
+
+/**
+ * Archive (if in RAM) or Unarchive (if in Flash) a variable.
+ *
+ * @param[in] varType The variable type ID (like \c OS_TYPE_PROT_PRGM etc.)
+ * @param[in] nameLen Length of the variable name
+ * @param[in] name Variable name
+ * @return true on success, false on failure.
+ */
+bool arcUnarcVariable(uint8_t varType, uint8_t nameLen, const char *name);
+
 /**
  * Creates an TIOS Str.
  *

src/ce/makefile

@@ -16,15 +16,30 @@
 
 include $(CURDIR)/../common.mk
 
-WILDCARD_SRC = $(wildcard *.src)
+BUILD_SRC := $(patsubst %,build/%.src,$(wildcard *.c *.cpp))
+
+EZCFLAGS := -S -ffreestanding -Wall -Wextra -Wimplicit-float-conversion -Wimplicit-int-float-conversion -Oz
+EZCFLAGS += -D_EZ80 -isystem ../libc/include -mllvm -profile-guided-section-prefix=false
+EZCXXFLAGS := $(EZCFLAGS) -fno-exceptions -fno-rtti
+EZCXXFLAGS += -isystem ../libc/include/c++
+
+WILDCARD_SRC = $(wildcard *.src) $(BUILD_SRC)
 WILDCARD_H = $(wildcard include/*.h)
 WILDCARD_HW_H = $(wildcard include/sys/*.h)
 WILDCARD_TI_H = $(wildcard include/ti/*.h)
 
 WILDCARD_CXX_H = $(wildcard include/c++/*)
 WILDCARD_CXX_TI_H = $(wildcard include/ti/c++/*)
 
-all:
+all: $(BUILD_SRC)
+
+build/%.c.src: %.c
+	$(Q)$(call MKDIR,build)
+	$(Q)$(EZCC) $(EZCFLAGS) $< -o $@
+
+build/%.cpp.src: %.cpp
+	$(Q)$(call MKDIR,build)
+	$(Q)$(EZCC) $(EZCXXFLAGS) $< -o $@
 
 install: $(addprefix install-,$(TARGETS))
 	$(Q)$(call MKDIR,$(INSTALL_H))

src/linker.mk

@@ -23,7 +23,7 @@ CRT_FILES := $(filter-out crt/crt0.src,$(wildcard crt/*.src) $(patsubst crt/%,cr
 LIBC_FILES := $(wildcard libc/*.src) $(patsubst libc/%,libc/build/%.src,$(wildcard libc/*.c libc/*.cpp))
 LIBCXX_FILES := $(wildcard libcxx/*.src) $(patsubst libcxx/%,libcxx/build/%.src,$(wildcard libcxx/*.c libcxx/*.cpp))
 SOFTFLOAT_FILES := $(wildcard softfloat/*.src) $(patsubst softfloat/%,softfloat/build/%.src,$(wildcard softfloat/*.c softfloat/*.cpp))
-CE_FILES := $(wildcard ce/*.src)
+CE_FILES := $(wildcard ce/*.src) $(patsubst ce/%,ce/build/%.src,$(wildcard ce/*.c ce/*.cpp))
 
 linker_script: $(STATIC_FILES) $(LINKED_FILES) $(SHARED_FILES)
 	$(Q)$(call REMOVE,$(call QUOTE_ARG,$@))