From 477921f598c4b28d43faafe2bd478d358fc9051c Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Sat, 28 Dec 2024 14:00:58 +0000
Subject: small speed-up for FP classification of int (simple cast wide to
 double)

---
 generic/tclBasic.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index a3fe901..b8bd6ca 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -8739,6 +8739,9 @@ DoubleObjClass(
       case TCL_NUMBER_DOUBLE:
         d = *((const double *) ptr);
         break;
+      case TCL_NUMBER_INT:
+        d = (double)*((const Tcl_WideInt *) ptr);
+        break;
       default:
 	if (Tcl_GetDoubleFromObj(interp, objPtr, &d) != TCL_OK) {
 	    return TCL_ERROR;
-- 
cgit v0.12