The R Project SVN R

Rev

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

Rev 23382 Rev 32888
Line 96... Line 96...
96 
    tdlh = LoadLibrary(path);
 96 
    tdlh = LoadLibrary(path);
97 
    dllcw = _controlfp(0,0) & ~_MCW_IC;
 97 
    dllcw = _controlfp(0,0) & ~_MCW_IC;
98 
    if (dllcw != rcw) {
 98 
    if (dllcw != rcw) {
99 
		_controlfp(rcw, _MCW_EM | _MCW_IC | _MCW_RC | _MCW_PC);
 99 
		_controlfp(rcw, _MCW_EM | _MCW_IC | _MCW_RC | _MCW_PC);
100 
		if (LOGICAL(GetOption(install("warn.FPU"), R_NilValue))[0])
 100 
		if (LOGICAL(GetOption(install("warn.FPU"), R_NilValue))[0])
101 
			warning("DLL attempted to change FPU control word from %x to %x",
 101 
			warning(_("DLL attempted to change FPU control word from %x to %x"),
102 
					rcw,dllcw);
 102 
					rcw,dllcw);
103 
	}
 103 
	}
104 
    return(tdlh);
 104 
    return(tdlh);
105 
}
 105 
}
106 
 
 106 
 
Line 134... Line 134...
134 
{
 134 
{
135 
    char *p;
 135 
    char *p;
136 
 
 136 
 
137 
    if ((path[0] != '/') && (path[0] != '\\') && (path[1] != ':')) {
 137 
    if ((path[0] != '/') && (path[0] != '\\') && (path[1] != ':')) {
138 
	if (!getcwd(buf, MAX_PATH))
 138 
	if (!getcwd(buf, MAX_PATH))
139 
	    errorcall(call, "can't get working directory!");
 139 
	    errorcall(call, _("cannot get working directory"));
140 
	strcat(buf, "\\");
 140 
	strcat(buf, "\\");
141 
	strcat(buf, path);
 141 
	strcat(buf, path);
142 
    } else
 142 
    } else
143 
	strcpy(buf, path);
 143 
	strcpy(buf, path);
144 
    /* fix slashes to allow inconsistent usage later */
 144 
    /* fix slashes to allow inconsistent usage later */