gesamt/chelper.c

   1 #include <stdio.h>
   2 #include <string.h>
   3 #include <stdlib.h>
   4 #include "chelper.h"
   5 #include "tree.h"
   6
   7 #if 0
   8 #define DDCHELP
   9 #endif
  10
  11 #define REGLEN 4
  12 static char *regs64[] = {"rax", "r10", "r11", "r9"};
  13 static char *regs8l[] = {"al", "r10b", "r11b", "r9b"};
  14
  15 /* ja, dirty.. */
  16 static char *akt_func_name = (char*) NULL;
  17 static char need_stack = 0;
  18 static int gvars;
  19
  20 void func_header(char *s, int vars, int parms, int call)
  21 {
  22         printf("\t.globl %1$s\n\t.type %1$s, @function\n%1$s:\n", s);
  23         printf("\t//vars-> %i, parms-> %i, call(bool)-> %i\n", vars, parms, call);
  24         akt_func_name = s;
  25
  26 #if 0
  27         need_stack = (vars || parms) && call;
  28 #else
  29         need_stack = vars || (parms && call);
  30         gvars = vars;
  31 #endif
  32         if(need_stack) {
  33                 /* 2 * 7 fuer paramterregs reservieren + 2 fuer rax und r10 */
  34                 printf("\tenter $%d, $0\n", 8*(2*7 + 2));
  35
  36                 int j;
  37                 printf("\t//vars pushen\n"); /* koennten parameter enthalten von anderen fkts... */
  38                 for(j = VARBEGIN; j > VARBEGIN - vars; j--) {
  39                         printf("\tpushq %%%s\n", param_reg(j));
  40                 }
  41         }
  42 }
  43
  44 char *get_func_name(void)
  45 {
  46         return akt_func_name;
  47 }
  48
  49 void func_footer(void)
  50 {
  51         if(need_stack) {
  52                 int j;
  53                 /* vars poppen */
  54                 for(j = VARBEGIN+1 - gvars; j < VARBEGIN+1; j++) {
  55                         printf("\tpopq %%%s\n", param_reg(j));
  56                 }
  57                 printf("\tleave\n");
  58         }
  59         printf("\tret\n\n\n");
  60 }
  61
  62 void move(char *src, char *dst)
  63 {
  64         if(src == (char*) NULL) return;
  65         if(strcmp(src,dst) != 0) {
  66                 printf("\tmovq %%%s, %%%s\n", src, dst);
  67         }
  68 }
  69
  70 void moveimm(long imm, char *dst)
  71 {
  72         char buf[100];
  73         sprintf(buf, "$%d", imm);
  74         printf("\tmovq %s, %%%s\n", buf, dst);
  75 }
  76
  77 char *next_reg(char *s, int params)
  78 {
  79         int i = 0;
  80         if (s != (char*) NULL) {
  81                 while(strcmp(s, regs64[i]) != 0) {
  82                         i = (i+1) % REGLEN;
  83                 }
  84                 i = (i+1) % REGLEN;
  85         }
  86 #ifdef DDCHELP
  87         fprintf(stderr, "next_reg(): %s (bei %i parameter)\n", regs64[i], params);
  88 #endif
  89         return regs64[i];
  90 }
  91
  92 char *reg_64to8l(char *s)
  93 {
  94         int i = 0;
  95         if (s != (char*) NULL) {
  96                 while(strcmp(s, regs64[i]) != 0) {
  97                         i = (i+1) % REGLEN;
  98                 }
  99                 return regs8l[i];
 100         }
 101         fprintf(stderr, "reg_64to8l(): sollte nicht passieren\n");
 102         exit(4);
 103 }
 104
 105 char *param_reg(int num)
 106 {
 107         char *regs[] = {"rdi", "rsi", "rdx", "rcx", "r8", "r9", "r11"};
 108         return regs[num];
 109 }
 110