diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-13 08:38:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-13 08:38:18 (GMT) |
| commit | 084c8b2259399cfa7c22283d77abb1820207afad (patch) | |
| tree | 88e761607718492f5525bd50f6afbb0fa84da34d /generic/tclDecls.h | |
| parent | 75196e7136a3ae04c019ee0dfa18309ff741cf86 (diff) | |
| download | tcl-084c8b2259399cfa7c22283d77abb1820207afad.zip tcl-084c8b2259399cfa7c22283d77abb1820207afad.tar.gz tcl-084c8b2259399cfa7c22283d77abb1820207afad.tar.bz2 | |
Eliminate internal use of TclNewBooleanObj()/TclSetBooleanObj()/TclSetIntObj(). Replace Tcl_DbNewBooleanObj() with trivial macro.
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 0dbf345..fb7f8bc 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -3835,13 +3835,13 @@ extern const TclStubs *tclStubsPtr; sizeof(char *), msg, flags, indexPtr) #undef Tcl_NewBooleanObj #define Tcl_NewBooleanObj(boolValue) \ - Tcl_NewIntObj((boolValue)!=0) + Tcl_NewLongObj((boolValue)!=0) #undef Tcl_DbNewBooleanObj #define Tcl_DbNewBooleanObj(boolValue, file, line) \ Tcl_DbNewLongObj((boolValue)!=0, file, line) #undef Tcl_SetBooleanObj #define Tcl_SetBooleanObj(objPtr, boolValue) \ - Tcl_SetIntObj((objPtr), (boolValue)!=0) + Tcl_SetLongObj((objPtr), (boolValue)!=0) #undef Tcl_SetVar #define Tcl_SetVar(interp, varName, newValue, flags) \ Tcl_SetVar2(interp, varName, NULL, newValue, flags) |