diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-03-13 16:01:05 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-03-13 16:01:05 (GMT) |
| commit | 535dcf373182e96a209816ac847fcbc907866adc (patch) | |
| tree | 51ec8a3c9ae020781cd27b8c0a4f94ddbb6fc942 /generic/tclObj.c | |
| parent | 135fa1ac45c44f02458380c06168b02285adb7fc (diff) | |
| parent | 084c8b2259399cfa7c22283d77abb1820207afad (diff) | |
| download | tcl-535dcf373182e96a209816ac847fcbc907866adc.zip tcl-535dcf373182e96a209816ac847fcbc907866adc.tar.gz tcl-535dcf373182e96a209816ac847fcbc907866adc.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index b396f2e..170c4b0 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -1933,7 +1933,7 @@ Tcl_FreeIntRep( * is coerced to 1. * * When TCL_MEM_DEBUG is defined, this function just returns the result - * of calling the debugging version Tcl_DbNewBooleanObj. + * of calling the debugging version Tcl_DbNewLongObj. * * Results: * The newly created object is returned. This object will have an invalid @@ -1952,7 +1952,7 @@ Tcl_Obj * Tcl_NewBooleanObj( register int boolValue) /* Boolean used to initialize new object. */ { - return Tcl_DbNewBooleanObj(boolValue, "unknown", 0); + return Tcl_DbNewLongObj(boolValue!=0, "unknown", 0); } #else /* if not TCL_MEM_DEBUG */ @@ -1963,7 +1963,7 @@ Tcl_NewBooleanObj( { register Tcl_Obj *objPtr; - TclNewBooleanObj(objPtr, boolValue); + TclNewLongObj(objPtr, boolValue!=0); return objPtr; } #endif /* TCL_MEM_DEBUG */ @@ -1994,6 +1994,7 @@ Tcl_NewBooleanObj( *---------------------------------------------------------------------- */ +#ifndef TCL_NO_DEPRECATED #undef Tcl_DbNewBooleanObj #ifdef TCL_MEM_DEBUG @@ -2029,6 +2030,7 @@ Tcl_DbNewBooleanObj( return Tcl_NewBooleanObj(boolValue); } #endif /* TCL_MEM_DEBUG */ +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- @@ -2058,7 +2060,7 @@ Tcl_SetBooleanObj( Tcl_Panic("%s called with shared object", "Tcl_SetBooleanObj"); } - TclSetBooleanObj(objPtr, boolValue); + TclSetLongObj(objPtr, boolValue!=0); } /* @@ -2658,7 +2660,7 @@ Tcl_SetIntObj( Tcl_Panic("%s called with shared object", "Tcl_SetIntObj"); } - TclSetIntObj(objPtr, intValue); + TclSetLongObj(objPtr, intValue); } /* |