[BACK]Return to cpu.c CVS log [TXT] [DIR] Up to [RetroPC.NET] / np2 / i386c / ia32

Diff for /np2/i386c/ia32/cpu.c between versions 1.2 and 1.18

version 1.2, 2003/12/22 18:00:31 version 1.18, 2004/03/30 08:48:46
Line 28 Line 28
  */   */
   
 #include "compiler.h"  #include "compiler.h"
   #include "dosio.h"
 #include "cpu.h"  #include "cpu.h"
 #include "ia32.mcr"  #include "ia32.mcr"
   
 #include "inst_table.h"  #include "inst_table.h"
   
 #if defined(IA32_PROFILE_INSTRUCTION)  
 UINT32  inst_1byte_count[2][256];  
 UINT32  inst_2byte_count[2][256];  
 UINT32  ea16_count[24];  
 UINT32  ea32_count[24];  
 UINT32  sib0_count[256];  
 UINT32  sib1_count[256];  
 UINT32  sib2_count[256];  
   
 static const char *ea16_str[24] = {  
         "BX + SI", "BX + SI + DISP8", "BX + SI + DISP16",  
         "BX + DI", "BX + DI + DISP8", "BX + DI + DISP16",  
         "BP + SI", "BP + SI + DISP8", "BP + SI + DISP16",  
         "BP + DI", "BP + DI + DISP8", "BP + DI + DISP16",  
         "SI",      "SI + DISP8",      "SI + DISP16",  
         "DI",      "DI + DISP8",      "DI + DISP16",  
         "DISP16",  "BP + DISP8",      "BP + DISP16",  
         "BX",      "BX + DISP8",      "BX + DISP16",  
 };  
   
 static const char *ea32_str[24] = {  
         "EAX", "ECX", "EDX", "EBX", "SIB", "DISP32", "ESI", "EDI",  
         "EAX + DISP8",  "ECX + DISP8",  "EDX + DISP8",  "EBX + DISP8",  
         "SIB + DISP8",  "EBP + DISP8",  "ESI + DISP8",  "EDI + DISP8",  
         "EAX + DISP32", "ECX + DISP32", "EDX + DISP32", "EBX + DISP32",  
         "SIB + DISP32", "EBP + DISP32", "ESI + DISP32", "EDI + DISP32",  
 };  
   
 static const char *sib0_base_str[8] = {  
         "EAX", "ECX", "EDX", "EBX", "ESP", "DISP32", "ESI", "EDI",  
 };  
   
 static const char *sib1_base_str[8] = {  
         "EAX", "ECX", "EDX", "EBX", "ESP", "EBP", "ESI", "EDI",  
 };  
   
 static const char *sib_index_str[8] = {  
         "EAX", "ECX", "EDX", "EBX", "", "EBP", "ESI", "EDI",  
 };  
   
 static const char *sib_scale_str[4] = {  
         "", "2", "4", "8",  
 };  
   
 void  sigjmp_buf exec_1step_jmpbuf;
 clear_profile_inst(void)  
 {  
   
         memset(inst_1byte_count, 0, sizeof(inst_1byte_count));  #if defined(IA32_INSTRUCTION_TRACE)
         memset(inst_2byte_count, 0, sizeof(inst_2byte_count));  typedef struct {
         memset(ea16_count, 0, sizeof(ea16_count));          CPU_REGS                regs;
         memset(ea32_count, 0, sizeof(ea32_count));          disasm_context_t        disasm;
         memset(sib0_count, 0, sizeof(sib0_count));  
         memset(sib1_count, 0, sizeof(sib1_count));  
         memset(sib2_count, 0, sizeof(sib2_count));  
 }  
   
 void          BYTE                    op[MAX_PREFIX + 2];
 show_profile_inst(void)          int                     opbytes;
 {  } ia32_context_t;
         int i;  
   
         printf("instruction (16bit)\n");  #define NCTX    1024
         for (i = 0; i < 256; i++) {  
                 if (inst_1byte_count[0][i] != 0) {  
                         printf("0x%02x: %d\n", i, inst_1byte_count[0][i]);  
                 }  
         }  
         for (i = 0; i < 256; i++) {  
                 if (inst_2byte_count[0][i] != 0) {  
                         printf("0x0f%02x: %d\n", i, inst_2byte_count[0][i]);  
                 }  
         }  
   
         printf("instruction (32bit)\n");  ia32_context_t ctx[NCTX];
         for (i = 0; i < 256; i++) {  int ctx_index = 0;
                 if (inst_1byte_count[1][i] != 0) {  
                         printf("0x%02x: %d\n", i, inst_1byte_count[1][i]);  
                 }  
         }  
         for (i = 0; i < 256; i++) {  
                 if (inst_2byte_count[1][i] != 0) {  
                         printf("0x0f%02x: %d\n", i, inst_2byte_count[1][i]);  
                 }  
         }  
 }  
   
 void  int cpu_inst_trace = 0;
 show_profile_ea(void)  #endif
 {  
         char buf[80];  
         char tmp[80];  // #define      IPTRACE                 (1 << 14)
         int i;  
         int t;  #if defined(TRACE) && IPTRACE
   static  UINT    trpos = 0;
         printf("EA16\n");  static  UINT32  trcs[IPTRACE];
         for (i = 0; i < NELEMENTS(ea16_count); i++) {  static  UINT32  treip[IPTRACE];
                 if (ea16_count[i] != 0) {  
                         printf("%s: %d\n", ea16_str[i], ea16_count[i]);  void iptrace_out(void) {
                 }  
         }          FILEH   fh;
         printf("EA32\n");          UINT    s;
         for (i = 0; i < NELEMENTS(ea32_count); i++) {          UINT32  cs;
                 if (ea32_count[i] != 0) {          UINT32  eip;
                         printf("%s: %d\n", ea32_str[i], ea32_count[i]);          char    buf[32];
                 }  
         }          s = trpos;
         printf("SIB0\n");          if (s > IPTRACE) {
         for (i = 0; i < NELEMENTS(sib0_count); i++) {                  s -= IPTRACE;
                 if (sib0_count[i] != 0) {          }
                         sprintf(tmp, "%s", sib0_base_str[i & 7]);          else {
                         strcpy(buf, tmp);                  s = 0;
                         t = (i >> 3) & 7;          }
                         if (t != 4) {          fh = file_create_c("his.txt");
                                 sprintf(tmp, " + %s", sib_index_str[t]);          while(s < trpos) {
                                 strcat(buf, tmp);                  cs = trcs[s & (IPTRACE - 1)];
                         }                  eip = treip[s & (IPTRACE - 1)];
                         t = (i >> 6) & 3;                  s++;
                         if (t != 0) {                  SPRINTF(buf, "%.4x:%.8x\r\n", cs, eip);
                                 sprintf(tmp, " * %s", sib_scale_str[t]);                  file_write(fh, buf, strlen(buf));
                                 strcat(buf, tmp);  
                         }  
                         printf("%s: %d\n", buf, sib0_count[i]);  
                 }  
         }  
         printf("SIB1\n");  
         for (i = 0; i < NELEMENTS(sib1_count); i++) {  
                 if (sib1_count[i] != 0) {  
                         sprintf(tmp, "%s", sib1_base_str[i & 7]);  
                         strcpy(buf, tmp);  
                         t = (i >> 3) & 7;  
                         if (t != 4) {  
                                 sprintf(tmp, " + %s", sib_index_str[t]);  
                                 strcat(buf, tmp);  
                         }  
                         t = (i >> 6) & 3;  
                         if (t != 0) {  
                                 sprintf(tmp, " * %s", sib_scale_str[t]);  
                                 strcat(buf, tmp);  
                         }  
                         printf("%s + DISP8: %d\n", buf, sib1_count[i]);  
                 }  
         }  
         printf("SIB2\n");  
         for (i = 0; i < NELEMENTS(sib2_count); i++) {  
                 if (sib2_count[i] != 0) {  
                         sprintf(tmp, "%s", sib1_base_str[i & 7]);  
                         strcpy(buf, tmp);  
                         t = (i >> 3) & 7;  
                         if (t != 4) {  
                                 sprintf(tmp, " + %s", sib_index_str[t]);  
                                 strcat(buf, tmp);  
                         }  
                         t = (i >> 6) & 3;  
                         if (t != 0) {  
                                 sprintf(tmp, " * %s", sib_scale_str[t]);  
                                 strcat(buf, tmp);  
                         }  
                         printf("%s + DISP32: %d\n", buf, sib2_count[i]);  
                 }  
         }          }
           file_close(fh);
 }  }
 #endif  #endif
   
 #define MAX_PREFIX      8  
   
 jmp_buf exec_1step_jmpbuf;  
   
 void  void
 exec_1step(void)  exec_1step(void)
 {  {
         BYTE op;          int prefix;
         BYTE prefix;          UINT32 op;
   
         CPU_PREV_EIP = CPU_EIP;          CPU_PREV_EIP = CPU_EIP;
   
         CPU_STATSAVE.cpu_inst = CPU_STATSAVE.cpu_inst_default;          CPU_STATSAVE.cpu_inst = CPU_STATSAVE.cpu_inst_default;
   
   #if defined(TRACE) && IPTRACE
           trcs[trpos & (IPTRACE - 1)] = CPU_CS;
           treip[trpos & (IPTRACE - 1)] = CPU_EIP;
           trpos++;
   #endif
   
   #if defined(IA32_INSTRUCTION_TRACE)
           ctx[ctx_index].regs = CPU_STATSAVE.cpu_regs;
           if (cpu_inst_trace) {
                   disasm_context_t *d = &ctx[ctx_index].disasm;
                   UINT32 eip = CPU_EIP;
                   int rv;
   
                   rv = disasm(&eip, d);
                   if (rv == 0) {
                           char buf[256];
                           char tmp[32];
                           int len = d->nopbytes > 8 ? 8 : d->nopbytes;
                           int i;
   
                           buf[0] = '\0';
                           for (i = 0; i < len; i++) {
                                   snprintf(tmp, sizeof(tmp), "%02x ", d->opcode[i]);
                                   milstr_ncat(buf, tmp, sizeof(buf));
                           }
                           for (; i < 8; i++) {
                                   milstr_ncat(buf, "   ", sizeof(buf));
                           }
                           VERBOSE(("%04x:%08x: %s%s", CPU_CS, CPU_EIP, buf, d->str));
   
                           buf[0] = '\0';
                           for (; i < d->nopbytes; i++) {
                                   snprintf(tmp, sizeof(tmp), "%02x ", d->opcode[i]);
                                   milstr_ncat(buf, tmp, sizeof(buf));
                                   if ((i % 8) == 7) {
                                           VERBOSE(("             : %s", buf));
                                           buf[0] = '\0';
                                   }
                           }
                           if ((i % 8) != 0) {
                                   VERBOSE(("             : %s", buf));
                           }
                   }
           }
           ctx[ctx_index].opbytes = 0;
   #endif
   
   #if defined(IA32_SUPPORT_DEBUG_REGISTER)
           if (CPU_STAT_BP && !(CPU_EFLAG & RF_FLAG)) {
                   int i;
                   for (i = 0; i < CPU_DEBUG_REG_INDEX_NUM; i++) {
                           if ((CPU_STAT_BP & (1 << i))
                            && (CPU_DR7_GET_RW(i) == CPU_DR7_RW_CODE)
                            && (CPU_DR(i) == CPU_EIP)
                            && (CPU_DR7_GET_LEN(i) == 0)) {
                                   CPU_DR6 |= CPU_DR6_B(i);
                                   EXCEPTION(DB_EXCEPTION, 0);
                           }
                   }
           }
   #endif  /* IA32_SUPPORT_DEBUG_REGISTER */
   
         for (prefix = 0; prefix < MAX_PREFIX; prefix++) {          for (prefix = 0; prefix < MAX_PREFIX; prefix++) {
                 GET_PCBYTE(op);                  GET_PCBYTE(op);
   #if defined(IA32_INSTRUCTION_TRACE)
                   ctx[ctx_index].op[prefix] = op;
                   ctx[ctx_index].opbytes++;
   #endif
   
                 /* prefix */                  /* prefix */
                 if (insttable_info[op] & INST_PREFIX) {                  if (insttable_info[op] & INST_PREFIX) {
                         PROFILE_INC_INST_1BYTE(op);  
                         (*insttable_1byte[0][op])();                          (*insttable_1byte[0][op])();
                         continue;                          continue;
                 }                  }
Line 225  exec_1step(void) Line 178  exec_1step(void)
         if (prefix == MAX_PREFIX) {          if (prefix == MAX_PREFIX) {
                 EXCEPTION(UD_EXCEPTION, 0);                  EXCEPTION(UD_EXCEPTION, 0);
         }          }
         PROFILE_INC_INST_1BYTE(op);  
   #if defined(IA32_INSTRUCTION_TRACE)
           if (op == 0x0f) {
                   BYTE op2;
                   op2 = cpu_codefetch(CPU_EIP);
                   ctx[ctx_index].op[prefix + 1] = op2;
                   ctx[ctx_index].opbytes++;
           }
           ctx_index = (ctx_index + 1) % NELEMENTS(ctx);
   #endif
   
         /* normal / rep, but not use */          /* normal / rep, but not use */
         if (!(insttable_info[op] & INST_STRING) || !CPU_INST_REPUSE) {          if (!(insttable_info[op] & INST_STRING) || !CPU_INST_REPUSE) {
                 (*insttable_1byte[CPU_INST_OP32][op])();                  (*insttable_1byte[CPU_INST_OP32][op])();
   #if defined(IA32_SUPPORT_DEBUG_REGISTER)
                   goto check_break_point;
   #else
                 return;                  return;
   #endif
         }          }
   
         /* rep */          /* rep */
Line 274  exec_1step(void) Line 240  exec_1step(void)
                         }                          }
                 }                  }
         }          }
   
   #if defined(IA32_SUPPORT_DEBUG_REGISTER)
   check_break_point:
           if (CPU_TRAP || (CPU_STAT_BP_EVENT & ~CPU_STAT_BP_EVENT_RF)) {
                   UINT8 orig = CPU_STAT_BP_EVENT & ~CPU_STAT_BP_EVENT_RF;
   
                   CPU_STAT_BP_EVENT &= CPU_STAT_BP_EVENT_RF;
   
                   CPU_DR6 |= (orig & 0xf);
                   if (orig & CPU_STAT_BP_EVENT_TASK) {
                           CPU_DR6 |= CPU_DR6_BT;
                   }
                   if (CPU_TRAP) {
                           CPU_DR6 |= CPU_DR6_BS;
                   }
                   INTERRUPT(DB_EXCEPTION, TRUE, FALSE, 0);
           }
           if (CPU_EFLAG & RF_FLAG) {
                   if (CPU_STAT_BP_EVENT & CPU_STAT_BP_EVENT_RF) {
                           /* after IRETD or task switch */
                           CPU_STAT_BP_EVENT &= ~CPU_STAT_BP_EVENT_RF;
                   } else {
                           CPU_EFLAG &= ~RF_FLAG;
                   }
           }
   #endif  /* IA32_SUPPORT_DEBUG_REGISTER */
 }  }
Removed from v.1.2  
changed lines
  Added in v.1.18

RetroPC.NET-CVS <cvs@retropc.net>