diff options
| -rw-r--r-- | generic/tclCompile.h | 3 | ||||
| -rw-r--r-- | generic/tclInt.decls | 5 | ||||
| -rw-r--r-- | generic/tclIntDecls.h | 9 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 3 |
4 files changed, 15 insertions, 5 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 4a718fd..310e67e 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -6,7 +6,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.h,v 1.10 1999/04/16 00:46:45 stanton Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.11 1999/05/23 16:37:14 surles Exp $ */ #ifndef _TCLCOMPILATION @@ -740,7 +740,6 @@ EXTERN void TclDeleteLiteralTable _ANSI_ARGS_(( Tcl_Interp *interp, LiteralTable *tablePtr)); EXTERN void TclEmitForwardJump _ANSI_ARGS_((CompileEnv *envPtr, TclJumpType jumpType, JumpFixup *jumpFixupPtr)); -EXTERN AuxDataType *TclGetAuxDataType _ANSI_ARGS_((char *typeName)); EXTERN ExceptionRange * TclGetExceptionRangeForPc _ANSI_ARGS_(( unsigned char *pc, int catchOnly, ByteCode* codePtr)); diff --git a/generic/tclInt.decls b/generic/tclInt.decls index d0244ce..3789ffc 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -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: tclInt.decls,v 1.9 1999/04/22 22:57:07 stanton Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.10 1999/05/23 16:37:14 surles Exp $ library tcl @@ -540,6 +540,9 @@ declare 144 generic { void TclHideLiteral(Tcl_Interp *interp, struct CompileEnv *envPtr, \ int index) } +declare 145 generic { + struct AuxDataType *TclGetAuxDataType(char *typeName) +} ############################################################################## 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) */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 1638f8d..9835afd 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,7 +8,7 @@ * 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.14 1999/05/22 01:20:13 stanton Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.15 1999/05/23 16:37:14 surles Exp $ */ #include "tclInt.h" @@ -188,6 +188,7 @@ TclIntStubs tclIntStubs = { TclSetByteCodeFromAny, /* 142 */ TclAddLiteralObj, /* 143 */ TclHideLiteral, /* 144 */ + TclGetAuxDataType, /* 145 */ }; TclIntPlatStubs tclIntPlatStubs = { |