Ignore:
Timestamp:
Feb 25, 2008, 11:13:26 AM (12 years ago)
Author:
gb
Message:

x8664 kernel side of tcr-trap changes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/x86-exceptions.c

    r8575 r8581  
    874874    if ((program_counter[0] == XUUO_OPCODE_0) &&
    875875        (program_counter[1] == XUUO_OPCODE_1)) {
     876      TCR *target = (TCR *)xpGPR(context, Iarg_z);
     877
    876878      switch (program_counter[2]) {
    877879      case XUUO_TLB_TOO_SMALL:
     
    888890
    889891      case XUUO_SUSPEND_NOW:
     892        xpPC(context)+=3;
     893        return true;
     894
     895      case XUUO_INTERRUPT:
     896        raise_thread_interrupt(target);
     897        xpPC(context)+=3;
     898        return true;
     899
     900      case XUUO_SUSPEND:
     901        xpGPR(context,Iimm0) = (LispObj) lisp_suspend_tcr(target);
     902        xpPC(context)+=3;
     903        return true;
     904
     905      case XUUO_SUSPEND_ALL:
     906        lisp_suspend_other_threads();
     907        xpPC(context)+=3;
     908        return true;
     909
     910
     911      case XUUO_RESUME:
     912        xpGPR(context,Iimm0) = (LispObj) lisp_resume_tcr(target);
     913        xpPC(context)+=3;
     914        return true;
     915       
     916      case XUUO_RESUME_ALL:
     917        lisp_resume_other_threads();
    890918        xpPC(context)+=3;
    891919        return true;
Note: See TracChangeset for help on using the changeset viewer.