diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-11-15 19:38:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-11-15 19:38:45 (GMT) |
| commit | 7829f617b9899043b912c6b64ce33aeaf5b155f4 (patch) | |
| tree | 02308f1a57024a039f52c305d7b0a3be69d2ba73 /generic/tclIntDecls.h | |
| parent | 76fcfb3c70d9a6411dcd9d612a78cb5873ac28d8 (diff) | |
| parent | 511765faae09dd5a56da42a2df297514cff7df3e (diff) | |
| download | tcl-7829f617b9899043b912c6b64ce33aeaf5b155f4.zip tcl-7829f617b9899043b912c6b64ce33aeaf5b155f4.tar.gz tcl-7829f617b9899043b912c6b64ce33aeaf5b155f4.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index cc58220..5a0c17a 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -578,6 +578,11 @@ EXTERN int TclPtrObjMakeUpvar(Tcl_Interp *interp, EXTERN int TclPtrUnsetVar(Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); +/* 257 */ +EXTERN void TclStaticPackage(Tcl_Interp *interp, + const char *pkgName, + Tcl_PackageInitProc *initProc, + Tcl_PackageInitProc *safeInitProc); typedef struct TclIntStubs { int magic; @@ -840,6 +845,7 @@ typedef struct TclIntStubs { Tcl_Obj * (*tclPtrIncrObjVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, const int flags); /* 254 */ int (*tclPtrObjMakeUpvar) (Tcl_Interp *interp, Tcl_Var otherPtr, Tcl_Obj *myNamePtr, int myFlags); /* 255 */ int (*tclPtrUnsetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 256 */ + void (*tclStaticPackage) (Tcl_Interp *interp, const char *pkgName, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 257 */ } TclIntStubs; extern const TclIntStubs *tclIntStubsPtr; @@ -1255,11 +1261,16 @@ extern const TclIntStubs *tclIntStubsPtr; (tclIntStubsPtr->tclPtrObjMakeUpvar) /* 255 */ #define TclPtrUnsetVar \ (tclIntStubsPtr->tclPtrUnsetVar) /* 256 */ +#define TclStaticPackage \ + (tclIntStubsPtr->tclStaticPackage) /* 257 */ #endif /* defined(USE_TCL_STUBS) */ /* !END!: Do not edit above this line. */ +#define Tcl_StaticPackage \ + (tclIntStubsPtr->tclStaticPackage) /* 257 */ + #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT |