diff options
| author | surles <surles> | 1999-05-23 16:37:14 (GMT) |
|---|---|---|
| committer | surles <surles> | 1999-05-23 16:37:14 (GMT) |
| commit | 60e436c4cfd066fdf891a16bd62985ea59760ef3 (patch) | |
| tree | 6929c46c81787e3cb7543f9dfea441d9fefe6f1e /generic/tclIntDecls.h | |
| parent | ac39508cf97576cd9747c5630c4a13d794663b4a (diff) | |
| download | tcl-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.h | 9 |
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) */ |