summaryrefslogtreecommitdiffstats
path: root/generic/tclIntDecls.h
diff options
context:
space:
mode:
authorsurles <surles>1999-05-23 16:37:14 (GMT)
committersurles <surles>1999-05-23 16:37:14 (GMT)
commit60e436c4cfd066fdf891a16bd62985ea59760ef3 (patch)
tree6929c46c81787e3cb7543f9dfea441d9fefe6f1e /generic/tclIntDecls.h
parentac39508cf97576cd9747c5630c4a13d794663b4a (diff)
downloadtcl-60e436c4cfd066fdf891a16bd62985ea59760ef3.zip
tcl-60e436c4cfd066fdf891a16bd62985ea59760ef3.tar.gz
tcl-60e436c4cfd066fdf891a16bd62985ea59760ef3.tar.bz2
Added stub entry for the TclGetAuxDataType routine so tbcload can use stubs
Diffstat (limited to 'generic/tclIntDecls.h')
-rw-r--r--generic/tclIntDecls.h9
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h
index c9529ed..7791b2a 100644
--- a/generic/tclIntDecls.h
+++ b/generic/tclIntDecls.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: tclIntDecls.h,v 1.9 1999/04/30 22:45:01 stanton Exp $
+ * RCS: @(#) $Id: tclIntDecls.h,v 1.10 1999/05/23 16:37:14 surles Exp $
*/
#ifndef _TCLINTDECLS
@@ -456,6 +456,8 @@ EXTERN int TclAddLiteralObj _ANSI_ARGS_((
/* 144 */
EXTERN void TclHideLiteral _ANSI_ARGS_((Tcl_Interp * interp,
struct CompileEnv * envPtr, int index));
+/* 145 */
+EXTERN struct AuxDataType * TclGetAuxDataType _ANSI_ARGS_((char * typeName));
typedef struct TclIntStubs {
int magic;
@@ -606,6 +608,7 @@ typedef struct TclIntStubs {
int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */
int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */
void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index)); /* 144 */
+ struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName)); /* 145 */
} TclIntStubs;
#ifdef __cplusplus
@@ -1163,6 +1166,10 @@ extern TclIntStubs *tclIntStubsPtr;
#define TclHideLiteral \
(tclIntStubsPtr->tclHideLiteral) /* 144 */
#endif
+#ifndef TclGetAuxDataType
+#define TclGetAuxDataType \
+ (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
+#endif
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */