summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CORE/win32.h
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/win32.h')
-rw-r--r--Master/tlpkg/tlperl/lib/CORE/win32.h8
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