diff options
| -rw-r--r-- | generic/tcl.h | 13 | ||||
| -rw-r--r-- | generic/tclInt.h | 36 |
2 files changed, 29 insertions, 20 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 939cb19..a4882e6 100644 --- a/generic/tcl.h +++ b/generic/tcl.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: tcl.h,v 1.33.4.1 1999/03/03 00:38:38 stanton Exp $ + * RCS: @(#) $Id: tcl.h,v 1.33.4.2 1999/03/04 01:01:57 stanton Exp $ */ #ifndef _TCL @@ -765,7 +765,7 @@ typedef struct Tcl_DString { # define Tcl_DumpActiveMemory(x) # define Tcl_ValidateAllMemory(x,y) -#endif /* TCL_MEM_DEBUG */ +#endif /* !TCL_MEM_DEBUG */ /* * Forward declaration of Tcl_HashTable. Needed by some C++ compilers @@ -1059,7 +1059,14 @@ typedef enum Tcl_PathType { #define Tcl_Ckrealloc Tcl_Realloc #define Tcl_Return Tcl_SetResult #define Tcl_TildeSubst Tcl_TranslateFileName -#define panic Tcl_Panic + +/* + * In later releases, Tcl_Panic will be the correct name to use. For now + * we leave it as panic to avoid breaking existing binaries. + */ + +#define Tcl_Panic panic +#define Tcl_PanicVA panicVA /* * The following constant is used to test for older versions of Tcl diff --git a/generic/tclInt.h b/generic/tclInt.h index bedf49e..1ab5aea 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -11,7 +11,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.23.4.1 1999/03/03 00:38:40 stanton Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.23.4.2 1999/03/04 01:01:58 stanton Exp $ */ #ifndef _TCLINT @@ -1373,6 +1373,12 @@ typedef int (*TclObjCmdProcType) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST objv[])); /* + * Opaque names for platform specific types. + */ + +typedef struct TclpTime_t_ *TclpTime_t; + +/* *---------------------------------------------------------------- * Variables shared among Tcl modules but not used by the outside world. *---------------------------------------------------------------- @@ -1422,22 +1428,6 @@ extern char * tclEmptyStringRep; /* *---------------------------------------------------------------- - * Procedures shared among Tcl modules but not used by the outside - * world: - *---------------------------------------------------------------- - */ - -/* - * The following macro is implemented as a function on the Mac. - */ - -#ifndef MAC_TCL -#define TclpCheckStackSpace()(1) -#endif - - -/* - *---------------------------------------------------------------- * Command procedures in the generic core: *---------------------------------------------------------------- */ @@ -1614,6 +1604,18 @@ EXTERN int Tcl_ResourceObjCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); #endif + +/* + *---------------------------------------------------------------- + * Command procedures used for testing. + *---------------------------------------------------------------- + */ + +EXTERN int TclTestChannelCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); +EXTERN int TclTestChannelEventCmd _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char **argv)); + /* *---------------------------------------------------------------- * Macros used by the Tcl core to create and release Tcl objects. |