The R Project SVN R

Rev

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

Rev 68643 Rev 68923
Line 52... Line 52...
52 
	if( RDEBUG(CAR(args)) != 1 )
 52 
	if( RDEBUG(CAR(args)) != 1 )
53 
	    warningcall(call, "argument is not being debugged");
 53 
	    warningcall(call, "argument is not being debugged");
54 
	SET_RDEBUG(CAR(args), 0);
 54 
	SET_RDEBUG(CAR(args), 0);
55 
	break;
 55 
	break;
56 
    case 2: // isdebugged()
 56 
    case 2: // isdebugged()
57 
        ans = ScalarLogical(RDEBUG(CAR(args)));
 57 
	ans = ScalarLogical(RDEBUG(CAR(args)));
58 
        break;
 58 
	break;
59 
    case 3: // debugonce()
 59 
    case 3: // debugonce()
60 
        SET_RSTEP(CAR(args), 1);
 60 
	SET_RSTEP(CAR(args), 1);
61 
        break;
 61 
	break;
62 
    }
 62 
    }
63 
    return ans;
 63 
    return ans;
64 
}
 64 
}
65 
 
 65 
 
66 
/* primitives .primTrace() and .primUntrace() */
 66 
/* primitives .primTrace() and .primUntrace() */
Line 221... Line 221...
221 
    SEXP object, previous, ans, argList;
 221 
    SEXP object, previous, ans, argList;
222 
    char buffer[21];
 222 
    char buffer[21];
223 
    static SEXP do_retracemem_formals = NULL;
 223 
    static SEXP do_retracemem_formals = NULL;
224 
 
 224 
 
225 
    if (do_retracemem_formals == NULL)
 225 
    if (do_retracemem_formals == NULL)
226 
        do_retracemem_formals = allocFormalsList2(install("x"),
 226 
	do_retracemem_formals = allocFormalsList2(install("x"),
227 
						  R_PreviousSymbol);
 227 
						  R_PreviousSymbol);
228 
 
 228 
 
229 
    PROTECT(argList =  matchArgs(do_retracemem_formals, args, call));
 229 
    PROTECT(argList =  matchArgs(do_retracemem_formals, args, call));
230 
    if(CAR(argList) == R_MissingArg) SETCAR(argList, R_NilValue);
 230 
    if(CAR(argList) == R_MissingArg) SETCAR(argList, R_NilValue);
231 
    if(CADR(argList) == R_MissingArg) SETCAR(CDR(argList), R_NilValue);
 231 
    if(CADR(argList) == R_MissingArg) SETCAR(CDR(argList), R_NilValue);