The R Project SVN R

Rev

Rev 88535 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 88535 Rev 89033
Line 133... Line 133...
133 
    }
 133 
    }
134 
 
 134 
 
135 
    switch (TYPEOF(v)) {
 135 
    switch (TYPEOF(v)) {
136 
    case VECSXP: case STRSXP: case LGLSXP: case INTSXP: case RAWSXP:
 136 
    case VECSXP: case STRSXP: case LGLSXP: case INTSXP: case RAWSXP:
137 
    case REALSXP: case CPLXSXP: case EXPRSXP:
 137 
    case REALSXP: case CPLXSXP: case EXPRSXP:
- 
 
 138 
	if (GROWABLE_BIT_SET(v))
- 
 
 139 
	    Rprintf("(len=%lld, tl=%lld, gr)", (long long)XLENGTH(v), (long long)XTRUELENGTH(v));
- 
 
 140 
	else
138 
	Rprintf("(len=%lld, tl=%lld)", (long long)XLENGTH(v), (long long)XTRUELENGTH(v));
 141 
	    Rprintf("(len=%lld, tl=%lld)", (long long)XLENGTH(v), (long long)XTRUELENGTH(v));
139 
    }
 142 
    }
140 
    if (TYPEOF(v) == ENVSXP) /* NOTE: this is not a trivial OP since it involves looking up things
 143 
    if (TYPEOF(v) == ENVSXP) /* NOTE: this is not a trivial OP since it involves looking up things
141 
				in the environment, so for a low-level debugging we may want to
 144 
				in the environment, so for a low-level debugging we may want to
142 
				avoid it .. */
 145 
				avoid it .. */
143 
	PrintEnvironment(v);
 146 
	PrintEnvironment(v);