From 11c6e5fc65f26ba5219997d19707b998a9abf26d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 7 Mar 2020 22:52:33 +0000 Subject: tl20 perl 5.30.1 for Windows, from Siep git-svn-id: svn://tug.org/texlive/trunk@54166 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/CORE/win32.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Master/tlpkg/tlperl/lib/CORE/win32.h') diff --git a/Master/tlpkg/tlperl/lib/CORE/win32.h b/Master/tlpkg/tlperl/lib/CORE/win32.h index 26c3ac254f3..73aa67a3bef 100644 --- a/Master/tlpkg/tlperl/lib/CORE/win32.h +++ b/Master/tlpkg/tlperl/lib/CORE/win32.h @@ -85,7 +85,7 @@ /* now even GCC supports __declspec() */ /* miniperl has no reason to export anything */ -#if defined(PERL_IS_MINIPERL) && !defined(UNDER_CE) && defined(_MSC_VER) +#if defined(PERL_IS_MINIPERL) && !defined(UNDER_CE) # define DllExport #else # if defined(PERLDLL) @@ -285,8 +285,7 @@ typedef unsigned short mode_t; # pragma intrinsic(_rotl64,_rotr64) #endif -#pragma warning(push) -#pragma warning(disable:4756;disable:4056) +MSVC_DIAG_IGNORE(4756 4056) PERL_STATIC_INLINE double S_Infinity() { /* this is a real C literal which can get further constant folded @@ -295,7 +294,8 @@ double S_Infinity() { folding INF is creating -INF */ return (DBL_MAX+DBL_MAX); } -#pragma warning(pop) +MSVC_DIAG_RESTORE + #define NV_INF S_Infinity() /* selectany allows duplicate and unused data symbols to be removed by -- cgit v1.2.3