The R Project SVN R

Rev

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

Rev 76852 Rev 76974
Line 1296... Line 1296...
1296 
    } while (0)
 1296 
    } while (0)
1297
1297
1298 
static SEXP mmap_file(SEXP file, int type, Rboolean ptrOK, Rboolean wrtOK,
 1298 
static SEXP mmap_file(SEXP file, int type, Rboolean ptrOK, Rboolean wrtOK,
1299 
		      Rboolean serOK, Rboolean warn)
 1299 
		      Rboolean serOK, Rboolean warn)
1300 
{
 1300 
{
1301 
    const char *efn = R_ExpandFileName(translateChar(STRING_ELT(file, 0)));
 1301 
    const char *efn = R_ExpandFileName(translateCharFP(STRING_ELT(file, 0)));
1302 
    struct stat sb;
 1302 
    struct stat sb;
1303 
 
 1303 
 
1304 
    /* Target not link */
 1304 
    /* Target not link */
1305 
    if (stat(efn, &sb) != 0)
 1305 
    if (stat(efn, &sb) != 0)
1306 
	MMAP_FILE_WARNING_OR_ERROR("stat: %s", strerror(errno));
 1306 
	MMAP_FILE_WARNING_OR_ERROR("stat: %s", strerror(errno));