diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-12-30 21:00:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-12-30 21:00:09 (GMT) |
| commit | f5a8aaadf8c1f3c677edfbdde0c7619089a37705 (patch) | |
| tree | 9caa5dc5333c0fbc834666a945b8642eef0d4fa0 /generic/tclIntDecls.h | |
| parent | 329faccfd52845bcfb945d439a74e65ad3c6188f (diff) | |
| download | tcl-f5a8aaadf8c1f3c677edfbdde0c7619089a37705.zip tcl-f5a8aaadf8c1f3c677edfbdde0c7619089a37705.tar.gz tcl-f5a8aaadf8c1f3c677edfbdde0c7619089a37705.tar.bz2 | |
Remove TclInitCompiledLocals(), internal routine marked deprecated in 8.5+.
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 260ef3e..580c959 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -142,9 +142,7 @@ EXTERN int TclInExit(void); /* Slot 47 is reserved */ /* Slot 48 is reserved */ /* Slot 49 is reserved */ -/* 50 */ -EXTERN void TclInitCompiledLocals(Tcl_Interp *interp, - CallFrame *framePtr, Namespace *nsPtr); +/* Slot 50 is reserved */ /* 51 */ EXTERN int TclInterpInit(Tcl_Interp *interp); /* Slot 52 is reserved */ @@ -638,7 +636,7 @@ typedef struct TclIntStubs { void (*reserved47)(void); void (*reserved48)(void); void (*reserved49)(void); - void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */ + void (*reserved50)(void); int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */ void (*reserved52)(void); int (*tclInvokeObjectCommand) (void *clientData, Tcl_Interp *interp, int argc, const char **argv); /* 53 */ @@ -937,8 +935,7 @@ extern const TclIntStubs *tclIntStubsPtr; /* Slot 47 is reserved */ /* Slot 48 is reserved */ /* Slot 49 is reserved */ -#define TclInitCompiledLocals \ - (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */ +/* Slot 50 is reserved */ #define TclInterpInit \ (tclIntStubsPtr->tclInterpInit) /* 51 */ /* Slot 52 is reserved */ |