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

Diff for /np2/i386c/ia32/task.c between versions 1.1 and 1.4

version 1.1, 2003/12/08 00:55:31 version 1.4, 2004/01/15 15:49:52
Line 68  load_tr(WORD selector) Line 68  load_tr(WORD selector)
                 EXCEPTION(NP_EXCEPTION, task_sel.idx);                  EXCEPTION(NP_EXCEPTION, task_sel.idx);
         }          }
   
   #if defined(DEBUG)
   {
           DWORD v;
           DWORD i;
   
           VERBOSE(("load_tr: selector = %04x", task_sel.selector));
           for (i = 0; i < task_sel.desc.u.seg.limit; i += 4) {
                   v = cpu_lmemoryread_d(task_sel.desc.u.seg.segbase + i);
                   VERBOSE(("load_tr: %08x: %08x", task_sel.desc.u.seg.segbase + i, v));
           }
   }
   #endif
   
         CPU_SET_TASK_BUSY(&task_sel.desc);          CPU_SET_TASK_BUSY(&task_sel.desc);
         CPU_TR = task_sel.selector;          CPU_TR = task_sel.selector;
         CPU_TR_DESC = task_sel.desc;          CPU_TR_DESC = task_sel.desc;
 }  }
   
 void  void
 get_stack_from_tss(BYTE pl, WORD* new_ss, DWORD* new_esp)  get_stack_from_tss(DWORD pl, WORD* new_ss, DWORD* new_esp)
 {  {
         DWORD tss_stack_addr;          DWORD tss_stack_addr;
   
           __ASSERT(pl < 3);
   
         switch (CPU_TR_DESC.type) {          switch (CPU_TR_DESC.type) {
         case CPU_SYSDESC_TYPE_TSS_BUSY_32:          case CPU_SYSDESC_TYPE_TSS_BUSY_32:
                 tss_stack_addr = pl * 8 + 4;                  tss_stack_addr = pl * 8 + 4;
Line 91  get_stack_from_tss(BYTE pl, WORD* new_ss Line 106  get_stack_from_tss(BYTE pl, WORD* new_ss
   
         case CPU_SYSDESC_TYPE_TSS_BUSY_16:          case CPU_SYSDESC_TYPE_TSS_BUSY_16:
                 tss_stack_addr = pl * 4 + 2;                  tss_stack_addr = pl * 4 + 2;
                 if (tss_stack_addr + 4 > CPU_TR_DESC.u.seg.limit) {                  if (tss_stack_addr + 3 > CPU_TR_DESC.u.seg.limit) {
                         EXCEPTION(TS_EXCEPTION, CPU_TR & ~3);                          EXCEPTION(TS_EXCEPTION, CPU_TR & ~3);
                 }                  }
                 tss_stack_addr += CPU_TR_DESC.u.seg.segbase;                  tss_stack_addr += CPU_TR_DESC.u.seg.segbase;
Line 104  get_stack_from_tss(BYTE pl, WORD* new_ss Line 119  get_stack_from_tss(BYTE pl, WORD* new_ss
                     CPU_TR_DESC.type);                      CPU_TR_DESC.type);
                 break;                  break;
         }          }
   
           VERBOSE(("get_stack_from_tss: new_esp = 0x%08x, new_ss = 0x%04x", *new_esp, *new_ss));
 }  }
   
 WORD  WORD
 get_link_selector_from_tss()  get_link_selector_from_tss()
 {  {
           WORD backlink;
   
         if (CPU_TR_DESC.type == CPU_SYSDESC_TYPE_TSS_BUSY_32) {          if (CPU_TR_DESC.type == CPU_SYSDESC_TYPE_TSS_BUSY_32) {
                 if (4 > CPU_TR_DESC.u.seg.limit) {                  if (4 > CPU_TR_DESC.u.seg.limit) {
Line 124  get_link_selector_from_tss() Line 142  get_link_selector_from_tss()
                 return 0;       /* compiler happy */                  return 0;       /* compiler happy */
         }          }
   
         return cpu_lmemoryread_w(CPU_TR_DESC.u.seg.segbase);          backlink = cpu_lmemoryread_w(CPU_TR_DESC.u.seg.segbase);
           VERBOSE(("get_link_selector_from_tss: backlink selector = 0x%04x", backlink));
           return backlink;
 }  }
   
 void  void
Line 148  task_switch(selector_t* task_sel, int ty Line 168  task_switch(selector_t* task_sel, int ty
         int nsreg;          int nsreg;
         int i;          int i;
   
           VERBOSE(("task_switch: start"));
   
         cur_base = CPU_TR_DESC.u.seg.segbase;          cur_base = CPU_TR_DESC.u.seg.segbase;
         task_base = task_sel->desc.u.seg.segbase;          task_base = task_sel->desc.u.seg.segbase;
           VERBOSE(("task_switch: current task base address = 0x%08x", cur_base));
           VERBOSE(("task_switch: new task base address     = 0x%08x", task_base));
   
         /* limit check */          /* limit check */
         switch (task_sel->desc.type) {          switch (task_sel->desc.type) {
         case CPU_SYSDESC_TYPE_TSS_32:          case CPU_SYSDESC_TYPE_TSS_32:
         case CPU_SYSDESC_TYPE_TSS_BUSY_32:          case CPU_SYSDESC_TYPE_TSS_BUSY_32:
                 if (task_sel->desc.u.seg.limit < 103) {                  if (task_sel->desc.u.seg.limit < 0x67) {
                         EXCEPTION(TS_EXCEPTION, task_sel->idx);                          EXCEPTION(TS_EXCEPTION, task_sel->idx);
                 }                  }
                 task16 = FALSE;                  task16 = FALSE;
Line 164  task_switch(selector_t* task_sel, int ty Line 188  task_switch(selector_t* task_sel, int ty
   
         case CPU_SYSDESC_TYPE_TSS_16:          case CPU_SYSDESC_TYPE_TSS_16:
         case CPU_SYSDESC_TYPE_TSS_BUSY_16:          case CPU_SYSDESC_TYPE_TSS_BUSY_16:
                 if (task_sel->desc.u.seg.limit < 43) {                  if (task_sel->desc.u.seg.limit < 0x2b) {
                         EXCEPTION(TS_EXCEPTION, task_sel->idx);                          EXCEPTION(TS_EXCEPTION, task_sel->idx);
                 }                  }
                 task16 = TRUE;                  task16 = TRUE;
Line 178  task_switch(selector_t* task_sel, int ty Line 202  task_switch(selector_t* task_sel, int ty
                 break;                  break;
         }          }
   
   #if defined(DEBUG)
   {
           DWORD v;
   
           VERBOSE(("task_switch: new task"));
           for (i = 0; i < task_sel->desc.u.seg.limit; i += 4) {
                   v = cpu_lmemoryread_d(task_base + i);
                   VERBOSE(("task_switch: 0x%08x: %08x", task_base + i, v));
           }
   }
   #endif
   
         if (CPU_STAT_PAGING) {          if (CPU_STAT_PAGING) {
                 /* task state paging check */                  /* task state paging check */
                 paging_check(cur_base, CPU_TR_DESC.u.seg.limit, CPU_PAGING_PAGE_WRITE);                  paging_check(cur_base, CPU_TR_DESC.u.seg.limit, CPU_PAGING_PAGE_WRITE);
Line 196  task_switch(selector_t* task_sel, int ty Line 232  task_switch(selector_t* task_sel, int ty
                         regs[i] = cpu_lmemoryread_d(task_base + 40 + i * 4);                          regs[i] = cpu_lmemoryread_d(task_base + 40 + i * 4);
                 }                  }
                 for (i = 0; i < nsreg; i++) {                  for (i = 0; i < nsreg; i++) {
                         sreg[i] = (WORD)cpu_lmemoryread_d(task_base + 72 + i * 4);                          sreg[i] = cpu_lmemoryread_w(task_base + 72 + i * 4);
                 }                  }
                 ldtr = (WORD)cpu_lmemoryread_d(task_base + 96);                  ldtr = cpu_lmemoryread_w(task_base + 96);
                 t = cpu_lmemoryread_w(task_base + 100);                  t = cpu_lmemoryread_w(task_base + 100);
                   t &= 1;
                 iobase = cpu_lmemoryread_w(task_base + 102);                  iobase = cpu_lmemoryread_w(task_base + 102);
         } else {          } else {
                 eip = cpu_lmemoryread_w(task_base + 14);                  eip = cpu_lmemoryread_w(task_base + 14);
Line 211  task_switch(selector_t* task_sel, int ty Line 248  task_switch(selector_t* task_sel, int ty
                         sreg[i] = cpu_lmemoryread_w(task_base + 34 + i * 2);                          sreg[i] = cpu_lmemoryread_w(task_base + 34 + i * 2);
                 }                  }
                 ldtr = cpu_lmemoryread_w(task_base + 42);                  ldtr = cpu_lmemoryread_w(task_base + 42);
                   t = 0;
                 iobase = 0;                  iobase = 0;
         }          }
   
   #if defined(DEBUG)
           VERBOSE(("task_switch: %dbit task", task16 ? 16 : 32));
           VERBOSE(("task_switch: CR3     = 0x%08x", cr3));
           VERBOSE(("task_switch: eip     = 0x%08x", eip));
           VERBOSE(("task_switch: eflags  = 0x%08x", new_flags));
           for (i = 0; i < CPU_REG_NUM; i++) {
                   VERBOSE(("task_switch: regs[%d] = 0x%08x", i, regs[i]));
           }
           for (i = 0; i < nsreg; i++) {
                   VERBOSE(("task_switch: sreg[%d] = 0x%04x", i, sreg[i]));
           }
           VERBOSE(("task_switch: ldtr    = 0x%04x", ldtr));
           VERBOSE(("task_switch: t       = 0x%04x", t));
           VERBOSE(("task_switch: iobase  = 0x%04x", iobase));
   #endif
   
         /* if IRET or JMP, clear busy flag in this task: need */          /* if IRET or JMP, clear busy flag in this task: need */
         /* if IRET, clear NT_FLAG in current EFLAG: need */          /* if IRET, clear NT_FLAG in current EFLAG: need */
         switch (type) {          switch (type) {
Line 260  task_switch(selector_t* task_sel, int ty Line 314  task_switch(selector_t* task_sel, int ty
                 cpu_lmemorywrite_w(cur_base + 42, CPU_LDTR);                  cpu_lmemorywrite_w(cur_base + 42, CPU_LDTR);
         }          }
   
   #if defined(DEBUG)
   {
           DWORD v;
   
           VERBOSE(("task_switch: current task"));
           for (i = 0; i < CPU_TR_DESC.u.seg.limit; i += 4) {
                   v = cpu_lmemoryread_d(cur_base + i);
                   VERBOSE(("task_switch: 0x%08x: %08x", cur_base + i, v));
           }
   }
   #endif
         /* set back link selector */          /* set back link selector */
         switch (type) {          switch (type) {
         case TASK_SWITCH_CALL:          case TASK_SWITCH_CALL:
Line 311  task_switch(selector_t* task_sel, int ty Line 376  task_switch(selector_t* task_sel, int ty
   
         /* load task state (CR3, EFLAG, EIP, GPR, segreg, LDTR) */          /* load task state (CR3, EFLAG, EIP, GPR, segreg, LDTR) */
         if (CPU_STAT_PAGING) {          if (CPU_STAT_PAGING) {
                 /* XXX setCR3()? */                  set_CR3(cr3);
                 CPU_CR3 = cr3 & 0xfffff018;  
                 tlb_flush(FALSE);  
         }          }
   
         /* set new EFLAGS, EIP, GPR, segment register, LDTR */          /* set new EFLAGS */
         set_eflags(new_flags, I_FLAG|IOPL_FLAG|RF_FLAG|VM_FLAG|VIF_FLAG|VIP_FLAG);          set_eflags(new_flags, I_FLAG|IOPL_FLAG|RF_FLAG|VM_FLAG|VIF_FLAG|VIP_FLAG);
   
           /* set new EIP, GPR */
         CPU_PREV_EIP = CPU_EIP = eip;          CPU_PREV_EIP = CPU_EIP = eip;
         for (i = 0; i < CPU_REG_NUM; i++) {          for (i = 0; i < CPU_REG_NUM; i++) {
                 CPU_REGS_DWORD(i) = regs[i];                  CPU_REGS_DWORD(i) = regs[i];
Line 326  task_switch(selector_t* task_sel, int ty Line 391  task_switch(selector_t* task_sel, int ty
                 CPU_REGS_SREG(i) = sreg[i];                  CPU_REGS_SREG(i) = sreg[i];
                 CPU_STAT_SREG_CLEAR(i);                  CPU_STAT_SREG_CLEAR(i);
         }          }
         CPU_LDTR = ldtr;  
         CPU_LDTR_DESC.valid = 0;  
   
         /* load LDTR */          /* load new LDTR */
         load_ldtr(ldtr, TS_EXCEPTION);          load_ldtr(ldtr, TS_EXCEPTION);
   
         /* load CS */          /* set new segment register */
         rv = parse_selector(&cs_sel, sreg[CPU_CS_INDEX]);          if (CPU_STAT_VM86) {
         if (rv < 0) {                  /* VM86 */
                 EXCEPTION(TS_EXCEPTION, cs_sel.idx);                  /* clear 32bit */
         }                  CPU_STATSAVE.cpu_inst_default.op_32 = 
                       CPU_STATSAVE.cpu_inst_default.as_32 = 0;
         /* CS register must be code segment */                  CPU_STAT_SS32 = 0;
         if (!cs_sel.desc.s || !cs_sel.desc.u.seg.c) {                  CPU_STAT_CPL = task_sel->desc.dpl;
                 EXCEPTION(TS_EXCEPTION, cs_sel.idx);  
         }  
   
         /* check privilege level */                  for (i = 0; i < nsreg; i++) {
         if (!cs_sel.desc.u.seg.ec) {                          CPU_STAT_SREG_INIT(i);
                 /* non-confirming code segment */                          load_segreg(i, sreg[i], TS_EXCEPTION);
                 if (cs_sel.desc.dpl != cs_sel.rpl) {  
                         EXCEPTION(TS_EXCEPTION, cs_sel.idx);  
                 }                  }
         } else {          } else {
                 /* confirming code segment */                  /* load CS */
                 if (cs_sel.desc.dpl < cs_sel.rpl) {                  rv = parse_selector(&cs_sel, sreg[CPU_CS_INDEX]);
                   if (rv < 0) {
                           VERBOSE(("task_switch: load CS failure (sel = 0x%04x, rv = %d)", sreg[CPU_CS_INDEX], rv));
                         EXCEPTION(TS_EXCEPTION, cs_sel.idx);                          EXCEPTION(TS_EXCEPTION, cs_sel.idx);
                 }                  }
         }  
   
         /* CS segment is not present */                  /* CS register must be code segment */
         rv = selector_is_not_present(&cs_sel);                  if (!cs_sel.desc.s || !cs_sel.desc.u.seg.c) {
         if (rv < 0) {                          EXCEPTION(TS_EXCEPTION, cs_sel.idx);
                 EXCEPTION(NP_EXCEPTION, cs_sel.idx);                  }
         }  
   
         /* Now loading CS register */                  /* check privilege level */
         load_cs(cs_sel.selector, &cs_sel.desc, cs_sel.desc.dpl);                  if (!cs_sel.desc.u.seg.ec) {
                           /* non-confirming code segment */
                           if (cs_sel.desc.dpl != cs_sel.rpl) {
                                   EXCEPTION(TS_EXCEPTION, cs_sel.idx);
                           }
                   } else {
                           /* confirming code segment */
                           if (cs_sel.desc.dpl < cs_sel.rpl) {
                                   EXCEPTION(TS_EXCEPTION, cs_sel.idx);
                           }
                   }
   
         /* load ES, SS, DS, FS, GS segment register */                  /* CS segment is not present */
         for (i = 0; i < nsreg; i++) {                  rv = selector_is_not_present(&cs_sel);
                 if (i != CPU_CS_INDEX) {                  if (rv < 0) {
                         load_segreg(i, sreg[i], TS_EXCEPTION);                          EXCEPTION(NP_EXCEPTION, cs_sel.idx);
                   }
   
                   /* Now loading CS register */
                   load_cs(cs_sel.selector, &cs_sel.desc, cs_sel.desc.dpl);
   
                   /* load ES, SS, DS, FS, GS segment register */
                   for (i = 0; i < nsreg; i++) {
                           if (i != CPU_CS_INDEX) {
                                   load_segreg(i, sreg[i], TS_EXCEPTION);
                           }
                 }                  }
         }          }
   
Line 385  task_switch(selector_t* task_sel, int ty Line 464  task_switch(selector_t* task_sel, int ty
                 CPU_STAT_IOLIMIT = 0;                  CPU_STAT_IOLIMIT = 0;
         }          }
   
         /* running new task */          VERBOSE(("task_switch: done."));
         SET_EIP(eip);  
 }  }
Removed from v.1.1  
changed lines
  Added in v.1.4

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