diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-03-12 19:21:21 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-03-12 19:21:21 (GMT) |
| commit | 40ae076645b787b5f61ab2f9496b6c49ddb7580d (patch) | |
| tree | 12764afe870465cfe9b4d2e79324d2e83e87c1cc | |
| parent | e8dbf58f474d6df64eaad3eb6355a5a9307e44be (diff) | |
| download | tcl-40ae076645b787b5f61ab2f9496b6c49ddb7580d.zip tcl-40ae076645b787b5f61ab2f9496b6c49ddb7580d.tar.gz tcl-40ae076645b787b5f61ab2f9496b6c49ddb7580d.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.
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | generic/tcl.h | 5 | ||||
| -rw-r--r-- | win/tclWinPipe.c | 9 |
3 files changed, 11 insertions, 7 deletions
@@ -1,5 +1,9 @@ 2003-03-12 Don Porter <dgp@users.sourceforge.net> + * 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. + * generic/tclInterp.c (Tcl_InterpObjCmd): Corrected and added * tests/interp.test (interp-2.13): test for option parsing beyond objc for [interp create --]. Thanks to Marco Maggi. diff --git a/generic/tcl.h b/generic/tcl.h index 7c8dd6b..a7443b2 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.154 2003/03/04 23:45:58 dgp Exp $ + * RCS: @(#) $Id: tcl.h,v 1.155 2003/03/12 19:21:24 dgp Exp $ */ #ifndef _TCL @@ -62,9 +62,6 @@ extern "C" { #define TCL_RELEASE_LEVEL TCL_ALPHA_RELEASE #define TCL_RELEASE_SERIAL 0 -#define TCL_PREFIX_IDENT "" -#define TCL_DEBUG_IDENT TCL_DBGX - #define TCL_VERSION "8.5" #define TCL_PATCH_LEVEL "8.5a0" diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index 319ce3e..4c8bc47 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.34 2003/03/12 19:21:26 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--) { |