From: Jarkko Hietaniemi Date: Wed, 15 Nov 2000 22:51:56 +0000 (+0000) Subject: UINT64_C() work continues. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69512466eac565d46d842d1928d659aa3c3c249b;p=p5sagit%2Fp5-mst-13.2.git UINT64_C() work continues. p4raw-id: //depot/perl@7700 --- diff --git a/handy.h b/handy.h index ba3a812..b3912a4 100644 --- a/handy.h +++ b/handy.h @@ -114,6 +114,10 @@ Null SV pointer. */ +#ifdef I_INTTYPES /* e.g. Linux has int64_t without */ +# include +#endif + typedef I8TYPE I8; typedef U8TYPE U8; typedef I16TYPE I16; @@ -122,24 +126,25 @@ typedef I32TYPE I32; typedef U32TYPE U32; #ifdef PERL_CORE # ifdef HAS_QUAD -# if QUADKIND == QUAD_IS_INT64_T -# include -# ifdef I_INTTYPES /* e.g. Linux has int64_t without */ -# include -# endif -# endif typedef I64TYPE I64; typedef U64TYPE U64; # endif #endif /* PERL_CORE */ -#ifndef UINT64_C /* usually from */ -# ifdef HAS_LONG_LONG -# define INT64_C(c) CAT2(c,LL) -# define UINT64_C(c) CAT2(c,ULL) -# else -# define INT64_C(c) ((I64TYPE)(c)) -# define UINT64_C(c) ((U64TYPE)(c)) +#if defined(HAS_QUAD) && defined(USE_64_BIT_INT) +# ifndef UINT64_C /* usually from */ +# if defined(HAS_LONG_LONG) && QUADKIND == QUAD_IS_LONG_LONG +# define INT64_C(c) CAT2(c,LL) +# define UINT64_C(c) CAT2(c,ULL) +# else +# if LONGSIZE == 8 && QUADKIND == QUAD_IS_LONG +# define INT64_C(c) CAT2(c,L) +# define UINT64_C(c) CAT2(c,UL) +# else +# define INT64_C(c) ((I64TYPE)(c)) +# define UINT64_C(c) ((U64TYPE)(c)) +# endif +# endif # endif #endif diff --git a/perl.h b/perl.h index 56b25f3..ea46276 100644 --- a/perl.h +++ b/perl.h @@ -1,4 +1,3 @@ -emacs -nw perl.h /* perl.h * * Copyright (c) 1987-2000, Larry Wall diff --git a/utf8.h b/utf8.h index 522f4a9..25ddc14 100644 --- a/utf8.h +++ b/utf8.h @@ -9,8 +9,6 @@ START_EXTERN_C -#include "handy.h" - #ifdef DOINIT EXTCONST unsigned char PL_utf8skip[] = { 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */