The R Project SVN R

Rev

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

Rev 60604 Rev 61960
Line 51... Line 51...
51 
{
 51 
{
52 
    int res = 0; /* failure */
 52 
    int res = 0; /* failure */
53 
    PSDD p = (PSDD) -1;
 53 
    PSDD p = (PSDD) -1;
54 
    static char wd[MAX_PATH] = "";  /* stored real current directory */
 54 
    static char wd[MAX_PATH] = "";  /* stored real current directory */
55 
 
 55 
 
- 
 
 56 
    // XP SP1 and later.
56 
    if(p == (PSDD) -1)
 57 
    if(p == (PSDD) -1)
57 
	p = (PSDD) GetProcAddress(GetModuleHandle(TEXT("kernel32.dll")),
 58 
	p = (PSDD) GetProcAddress(GetModuleHandle(TEXT("kernel32.dll")),
58 
				  "SetDllDirectoryA");
 59 
				  "SetDllDirectoryA");
59 
    if(p) {
 60 
    if(p) {
60 
	res = p(path);
 61 
	res = p(path);