ppc: gesamt (stack und so) geht jetzt auch

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

diff --git a/gesamt_ppc/chelper.c b/gesamt_ppc/chelper.c
index dd345b0934bf7e8db0b2810ba0a899d51c550326..c8746eb3e941361754d3c73bc14274aba89d6c25 100644 (file)
--- a/gesamt_ppc/chelper.c
+++ b/gesamt_ppc/chelper.c
@@ -8,9 +8,8 @@
 #define DDCHELP
 #endif
 
-#define REGLEN 4
-static char *regs64[] = {"rax", "r10", "r11", "r9"};
-static char *regs8l[] = {"al", "r10b", "r11b", "r9b"};
+#define REGLEN 5
+static char *regsppc[] = {"14", "15", "16", "17", "18"};
 
 /* ja, dirty.. */
 static char *akt_func_name = (char*) NULL;
@@ -19,12 +18,19 @@ 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);
+       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) {
+#if 0
                printf("\tenter $%d, $0\n", 8*(vars + parms + 2 /* fuer rax und r10 */));
+#else
+               /* save the link register */
+               printf("\tmflr 0; stw 0,8(1)\n");
+               /* create the stack */
+               printf("\tstwu 1, -64(1)\n");
+#endif
        }
 }
 
@@ -35,57 +41,58 @@ char *get_func_name(void)
 
 void func_footer(void)
 {
-       if(need_stack)
+       if(need_stack) {
+#if 0
                printf("\tleave\n");
-       printf("\tret\n\n\n");
+#else
+               /* remove stack frame */
+               printf("\taddi 1,1,64\n");
+               /* restore link register */
+               printf("\tlwz 0,8(1); mtlr 0\n");
+#endif
+       }
+       printf("\tblr\n\n\n");
 }
 
 void move(char *src, char *dst)
 {
        if(src == (char*) NULL) return;
        if(strcmp(src,dst) != 0) {
-               printf("\tmovq %%%s, %%%s\n", src, dst);
+               printf("\tmr %s,%s\n", dst, src);
        }
 }
 
 void moveimm(long imm, char *dst)
 {
-       char buf[100];
-       sprintf(buf, "$%d", imm);
-       printf("\tmovq %s, %%%s\n", buf, dst);
+       /* TODO: 32 bits... */
+       printf("\tli %s,%d\n", dst, imm);
 }
 
 char *next_reg(char *s, int params)
 {
        int i = 0;
        if (s != (char*) NULL) {
-               while(strcmp(s, regs64[i]) != 0) {
+               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", regs64[i], params);
+       fprintf(stderr, "next_reg(): %s (bei %i parameter)\n", regsppc[i], params);
 #endif
-       return regs64[i];
+       return regsppc[i];
 }
 
 char *reg_64to8l(char *s)
 {
-       int i = 0;
-       if (s != (char*) NULL) {
-               while(strcmp(s, regs64[i]) != 0) {
-                       i = (i+1) % REGLEN;
-               }
-               return regs8l[i];
-       }
        fprintf(stderr, "reg_64to8l(): sollte nicht passieren\n");
        exit(4);
+       return "";
 }
 
 char *param_reg(int num)
 {
-       char *regs[] = {"rdi", "rsi", "rdx", "rcx", "r8", "r9", "r11"};
+       char *regs[] = {"3", "4", "5", "6", "7", "8", "9"};
        return regs[num];
 }