diff options
| author | Karl Berry <karl@freefriends.org> | 2020-03-07 22:52:33 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2020-03-07 22:52:33 +0000 |
| commit | 11c6e5fc65f26ba5219997d19707b998a9abf26d (patch) | |
| tree | a1dc8073a679611d3f09c01eda006cc3f6f846b1 /Master/tlpkg/tlperl/lib/CORE/win32.h | |
| parent | a6593bd4f2eb12ae25540de026f7f9ebcf230a2f (diff) | |
tl20 perl 5.30.1 for Windows, from Siep
git-svn-id: svn://tug.org/texlive/trunk@54166 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/win32.h')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/CORE/win32.h | 8 |
1 files changed, 4 insertions, 4 deletions
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 |