The R Project SVN R

Rev

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

Rev 60667 Rev 62867
Line 219... Line 219...
219 
/* begincontext and endcontext are used in dataentry.c and modules */
 219 
/* begincontext and endcontext are used in dataentry.c and modules */
220 
void begincontext(RCNTXT * cptr, int flags,
 220 
void begincontext(RCNTXT * cptr, int flags,
221 
		  SEXP syscall, SEXP env, SEXP sysp,
 221 
		  SEXP syscall, SEXP env, SEXP sysp,
222 
		  SEXP promargs, SEXP callfun)
 222 
		  SEXP promargs, SEXP callfun)
223 
{
 223 
{
224 
    cptr->nextcontext = R_GlobalContext;
 - 
 
225 
    cptr->cstacktop = R_PPStackTop;
 224 
    cptr->cstacktop = R_PPStackTop;
226 
    cptr->evaldepth = R_EvalDepth;
 225 
    cptr->evaldepth = R_EvalDepth;
227 
    cptr->callflag = flags;
 226 
    cptr->callflag = flags;
228 
    cptr->call = syscall;
 227 
    cptr->call = syscall;
229 
    cptr->cloenv = env;
 228 
    cptr->cloenv = env;
Line 240... Line 239...
240 
    cptr->nodestack = R_BCNodeStackTop;
 239 
    cptr->nodestack = R_BCNodeStackTop;
241 
#ifdef BC_INT_STACK
 240 
#ifdef BC_INT_STACK
242 
    cptr->intstack = R_BCIntStackTop;
 241 
    cptr->intstack = R_BCIntStackTop;
243 
#endif
 242 
#endif
244 
    cptr->srcref = R_Srcref;
 243 
    cptr->srcref = R_Srcref;
- 
 
 244 
    cptr->nextcontext = R_GlobalContext;
245 
    R_GlobalContext = cptr;
 245 
    R_GlobalContext = cptr;
246 
}
 246 
}
247 
 
 247 
 
248 
 
 248 
 
249 
/* endcontext - end an execution context */
 249 
/* endcontext - end an execution context */