diff options
| author | vincentdarley <vincentdarley> | 2002-06-13 09:39:58 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2002-06-13 09:39:58 (GMT) |
| commit | 3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6 (patch) | |
| tree | bf267b96362f0e9d923d36bea51aa6f4a245f873 /win/tclWin32Dll.c | |
| parent | 49a14aec1a0aca882321df160ad18576749c19c4 (diff) | |
| download | tcl-3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6.zip tcl-3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6.tar.gz tcl-3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6.tar.bz2 | |
vfs, winfs testsuite
Diffstat (limited to 'win/tclWin32Dll.c')
| -rw-r--r-- | win/tclWin32Dll.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c index c17285e..e3e95e5 100644 --- a/win/tclWin32Dll.c +++ b/win/tclWin32Dll.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWin32Dll.c,v 1.15 2002/03/15 01:10:19 mdejong Exp $ + * RCS: @(#) $Id: tclWin32Dll.c,v 1.16 2002/06/13 09:40:01 vincentdarley Exp $ */ #include "tclWinInt.h" @@ -84,6 +84,7 @@ static TclWinProcs asciiProcs = { (BOOL (WINAPI *)(CONST TCHAR *)) SetCurrentDirectoryA, (BOOL (WINAPI *)(CONST TCHAR *, DWORD)) SetFileAttributesA, NULL, + NULL, }; static TclWinProcs unicodeProcs = { @@ -122,6 +123,7 @@ static TclWinProcs unicodeProcs = { (BOOL (WINAPI *)(CONST TCHAR *)) SetCurrentDirectoryW, (BOOL (WINAPI *)(CONST TCHAR *, DWORD)) SetFileAttributesW, NULL, + NULL, }; TclWinProcs *tclWinProcs; @@ -467,6 +469,10 @@ TclWinSetInterfaces( tclWinProcs->getFileAttributesExProc = (BOOL (WINAPI *)(CONST TCHAR *, GET_FILEEX_INFO_LEVELS, LPVOID)) GetProcAddress(hInstance, "GetFileAttributesExW"); + tclWinProcs->createHardLinkProc = + (BOOL (WINAPI *)(CONST TCHAR *, CONST TCHAR*, + LPSECURITY_ATTRIBUTES)) GetProcAddress(hInstance, + "CreateHardLinkW"); FreeLibrary(hInstance); } } @@ -479,6 +485,10 @@ TclWinSetInterfaces( tclWinProcs->getFileAttributesExProc = (BOOL (WINAPI *)(CONST TCHAR *, GET_FILEEX_INFO_LEVELS, LPVOID)) GetProcAddress(hInstance, "GetFileAttributesExA"); + tclWinProcs->createHardLinkProc = + (BOOL (WINAPI *)(CONST TCHAR *, CONST TCHAR*, + LPSECURITY_ATTRIBUTES)) GetProcAddress(hInstance, + "CreateHardLinkA"); FreeLibrary(hInstance); } } |