diff options
author | joye <joye> | 2013-09-04 19:15:18 (GMT) |
---|---|---|
committer | joye <joye> | 2013-09-04 19:15:18 (GMT) |
commit | b0a1f1368fd9300b4208a343a524b0ab9723d315 (patch) | |
tree | 229f01f401f86b0a057f0017d185b6436c846738 | |
parent | 8b45f884c04f2a015825407c50d43666e2ab0a7b (diff) | |
download | blt-b0a1f1368fd9300b4208a343a524b0ab9723d315.zip blt-b0a1f1368fd9300b4208a343a524b0ab9723d315.tar.gz blt-b0a1f1368fd9300b4208a343a524b0ab9723d315.tar.bz2 |
*** empty log message ***
-rw-r--r-- | src/bltVecCmd.C | 2 | ||||
-rw-r--r-- | 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); } } |