summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-10-30 12:41:50 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-10-30 12:41:50 +0000
commitde1c2614758a00c0d93fc45414417a54cdf923b3 (patch)
treec97732539c1a6c948e0e0236d27caa5959944a65 /perl.h
parenta22e52b96b9903703a79e4a00983091457f7aff2 (diff)
downloadperl-de1c2614758a00c0d93fc45414417a54cdf923b3.tar.gz
Add HAS_QUAD ($Config{d_quad}); use it.
p4raw-id: //depot/cfgperl@4497
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl.h b/perl.h
index 372c0a4bd2..acb270e59c 100644
--- a/perl.h
+++ b/perl.h
@@ -904,7 +904,7 @@ Free_t Perl_mfree (Malloc_t where);
typedef IVTYPE IV;
typedef UVTYPE UV;
-#ifdef USE_64_BITS
+#if defined(USE_64_BITS) && defined(HAS_QUAD)
# if QUADCASE == 4 && defined(INT64_MAX) /* quad is int64_t */
# define IV_MAX INT64_MAX
# define IV_MIN INT64_MIN
@@ -943,9 +943,13 @@ typedef UVTYPE UV;
# if IVSIZE == 8
# define IV_IS_QUAD
# define UV_IS_QUAD
+# ifndef HAS_QUAD
+# define HAS_QUAD
+# endif
# else
# undef IV_IS_QUAD
# undef UV_IS_QUAD
+# undef HAS_QUAD
# endif
#endif