The R Project SVN R

Rev

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

Rev 6199 Rev 6204
Line 238... Line 238...
238 
{
 238 
{
239 
    RCNTXT *c;
 239 
    RCNTXT *c;
240 
    SEXP s, t;
 240 
    SEXP s, t;
241 
    int nback = 0;
 241 
    int nback = 0;
242 
 
 242 
 
243 
    if(!R_Error_Halt && R_Verbose)
 - 
 
244 
	REprintf(" >ERR: jump_to_toplevel()\n");
 - 
 
245 
    inError = 1;
 243 
    inError = 1;
246 
 
 244 
 
247 
    if( R_CollectWarnings ) {
 245 
    if( R_CollectWarnings ) {
248 
	inError = 2;
 246 
	inError = 2;
249 
	REprintf("In addition: ");
 247 
	REprintf("In addition: ");
Line 312... Line 310...
312 
    inError=0;
 310 
    inError=0;
313 
    inWarning=0;
 311 
    inWarning=0;
314 
    R_PPStackTop = 0;
 312 
    R_PPStackTop = 0;
315 
    R_Warnings = R_NilValue;
 313 
    R_Warnings = R_NilValue;
316 
    R_CollectWarnings = 0;
 314 
    R_CollectWarnings = 0;
317 
    if (R_Interactive || !R_Error_Halt)
 - 
 
318 
	LONGJMP(R_ToplevelContext->cjmpbuf, 0);
 315 
    LONGJMP(R_ToplevelContext->cjmpbuf, 0);
319 
    else
 - 
 
320 
	REprintf("Execution halted\n");
 - 
 
321 
    exit(1);
 - 
 
322 
}
 316 
}
323 
 
 317 
 
324 
#ifdef OLD_Macintosh
 318 
#ifdef OLD_Macintosh
325 
 
 319 
 
326 
#include <signal.h>
 320 
#include <signal.h>