The R Project SVN R

Rev

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

Rev 51256 Rev 51267
Line 58... Line 58...
58 
        break;
 58 
        break;
59 
    }
 59 
    }
60 
    return ans;
 60 
    return ans;
61 
}
 61 
}
62 
 
 62 
 
- 
 
 63 
/* primitives .primTrace and .primUntrace */
63 
SEXP attribute_hidden do_trace(SEXP call, SEXP op, SEXP args, SEXP rho)
 64 
SEXP attribute_hidden do_trace(SEXP call, SEXP op, SEXP args, SEXP rho)
64 
{
 65 
{
65 
    checkArity(op, args);
 66 
    checkArity(op, args);
- 
 
 67 
    check1arg(args, call, "x");
66 
 
 68 
 
67 
    find_char_fun
 69 
    find_char_fun
68 
 
 70 
 
69 
    if (TYPEOF(CAR(args)) != CLOSXP &&
 71 
    if (TYPEOF(CAR(args)) != CLOSXP &&
70 
	TYPEOF(CAR(args)) != BUILTINSXP &&
 72 
	TYPEOF(CAR(args)) != BUILTINSXP &&
Line 114... Line 116...
114 
#ifdef R_MEMORY_PROFILING
 116 
#ifdef R_MEMORY_PROFILING
115 
    SEXP object;
 117 
    SEXP object;
116 
    char buffer[20];
 118 
    char buffer[20];
117 
 
 119 
 
118 
    checkArity(op, args);
 120 
    checkArity(op, args);
- 
 
 121 
    check1arg(args, call, "x");
119 
 
 122 
 
120 
    object = CAR(args);
 123 
    object = CAR(args);
121 
    if (TYPEOF(object) == CLOSXP ||
 124 
    if (TYPEOF(object) == CLOSXP ||
122 
	TYPEOF(object) == BUILTINSXP ||
 125 
	TYPEOF(object) == BUILTINSXP ||
123 
	TYPEOF(object) == SPECIALSXP)
 126 
	TYPEOF(object) == SPECIALSXP)
Line 147... Line 150...
147 
{
 150 
{
148 
#ifdef R_MEMORY_PROFILING
 151 
#ifdef R_MEMORY_PROFILING
149 
    SEXP object;
 152 
    SEXP object;
150 
 
 153 
 
151 
    checkArity(op, args);
 154 
    checkArity(op, args);
- 
 
 155 
    check1arg(args, call, "x");
152 
 
 156 
 
153 
    object=CAR(args);
 157 
    object=CAR(args);
154 
    if (TYPEOF(object) == CLOSXP ||
 158 
    if (TYPEOF(object) == CLOSXP ||
155 
	TYPEOF(object) == BUILTINSXP ||
 159 
	TYPEOF(object) == BUILTINSXP ||
156 
	TYPEOF(object) == SPECIALSXP)
 160 
	TYPEOF(object) == SPECIALSXP)