diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-04-06 22:25:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-04-06 22:25:46 (GMT) |
| commit | da705965dccc8a0dd3cb919814226e0c4ec0385c (patch) | |
| tree | f364fcb944511bb8790be7882532203c0195be6b /generic | |
| parent | 7bf9dfccb2afbac70ebc42a88d57741b4a2df416 (diff) | |
| download | tcl-da705965dccc8a0dd3cb919814226e0c4ec0385c.zip tcl-da705965dccc8a0dd3cb919814226e0c4ec0385c.tar.gz tcl-da705965dccc8a0dd3cb919814226e0c4ec0385c.tar.bz2 | |
Patch 922727 committed. Implements three changes:
* generic/tclInt.h: Reworked the Tcl header files into a clean
* unix/tclUnixPort.h: hierarchy where tcl.h < tclPort.h < tclInt.h
* win/tclWinInt.h: and every C source file should #include
* win/tclWinPort.h: at most one of those files to satisfy its
declaration needs. tclWinInt.h and tclWinPort.h also better organized
so that tclWinPort.h includes the Windows implementation of
cross-platform declarations, while tclWinInt.h makes declarations that
are available on Windows only.
* generic/tclBinary.c (TCL_NO_MATH): Deleted the generic/tclMath.h
* generic/tclMath.h (removed): header file. The internal Tcl
* macosx/Makefile (PRIVATE_HEADERS): header, tclInt.h, has a
* win/tcl.dsp: #include <math.h> directly,
and file external to Tcl needing libm should do the same.
* win/Makefile.in (WIN_OBJS): Deleted the win/tclWinMtherr.c file.
* win/makefile.bc (TCLOBJS): It's a vestige from matherr() days
* win/makefile.vc (TCLOBJS): gone by.
* win/tcl.dsp:
* win/tclWinMtherr.c (removed):
Diffstat (limited to 'generic')
47 files changed, 59 insertions, 109 deletions
diff --git a/generic/tclAlloc.c b/generic/tclAlloc.c index f4be2ad..aeb0cc8 100644 --- a/generic/tclAlloc.c +++ b/generic/tclAlloc.c @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclAlloc.c,v 1.18 2004/03/17 18:14:13 das Exp $ + * RCS: @(#) $Id: tclAlloc.c,v 1.19 2004/04/06 22:25:48 dgp Exp $ */ /* @@ -26,7 +26,6 @@ #if !defined(TCL_THREADS) || !defined(USE_THREAD_ALLOC) #include "tclInt.h" -#include "tclPort.h" #if USE_TCLALLOC diff --git a/generic/tclAsync.c b/generic/tclAsync.c index 76e3e28..49bebfb 100644 --- a/generic/tclAsync.c +++ b/generic/tclAsync.c @@ -12,11 +12,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclAsync.c,v 1.6 2001/08/30 07:50:18 davygrvy Exp $ + * RCS: @(#) $Id: tclAsync.c,v 1.7 2004/04/06 22:25:48 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* Forward declaration */ struct ThreadSpecificData; diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 02710d2..a01f57b 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -13,14 +13,11 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.98 2004/03/17 18:14:13 das Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.99 2004/04/06 22:25:48 dgp Exp $ */ #include "tclInt.h" #include "tclCompile.h" -#ifndef TCL_GENERIC_ONLY -# include "tclPort.h" -#endif /* * Static procedures in this file: diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 9d352c0..a99519a 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -10,12 +10,16 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBinary.c,v 1.16 2003/12/24 04:18:18 davygrvy Exp $ + * RCS: @(#) $Id: tclBinary.c,v 1.17 2004/04/06 22:25:48 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" + +#ifdef TCL_NO_MATH +#define fabs(x) (x<0 ? -x : x) +#else #include <math.h> +#endif /* * The following constants are used by GetFormatSpec to indicate various diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c index aada301..794372d 100644 --- a/generic/tclCkalloc.c +++ b/generic/tclCkalloc.c @@ -13,11 +13,10 @@ * * This code contributed by Karl Lehenbauer and Mark Diekhans * - * RCS: @(#) $Id: tclCkalloc.c,v 1.20 2003/12/24 04:18:18 davygrvy Exp $ + * RCS: @(#) $Id: tclCkalloc.c,v 1.21 2004/04/06 22:25:48 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" #define FALSE 0 #define TRUE 1 diff --git a/generic/tclClock.c b/generic/tclClock.c index 82d4f1f..2105d21 100644 --- a/generic/tclClock.c +++ b/generic/tclClock.c @@ -11,12 +11,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclClock.c,v 1.25 2004/03/18 18:50:40 rmax Exp $ + * RCS: @(#) $Id: tclClock.c,v 1.26 2004/04/06 22:25:48 dgp Exp $ */ -#include "tcl.h" #include "tclInt.h" -#include "tclPort.h" /* * The date parsing stuff uses lexx and has tons o statics. diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index ddb36ba..d80e32f 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -11,11 +11,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdAH.c,v 1.43 2004/03/17 18:14:13 das Exp $ + * RCS: @(#) $Id: tclCmdAH.c,v 1.44 2004/04/06 22:25:48 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" #include <locale.h> /* diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index e3f42a9..676fa3d 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -15,11 +15,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.61 2004/01/17 00:52:18 dkf Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.62 2004/04/06 22:25:49 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" #include "tclRegexp.h" /* diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 7579b4e..0e0bffc 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -15,11 +15,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdMZ.c,v 1.100 2004/01/13 23:37:11 dgp Exp $ + * RCS: @(#) $Id: tclCmdMZ.c,v 1.101 2004/04/06 22:25:49 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" #include "tclRegexp.h" /* diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index 1f89603..84e0cac 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompExpr.c,v 1.21 2004/01/12 18:50:15 msofer Exp $ + * RCS: @(#) $Id: tclCompExpr.c,v 1.22 2004/04/06 22:25:50 dgp Exp $ */ #include "tclInt.h" @@ -21,9 +21,7 @@ * the errno from tclExecute.c here. */ -#ifndef TCL_GENERIC_ONLY -#include "tclPort.h" -#else +#ifdef TCL_GENERIC_ONLY #define NO_ERRNO_H #endif diff --git a/generic/tclDate.c b/generic/tclDate.c index bd923f1..17a812d 100644 --- a/generic/tclDate.c +++ b/generic/tclDate.c @@ -14,7 +14,6 @@ */ #include "tclInt.h" -#include "tclPort.h" #define EPOCH 1970 #define START_OF_TIME 1902 diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index a0b7b7f..8b6a6b0 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -8,11 +8,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEncoding.c,v 1.17 2003/12/24 04:18:19 davygrvy Exp $ + * RCS: @(#) $Id: tclEncoding.c,v 1.18 2004/04/06 22:25:50 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" typedef size_t (LengthProc)_ANSI_ARGS_((CONST char *src)); diff --git a/generic/tclEnv.c b/generic/tclEnv.c index f814164..af7ddcd 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -12,11 +12,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEnv.c,v 1.21 2003/05/14 06:17:49 davygrvy Exp $ + * RCS: @(#) $Id: tclEnv.c,v 1.22 2004/04/06 22:25:50 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" TCL_DECLARE_MUTEX(envMutex) /* To serialize access to environ */ diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 0466db3..f0cbf8b 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -11,11 +11,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEvent.c,v 1.31 2003/12/24 04:18:19 davygrvy Exp $ + * RCS: @(#) $Id: tclEvent.c,v 1.32 2004/04/06 22:25:50 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * The data structure below is used to report background errors. One diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 5a13482..daa560c 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -11,14 +11,14 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.123 2004/03/30 19:17:57 msofer Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.124 2004/04/06 22:25:50 dgp Exp $ */ #include "tclInt.h" #include "tclCompile.h" #ifndef TCL_NO_MATH -# include "tclMath.h" +# include <math.h> #endif /* @@ -27,9 +27,7 @@ * errno here. */ -#ifndef TCL_GENERIC_ONLY -# include "tclPort.h" -#else /* TCL_GENERIC_ONLY */ +#ifdef TCL_GENERIC_ONLY # ifndef NO_FLOAT_H # include <float.h> # else /* NO_FLOAT_H */ diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index f58d2c0..1c16ef0 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -9,11 +9,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclFCmd.c,v 1.25 2004/03/17 18:14:13 das Exp $ + * RCS: @(#) $Id: tclFCmd.c,v 1.26 2004/04/06 22:25:51 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * Declarations for local procedures defined in this file: diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 60f234d..33f6f52 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -10,11 +10,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclFileName.c,v 1.52 2004/03/30 16:13:57 dgp Exp $ + * RCS: @(#) $Id: tclFileName.c,v 1.53 2004/04/06 22:25:51 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" #include "tclRegexp.h" #include "tclFileSystem.h" /* For TclGetPathType() */ diff --git a/generic/tclGet.c b/generic/tclGet.c index 6819322..1fd6277 100644 --- a/generic/tclGet.c +++ b/generic/tclGet.c @@ -11,12 +11,11 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclGet.c,v 1.8 2002/11/19 02:34:49 hobbs Exp $ + * RCS: @(#) $Id: tclGet.c,v 1.9 2004/04/06 22:25:51 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" -#include "tclMath.h" +#include <math.h> /* diff --git a/generic/tclHash.c b/generic/tclHash.c index 99502b3..54a6efa 100644 --- a/generic/tclHash.c +++ b/generic/tclHash.c @@ -10,11 +10,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclHash.c,v 1.17 2004/03/30 22:27:49 dkf Exp $ + * RCS: @(#) $Id: tclHash.c,v 1.18 2004/04/06 22:25:51 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * Prevent macros from clashing with function definitions. diff --git a/generic/tclHistory.c b/generic/tclHistory.c index 20ccb7c..90ef855 100644 --- a/generic/tclHistory.c +++ b/generic/tclHistory.c @@ -12,11 +12,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclHistory.c,v 1.4 2002/01/16 06:02:34 dgp Exp $ + * RCS: @(#) $Id: tclHistory.c,v 1.5 2004/04/06 22:25:51 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* diff --git a/generic/tclIO.c b/generic/tclIO.c index 55db84a..9e33166 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -10,11 +10,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIO.c,v 1.71 2004/03/09 12:59:04 vincentdarley Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.72 2004/04/06 22:25:51 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" #include "tclIO.h" #include <assert.h> diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index c2c0a40..1f7cd44 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -8,11 +8,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOCmd.c,v 1.17 2004/03/17 18:14:13 das Exp $ + * RCS: @(#) $Id: tclIOCmd.c,v 1.18 2004/04/06 22:25:52 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * Callback structure for accept callback in a TCP server. diff --git a/generic/tclIOGT.c b/generic/tclIOGT.c index 0bc3083..92d405c 100644 --- a/generic/tclIOGT.c +++ b/generic/tclIOGT.c @@ -10,11 +10,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * CVS: $Id: tclIOGT.c,v 1.7 2002/05/24 21:19:06 dkf Exp $ + * CVS: $Id: tclIOGT.c,v 1.8 2004/04/06 22:25:52 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" #include "tclIO.h" diff --git a/generic/tclIOSock.c b/generic/tclIOSock.c index 4fa451e..8a1a94c 100644 --- a/generic/tclIOSock.c +++ b/generic/tclIOSock.c @@ -8,11 +8,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOSock.c,v 1.7 2002/07/29 16:54:41 rmax Exp $ + * RCS: @(#) $Id: tclIOSock.c,v 1.8 2004/04/06 22:25:53 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* *--------------------------------------------------------------------------- diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index e82efa5..f44a8f2 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -17,13 +17,11 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOUtil.c,v 1.98 2004/04/01 11:13:01 vincentdarley Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.99 2004/04/06 22:25:53 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" #ifdef __WIN32__ -/* for tclWinProcs->useWide */ #include "tclWinInt.h" #endif #include "tclFileSystem.h" diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index cf986be..ce1a07e 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -10,11 +10,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIndexObj.c,v 1.17 2004/01/13 09:42:57 dkf Exp $ + * RCS: @(#) $Id: tclIndexObj.c,v 1.18 2004/04/06 22:25:53 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * Prototypes for procedures defined later in this file: diff --git a/generic/tclInt.h b/generic/tclInt.h index 0628c0a..f06642c 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.150 2004/04/02 20:07:06 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.151 2004/04/06 22:25:53 dgp Exp $ */ #ifndef _TCLINT @@ -2322,7 +2322,9 @@ extern Tcl_Mutex tclObjMutex; (nsPtr)->exportLookupEpoch++; \ } +#include "tclPort.h" #include "tclIntDecls.h" +#include "tclIntPlatDecls.h" # undef TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS DLLIMPORT diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 1cf52ea..56ab62b 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -9,11 +9,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.25 2003/12/24 04:18:20 davygrvy Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.26 2004/04/06 22:25:53 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" #include <stdio.h> /* diff --git a/generic/tclLiteral.c b/generic/tclLiteral.c index de41e64..9250413 100644 --- a/generic/tclLiteral.c +++ b/generic/tclLiteral.c @@ -12,12 +12,11 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLiteral.c,v 1.13 2004/03/30 22:27:49 dkf Exp $ + * RCS: @(#) $Id: tclLiteral.c,v 1.14 2004/04/06 22:25:54 dgp Exp $ */ #include "tclInt.h" #include "tclCompile.h" -#include "tclPort.h" /* * When there are this many entries per bucket, on average, rebuild * a literal's hash table to make it larger. diff --git a/generic/tclMain.c b/generic/tclMain.c index 80eb200..b4c144e 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -10,10 +10,9 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMain.c,v 1.24 2004/03/29 15:47:31 dgp Exp $ + * RCS: @(#) $Id: tclMain.c,v 1.25 2004/04/06 22:25:54 dgp Exp $ */ -#include "tcl.h" #include "tclInt.h" # undef TCL_STORAGE_CLASS diff --git a/generic/tclNotify.c b/generic/tclNotify.c index 3627af9..39a1cac 100644 --- a/generic/tclNotify.c +++ b/generic/tclNotify.c @@ -14,11 +14,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclNotify.c,v 1.13 2004/03/17 18:14:14 das Exp $ + * RCS: @(#) $Id: tclNotify.c,v 1.14 2004/04/06 22:25:54 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" extern TclStubs tclStubs; diff --git a/generic/tclObj.c b/generic/tclObj.c index 9d71cfe..4604316 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -11,12 +11,11 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclObj.c,v 1.56 2004/03/30 21:34:15 dkf Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.57 2004/04/06 22:25:54 dgp Exp $ */ #include "tclInt.h" #include "tclCompile.h" -#include "tclPort.h" /* * Table of all object types. diff --git a/generic/tclPanic.c b/generic/tclPanic.c index 5b9125e..e20d0e4 100644 --- a/generic/tclPanic.c +++ b/generic/tclPanic.c @@ -12,11 +12,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclPanic.c,v 1.4 2001/06/17 03:48:19 dgp Exp $ + * RCS: @(#) $Id: tclPanic.c,v 1.5 2004/04/06 22:25:54 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * The panicProc variable contains a pointer to an application diff --git a/generic/tclParse.c b/generic/tclParse.c index ca6c5a8..0d580b7 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -13,11 +13,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclParse.c,v 1.35 2004/03/08 16:34:22 dgp Exp $ + * RCS: @(#) $Id: tclParse.c,v 1.36 2004/04/06 22:25:54 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * The following table provides parsing information about each possible diff --git a/generic/tclParseExpr.c b/generic/tclParseExpr.c index 3a0574e..2a8abec 100644 --- a/generic/tclParseExpr.c +++ b/generic/tclParseExpr.c @@ -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: tclParseExpr.c,v 1.20 2004/03/04 23:25:15 dgp Exp $ + * RCS: @(#) $Id: tclParseExpr.c,v 1.21 2004/04/06 22:25:54 dgp Exp $ */ #include "tclInt.h" @@ -24,9 +24,7 @@ * the errno from tclExecute.c here. */ -#ifndef TCL_GENERIC_ONLY -#include "tclPort.h" -#else +#ifdef TCL_GENERIC_ONLY #define NO_ERRNO_H #endif diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index a934f3d..daa9297 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -10,11 +10,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclPathObj.c,v 1.28 2004/03/30 09:56:13 vincentdarley Exp $ + * RCS: @(#) $Id: tclPathObj.c,v 1.29 2004/04/06 22:25:54 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" #include "tclFileSystem.h" /* diff --git a/generic/tclPipe.c b/generic/tclPipe.c index 7d1334d..99a89e1 100644 --- a/generic/tclPipe.c +++ b/generic/tclPipe.c @@ -10,11 +10,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclPipe.c,v 1.7 2002/12/17 02:47:39 davygrvy Exp $ + * RCS: @(#) $Id: tclPipe.c,v 1.8 2004/04/06 22:25:54 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * A linked list of the following structures is used to keep track diff --git a/generic/tclPosixStr.c b/generic/tclPosixStr.c index cc2a546..a3aedf5 100644 --- a/generic/tclPosixStr.c +++ b/generic/tclPosixStr.c @@ -11,11 +11,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclPosixStr.c,v 1.9 2002/05/27 10:14:21 dkf Exp $ + * RCS: @(#) $Id: tclPosixStr.c,v 1.10 2004/04/06 22:25:54 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* *---------------------------------------------------------------------- diff --git a/generic/tclRegexp.c b/generic/tclRegexp.c index 3722278..3d67fcb 100644 --- a/generic/tclRegexp.c +++ b/generic/tclRegexp.c @@ -10,11 +10,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclRegexp.c,v 1.14 2002/01/17 03:03:12 dgp Exp $ + * RCS: @(#) $Id: tclRegexp.c,v 1.15 2004/04/06 22:25:54 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" #include "tclRegexp.h" /* diff --git a/generic/tclScan.c b/generic/tclScan.c index 7d5b093..2ff616d 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -8,14 +8,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclScan.c,v 1.12 2002/02/25 15:23:02 dkf Exp $ + * RCS: @(#) $Id: tclScan.c,v 1.13 2004/04/06 22:25:54 dgp Exp $ */ #include "tclInt.h" -/* - * For strtoll() and strtoull() declarations on some platforms... - */ -#include "tclPort.h" /* * Flag values used by Tcl_ScanObjCmd. diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 91be201..bfe26c0 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,11 +8,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubInit.c,v 1.93 2004/03/17 18:14:14 das Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.94 2004/04/06 22:25:55 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * Remove macros that will interfere with the definitions below. diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c index 91e5cef..f246f35 100644 --- a/generic/tclStubLib.c +++ b/generic/tclStubLib.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubLib.c,v 1.7 2004/03/18 18:55:16 rmax Exp $ + * RCS: @(#) $Id: tclStubLib.c,v 1.8 2004/04/06 22:25:55 dgp Exp $ */ /* @@ -26,7 +26,6 @@ #undef USE_TCL_STUB_PROCS #include "tclInt.h" -#include "tclPort.h" /* * Ensure that Tcl_InitStubs is built as an exported symbol. The other stub diff --git a/generic/tclTest.c b/generic/tclTest.c index 93e124f..4867e1c 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -14,12 +14,11 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.80 2004/03/17 18:14:14 das Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.81 2004/04/06 22:25:55 dgp Exp $ */ #define TCL_TEST #include "tclInt.h" -#include "tclPort.h" /* * Required for Testregexp*Cmd diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c index 1cb7a25..c8498dd 100755 --- a/generic/tclThreadAlloc.c +++ b/generic/tclThreadAlloc.c @@ -11,16 +11,14 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclThreadAlloc.c,v 1.8 2003/12/24 04:18:20 davygrvy Exp $ + * RCS: @(#) $Id: tclThreadAlloc.c,v 1.9 2004/04/06 22:25:55 dgp Exp $ */ #if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) #include "tclInt.h" -#ifdef WIN32 -#include "tclWinInt.h" -#else +#ifndef WIN32 extern Tcl_Mutex *TclpNewAllocMutex(void); extern void *TclpGetAllocCache(void); extern void TclpSetAllocCache(void *); diff --git a/generic/tclTimer.c b/generic/tclTimer.c index 6d44081..b441ac3 100644 --- a/generic/tclTimer.c +++ b/generic/tclTimer.c @@ -9,11 +9,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTimer.c,v 1.7 2003/12/24 04:18:20 davygrvy Exp $ + * RCS: @(#) $Id: tclTimer.c,v 1.8 2004/04/06 22:25:55 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * For each timer callback that's pending there is one record of the following diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 10cddf2..6acc643 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -11,11 +11,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUtil.c,v 1.43 2003/09/04 16:44:12 dgp Exp $ + * RCS: @(#) $Id: tclUtil.c,v 1.44 2004/04/06 22:25:55 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * The following variable holds the full path name of the binary diff --git a/generic/tclVar.c b/generic/tclVar.c index e44cd0e..1b3068b 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -15,11 +15,10 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclVar.c,v 1.77 2003/12/24 04:18:20 davygrvy Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.78 2004/04/06 22:25:56 dgp Exp $ */ #include "tclInt.h" -#include "tclPort.h" /* * The strings below are used to indicate what went wrong when a |