diff options
| author | mdejong <mdejong> | 2003-07-16 19:34:14 (GMT) |
|---|---|---|
| committer | mdejong <mdejong> | 2003-07-16 19:34:14 (GMT) |
| commit | 807f03b48dcdb08f9acb0493b804a5b41d5bf7a0 (patch) | |
| tree | 3b1898f02612bda19ba1bfd4a82f766277b976d5 /win/tclWinPipe.c | |
| parent | edcb9d3655e60d05d4774eef38d89620d0a0e6a1 (diff) | |
| download | tcl-807f03b48dcdb08f9acb0493b804a5b41d5bf7a0.zip tcl-807f03b48dcdb08f9acb0493b804a5b41d5bf7a0.tar.gz tcl-807f03b48dcdb08f9acb0493b804a5b41d5bf7a0.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.
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--) { |