summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2019-03-02 18:15:36 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2019-03-02 18:15:36 (GMT)
commit10591b96c8e649549d81f6672d42003de5450043 (patch)
treefa88e5b3da77dd983e8d37ecf1aa14cb93c9fa20 /generic/tclBasic.c
parentc561b0e117976a55bb05357fe5b1d45bb5fdad4a (diff)
downloadtcl-10591b96c8e649549d81f6672d42003de5450043.zip
tcl-10591b96c8e649549d81f6672d42003de5450043.tar.gz
tcl-10591b96c8e649549d81f6672d42003de5450043.tar.bz2
Various tommath/numeric related optimizations:
- Remove the DD_STEEL formatter: it isn't used anywhere in Tcl, and not recommended. - Remove double limit-checks, which are already done inside mp_to_unsigned_bin_n()
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 67e4aa3..25b6f78 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -7552,7 +7552,7 @@ ExprIsqrtFunc(
if (Tcl_GetBignumFromObj(interp, objv[1], &big) != TCL_OK) {
return TCL_ERROR;
}
- if (SIGN(&big) == MP_NEG) {
+ if (mp_isneg(&big)) {
mp_clear(&big);
goto negarg;
}