The R Project SVN R

Rev

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

Rev 75532 Rev 76544
Line 1648... Line 1648...
1648 
	    n = XLENGTH(s);
 1648 
	    n = XLENGTH(s);
1649 
	    if (Fort) {
 1649 
	    if (Fort) {
1650 
		const char *ss = translateChar(STRING_ELT(s, 0));
 1650 
		const char *ss = translateChar(STRING_ELT(s, 0));
1651 
		if (n > 1)
 1651 
		if (n > 1)
1652 
		    warning(_("only first string in char vector used in .Fortran"));
 1652 
		    warning(_("only first string in char vector used in .Fortran"));
- 
 
 1653 
		else
- 
 
 1654 
		    warning(_("Using a char vector in .Fortran is not portable"));
1653 
		char *fptr = (char*) R_alloc(max(255, strlen(ss)) + 1, sizeof(char));
 1655 
		char *fptr = (char*) R_alloc(max(255, strlen(ss)) + 1, sizeof(char));
1654 
		strcpy(fptr, ss);
 1656 
		strcpy(fptr, ss);
1655 
		cargs[na] =  (void*) fptr;
 1657 
		cargs[na] =  (void*) fptr;
1656 
	    } else if (copy) {
 1658 
	    } else if (copy) {
1657 
		char **cptr = (char**) R_alloc(n, sizeof(char*)),
 1659 
		char **cptr = (char**) R_alloc(n, sizeof(char*)),