Changeset 14330


Ignore:
Timestamp:
Oct 5, 2010, 3:17:13 AM (9 years ago)
Author:
gb
Message:

Mach exception entry/return maintain tcr->last_lisp_frame.

File:
1 edited

Legend:

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

    r14271 r14330  
    19581958  fprintf(dbgout, "doing pseudo_sigreturn for 0x%x\n",tcr);
    19591959#endif
     1960  tcr->last_lisp_frame = *((natural *)(tcr->last_lisp_frame));
    19601961  xp = tcr->pending_exception_context;
    19611962  if (xp) {
     
    20522053  ExceptionInformation *pseudosigcontext;
    20532054  int old_valence = tcr->valence;
    2054   natural stackp;
     2055  natural stackp, *pstackp;
    20552056
    20562057#ifdef DEBUG_MACH_EXCEPTIONS
     
    20582059#endif
    20592060  pseudosigcontext = create_thread_context_frame(thread, &stackp);
     2061  pstackp = (natural *)stackp;
     2062  *--pstackp = tcr->last_lisp_frame;
     2063  stackp = (natural)pstackp;
     2064  tcr->last_lisp_frame = stackp;
    20602065  pseudosigcontext->uc_onstack = 0;
    20612066  pseudosigcontext->uc_sigmask = (sigset_t) 0;
     2067  pseudosigcontext->uc_mcsize = ARM_MCONTEXT_SIZE;
    20622068  tcr->pending_exception_context = pseudosigcontext;
    20632069  tcr->valence = TCR_STATE_EXCEPTION_WAIT;
Note: See TracChangeset for help on using the changeset viewer.