diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-08 17:22:47 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-08 17:22:47 (GMT) |
| commit | 758da8219845218afd2e7c3f4585925057b8e704 (patch) | |
| tree | 455bbdd915f11f6190190660c6cd689410674e80 /generic/tkObj.c | |
| parent | dd115bc874fa009623fcc254a5609708d53564e7 (diff) | |
| parent | 16578490e25354e6e91563c1da211b9cb1a3151c (diff) | |
| download | tk-758da8219845218afd2e7c3f4585925057b8e704.zip tk-758da8219845218afd2e7c3f4585925057b8e704.tar.gz tk-758da8219845218afd2e7c3f4585925057b8e704.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tkObj.c')
| -rw-r--r-- | generic/tkObj.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tkObj.c b/generic/tkObj.c index 6e087a0..1a5cb0a 100644 --- a/generic/tkObj.c +++ b/generic/tkObj.c @@ -3,7 +3,7 @@ * * This file contains functions that implement the common Tk object types * - * Copyright (c) 1997 Sun Microsystems, Inc. + * Copyright © 1997 Sun Microsystems, Inc. * * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. @@ -115,7 +115,13 @@ extern const struct TclIntStubs *tclIntStubsPtr; ((int (*)(Tcl_Interp*, Tcl_Obj *, int, int*))(void *)((&(tclStubsPtr->tcl_PkgProvideEx))[645]))((interp), (obj), (max), (ptr)): \ tclIntStubsPtr->tclGetIntForIndex((interp), (obj), (max), (ptr))) #elif TCL_MINOR_VERSION < 7 +#ifdef __cplusplus +extern "C" { +#endif extern int TclGetIntForIndex(Tcl_Interp*, Tcl_Obj *, int, int*); +#ifdef __cplusplus +} +#endif # define Tcl_GetIntForIndex(interp, obj, max, ptr) TclGetIntForIndex(interp, obj, max, ptr) #endif #endif |