diff options
| author | davygrvy <davygrvy@pobox.com> | 2003-08-27 20:12:03 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2003-08-27 20:12:03 (GMT) |
| commit | 1936bd8f2851fade61e5fd36af0981298023d150 (patch) | |
| tree | 24fa0a999492a176eead52525debd7b96d82a69c /win | |
| parent | 2d1fff2b097e69a3e630e3e4eef885ac6f661314 (diff) | |
| download | tcl-1936bd8f2851fade61e5fd36af0981298023d150.zip tcl-1936bd8f2851fade61e5fd36af0981298023d150.tar.gz tcl-1936bd8f2851fade61e5fd36af0981298023d150.tar.bz2 | |
* win/tclWinFile.c (WinReadLinkDirectory): Fix for 'Initializers
must be constant' with the driveSpec array with OpenWatcom.
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinFile.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index bf5fa07..82cb2ae 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinFile.c,v 1.52 2003/07/17 00:20:41 hobbs Exp $ + * RCS: @(#) $Id: tclWinFile.c,v 1.53 2003/08/27 20:12:03 davygrvy Exp $ */ //#define _WIN32_WINNT 0x0500 @@ -518,8 +518,9 @@ WinReadLinkDirectory(LinkDirectory) ->SymbolicLinkReparseBuffer.PathBuffer); if (drive != -1) { char driveSpec[3] = { - drive, ':', '\0' + '\0', ':', '\0' }; + driveSpec[0] = drive; retVal = Tcl_NewStringObj(driveSpec,2); Tcl_IncrRefCount(retVal); return retVal; |