diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-12-13 11:05:43 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-12-13 11:05:43 (GMT) |
commit | 6fdc83ae1490b9c80fdce1c5fc60af2ce84a08f0 (patch) | |
tree | 706c6b580a9bc0024596eed55ea34254b98a5756 /generic/tclBasic.c | |
parent | db35fe50e94b2e2edd00d34c42c74754cfc5c74d (diff) | |
parent | 17a9125415985348b7d2b12e75a50a8c87cc21bb (diff) | |
download | tcl-6fdc83ae1490b9c80fdce1c5fc60af2ce84a08f0.zip tcl-6fdc83ae1490b9c80fdce1c5fc60af2ce84a08f0.tar.gz tcl-6fdc83ae1490b9c80fdce1c5fc60af2ce84a08f0.tar.bz2 |
Implement TIP's #538: Externalize libtommath
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index e67b25a..ac290b6 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -20,7 +20,7 @@ #include "tclInt.h" #include "tclOOInt.h" #include "tclCompile.h" -#include "tommath.h" +#include "tclTomMath.h" #include <math.h> #include <assert.h> @@ -7891,7 +7891,7 @@ ExprAbsFunc( } goto unChanged; } else if (l == WIDE_MIN) { - mp_init_ll(&big, l); + mp_init_i64(&big, l); goto tooLarge; } Tcl_SetObjResult(interp, Tcl_NewWideIntObj(-l)); @@ -7922,7 +7922,7 @@ ExprAbsFunc( if (mp_isneg((const mp_int *) ptr)) { Tcl_GetBignumFromObj(NULL, objv[1], &big); tooLarge: - mp_neg(&big, &big); + (void)mp_neg(&big, &big); Tcl_SetObjResult(interp, Tcl_NewBignumObj(&big)); } else { unChanged: |