From 8b78e93627afc5201875e37a37a7b27874b874c5 Mon Sep 17 00:00:00 2001 From: Tony Cook Date: Sun, 12 Feb 2017 08:53:58 +1100 Subject: [PATCH] (perl #126203) build issues helps to test builds with the right options... --- sv.c | 2 +- util.c | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/sv.c b/sv.c index 61bf3e1..472d69c 100644 --- a/sv.c +++ b/sv.c @@ -12882,7 +12882,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p elen = quadmath_snprintf(PL_efloatbuf, PL_efloatsize, qfmt, nv); if ((IV)elen == -1) { - if (qfmt != qptr) + if (qfmt != ptr) SAVEFREEPV(qfmt); Perl_croak_nocontext("panic: quadmath_snprintf failed, format \"%s\"", qfmt); } diff --git a/util.c b/util.c index a822969..f119f3c 100644 --- a/util.c +++ b/util.c @@ -5239,8 +5239,10 @@ Perl_my_snprintf(char *buffer, const Size_t len, const char *format, ...) /* If the format looked promising, use it as quadmath. */ retval = quadmath_snprintf(buffer, len, qfmt, va_arg(ap, NV)); if (retval == -1) { - if (qfmt != format) + if (qfmt != format) { + dTHX; SAVEFREEPV(qfmt); + } Perl_croak_nocontext("panic: quadmath_snprintf failed, format \"%s\"", qfmt); } quadmath_valid = TRUE; -- 1.8.3.1