diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-01 15:04:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-01 15:04:38 (GMT) |
| commit | 995453e1a0afa8b6b073e157677ffe6d89b3de6f (patch) | |
| tree | 85f7f70cfa039c9bbefb3833ee658d074d697444 /generic/tclStubLibTbl.c | |
| parent | 594b14d3e3b65d3dea5188a3af6b7a2bfcbeda19 (diff) | |
| download | tcl-995453e1a0afa8b6b073e157677ffe6d89b3de6f.zip tcl-995453e1a0afa8b6b073e157677ffe6d89b3de6f.tar.gz tcl-995453e1a0afa8b6b073e157677ffe6d89b3de6f.tar.bz2 | |
further fix handling -DBUILD_STATIC
Diffstat (limited to 'generic/tclStubLibTbl.c')
| -rw-r--r-- | generic/tclStubLibTbl.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclStubLibTbl.c b/generic/tclStubLibTbl.c index 37b6856..cc1bb89 100644 --- a/generic/tclStubLibTbl.c +++ b/generic/tclStubLibTbl.c @@ -35,6 +35,12 @@ TclInitStubTable( structure variable. */ { if (version) { + if (tclStubsHandle == NULL) { + /* This can only happen with -DBUILD_STATIC, so simulate + * that the loading of Tcl succeeded, although we didn't + * actually loaded it dynamically */ + tclStubsHandle = (void *)1; + } tclStubsPtr = ((const TclStubs **) version)[-1]; if (tclStubsPtr->hooks) { |