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 /src/bltVecMath.C | |
parent | 8b45f884c04f2a015825407c50d43666e2ab0a7b (diff) | |
download | blt-b0a1f1368fd9300b4208a343a524b0ab9723d315.zip blt-b0a1f1368fd9300b4208a343a524b0ab9723d315.tar.gz blt-b0a1f1368fd9300b4208a343a524b0ab9723d315.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'src/bltVecMath.C')
-rw-r--r-- | src/bltVecMath.C | 16 |
1 files changed, 8 insertions, 8 deletions
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); } } |