diff options
author | mdejong <mdejong@noemail.net> | 2003-07-16 19:34:13 (GMT) |
---|---|---|
committer | mdejong <mdejong@noemail.net> | 2003-07-16 19:34:13 (GMT) |
commit | a8b653812d9a254f7ea9112461dc7fbb0013ae4e (patch) | |
tree | 3b1898f02612bda19ba1bfd4a82f766277b976d5 /win/tclWinPipe.c | |
parent | 609f2f30a51cf0c077375c805b395319e5c47862 (diff) | |
download | tcl-a8b653812d9a254f7ea9112461dc7fbb0013ae4e.zip tcl-a8b653812d9a254f7ea9112461dc7fbb0013ae4e.tar.gz tcl-a8b653812d9a254f7ea9112461dc7fbb0013ae4e.tar.bz2 |
* win/Makefile.in: Don't define TCL_DBGX
symbol for every compile. Instead, define
TCL_PIPE_DLL only when compiling tclWinPipe.c.
This will break other build systems, so
they will need to remove the TCL_DBGX define
and replace it with a define for TCL_PIPE_DLL.
* win/makefile.vc: Ditto.
* win/tclWinPipe.c (TclpCreateProcess):
Remove PREFIX_IDENT and DEBUG_IDENT from
top of file. Use TCL_PIPE_DLL passed in
from build env instead of trying to construct
the dll name from already defined symbols.
This approach is more flexible and better
in the long run.
FossilOrigin-Name: 938f1748b396d7831a47cd2b25bc5dfa4fa441e2
Diffstat (limited to 'win/tclWinPipe.c')
-rw-r--r-- | win/tclWinPipe.c | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index 9e5d7e0..875995e 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -9,12 +9,9 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinPipe.c,v 1.33.2.1 2003/03/12 19:19:32 dgp Exp $ + * RCS: @(#) $Id: tclWinPipe.c,v 1.33.2.2 2003/07/16 19:34:14 mdejong Exp $ */ -#define PREFIX_IDENT "" -#define DEBUG_IDENT TCL_DBGX - #include "tclWinInt.h" #include <fcntl.h> @@ -1211,9 +1208,7 @@ TclpCreateProcess( char *start,*end; Tcl_DString pipeDll; Tcl_DStringInit(&pipeDll); - Tcl_DStringAppend(&pipeDll, PREFIX_IDENT "tclpip" - STRINGIFY(TCL_MAJOR_VERSION) STRINGIFY(TCL_MINOR_VERSION) - STRINGIFY(DEBUG_IDENT) ".dll ", -1); + Tcl_DStringAppend(&pipeDll, TCL_PIPE_DLL, -1); tclExePtr = Tcl_NewStringObj(TclpFindExecutable(""), -1); start = Tcl_GetStringFromObj(tclExePtr, &i); for (end = start + (i-1); end > start; end--) { |