754 |
|
} |
755 |
|
#endif |
756 |
|
|
757 |
+ |
// Fix flags used information for Scc, Bcc, TRAPcc, DBcc instructions |
758 |
+ |
if ( table68k[opc].mnemo == i_Scc |
759 |
+ |
|| table68k[opc].mnemo == i_Bcc |
760 |
+ |
|| table68k[opc].mnemo == i_DBcc |
761 |
+ |
|| table68k[opc].mnemo == i_TRAPcc |
762 |
+ |
) { |
763 |
+ |
switch (table68k[opc].cc) { |
764 |
+ |
// CC mask: XNZVC |
765 |
+ |
// 8421 |
766 |
+ |
case 0: flags_used = 0x00; break; /* T */ |
767 |
+ |
case 1: flags_used = 0x00; break; /* F */ |
768 |
+ |
case 2: flags_used = 0x05; break; /* HI */ |
769 |
+ |
case 3: flags_used = 0x05; break; /* LS */ |
770 |
+ |
case 4: flags_used = 0x01; break; /* CC */ |
771 |
+ |
case 5: flags_used = 0x01; break; /* CS */ |
772 |
+ |
case 6: flags_used = 0x04; break; /* NE */ |
773 |
+ |
case 7: flags_used = 0x04; break; /* EQ */ |
774 |
+ |
case 8: flags_used = 0x02; break; /* VC */ |
775 |
+ |
case 9: flags_used = 0x02; break; /* VS */ |
776 |
+ |
case 10:flags_used = 0x08; break; /* PL */ |
777 |
+ |
case 11:flags_used = 0x08; break; /* MI */ |
778 |
+ |
case 12:flags_used = 0x0A; break; /* GE */ |
779 |
+ |
case 13:flags_used = 0x0A; break; /* LT */ |
780 |
+ |
case 14:flags_used = 0x0E; break; /* GT */ |
781 |
+ |
case 15:flags_used = 0x0E; break; /* LE */ |
782 |
+ |
} |
783 |
+ |
} |
784 |
+ |
|
785 |
|
#if 1 |
786 |
|
/* gb-- flagdead and flaglive would not have correct information */ |
787 |
|
table68k[opc].flagdead = flags_set; |
809 |
|
for (i = 0; i < n_defs68k; i++) { |
810 |
|
build_insn (i); |
811 |
|
} |
784 |
– |
|
785 |
– |
/* Extra fixes in table68k for control flow information and flag usage */ |
786 |
– |
for (i = 0; i < 65536; i++) { |
787 |
– |
instrmnem mnemo = (instrmnem)(table68k[i].mnemo); |
788 |
– |
|
789 |
– |
#define IS_CONST_JUMP(opc) \ |
790 |
– |
( ((table68k[opc].mnemo == i_Bcc) && (table68k[opc].cc < 2)) \ |
791 |
– |
|| (table68k[opc].mnemo == i_BSR) \ |
792 |
– |
) |
793 |
– |
|
794 |
– |
// Precise const jumps as such. The JIT compiler will take |
795 |
– |
// care to actually enable that optimization or not |
796 |
– |
if (IS_CONST_JUMP(i)) |
797 |
– |
table68k[i].cflow |= fl_const_jump; |
798 |
– |
|
799 |
– |
// Fix flags used information for Scc, Bcc, TRAPcc, DBcc instructions |
800 |
– |
int flags_used = table68k[i].flaglive; |
801 |
– |
if ( (mnemo == i_Scc) |
802 |
– |
|| (mnemo == i_Bcc) |
803 |
– |
|| (mnemo == i_DBcc) |
804 |
– |
|| (mnemo == i_TRAPcc) |
805 |
– |
) { |
806 |
– |
switch (table68k[i].cc) { |
807 |
– |
// CC mask: XNZVC |
808 |
– |
// 8421 |
809 |
– |
case 0: flags_used = 0x00; break; /* T */ |
810 |
– |
case 1: flags_used = 0x00; break; /* F */ |
811 |
– |
case 2: flags_used = 0x05; break; /* HI */ |
812 |
– |
case 3: flags_used = 0x05; break; /* LS */ |
813 |
– |
case 4: flags_used = 0x01; break; /* CC */ |
814 |
– |
case 5: flags_used = 0x01; break; /* CS */ |
815 |
– |
case 6: flags_used = 0x04; break; /* NE */ |
816 |
– |
case 7: flags_used = 0x04; break; /* EQ */ |
817 |
– |
case 8: flags_used = 0x02; break; /* VC */ |
818 |
– |
case 9: flags_used = 0x02; break; /* VS */ |
819 |
– |
case 10:flags_used = 0x08; break; /* PL */ |
820 |
– |
case 11:flags_used = 0x08; break; /* MI */ |
821 |
– |
case 12:flags_used = 0x0A; break; /* GE */ |
822 |
– |
case 13:flags_used = 0x0A; break; /* LT */ |
823 |
– |
case 14:flags_used = 0x0E; break; /* GT */ |
824 |
– |
case 15:flags_used = 0x0E; break; /* LE */ |
825 |
– |
} |
826 |
– |
} |
827 |
– |
|
828 |
– |
/* Unconditional jumps don't evaluate condition codes, so they |
829 |
– |
don't actually use any flags themselves */ |
830 |
– |
if (IS_CONST_JUMP(i)) |
831 |
– |
flags_used = 0; |
832 |
– |
|
833 |
– |
table68k[i].flaglive = flags_used; |
834 |
– |
} |
812 |
|
} |
813 |
|
|
814 |
|
static int mismatch; |
908 |
|
{ |
909 |
|
return mismatch; |
910 |
|
} |
911 |
+ |
|
912 |
+ |
const char *get_instruction_name (unsigned int opcode) |
913 |
+ |
{ |
914 |
+ |
struct instr *ins = &table68k[opcode]; |
915 |
+ |
for (int i = 0; lookuptab[i].name[0]; i++) { |
916 |
+ |
if (ins->mnemo == lookuptab[i].mnemo) |
917 |
+ |
return lookuptab[i].name; |
918 |
+ |
} |
919 |
+ |
abort(); |
920 |
+ |
return NULL; |
921 |
+ |
} |
922 |
+ |
|
923 |
+ |
static char *get_ea_string (amodes mode, wordsizes size) |
924 |
+ |
{ |
925 |
+ |
static char buffer[80]; |
926 |
+ |
|
927 |
+ |
buffer[0] = 0; |
928 |
+ |
switch (mode){ |
929 |
+ |
case Dreg: |
930 |
+ |
strcpy (buffer,"Dn"); |
931 |
+ |
break; |
932 |
+ |
case Areg: |
933 |
+ |
strcpy (buffer,"An"); |
934 |
+ |
break; |
935 |
+ |
case Aind: |
936 |
+ |
strcpy (buffer,"(An)"); |
937 |
+ |
break; |
938 |
+ |
case Aipi: |
939 |
+ |
strcpy (buffer,"(An)+"); |
940 |
+ |
break; |
941 |
+ |
case Apdi: |
942 |
+ |
strcpy (buffer,"-(An)"); |
943 |
+ |
break; |
944 |
+ |
case Ad16: |
945 |
+ |
strcpy (buffer,"(d16,An)"); |
946 |
+ |
break; |
947 |
+ |
case Ad8r: |
948 |
+ |
strcpy (buffer,"(d8,An,Xn)"); |
949 |
+ |
break; |
950 |
+ |
case PC16: |
951 |
+ |
strcpy (buffer,"(d16,PC)"); |
952 |
+ |
break; |
953 |
+ |
case PC8r: |
954 |
+ |
strcpy (buffer,"(d8,PC,Xn)"); |
955 |
+ |
break; |
956 |
+ |
case absw: |
957 |
+ |
strcpy (buffer,"(xxx).W"); |
958 |
+ |
break; |
959 |
+ |
case absl: |
960 |
+ |
strcpy (buffer,"(xxx).L"); |
961 |
+ |
break; |
962 |
+ |
case imm: |
963 |
+ |
switch (size){ |
964 |
+ |
case sz_byte: |
965 |
+ |
strcpy (buffer,"#<data>.B"); |
966 |
+ |
break; |
967 |
+ |
case sz_word: |
968 |
+ |
strcpy (buffer,"#<data>.W"); |
969 |
+ |
break; |
970 |
+ |
case sz_long: |
971 |
+ |
strcpy (buffer,"#<data>.L"); |
972 |
+ |
break; |
973 |
+ |
default: |
974 |
+ |
break; |
975 |
+ |
} |
976 |
+ |
break; |
977 |
+ |
case imm0: |
978 |
+ |
strcpy (buffer,"#<data>.B"); |
979 |
+ |
break; |
980 |
+ |
case imm1: |
981 |
+ |
strcpy (buffer,"#<data>.W"); |
982 |
+ |
break; |
983 |
+ |
case imm2: |
984 |
+ |
strcpy (buffer,"#<data>.L"); |
985 |
+ |
break; |
986 |
+ |
case immi: |
987 |
+ |
strcpy (buffer,"#<data>"); |
988 |
+ |
break; |
989 |
+ |
|
990 |
+ |
default: |
991 |
+ |
break; |
992 |
+ |
} |
993 |
+ |
return buffer; |
994 |
+ |
} |
995 |
+ |
|
996 |
+ |
const char *get_instruction_string (unsigned int opcode) |
997 |
+ |
{ |
998 |
+ |
static char out[100]; |
999 |
+ |
struct instr *ins; |
1000 |
+ |
|
1001 |
+ |
strcpy (out, get_instruction_name (opcode)); |
1002 |
+ |
|
1003 |
+ |
ins = &table68k[opcode]; |
1004 |
+ |
if (ins->size == sz_byte) |
1005 |
+ |
strcat (out,".B"); |
1006 |
+ |
if (ins->size == sz_word) |
1007 |
+ |
strcat (out,".W"); |
1008 |
+ |
if (ins->size == sz_long) |
1009 |
+ |
strcat (out,".L"); |
1010 |
+ |
strcat (out," "); |
1011 |
+ |
if (ins->suse) |
1012 |
+ |
strcat (out, get_ea_string (ins->smode, ins->size)); |
1013 |
+ |
if (ins->duse) { |
1014 |
+ |
if (ins->suse) |
1015 |
+ |
strcat (out,","); |
1016 |
+ |
strcat (out, get_ea_string (ins->dmode, ins->size)); |
1017 |
+ |
} |
1018 |
+ |
return out; |
1019 |
+ |
} |