diff options
| author | Horst von Brand <vonbrand@sleipnir.valparaiso.cl> | 1998-11-15 17:57:05 -0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-11-18 12:26:50 +0000 |
| commit | e862df63892174c464ca70c47921f99307066a25 (patch) | |
| tree | 73c3a717d1978cdab68f75dfbc6aa7a69c889e5e /perl.h | |
| parent | f8d6f981d8f0a94ca1086ebaba0e57541e43e531 (diff) | |
| download | perl-e862df63892174c464ca70c47921f99307066a25.tar.gz | |
pp.c uses 'unsigned Quad_t'
To: perlbug@perl.com
Message-Id: <199811152357.UAA12768@sleipnir.valparaiso.cl>
p4raw-id: //depot/cfgperl@2250
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -855,6 +855,7 @@ Free_t Perl_free _((Malloc_t where)); #ifndef Quad_t # if LONGSIZE == 8 # define Quad_t long +# define Uquad_t unsigned long # define PERL_QUAD_IS_LONG # endif #endif @@ -862,6 +863,7 @@ Free_t Perl_free _((Malloc_t where)); #ifndef Quad_t # if INTSIZE == 8 # define Quad_t int +# define Uquad_t unsigned int # define PERL_QUAD_IS_INT # endif #endif @@ -870,6 +872,7 @@ Free_t Perl_free _((Malloc_t where)); # ifdef USE_LONG_LONG /* See above note about LP32. --jhi */ # if defined(HAS_LONG_LONG) && LONGLONGSIZE == 8 # define Quad_t long long +# define Uquad_t unsigned long long # define PERL_QUAD_IS_LONG_LONG # endif # endif @@ -886,8 +889,9 @@ Free_t Perl_free _((Malloc_t where)); #ifdef Quad_t # define HAS_QUAD # ifndef Uquad_t - /* Note that if your Quad_t is a typedef you *must* have defined - * also Uquad_t yourself because 'unsigned type' is illegal. */ + /* Note that if your Quad_t is a typedef (not a #define) you *MUST* + * have defined by now Uquad_t yourself because 'unsigned type' + * is illegal. */ # define Uquad_t unsigned Quad_t # endif #endif |