ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/cebix/BasiliskII/src/uae_cpu/compiler/gencomp.c
(Generate patch)

Comparing BasiliskII/src/uae_cpu/compiler/gencomp.c (file contents):
Revision 1.5 by gbeauche, 2003-03-13T20:34:34Z 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-2002
7 > *  Adaptation for Basilisk II and improvements, copyright 2000-2005
8   *    Gwenole Beauchesne
9   *
10 < *  Basilisk II (C) 1997-2002 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