diff options
| author | dgp <dgp@noemail.net> | 2003-03-12 19:19:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2003-03-12 19:19:14 (GMT) |
| commit | 0a31eaf47f4a5557112348dc3504a0cb993131e3 (patch) | |
| tree | 69ecd977276096e87eab72b90773519f49a9b6c6 /win/tclWinPipe.c | |
| parent | 9c11b4b568486b0d42672c223e4ef266a395397c (diff) | |
| download | tcl-0a31eaf47f4a5557112348dc3504a0cb993131e3.zip tcl-0a31eaf47f4a5557112348dc3504a0cb993131e3.tar.gz tcl-0a31eaf47f4a5557112348dc3504a0cb993131e3.tar.bz2 | |
* generic/tcl.h: Removed TCL_PREFIX_IDENT and TCL_DEBUG_IDENT
* win/tclWinPipe.c: from tcl.h -- they are not part of Tcl's
public interface. Put them in win/tclWinPipe.c where they are used.
FossilOrigin-Name: ccd3601b03c7581d254820816827555a61100b10
Diffstat (limited to 'win/tclWinPipe.c')
| -rw-r--r-- | win/tclWinPipe.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index 319ce3e..9e5d7e0 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -9,9 +9,12 @@ * 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 2003/01/28 11:03:53 mdejong Exp $ + * RCS: @(#) $Id: tclWinPipe.c,v 1.33.2.1 2003/03/12 19:19:32 dgp Exp $ */ +#define PREFIX_IDENT "" +#define DEBUG_IDENT TCL_DBGX + #include "tclWinInt.h" #include <fcntl.h> @@ -1208,9 +1211,9 @@ TclpCreateProcess( char *start,*end; Tcl_DString pipeDll; Tcl_DStringInit(&pipeDll); - Tcl_DStringAppend(&pipeDll, TCL_PREFIX_IDENT "tclpip" + Tcl_DStringAppend(&pipeDll, PREFIX_IDENT "tclpip" STRINGIFY(TCL_MAJOR_VERSION) STRINGIFY(TCL_MINOR_VERSION) - STRINGIFY(TCL_DEBUG_IDENT) ".dll ", -1); + STRINGIFY(DEBUG_IDENT) ".dll ", -1); tclExePtr = Tcl_NewStringObj(TclpFindExecutable(""), -1); start = Tcl_GetStringFromObj(tclExePtr, &i); for (end = start + (i-1); end > start; end--) { |