From b0a1f1368fd9300b4208a343a524b0ab9723d315 Mon Sep 17 00:00:00 2001 From: joye Date: Wed, 4 Sep 2013 19:15:18 +0000 Subject: *** empty log message *** --- src/bltVecCmd.C | 2 +- src/bltVecMath.C | 16 ++++++++-------- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/src/bltVecCmd.C b/src/bltVecCmd.C index e995f1d..7f018a3 100644 --- a/src/bltVecCmd.C +++ b/src/bltVecCmd.C @@ -2307,7 +2307,7 @@ Blt_Vec_VarTrace(ClientData clientData, Tcl_Interp *interp, const char *part1, if (part2 == NULL) { if (flags & TCL_TRACE_UNSETS) { - free(vPtr->arrayName); + free((void*)(vPtr->arrayName)); vPtr->arrayName = NULL; if (vPtr->freeOnUnset) { Blt_Vec_Free(vPtr); diff --git a/src/bltVecMath.C b/src/bltVecMath.C index 38fd81b..231afd6 100644 --- a/src/bltVecMath.C +++ b/src/bltVecMath.C @@ -613,27 +613,27 @@ MathError( if ((errno == EDOM) || (value != value)) { Tcl_AppendResult(interp, "domain error: argument not in valid range", (char *)NULL); - Tcl_SetErrorCode(interp, "ARITH", "DOMAIN", interp->result, - (char *)NULL); + Tcl_SetErrorCode(interp, "ARITH", "DOMAIN", + Tcl_GetStringResult(interp), (char *)NULL); } else if ((errno == ERANGE) || IS_INF(value)) { if (value == 0.0) { Tcl_AppendResult(interp, "floating-point value too small to represent", (char *)NULL); - Tcl_SetErrorCode(interp, "ARITH", "UNDERFLOW", interp->result, - (char *)NULL); + Tcl_SetErrorCode(interp, "ARITH", "UNDERFLOW", + Tcl_GetStringResult(interp), (char *)NULL); } else { Tcl_AppendResult(interp, "floating-point value too large to represent", (char *)NULL); - Tcl_SetErrorCode(interp, "ARITH", "OVERFLOW", interp->result, - (char *)NULL); + Tcl_SetErrorCode(interp, "ARITH", "OVERFLOW", + Tcl_GetStringResult(interp), (char *)NULL); } } else { Tcl_AppendResult(interp, "unknown floating-point error, ", "errno = ", Blt_Itoa(errno), (char *)NULL); - Tcl_SetErrorCode(interp, "ARITH", "UNKNOWN", interp->result, - (char *)NULL); + Tcl_SetErrorCode(interp, "ARITH", "UNKNOWN", + Tcl_GetStringResult(interp), (char *)NULL); } } -- cgit v0.12