codea/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 1
   8 #define DDCHELP
   9 #endif
  10
  11 void func_header(char *s)
  12 {
  13         printf("\t.globl %1$s\n\t.type %1$s, @function\n%1$s:\n", s);
  14 }
  15
  16 void func_footer(void)
  17 {
  18         printf("\tret\n");
  19 }
  20
  21 void move(char *src, char *dst)
  22 {
  23         if(strcmp(src,dst) != 0) {
  24                 printf("\tmovq %%%s, %%%s\n", src, dst);
  25         }
  26 }
  27
  28 void moveimm(long imm, char *dst)
  29 {
  30         char buf[100];
  31         sprintf(buf, "$%li", imm);
  32         printf("\tmovq %s, %%%s\n", buf, dst);
  33 }
  34
  35 void ret(void)
  36 {
  37         printf("\tret\n");
  38 }
  39
  40 char *next_reg(char *s, short skip, int params)
  41 {
  42         /* TODO: bessere registerwahl. das is gerade a wengal suboptimal... */
  43 #define REGLEN 9
  44         char *regs[] = {"rax", "r10", "r11", "r9", "r8", "rcx", "rdx", "rsi", "rdi"};
  45
  46         int i=0;
  47         if (s != (char*) NULL) {
  48                 while(i < 9) {
  49                         if(!strcmp(s, regs[i++])) {
  50                                 break;
  51                         }
  52                 }
  53         }
  54         if(skip) {
  55                 i++;
  56         }
  57 #ifdef DDCHELP
  58         fprintf(stderr, "next_reg(): %s (bei %i parameter)\n", regs[i], params);
  59 #endif
  60         /* TODO: <= passt? */
  61         if(REGLEN - params <= i) {
  62                 fprintf(stderr, "next_reg(): register \"%s\" in dem sich ein parameter befindet wird als temporaeres register verwendet(params: %i, i: %i)\n", regs[i], params, i);
  63                 /* TODO: exit hier? */
  64 #if 0
  65                 exit(4);
  66 #endif
  67         }
  68
  69         return regs[i];
  70 }
  71
  72 char *param_reg(int num)
  73 {
  74         char *regs[] = {"rdi", "rsi", "rdx", "rcx", "r8", "r9"};
  75         return regs[num];
  76 }
  77