diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-01-07 10:06:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-01-07 10:06:37 (GMT) |
| commit | 380ef99d03439d62883131d3d6048f74e8a2042d (patch) | |
| tree | f29b9debaadfb7d706a929569c2616c79d4cab42 /generic/tclLoad.c | |
| parent | a0ba62bd37e64a2c8c636f8d56ea7a8dc485af65 (diff) | |
| parent | 3de5fedc12ca776c782e63c096e0dc550ef5add9 (diff) | |
| download | tcl-380ef99d03439d62883131d3d6048f74e8a2042d.zip tcl-380ef99d03439d62883131d3d6048f74e8a2042d.tar.gz tcl-380ef99d03439d62883131d3d6048f74e8a2042d.tar.bz2 | |
Fix [fc3509]: Better error-message than "interpreter uses an incompatible stubs mechanism"
Diffstat (limited to 'generic/tclLoad.c')
| -rw-r--r-- | generic/tclLoad.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index 95f9c22..96691cc 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -482,11 +482,10 @@ Tcl_LoadObjCmd( Interp *iPtr = (Interp *) target; if (iPtr->legacyResult && *(iPtr->legacyResult) && !iPtr->legacyFreeProc) { /* - * A call to Tcl_InitStubs() determined the caller extension and - * this interp are incompatible in their stubs mechanisms, and - * recorded the error in the oldest legacy place we have to do so. + * A call to Tcl_InitStubs() determined the caller extension + * Stubs were introduced in Tcl 8.1, so there's only one possible reason. */ - Tcl_SetObjResult(target, Tcl_NewStringObj(iPtr->legacyResult, -1)); + Tcl_SetObjResult(target, Tcl_NewStringObj("this extension is compiled for Tcl 8.x", -1)); iPtr->legacyResult = NULL; iPtr->legacyFreeProc = (void (*) (void))-1; } |