diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-25 16:11:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-25 16:11:38 (GMT) |
| commit | b816a585c00c97feca1b4516769ccf2769a58e02 (patch) | |
| tree | 77a1bcad1ca6879eda9d8bfffc581640656aa39f /generic/tclArithSeries.c | |
| parent | d6fedf785445439d2d54c58f3e9906b0d867cd88 (diff) | |
| download | tcl-b816a585c00c97feca1b4516769ccf2769a58e02.zip tcl-b816a585c00c97feca1b4516769ccf2769a58e02.tar.gz tcl-b816a585c00c97feca1b4516769ccf2769a58e02.tar.bz2 | |
Tcl_NewDoubleObj -> TclNewDoubleObj and Tcl_NewWideIntObj -> TclNewIntObj (and similar). Gives more info when debugging
Diffstat (limited to 'generic/tclArithSeries.c')
| -rwxr-xr-x | generic/tclArithSeries.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclArithSeries.c b/generic/tclArithSeries.c index 5c4e5a5..40f34b5 100755 --- a/generic/tclArithSeries.c +++ b/generic/tclArithSeries.c @@ -390,9 +390,9 @@ TclArithSeriesObjStep( } arithSeriesRepPtr = ArithSeriesRepPtr(arithSeriesPtr); if (arithSeriesRepPtr->isDouble) { - *stepObj = Tcl_NewDoubleObj(((ArithSeriesDbl*)(arithSeriesRepPtr))->step); + TclNewDoubleObj(*stepObj, ((ArithSeriesDbl*)(arithSeriesRepPtr))->step); } else { - *stepObj = Tcl_NewWideIntObj(arithSeriesRepPtr->step); + TclNewIntObj(*stepObj, arithSeriesRepPtr->step); } return TCL_OK; } @@ -956,7 +956,8 @@ TclArithSeriesObjReverse( if (Tcl_IsShared(arithSeriesPtr) || ((arithSeriesPtr->refCount > 1))) { - Tcl_Obj *lenObj = Tcl_NewWideIntObj(len); + Tcl_Obj *lenObj; + TclNewIntObj(lenObj, len); if (TclNewArithSeriesObj(interp, &resultObj, isDouble, startObj, endObj, stepObj, lenObj) != TCL_OK) { resultObj = NULL; |