added new licence header

[libfirm] / ir / be / mips / mips_emitter.c

diff --git a/ir/be/mips/mips_emitter.c b/ir/be/mips/mips_emitter.c
index aea578a..9f6e98c 100644 (file)
--- a/ir/be/mips/mips_emitter.c
+++ b/ir/be/mips/mips_emitter.c
@@ -1,6 +1,24 @@
+/*
+ * Copyright (C) 1995-2007 University of Karlsruhe.  All right reserved.
+ *
+ * This file is part of libFirm.
+ *
+ * This file may be distributed and/or modified under the terms of the
+ * GNU General Public License version 2 as published by the Free Software
+ * Foundation and appearing in the file LICENSE.GPL included in the
+ * packaging of this file.
+ *
+ * Licensees holding valid libFirm Professional Edition licenses may use
+ * this file in accordance with the libFirm Commercial License.
+ * Agreement provided with the Software.
+ *
+ * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+ * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE.
+ */
+
 /* mips emitter */
 /* $Id$ */
-
 #ifdef HAVE_CONFIG_H
 #include "config.h"
 #endif
@@ -17,6 +35,7 @@
 #include "irargs_t.h"
 #include "irprog_t.h"
 #include "irouts.h"
+#include "error.h"
 
 #include "../besched.h"
 #include "../benode_t.h"
@@ -346,14 +365,22 @@ static void mips_emit_IncSP(const ir_node *node, mips_emit_env_t *env)
                return;
        }
 
-       fprintf(F, "\taddi $sp, $sp, %d\n", -offset);
+       if(offset > 0xffff || offset < -0xffff) {
+               panic("stackframe > 2^16 bytes not supported yet\n");
+       }
+
+       if(offset > 0) {
+               fprintf(F, "\tsubu $sp, $sp, %d\n", offset);
+       } else {
+               fprintf(F, "\taddu $sp, $sp, %d\n", -offset);
+       }
 }
 
 static void mips_emit_Copy(const ir_node *node, mips_emit_env_t *env)
 {
        FILE *F = env->out;
 
-       lc_efprintf(mips_get_arg_env(), F, "\tor %1D, $zero, %1S\t\t\t# copy\n", node, node);
+       lc_efprintf(mips_get_arg_env(), F, "\tmove %1D, %1S\t\t\t# copy\n", node, node);
 }
 
 static void mips_emit_Return(const ir_node* node, mips_emit_env_t *env)
@@ -387,16 +414,16 @@ static void mips_emit_Perm(const ir_node *node, mips_emit_env_t *env)
 
 static void mips_emit_Spill(const ir_node* node, mips_emit_env_t *env)
 {
-       FILE   *F   = env->out;
-       entity *ent = be_get_frame_entity(node);
+       FILE      *F   = env->out;
+       ir_entity *ent = be_get_frame_entity(node);
 
        lc_efprintf(mips_get_arg_env(), F, "\tsw %1S, %d($fp)\n", node, get_entity_offset(ent));
 }
 
 static void mips_emit_Reload(const ir_node* node, mips_emit_env_t *env)
 {
-       FILE   *F   = env->out;
-       entity *ent = be_get_frame_entity(node);
+       FILE      *F   = env->out;
+       ir_entity *ent = be_get_frame_entity(node);
 
        lc_efprintf(mips_get_arg_env(), F, "\tlw %1D, %d($fp)\n", node, get_entity_offset(ent));
 }
@@ -411,7 +438,7 @@ static void mips_emit_Call(ir_node *node, mips_emit_env_t *env)
        const arch_register_t *callee_reg;
 
        // call to imediate value (label)
-       entity *callee = be_Call_get_entity(node);
+       ir_entity *callee = be_Call_get_entity(node);
        if(callee != NULL) {
                fprintf(F, "\tjal %s\n", get_entity_name(callee));
                return;
@@ -696,8 +723,14 @@ void mips_emit_start(FILE *F, ir_graph *irg)
        irg_walk_graph(irg, NULL, dump_jump_tables, F);
 
        fprintf(F, "\n\n");
-       fprintf(F, "# Function Start of %s\n", irg_name);
+       fprintf(F, "\t.balign\t4\n");
+       fprintf(F, "\t.global\t%s\n", irg_name);
+       fprintf(F, "\t.set\tnomips16\n");
+       fprintf(F, "\t.ent\t%s\n", irg_name);
        fprintf(F, "%s:\n", irg_name);
+       fprintf(F, "\t.frame\t$fp, 24, $ra\n");
+       fprintf(F, "\t.mask\t0xc0000000, -4\n");
+       fprintf(F, "\t.fmask\t0x00000000, 0\n");
 }
 
 /**
@@ -706,9 +739,7 @@ void mips_emit_start(FILE *F, ir_graph *irg)
 void mips_emit_end(FILE *F, ir_graph *irg)
 {
        const char *irg_name = get_entity_name(get_irg_entity(irg));
-
-       fprintf(F, "# End of function %s we should never get here...\n", irg_name);
-       fprintf(F, "\tjal exit\n");
+       fprintf(F, "\t.end\t%s\n", irg_name);
 }
 
 /**