diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-15 12:30:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-15 12:30:16 (GMT) |
| commit | b21548cf0b49c8c217394e862f40dca3b6dba2a9 (patch) | |
| tree | bfc15a72f874367a799f734fc74ea3e8b5d51166 | |
| parent | fbfdf6488820e0deccf441fafbb2871ca167ddba (diff) | |
| download | tcl-b21548cf0b49c8c217394e862f40dca3b6dba2a9.zip tcl-b21548cf0b49c8c217394e862f40dca3b6dba2a9.tar.gz tcl-b21548cf0b49c8c217394e862f40dca3b6dba2a9.tar.bz2 | |
Fix for TIP #628: Builds with TCL_MAJOR_VERSION < 9 and without USE_TCL_STUBS is possible, just Tcl_InitStubs() cannot be used then.
| -rw-r--r-- | generic/tcl.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index b6ca677..f81a344 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2349,7 +2349,9 @@ void * TclStubCall(void *arg); #endif #else #if TCL_MAJOR_VERSION < 9 -# error "Please define -DUSE_TCL_STUBS" +# define Tcl_InitStubs(interp, version, exact) \ + Tcl_Panic(((void)interp, (void)version, \ + (void)exact, "Please define -DUSE_TCL_STUBS")) #elif TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE # define Tcl_InitStubs(interp, version, exact) \ Tcl_PkgInitStubsCheck(interp, version, \ |