mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

hv_macro.h. Convert _dv to legal name

Browse Source
This commit is contained in:
Karl Williamson 2025-08-14 13:10:14 -06:00
parent 56217f63c0
commit 65e48665de
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sv.c
View File

@ -12025,8 +12025,8 @@ Perl_sv_vcatpvfn(pTHX_ SV *const sv, const char *const pat, const STRLEN patlen,
/* Work around breakage in OTS$CVT_FLOAT_T_X */
# define VCATPVFN_NV_TO_FV(nv,fv) \
STMT_START { \
double _dv = nv; \
fv = Perl_isnan(_dv) ? LDBL_QNAN : _dv; \
double dv_ = nv; \
fv = Perl_isnan(_dv) ? LDBL_QNAN : dv_; \
} STMT_END
# else
# define VCATPVFN_NV_TO_FV(nv,fv) (fv)=(nv)