fix type constraints "Int" in quadmath

xslate · Jan 13, 2024 · f067417 · f067417
1 parent 5537dc8
commit f067417
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/xs-src/MouseTypeConstraints.xs b/xs-src/MouseTypeConstraints.xs
@@ -147,9 +147,9 @@ S_nv_is_integer(pTHX_ NV const nv) {
         return TRUE;
     }
     else {
-        char buf[64];  /* Must fit sprintf/Gconvert of longest NV */
+        char buf[128];  /* Must fit sprintf/Gconvert of longest NV */
         const char* p;
-        PERL_UNUSED_RESULT(Gconvert(nv, NV_DIG, 0, buf));
+        PERL_UNUSED_RESULT(my_snprintf(buf, sizeof(buf), "%" NVgf, nv));
         p = &buf[0];
 
         /* -?[0-9]+ */

diff --git a/xs-src/mouse.h b/xs-src/mouse.h
@@ -11,6 +11,7 @@
 #define NEED_warner
 #define NEED_grok_number
 #define NEED_grok_numeric_radix
+#define NEED_my_snprintf
 
 #define PERL_EUPXS_ALWAYS_EXPORT