The R Project SVN R

Rev

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

Rev 32014 Rev 32148
Line 259... Line 259...
259 
    }
 259 
    }
260 
 
 260 
 
261 
    PROTECT(matchedarg = cptr->promargs);
 261 
    PROTECT(matchedarg = cptr->promargs);
262 
    PROTECT(newcall = duplicate(cptr->call));
 262 
    PROTECT(newcall = duplicate(cptr->call));
263 
 
 263 
 
264 
    PROTECT(class = R_data_class(obj, FALSE));
 264 
    PROTECT(class = R_data_class2(obj));
265 
    nclass = length(class);
 265 
    nclass = length(class);
266 
    for (i = 0; i < nclass; i++) {
 266 
    for (i = 0; i < nclass; i++) {
267 
	if(strlen(generic) + strlen(CHAR(STRING_ELT(class, i))) + 2 > 512)
 267 
	if(strlen(generic) + strlen(CHAR(STRING_ELT(class, i))) + 2 > 512)
268 
	    error("class name too long in %s", generic);
 268 
	    error("class name too long in %s", generic);
269 
	sprintf(buf, "%s.%s", generic, CHAR(STRING_ELT(class, i)));
 269 
	sprintf(buf, "%s.%s", generic, CHAR(STRING_ELT(class, i)));