gesamt_ppc/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 5
  12 static char *regsppc[] = {"14", "15", "16", "17", "18"};
  13
  14 /* ja, dirty.. */
  15 static char *akt_func_name = (char*) NULL;
  16 static char need_stack = 0;
  17
  18 void func_header(char *s, int vars, int parms, int call)
  19 {
  20         printf("\t.globl %1$s\n\t.type %1$s, @function\n%1$s:\n", s);
  21         printf("\t#vars: %i, parms: %i, call(bool): %i\n", vars, parms, call);
  22         akt_func_name = s;
  23
  24         need_stack = (vars || parms) && call;
  25         if(need_stack) {
  26 #if 0
  27                 printf("\tenter $%d, $0\n", 8*(vars + parms + 2 /* fuer rax und r10 */));
  28 #else
  29                 /* save the link register */
  30                 printf("\tmflr 0; stw 0,8(1)\n");
  31                 /* create the stack */
  32                 printf("\tstwu 1, -64(1)\n");
  33 #endif
  34         }
  35 }
  36
  37 char *get_func_name(void)
  38 {
  39         return akt_func_name;
  40 }
  41
  42 void func_footer(void)
  43 {
  44         if(need_stack) {
  45 #if 0
  46                 printf("\tleave\n");
  47 #else
  48                 /* remove stack frame */
  49                 printf("\taddi 1,1,64\n");
  50                 /* restore link register */
  51                 printf("\tlwz 0,8(1); mtlr 0\n");
  52 #endif
  53         }
  54         printf("\tblr\n\n\n");
  55 }
  56
  57 void move(char *src, char *dst)
  58 {
  59         if(src == (char*) NULL) return;
  60         if(strcmp(src,dst) != 0) {
  61                 printf("\tmr %s,%s\n", dst, src);
  62         }
  63 }
  64
  65 void moveimm(long imm, char *dst)
  66 {
  67         /* TODO: 32 bits... */
  68         printf("\tli %s,%d\n", dst, imm);
  69 }
  70
  71 char *next_reg(char *s, int params)
  72 {
  73         int i = 0;
  74         if (s != (char*) NULL) {
  75                 while(strcmp(s, regsppc[i]) != 0) {
  76                         i = (i+1) % REGLEN;
  77                 }
  78                 i = (i+1) % REGLEN;
  79         }
  80 #ifdef DDCHELP
  81         fprintf(stderr, "next_reg(): %s (bei %i parameter)\n", regsppc[i], params);
  82 #endif
  83         return regsppc[i];
  84 }
  85
  86 char *reg_64to8l(char *s)
  87 {
  88         fprintf(stderr, "reg_64to8l(): sollte nicht passieren\n");
  89         exit(4);
  90         return "";
  91 }
  92
  93 char *param_reg(int num)
  94 {
  95         char *regs[] = {"3", "4", "5", "6", "7", "8", "9"};
  96         return regs[num];
  97 }
  98