From f06741725e74bb931ef924e6ac31614e2a35bc03 Mon Sep 17 00:00:00 2001 From: Shoichi Kaji Date: Sun, 14 Jan 2024 00:22:40 +0900 Subject: [PATCH] fix type constraints "Int" in quadmath --- xs-src/MouseTypeConstraints.xs | 4 ++-- xs-src/mouse.h | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/xs-src/MouseTypeConstraints.xs b/xs-src/MouseTypeConstraints.xs index fd581875..5474289e 100644 --- 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 index a3a68189..0c8ee4eb 100644 --- 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