CbC/old/device: mc-code-mips.c comparison

comparison mc-code-mips.c @ 195:c193120ee2a6

*** empty log message ***

author	kono
date	Sun, 04 Apr 2004 21:17:10 +0900
parents	f53d70110377
children	5f70abd9453d

comparison

equal deleted inserted replaced

-:114e9d64b5cc
+:c193120ee2a6
 if (!is_double_reg(i)) i = dreg;
 if (!regs[i]) regs[i]=1;
 return i;
 }
+int use_longlong(int i) {
+return i;
+}
+#if FLOAT_CODE
 static int code_d1(double d);
 static int code_d2(double d);
+#endif
 static void code_save_stacks();
 static void code_save_input_registers();
 static void    set_creg(int,int);
 static void    set_freg(int,int);
 (reg_stack[i]=new_lvar(size_of_int)),reg,0);
 reg_stack[i]= reg_stack[i]-REG_LVAR_OFFSET;
 	    return reg;
 	}
 }
+#if FLOAT_CODE
 /* search dregister stack */
 for(i=0;i<dreg_sp;i++) {
 	if ((reg=dreg_stack[i])>=0) {
 code_dassign_lvar(
 (dreg_stack[i]=new_lvar(size_of_double)),reg,1);
 dreg_stack[i]= dreg_stack[i]-REG_LVAR_OFFSET;
 	    free_register(reg);
 	    return get_register(); /* 今度は必ずある */
 	}
 }
