diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-10-16 07:55:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-10-16 07:55:01 (GMT) |
| commit | c4a93adc022597d6e76b6e6a6884e70dbe7dacc0 (patch) | |
| tree | 3f89bd5dca73e77df6c2fe4cf762b9d2eca08844 | |
| parent | e6099d8af5c75e3ef3d6abcdc22414fd5ac46eeb (diff) | |
| download | tcl-novem_reduced_symbol_export.zip tcl-novem_reduced_symbol_export.tar.gz tcl-novem_reduced_symbol_export.tar.bz2 | |
improve compatibility with initsubsystems branchnovem_reduced_symbol_export
| -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; |