diff options
| -rw-r--r-- | generic/tclEncoding.c | 2 | ||||
| -rw-r--r-- | generic/tclInt.h | 2 | ||||
| -rw-r--r-- | generic/tclStubLibTbl.c | 4 |
3 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 8a31437..2e8fbc3 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -1366,7 +1366,7 @@ Tcl_UtfToExternal( MODULE_SCOPE const TclStubs tclStubs; const TclStubInfoType tclStubInfo = { - TCL_PATCH_LEVEL, &tclStubs + &tclStubs, TCL_PATCH_LEVEL }; #undef Tcl_FindExecutable diff --git a/generic/tclInt.h b/generic/tclInt.h index efeb02c..9627e72 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3781,8 +3781,8 @@ MODULE_SCOPE int TclCompileAssembleCmd(Tcl_Interp *interp, /* Used internally in stub library. */ typedef struct { - char version[12]; const TclStubs *stubs; + char version[]; } TclStubInfoType; MODULE_SCOPE const TclStubInfoType tclStubInfo; diff --git a/generic/tclStubLibTbl.c b/generic/tclStubLibTbl.c index 0391502..53680c5 100644 --- a/generic/tclStubLibTbl.c +++ b/generic/tclStubLibTbl.c @@ -32,9 +32,9 @@ MODULE_SCOPE const char * TclInitStubTable( const char *version) /* points to the version field of a - TclStubInfoType structure variable. */ + structure variable. */ { - tclStubsPtr = ((const TclStubInfoType *) version)->stubs; + tclStubsPtr = ((const TclStubs **) version)[-1]; if (tclStubsPtr->hooks) { tclPlatStubsPtr = tclStubsPtr->hooks->tclPlatStubs; |