The R Project SVN R

Rev

Rev 25523 | Rev 33125 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 25523 Rev 26026
Line 160... Line 160...
160 
    R_interrupts_suspended = cptr->intsusp;
 160 
    R_interrupts_suspended = cptr->intsusp;
161 
#ifdef NEW_CONDITION_HANDLING
 161 
#ifdef NEW_CONDITION_HANDLING
162 
    R_HandlerStack = cptr->handlerstack;
 162 
    R_HandlerStack = cptr->handlerstack;
163 
    R_RestartStack = cptr->restartstack;
 163 
    R_RestartStack = cptr->restartstack;
164 
#endif
 164 
#endif
- 
 
 165 
#ifdef BYTECODE
- 
 
 166 
    R_BCNodeStackTop = cptr->nodestack;
- 
 
 167 
# ifdef BC_INT_STACK
- 
 
 168 
    R_BCIntStackTop = cptr->intstack;
- 
 
 169 
# endif
- 
 
 170 
#endif
165 
}
 171 
}
166 
 
 172 
 
167 
 
 173 
 
168 
/* jumpfun - jump to the named context */
 174 
/* jumpfun - jump to the named context */
169 
 
 175 
 
Line 214... Line 220...
214 
    cptr->intsusp = R_interrupts_suspended;
 220 
    cptr->intsusp = R_interrupts_suspended;
215 
#ifdef NEW_CONDITION_HANDLING
 221 
#ifdef NEW_CONDITION_HANDLING
216 
    cptr->handlerstack = R_HandlerStack;
 222 
    cptr->handlerstack = R_HandlerStack;
217 
    cptr->restartstack = R_RestartStack;
 223 
    cptr->restartstack = R_RestartStack;
218 
#endif
 224 
#endif
- 
 
 225 
#ifdef BYTECODE
- 
 
 226 
    cptr->nodestack = R_BCNodeStackTop;
- 
 
 227 
# ifdef BC_INT_STACK
- 
 
 228 
    cptr->intstack = R_BCIntStackTop;
- 
 
 229 
# endif
- 
 
 230 
#endif
219 
    R_GlobalContext = cptr;
 231 
    R_GlobalContext = cptr;
220 
}
 232 
}
221 
 
 233 
 
222 
 
 234 
 
223 
/* endcontext - end an execution context */
 235 
/* endcontext - end an execution context */