The R Project SVN R

Rev

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

Rev 22284 Rev 24068
Line 1257... Line 1257...
1257 
    while ((*q = *p) != '\0') {
 1257 
    while ((*q = *p) != '\0') {
1258 
	p++;
 1258 
	p++;
1259 
	q++;
 1259 
	q++;
1260 
    }
 1260 
    }
1261 
 
 1261 
 
1262 
#ifdef Macintosh
 - 
 
1263 
    if (!(fun = R_FindSymbol(buf, "", &symbol)))
 - 
 
1264 
#else
 - 
 
1265 
    if (!(fun = R_FindSymbol(buf, DLLname, &symbol)))
 1262 
    if (!(fun = R_FindSymbol(buf, DLLname, &symbol)))
1266 
#endif /* Macintosh */
 - 
 
1267 
	errorcall(call, "C/Fortran function name not in load table");
 1263 
	errorcall(call, "C/Fortran function name not in load table");
1268 
 
 1264 
 
1269 
    if(symbol.symbol.c && symbol.symbol.c->numArgs > -1) {
 1265 
    if(symbol.symbol.c && symbol.symbol.c->numArgs > -1) {
1270 
	if(symbol.symbol.c->numArgs != nargs)
 1266 
	if(symbol.symbol.c->numArgs != nargs)
1271 
	    error("Incorrect number of arguments (%d), expecting %d for %s",
1267 
	    error("Incorrect number of arguments (%d), expecting %d for %s",