This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add 5th QUAD type for win32
authorH.Merijn Brand <merijn@lx09.procura.nl>
Thu, 1 Sep 2011 13:54:55 +0000 (15:54 +0200)
committerH.Merijn Brand <merijn@lx09.procura.nl>
Thu, 1 Sep 2011 13:54:55 +0000 (15:54 +0200)
Backported from 83ff24d4e9

U/a_dvisory/quadtype.U

index 4fda760..94812d8 100644 (file)
@@ -29,7 +29,8 @@
 ?C:HAS_QUAD:
 ?C:    This symbol, if defined, tells that there's a 64-bit integer type,
 ?C:    Quad_t, and its unsigned counterpart, Uquad_t. QUADKIND will be one
 ?C:HAS_QUAD:
 ?C:    This symbol, if defined, tells that there's a 64-bit integer type,
 ?C:    Quad_t, and its unsigned counterpart, Uquad_t. QUADKIND will be one
-?C:    of QUAD_IS_INT, QUAD_IS_LONG, QUAD_IS_LONG_LONG, or QUAD_IS_INT64_T.
+?C:    of QUAD_IS_INT, QUAD_IS_LONG, QUAD_IS_LONG_LONG, QUAD_IS_INT64_T,
+?C:    or QUAD_IS___INT64.
 ?C:.
 ?H:#$d_quad HAS_QUAD   /**/
 ?H:?%<:#ifdef HAS_QUAD
 ?C:.
 ?H:#$d_quad HAS_QUAD   /**/
 ?H:?%<:#ifdef HAS_QUAD
@@ -40,6 +41,7 @@
 ?H:?%<:#   define QUAD_IS_LONG 2
 ?H:?%<:#   define QUAD_IS_LONG_LONG    3
 ?H:?%<:#   define QUAD_IS_INT64_T      4
 ?H:?%<:#   define QUAD_IS_LONG 2
 ?H:?%<:#   define QUAD_IS_LONG_LONG    3
 ?H:?%<:#   define QUAD_IS_INT64_T      4
+?H:?%<:#   define QUAD_IS___INT64      5
 ?H:?%<:#endif
 ?H:.
 ?LINT:set quadtype
 ?H:?%<:#endif
 ?H:.
 ?LINT:set quadtype