arm64: init from arm

[uebersetzerbau-ss10.git] / gesamt_arm64 / chelper.c

diff --git a/gesamt_arm64/chelper.c b/gesamt_arm64/chelper.c
new file mode 100644 (file)
index 0000000..20e81bf
--- /dev/null
+++ b/gesamt_arm64/chelper.c
@@ -0,0 +1,97 @@
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include "chelper.h"
+#include "tree.h"
+
+#if 0
+#define DDCHELP
+#endif
+
+/* TODO */
+#define REGLEN 5
+static char *regsppc[] = {"r10", "r11", "r12", "r13", "r14"};
+
+/* ja, dirty.. */
+static char *akt_func_name = (char*) NULL;
+static char need_stack = 0;
+
+void func_header(char *s, int vars, int parms, int call)
+{
+       printf("\t.globl %1$s\n\t.type %1$s, %%function\n%1$s:\n", s);
+       printf("\t@ vars: %i, parms: %i, call(bool): %i\n", vars, parms, call);
+       akt_func_name = s;
+
+       need_stack = (vars || parms) && call;
+       if(need_stack) {
+               /* save the link register */
+               printf("\tmflr 0; stw 0,-8(1)\n");
+               /* create the stack */
+               printf("\tstwu 1, -80(1)\n");
+       }
+}
+
+char *get_func_name(void)
+{
+       return akt_func_name;
+}
+
+void func_footer(void)
+{
+       if(need_stack) {
+               /* remove stack frame */
+               printf("\taddi 1,1,80\n");
+               /* restore link register */
+               printf("\tlwz 0,-8(1); mtlr 0\n");
+       }
+       printf("\tbx lr\n\n\n");
+}
+
+void move(char *src, char *dst)
+{
+       if(src == (char*) NULL) return;
+       if(strcmp(src,dst) != 0) {
+               printf("\tmov %s, %s\n", dst, src);
+       }
+}
+
+void moveimm(long imm, char *dst)
+{
+       static int constlbl = 1;
+       if((imm > 65536-1) || (imm < -65536)) {
+               printf("\t.align 2\n\t.CONSTLBL%i\n\t.word %i\n", constlbl++);
+               printf("\tldr %s, .CONSTLBL%i\n", dst, constlbl);
+       } else {
+               /* just low word */
+               printf("\t%s %s, #%d\n", imm >= 0 ? "mov" : "mvn", dst, imm >= 0 ? imm : (-1 * imm) - 1);
+       }
+}
+
+char *next_reg(char *s, int params)
+{
+       int i = 0;
+       if (s != (char*) NULL) {
+               while(strcmp(s, regsppc[i]) != 0) {
+                       i = (i+1) % REGLEN;
+               }
+               i = (i+1) % REGLEN;
+       }
+#ifdef DDCHELP
+       fprintf(stderr, "next_reg(): %s (bei %i parameter)\n", regsppc[i], params);
+#endif
+       return regsppc[i];
+}
+
+char *reg_64to8l(char *s)
+{
+       fprintf(stderr, "reg_64to8l(): sollte nicht passieren\n");
+       exit(4);
+       return "";
+}
+
+char *param_reg(int num)
+{      /* TODO */
+       char *regs[] = {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", "r9"};
+       return regs[num];
+}
+