+#endif
 for(i=0;i<REG_VAR_BASE-REG_VAR_MIN;i++) {
 reg =REG_VAR_BASE-i;
 if (! regs[reg]) {       /* 使われていないなら */
 regs[reg]=USING_REG; /* そのレジスタを使うことを宣言し */
 regv[reg]=0;
 int
 pop_register(void)
 {     /* レジスタから値を取り出す */
 return reg_stack[--reg_sp];
 }
+#if FLOAT_CODE
 static int
 get_dregister1() {
 int i;
 for(i=MAX_TMP_DREG+DREG_OFFSET;i>MIN_TMP_DREG+DREG_OFFSET;i--) {
 int
 pop_dregister(void)
 {     /* レジスタから値を取り出す */
 return dreg_stack[--dreg_sp];
 }
+#endif
+#if LONGLONG_CODE
+int
+get_lregister_var(NMTBL *n)
+{
+return -1;
+}
+#endif
 void
 emit_pop_free(int xreg)
 {
 if (xreg>=0)
 int i;
 for(i=0;i<MAX_REGISTER;i++) { regs[i]=0; regv[i]=0; }
 for(i=0;i<MAX_FREGISTER;i++) { regs[i+FREG_OFFSET]=0; regv[i+FREG_OFFSET]=0; }
 for(i=0;i<MAX_DREGISTER;i++) { regs[i+DREG_OFFSET]=0; regv[i+DREG_OFFSET]=0; }
 creg = get_register();
+#if FLOAT_CODE
 freg = get_dregister(0);
 dreg = DREG_DREGISTER;
+#endif
 set_creg(CREG_REGISTER,0);
 set_freg(FREG_FREGISTER,0);
 set_dreg(DREG_DREGISTER,0);
 return;
 }
 void
 emit_data(int e, int t, NMTBL *n)
 {
 int l;
+#if FLOAT_CODE
 double d;
 float f;
+#endif
 char *name;
 name = n->nm;
 if(mode!=GDECL&&mode!=STADECL)  {
 	error(-1); return;
 }
 	    gpc += 2;
 	} else {
 	    printf("\t.word %d\n",cadr(e));
 	    gpc += size_of_int;
 	}
+#if FLOAT_CODE
 } else if(t==DOUBLE) {
 d = dcadr(e);
 printf("\t.word\t0x%x\n\t.word\t0x%x\n",code_d1(d),code_d2(d));
 } else if(t==FLOAT) {
 f = dcadr(e);
 printf("\t.word\t0x%x\n",*(int *)&f);
+#endif
 } else if(t!=CHAR) {
 	gpc += size_of_int;
 if(car(e)==ADDRESS&&car(cadr(e))==GVAR) {
 printf("\t.word _%s\n",((NMTBL *)cadr(cadr(e)))->nm);
 } else if(car(e)==FNAME) {
 	output_mode = DATA_EMIT_MODE;
 }
 if (name)
 	printf("\t.type\t%s,@object\n",name);
 }
+#if FLOAT_CODE
 char *
 fstore(int d)
 {
 return (d?"stfd":"stfs");
 	creg = freg = new_reg;
 	regv[freg]=1;
 }
 }
+#endif
 void
 code_save_stacks()
 {
 int i,reg;
 for(i=0;i<reg_sp;i++) {
 code_assign_lvar(
 (reg_stack[i]=new_lvar(size_of_int)),reg,0);
 reg_stack[i]= reg_stack[i]-REG_LVAR_OFFSET;
 }
 }
+#if FLOAT_CODE
 for(i=0;i<dreg_sp;i++) {
 if ((reg=dreg_stack[i])>=0) {
 code_dassign_lvar(
 (dreg_stack[i]=new_lvar(size_of_double)),reg,1);
 dreg_stack[i]= dreg_stack[i]-REG_LVAR_OFFSET;
 code_dassign_lvar(
 (freg_stack[i]=new_lvar(size_of_float)),reg,0);
 freg_stack[i]= freg_stack[i]-REG_LVAR_OFFSET;
 }
 }
+#endif
 }
 void
 emit_lib(char *p[])
 {
 global_table();
 /* printf("\t.ident \"Micro-C compiled\"\n"); */
 fclose(asi);
 }
+#if LONGLONG_CODE
+/* 64bit int part */
+void lrexpr(int e1, int e2,int l1, int op)
+{
+}
+int lpop_register()
+{
+	return 0;
+}
+int emit_lpop()
+{
+	return 0;
+}
+void code_lregister(int e2,int reg)
+{
+}
+void code_cmp_lregister(int reg)
+{
+}
+void code_cmp_lrgvar(int e1,int e2)
+{
+}
+void code_cmp_lrlvar(int e1,int e2)
+{
+}
+void code_lassign(int e1,int e2)
+{
+}
+void code_lassign_gvar(int e1,int e2)
+{
+}
+void code_lassign_lvar(int e1,int e2)
+{
+}
+void code_lassign_lregister(int e2,int reg)
+{
+}
+void code_lconst(int e1,int e2)
+{
+}
+void code_lneg(int e1,int e2)
+{
+}
+void code_lrgvar(int e1,int e2)
+{
+}
+void code_lrlvar(int e1,int e2)
+{
+}
+void ltosop(int e1,int e2)
+{
+}
+void emit_lpop_free(int e1)
+{
+}
+void emit_lpush()
+{
+}
+void code_i2ll(int creg)
+{
+}
+void code_i2ull(int creg)
+{
+}
+void code_u2ll(int creg)
+{
+}
+void code_u2ull(int creg)
+{
+}
+void code_ll2i(int creg)
+{
+}
+void code_ll2u(int creg)
+{
+}
+void code_ull2i(int creg)
+{
+}
+void code_ull2u(int creg)
+{
+}
+#if FLOAT_CODE
+void code_d2ll(int creg)
+{
+}
+void code_d2ull(int creg)
+{
+}
+void code_f2ll(int creg)
+{
+}
+void code_f2ull(int creg)
+{
+}
+void code_ll2d(int creg)
+{
+}
+void code_ll2f(int creg)
+{
+}
+void code_ull2d(int creg)
+{
+}
+void code_ull2f(int creg)
+{
+}
+void code_ull2ll(int creg)
+{
+}
+void code_ull2ull(int creg)
+{
+}
+#endif
+void code_lpreinc(int e1,int e2,int reg)
+{
+}
+void code_lpostinc(int e1,int e2,int reg)
+{
+}
+void code_lassop(int op)
+{
+}
+#endif
 /* end */

Mercurial > hg > CbC > old > device

comparison mc-code-mips.c @ 195:c193120ee2a6