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
  19 void func_header(char *s, int vars, int parms, int call)
  20 {
  21         printf("\t.globl %1$s\n\t.type %1$s, @function\n%1$s:\n", s);
  22         printf("\t//vars: %i, parms: %i, call(bool): %i\n", vars, parms, call);
  23         akt_func_name = s;
  24
  25         need_stack = (vars || parms) && call;
  26         if(need_stack) {
  27                 printf("\tpushq %%rbp\n"
  28                                 "\tmovq %%rsp, %%rbp\n",
  29                                 "\tsubq $%d, %%rsp\n", 8*(vars+parms));
  30         }
  31 }
  32
  33 char *get_func_name(void)
  34 {
  35         return akt_func_name;
  36 }
  37
  38 void func_footer(void)
  39 {
  40         if(need_stack)
  41                 printf("\tleave\n");
  42         printf("\tret\n");
  43 }
  44
  45 void move(char *src, char *dst)
  46 {
  47         if(strcmp(src,dst) != 0) {
  48                 printf("\tmovq %%%s, %%%s\n", src, dst);
  49         }
  50 }
  51
  52 void moveimm(long imm, char *dst)
  53 {
  54         char buf[100];
  55         sprintf(buf, "$%d", imm);
  56         printf("\tmovq %s, %%%s\n", buf, dst);
  57 }
  58
  59 char *next_reg(char *s, int params)
  60 {
  61         int i = 0;
  62         if (s != (char*) NULL) {
  63                 while(strcmp(s, regs64[i]) != 0) {
  64                         i = (i+1) % REGLEN;
  65                 }
  66                 i = (i+1) % REGLEN;
  67         }
  68 #ifdef DDCHELP
  69         fprintf(stderr, "next_reg(): %s (bei %i parameter)\n", regs64[i], params);
  70 #endif
  71         return regs64[i];
  72 }
  73
  74 char *reg_64to8l(char *s)
  75 {
  76         int i = 0;
  77         if (s != (char*) NULL) {
  78                 while(strcmp(s, regs64[i]) != 0) {
  79                         i = (i+1) % REGLEN;
  80                 }
  81                 return regs8l[i];
  82         }
  83         fprintf(stderr, "reg_64to8l(): sollte nicht passieren\n");
  84         exit(4);
  85 }
  86
  87 char *param_reg(int num)
  88 {
  89         char *regs[] = {"rdi", "rsi", "rdx", "rcx", "r8", "r9", "r11"};
  90         return regs[num];
  91 }
  92