The R Project SVN R

Rev

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

Rev 32888 Rev 35450
Line 95... Line 95...
95 
    _clearfp();
 95 
    _clearfp();
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_BaseEnv))[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 
}