codeb: ups, andere registerbelegung noetig feur Feld: ..

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

diff --git a/codea/chelper.c b/codea/chelper.c
index 8f9185c251899e17c32d1e3f75e7ac713235d73f..015e7a35244bfd13de60e33cd2f4584737f642f9 100644 (file)
--- a/codea/chelper.c
+++ b/codea/chelper.c
@@ -1,13 +1,27 @@
 #include <stdio.h>
 #include <string.h>
+#include <stdlib.h>
 #include "chelper.h"
 #include "tree.h"
 
+#if 0
+#define DDCHELP
+#endif
+
+#define REGLEN 4
+static char *regs64[] = {"rax", "r10", "r11", "r9"};
+static char *regs8l[] = {"al", "r10b", "r11b", "r9b"};
+
 void func_header(char *s)
 {
        printf("\t.globl %1$s\n\t.type %1$s, @function\n%1$s:\n", s);
 }
 
+void func_footer(void)
+{
+       printf("\tret\n");
+}
+
 void move(char *src, char *dst)
 {
        if(strcmp(src,dst) != 0) {
@@ -15,31 +29,44 @@ void move(char *src, char *dst)
        }
 }
 
-void ret(void)
+void moveimm(long imm, char *dst)
 {
-       printf("\tret\n");
+       char buf[100];
+       sprintf(buf, "$%d", imm);
+       printf("\tmovq %s, %%%s\n", buf, dst);
 }
 
-char *next_reg(char *s, short skip)
+char *next_reg(char *s, int params)
 {
-       char *regs[] = {"rax", "r10", "r11", "r9", "r8", "rcx", "rdx", "rsi", "rdi"};
-       int i=0;
+       int i = 0;
        if (s != (char*) NULL) {
-               for(; i < 9;) {
-                       if(!strcmp(s, regs[i++])) {
-                               break;
-                       }
+               while(strcmp(s, regs64[i]) != 0) {
+                       i = (i+1) % REGLEN;
                }
+               i = (i+1) % REGLEN;
        }
-       if(skip) {
-               i++;
+#ifdef DDCHELP
+       fprintf(stderr, "next_reg(): %s (bei %i parameter)\n", regs64[i], params);
+#endif
+       return regs64[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];
        }
-       return regs[i];
+       fprintf(stderr, "reg_64to8l(): sollte nicht passieren\n");
+       exit(4);
 }
 
 char *param_reg(int num)
 {
        char *regs[] = {"rdi", "rsi", "rdx", "rcx", "r8", "r9"};
-       return regs[num-1];
+       return regs[num];
 }