The R Project SVN R

Rev

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

Rev 14018 Rev 14107
Line 1181... Line 1181...
1181 
#ifdef HAVE_F77_UNDERSCORE
 1181 
#ifdef HAVE_F77_UNDERSCORE
1182 
    if (which)
 1182 
    if (which)
1183 
	*q++ = '_';
 1183 
	*q++ = '_';
1184 
    *q = '\0';
 1184 
    *q = '\0';
1185 
#endif
 1185 
#endif
- 
 
 1186 
#ifdef Macintosh
- 
 
 1187 
    if (!(fun = R_FindSymbol(buf, "")))
- 
 
 1188 
#else
1186 
    if (!(fun = R_FindSymbol(buf, DLLname)))
 1189 
    if (!(fun = R_FindSymbol(buf, DLLname)))
- 
 
 1190 
#endif /* Macintosh */
1187 
	errorcall(call, "C/Fortran function name not in load table");
 1191 
	errorcall(call, "C/Fortran function name not in load table");
1188 
 
 1192 
 
1189 
    switch (nargs) {
 1193 
    switch (nargs) {
1190 
    case 0:
 1194 
    case 0:
1191 
	/* Silicon graphics C chokes here */
 1195 
	/* Silicon graphics C chokes here */