codea/chelper.c

   1 #include <stdio.h>
   2 #include <string.h>
   3 #include "chelper.h"
   4 #include "tree.h"
   5
   6 #if 0
   7 #define DDCHELP
   8 #endif
   9
  10 void func_header(char *s)
  11 {
  12         printf("\t.globl %1$s\n\t.type %1$s, @function\n%1$s:\n", s);
  13 }
  14
  15 void func_footer(void)
  16 {
  17         printf("\tret\n");
  18 }
  19
  20 void move(char *src, char *dst)
  21 {
  22         if(strcmp(src,dst) != 0) {
  23                 printf("\tmovq %%%s, %%%s\n", src, dst);
  24         }
  25 }
  26
  27 void moveimm(long imm, char *dst)
  28 {
  29         char buf[100];
  30         sprintf(buf, "$%li", imm);
  31         printf("\tmovq %s, %%%s\n", buf, dst);
  32 }
  33
  34 void ret(void)
  35 {
  36         printf("\tret\n");
  37 }
  38
  39 char *next_reg(char *s, short skip)
  40 {
  41         /* TODO: bessere registerwahl. das is gerade a wengal suboptimal... */
  42 #if 1
  43         char *regs[] = {"rax", "r10", "r11", "rax"};
  44 #else
  45         char *regs[] = {"rax", "r10", "r11", "r9", "r8", "rcx", "rdx", "rsi", "rdi"};
  46 #endif
  47         int i=0;
  48         if (s != (char*) NULL) {
  49                 while(i < 9) {
  50                         if(!strcmp(s, regs[i++])) {
  51                                 break;
  52                         }
  53                 }
  54         }
  55         if(skip) {
  56                 i++;
  57         }
  58 #ifdef DDCHELP
  59         fprintf(stderr, "next_reg(): %s\n", regs[i]);
  60 #endif
  61
  62         return regs[i];
  63 }
  64
  65 char *param_reg(int num)
  66 {
  67         char *regs[] = {"rdi", "rsi", "rdx", "rcx", "r8", "r9"};
  68         return regs[num];
  69 }
  70