diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-15 08:36:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-15 08:36:38 (GMT) |
| commit | 1498eb2e29305e7d3ab57d7dc2464c699be08589 (patch) | |
| tree | 0797b1a4258f1f65dd3ccbcf24f995d1d997917b /generic/tkInt.h | |
| parent | a4b5a1d051cb3b012a5845112f42674604c7588b (diff) | |
| download | tk-1498eb2e29305e7d3ab57d7dc2464c699be08589.zip tk-1498eb2e29305e7d3ab57d7dc2464c699be08589.tar.gz tk-1498eb2e29305e7d3ab57d7dc2464c699be08589.tar.bz2 | |
Fix --disable-shared build
Diffstat (limited to 'generic/tkInt.h')
| -rw-r--r-- | generic/tkInt.h | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/generic/tkInt.h b/generic/tkInt.h index 6f975b9..cfc311a 100644 --- a/generic/tkInt.h +++ b/generic/tkInt.h @@ -93,15 +93,21 @@ #else MODULE_SCOPE Tcl_Size TkUtfToUniChar(const char *, int *); MODULE_SCOPE Tcl_Size TkUniCharToUtf(int, char *); -# define TkNumUtfChars (((&tclStubsPtr->tcl_PkgProvideEx)[631]) ? \ - ((Tcl_Size (*)(const char *, Tcl_Size))(void *)((&tclStubsPtr->tcl_PkgProvideEx)[669])) \ - : (tclStubsPtr->tcl_NumUtfChars) /* 312 */) -# define TkGetCharLength (((&tclStubsPtr->tcl_PkgProvideEx)[631]) ? \ - ((Tcl_Size (*)(Tcl_Obj *))(void *)((&tclStubsPtr->tcl_PkgProvideEx)[670])) \ - : (tclStubsPtr->tcl_GetCharLength) /* 380 */) -# define TkUtfAtIndex (((&tclStubsPtr->tcl_PkgProvideEx)[631]) ? \ - ((const char *(*)(const char *, Tcl_Size))(void *)((&tclStubsPtr->tcl_PkgProvideEx)[671])) \ - : (tclStubsPtr->tcl_UtfAtIndex) /* 325 */) +# ifdef USE_TCL_STUBS +# define TkNumUtfChars (((&tclStubsPtr->tcl_PkgProvideEx)[631]) ? \ + ((Tcl_Size (*)(const char *, Tcl_Size))(void *)((&tclStubsPtr->tcl_PkgProvideEx)[669])) \ + : (tclStubsPtr->tcl_NumUtfChars) /* 312 */) +# define TkGetCharLength (((&tclStubsPtr->tcl_PkgProvideEx)[631]) ? \ + ((Tcl_Size (*)(Tcl_Obj *))(void *)((&tclStubsPtr->tcl_PkgProvideEx)[670])) \ + : (tclStubsPtr->tcl_GetCharLength) /* 380 */) +# define TkUtfAtIndex (((&tclStubsPtr->tcl_PkgProvideEx)[631]) ? \ + ((const char *(*)(const char *, Tcl_Size))(void *)((&tclStubsPtr->tcl_PkgProvideEx)[671])) \ + : (tclStubsPtr->tcl_UtfAtIndex) /* 325 */) +# else +# define TkNumUtfChars TclNumUtfChars +# define TkGetCharLength TclGetCharLength +# define TkUtfAtIndex TclUtfAtIndex +# endif #endif #if defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L) |