From 3c97d09460dbe4d2b4eddbbca87efa5f9a82be72 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Fri, 25 Aug 2023 15:18:44 +0000 Subject: [84a5355235]: two more cases of sizeof(long) -> sizeof(Tcl_WideInt), since that's the unit we are doing calculations with --- generic/tclExecute.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 991acfa..2b49b82 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -9161,7 +9161,7 @@ TclCompareTwoNumbers( mp_clear(&big2); return compare; } - if (DBL_MANT_DIG > CHAR_BIT*sizeof(long) + if (DBL_MANT_DIG > CHAR_BIT*sizeof(Tcl_WideInt) && modf(d1, &tmp) != 0.0) { d2 = TclBignumToDouble(&big2); mp_clear(&big2); @@ -9191,7 +9191,7 @@ TclCompareTwoNumbers( mp_clear(&big1); return compare; } - if (DBL_MANT_DIG > CHAR_BIT*sizeof(long) + if (DBL_MANT_DIG > CHAR_BIT*sizeof(Tcl_WideInt) && modf(d2, &tmp) != 0.0) { d1 = TclBignumToDouble(&big1); mp_clear(&big1); -- cgit v0.12