diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-10-25 17:57:00 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-10-25 17:57:00 (GMT) |
| commit | 7c3322a2ee80527c01e51cde6a9681d96228fab3 (patch) | |
| tree | d0c3e1464c7149be9201d9d89e969c551f81d802 /generic/tclIntDecls.h | |
| parent | 0b4cf50a01e85aca7d33768c49c90511ed613082 (diff) | |
| download | tcl-7c3322a2ee80527c01e51cde6a9681d96228fab3.zip tcl-7c3322a2ee80527c01e51cde6a9681d96228fab3.tar.gz tcl-7c3322a2ee80527c01e51cde6a9681d96228fab3.tar.bz2 | |
Since TIP 258 (2005) and development efforts leading up to it (2004), the
Tcltest package has not been a caller of routines Tcl(Get|Set)LibraryPath,
so there's no longer a need for those to be in the internal stubs table.
After they are removed from the table, they no longer need to exist at all.
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 3ebe2eb..d94dcb2 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -413,10 +413,8 @@ EXTERN int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re); /* 151 */ EXTERN void TclRegExpRangeUniChar(Tcl_RegExp re, Tcl_Size index, Tcl_Size *startPtr, Tcl_Size *endPtr); -/* 152 */ -EXTERN void TclSetLibraryPath(Tcl_Obj *pathPtr); -/* 153 */ -EXTERN Tcl_Obj * TclGetLibraryPath(void); +/* Slot 152 is reserved */ +/* Slot 153 is reserved */ /* Slot 154 is reserved */ /* Slot 155 is reserved */ /* 156 */ @@ -846,8 +844,8 @@ typedef struct TclIntStubs { void (*tclHandleRelease) (TclHandle handle); /* 149 */ int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */ void (*tclRegExpRangeUniChar) (Tcl_RegExp re, Tcl_Size index, Tcl_Size *startPtr, Tcl_Size *endPtr); /* 151 */ - void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */ - Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */ + void (*reserved152)(void); + void (*reserved153)(void); void (*reserved154)(void); void (*reserved155)(void); void (*tclRegError) (Tcl_Interp *interp, const char *msg, int status); /* 156 */ @@ -1217,10 +1215,8 @@ extern const TclIntStubs *tclIntStubsPtr; (tclIntStubsPtr->tclRegAbout) /* 150 */ #define TclRegExpRangeUniChar \ (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */ -#define TclSetLibraryPath \ - (tclIntStubsPtr->tclSetLibraryPath) /* 152 */ -#define TclGetLibraryPath \ - (tclIntStubsPtr->tclGetLibraryPath) /* 153 */ +/* Slot 152 is reserved */ +/* Slot 153 is reserved */ /* Slot 154 is reserved */ /* Slot 155 is reserved */ #define TclRegError \ |