diff options
| author | Robin Barker <RMBarker@cpan.org> | 2000-09-14 19:07:38 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-14 17:45:35 +0000 |
| commit | d2560b705d852dbc96fd94b95faaa076758b7a8c (patch) | |
| tree | 801efa93c2b2e08931c3a2f8355b8fb9d8c62395 /perl.h | |
| parent | 183a2d84c1f59ccc4c14106315b4806f773a1203 (diff) | |
| download | perl-d2560b705d852dbc96fd94b95faaa076758b7a8c.tar.gz | |
continued -Wformat support
Message-Id: <200009141707.SAA13276@tempest.npl.co.uk>
p4raw-id: //depot/perl@7081
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 23 |
1 files changed, 22 insertions, 1 deletions
@@ -1079,6 +1079,11 @@ typedef UVTYPE UV; #define PTR2IV(p) INT2PTR(IV,p) #define PTR2UV(p) INT2PTR(UV,p) #define PTR2NV(p) NUM2PTR(NV,p) +#if PTRSIZE == LONGSIZE +# define PTR2ul(p) (unsigned long)(p) +#else +# define PTR2ul(p) INT2PTR(unsigned long,p) +#endif #ifdef USE_LONG_DOUBLE # if !(defined(HAS_LONG_DOUBLE) && (LONG_DOUBLESIZE > DOUBLESIZE)) @@ -1813,9 +1818,25 @@ typedef pthread_key_t perl_key; # endif #endif +#ifndef UVf +# ifdef CHECK_FORMAT +# define UVf UVuf +# else +# define UVf "Vu" +# endif +#endif + +#ifndef VDf +# ifdef CHECK_FORMAT +# define VDf "p" +# else +# define VDf "vd" +# endif +#endif + /* Some unistd.h's give a prototype for pause() even though HAS_PAUSE ends up undefined. This causes the #define - below to be rejected by the compmiler. Sigh. + below to be rejected by the compiler. Sigh. */ #ifdef HAS_PAUSE #define Pause pause |