ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/cebix/BasiliskII/src/uae_cpu/compiler/gencomp.c

Comparing BasiliskII/src/uae_cpu/compiler/gencomp.c (file contents):
Revision 1.6 by cebix, 2004-01-12T15:29:30Z vs.
Revision 1.10 by gbeauche, 2005-04-24T23:00:08Z

#	Line 4 | Line 4
4		*  Based on work Copyright 1995, 1996 Bernd Schmidt
5		*  Changes for UAE-JIT Copyright 2000 Bernd Meyer
6		*
7	<	*  Adaptation for Basilisk II and improvements, copyright 2000-2004
7	>	*  Adaptation for Basilisk II and improvements, copyright 2000-2005
8		*    Gwenole Beauchesne
9		*
10	<	*  Basilisk II (C) 1997-2004 Christian Bauer
10	>	*  Basilisk II (C) 1997-2005 Christian Bauer
11		*
12		*  This program is free software; you can redistribute it and/or modify
13		*  it under the terms of the GNU General Public License as published by
#	Line 1100 | Line 1100 | genflags (flagtypes type, wordsizes size
1100		"\tint one=scratchie++;\n"
1101		"\tif (needed_flags&FLAG_Z) {\n"
1102		"\tmov_l_ri(zero,0);\n"
1103	<	"\tmov_l_ri(one,1);\n"
1103	>	"\tmov_l_ri(one,-1);\n"
1104		"\tmake_flags_live();\n"
1105		"\tcmov_l_rr(zero,one,5);\n"
1106		"\t}\n");
#	Line 1123 | Line 1123 | genflags (flagtypes type, wordsizes size
1123		comprintf("\tlive_flags();\n");
1124		comprintf("\tif (needed_flags&FLAG_Z) {\n"
1125		"\tcmov_l_rr(zero,one,5);\n"
1126	<	"\tsetzflg_l(zero);\n"
1126	>	"\tset_zero(zero, one);\n" /* No longer need one */
1127		"\tlive_flags();\n"
1128		"\t}\n");
1129		comprintf("\tend_needflags();\n");
#	Line 1365 | Line 1365 | gen_opcode (unsigned long int opcode)
1365		genamode (curi->dmode, "dstreg", curi->size, "dst", 1, 0);
1366		start_brace();
1367		comprintf("\tint s=scratchie++;\n"
1368	+	"\tint tmp=scratchie++;\n"
1369		"\tmov_l_rr(s,src);\n");
1370		if (curi->size == sz_byte)
1371		comprintf("\tand_l_ri(s,7);\n");
#	Line 1380 | Line 1381 | gen_opcode (unsigned long int opcode)
1381		case i_BCLR: op="btr"; break;
1382		case i_BSET: op="bts"; break;
1383		case i_BTST: op="bt"; need_write=0; break;
1384	+	default: abort();
1385		}
1386		comprintf("\t%s_l_rr(dst,s);\n"  /* Answer now in C */
1387		"\tsbb_l(s,s);\n" /* s is 0 if bit was 0, -1 otherwise */
#	Line 1387 | Line 1389 | gen_opcode (unsigned long int opcode)
1389		"\tdont_care_flags();\n",op);
1390		if (!noflags) {
1391		comprintf("\tstart_needflags();\n"
1392	<	"\tsetzflg_l(s);\n"
1392	>	"\tset_zero(s,tmp);\n"
1393		"\tlive_flags();\n"
1394		"\tend_needflags();\n");
1395		}
#	Line 1547 | Line 1549 | gen_opcode (unsigned long int opcode)
1549		start_brace();
1550		comprintf("\tint newad=scratchie++;\n"
1551		"\treadlong(15,newad,scratchie);\n"
1552	<	"\tmov_l_mr((uae_u32)&regs.pc,newad);\n"
1552	>	"\tmov_l_mr((uintptr)&regs.pc,newad);\n"
1553		"\tget_n_addr_jmp(newad,PC_P,scratchie);\n"
1554	<	"\tmov_l_mr((uae_u32)&regs.pc_oldp,PC_P);\n"
1554	>	"\tmov_l_mr((uintptr)&regs.pc_oldp,PC_P);\n"
1555		"\tm68k_pc_offset=0;\n"
1556		"\tadd_l(15,offs);\n");
1557		gen_update_next_handler();
#	Line 1578 | Line 1580 | gen_opcode (unsigned long int opcode)
1580		case i_RTS:
1581		comprintf("\tint newad=scratchie++;\n"
1582		"\treadlong(15,newad,scratchie);\n"
1583	<	"\tmov_l_mr((uae_u32)&regs.pc,newad);\n"
1583	>	"\tmov_l_mr((uintptr)&regs.pc,newad);\n"
1584		"\tget_n_addr_jmp(newad,PC_P,scratchie);\n"
1585	<	"\tmov_l_mr((uae_u32)&regs.pc_oldp,PC_P);\n"
1585	>	"\tmov_l_mr((uintptr)&regs.pc_oldp,PC_P);\n"
1586		"\tm68k_pc_offset=0;\n"
1587		"\tlea_l_brr(15,15,4);\n");
1588		gen_update_next_handler();
#	Line 1603 | Line 1605 | gen_opcode (unsigned long int opcode)
1605		"\tmov_l_ri(ret,retadd);\n"
1606		"\tsub_l_ri(15,4);\n"
1607		"\twritelong_clobber(15,ret,scratchie);\n");
1608	<	comprintf("\tmov_l_mr((uae_u32)&regs.pc,srca);\n"
1608	>	comprintf("\tmov_l_mr((uintptr)&regs.pc,srca);\n"
1609		"\tget_n_addr_jmp(srca,PC_P,scratchie);\n"
1610	<	"\tmov_l_mr((uae_u32)&regs.pc_oldp,PC_P);\n"
1610	>	"\tmov_l_mr((uintptr)&regs.pc_oldp,PC_P);\n"
1611		"\tm68k_pc_offset=0;\n");
1612		gen_update_next_handler();
1613		break;
1614		case i_JMP:
1615		isjump;
1616		genamode (curi->smode, "srcreg", curi->size, "src", 0, 0);
1617	<	comprintf("\tmov_l_mr((uae_u32)&regs.pc,srca);\n"
1617	>	comprintf("\tmov_l_mr((uintptr)&regs.pc,srca);\n"
1618		"\tget_n_addr_jmp(srca,PC_P,scratchie);\n"
1619	<	"\tmov_l_mr((uae_u32)&regs.pc_oldp,PC_P);\n"
1619	>	"\tmov_l_mr((uintptr)&regs.pc_oldp,PC_P);\n"
1620		"\tm68k_pc_offset=0;\n");
1621		gen_update_next_handler();
1622		break;
#	Line 1645 | Line 1647 | gen_opcode (unsigned long int opcode)
1647		comprintf("\tsub_l_ri(src,m68k_pc_offset-m68k_pc_offset_thisinst-2);\n");
1648		/* Leave the following as "add" --- it will allow it to be optimized
1649		away due to src being a constant ;-) */
1650	<	comprintf("\tadd_l_ri(src,(uae_u32)comp_pc_p);\n");
1651	<	comprintf("\tmov_l_ri(PC_P,(uae_u32)comp_pc_p);\n");
1650	>	comprintf("\tadd_l_ri(src,(uintptr)comp_pc_p);\n");
1651	>	comprintf("\tmov_l_ri(PC_P,(uintptr)comp_pc_p);\n");
1652		/* Now they are both constant. Might as well fold in m68k_pc_offset */
1653		comprintf("\tadd_l_ri(src,m68k_pc_offset);\n");
1654		comprintf("\tadd_l_ri(PC_P,m68k_pc_offset);\n");
#	Line 1719 | Line 1721 | gen_opcode (unsigned long int opcode)
1721		default: abort();  /* Seems this only comes in word flavour */
1722		}
1723		comprintf("\tsub_l_ri(offs,m68k_pc_offset-m68k_pc_offset_thisinst-2);\n");
1724	<	comprintf("\tadd_l_ri(offs,(uae_u32)comp_pc_p);\n"); /* New PC,
1724	>	comprintf("\tadd_l_ri(offs,(uintptr)comp_pc_p);\n"); /* New PC,
1725		once the
1726		offset_68k is
1727		* also added */
#	Line 3067 | Line 3069 | main (int argc, char **argv)
3069		free (table68k);
3070		fclose (stblfile);
3071		fclose (headerfile);
3072	+	fflush (stdout);
3073		return 0;
3074		}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines