Changeset 11783


Ignore:
Timestamp:
Feb 24, 2009, 4:55:07 AM (11 years ago)
Author:
gb
Message:

maintain start_vsp (pointer to 1st word on stack) in lisp_thread_entry.
(if we reset/preset/enable an existing thread, the caller puts the
function on the bottom of the thread's stack and the thread restores
its lisp stack pointer from tcr->save_sp; need to ensure that those
are always the same thing.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.3/source/lisp-kernel/thread_manager.c

    r11781 r11783  
    16691669  tcr->vs_area->active -= node_size;
    16701670  *(--tcr->save_vsp) = lisp_nil;
     1671  start_vsp = tcr->save_vsp;
    16711672  enable_fp_exceptions();
    16721673  SET_TCR_FLAG(tcr,TCR_FLAG_BIT_AWAITING_PRESET);
     
    16781679    /* Now go run some lisp code */
    16791680    start_lisp(TCR_TO_TSD(tcr),0);
     1681    tcr->save_vsp = start_vsp;
    16801682  } while (tcr->flags & (1<<TCR_FLAG_BIT_AWAITING_PRESET));
    16811683#ifndef WINDOWS
Note: See TracChangeset for help on using the changeset viewer.