diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-20 10:20:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-20 10:20:57 (GMT) |
| commit | ef773d518ee5df3377d805762539f0da72c33f36 (patch) | |
| tree | 9686bf4be018af59a09cd011230104297aafdd3f /generic/tclInt.h | |
| parent | c04affa12025f2b856fd5d3148284c1ee03571ab (diff) | |
| parent | b80552437af293244ff1d5c1418ae376c4efd9bd (diff) | |
| download | tcl-ef773d518ee5df3377d805762539f0da72c33f36.zip tcl-ef773d518ee5df3377d805762539f0da72c33f36.tar.gz tcl-ef773d518ee5df3377d805762539f0da72c33f36.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index edd0172..e0cc282 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -2445,11 +2445,11 @@ typedef struct List { * WARNING: these macros eval their args more than once. */ -#define TclGetBooleanFromObj(interp, objPtr, boolPtr) \ +#define TclGetBooleanFromObj(interp, objPtr, intPtr) \ (((objPtr)->typePtr == &tclIntType \ || (objPtr)->typePtr == &tclBooleanType) \ - ? (*(boolPtr) = ((objPtr)->internalRep.wideValue!=0), TCL_OK) \ - : Tcl_GetBooleanFromObj((interp), (objPtr), (boolPtr))) + ? (*(intPtr) = ((objPtr)->internalRep.wideValue!=0), TCL_OK) \ + : Tcl_GetBooleanFromObj((interp), (objPtr), (intPtr))) #ifdef TCL_WIDE_INT_IS_LONG #define TclGetLongFromObj(interp, objPtr, longPtr) \ |