#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "chelper.h"
#include "tree.h"

#if 0
#define DDCHELP
#endif

/* TODO */
#define REGLEN 5
static char *regsppc[] = {"r10", "r11", "r12", "r13", "r14"};

/* ja, dirty.. */
static char *akt_func_name = (char*) NULL;
static char need_stack = 0;

void func_header(char *s, int vars, int parms, int call)
{
	printf("\t.globl %1$s\n\t.type %1$s, %%function\n%1$s:\n", s);
	printf("\t@ vars: %i, parms: %i, call(bool): %i\n", vars, parms, call);
	akt_func_name = s;

	need_stack = (vars || parms) && call;
	if(need_stack) {
		/* save the link register */
		printf("\tmflr 0; stw 0,-8(1)\n");
		/* create the stack */
		printf("\tstwu 1, -80(1)\n");
	}
}

char *get_func_name(void)
{
	return akt_func_name;
}

void func_footer(void)
{
	if(need_stack) {
		/* remove stack frame */
		printf("\taddi 1,1,80\n");
		/* restore link register */
		printf("\tlwz 0,-8(1); mtlr 0\n");
	}
	printf("\tbx lr\n\n\n");
}

void move(char *src, char *dst)
{
	if(src == (char*) NULL) return;
	if(strcmp(src,dst) != 0) {
		printf("\tmov %s, %s\n", dst, src);
	}
}

void moveimm(long imm, char *dst)
{
	static int constlbl = 1;
	if((imm > 65536-1) || (imm < -65536)) {
		printf("\t.align 2\n\t.CONSTLBL%i\n\t.word %i\n", constlbl++);
		printf("\tldr %s, .CONSTLBL%i\n", dst, constlbl);
	} else {
		/* just low word */
		printf("\t%s %s, #%d\n", imm >= 0 ? "mov" : "mvn", dst, imm >= 0 ? imm : (-1 * imm) - 1);
	}
}

char *next_reg(char *s, int params)
{
	int i = 0;
	if (s != (char*) NULL) {
		while(strcmp(s, regsppc[i]) != 0) {
			i = (i+1) % REGLEN;
		}
		i = (i+1) % REGLEN;
	}
#ifdef DDCHELP
	fprintf(stderr, "next_reg(): %s (bei %i parameter)\n", regsppc[i], params);
#endif
	return regsppc[i];
}

char *reg_64to8l(char *s)
{
	fprintf(stderr, "reg_64to8l(): sollte nicht passieren\n");
	exit(4);
	return "";
}

char *param_reg(int num)
{ 	/* TODO */
	char *regs[] = {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", "r9"};
	return regs[num];
}