summaryrefslogtreecommitdiffstats
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
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
-rw-r--r--generic/tclCompile.h3
-rw-r--r--generic/tclInt.decls5
-rw-r--r--generic/tclIntDecls.h9
-rw-r--r--generic/tclStubInit.c3
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 = {