diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-29 08:56:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-29 08:56:15 +0000 |
| commit | c5a0f51aeadf6b8a7ed259c017c10b71dbc08619 (patch) | |
| tree | c47d27d20129ef24f03229df5eda2427947be4fb /pp.h | |
| parent | e1341489138a2cd535f7aa4b4d9dde4f07557806 (diff) | |
| download | perl-c5a0f51aeadf6b8a7ed259c017c10b71dbc08619.tar.gz | |
Implement 64-bit vec().
p4raw-id: //depot/cfgperl@4035
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -67,7 +67,7 @@ #define POPul ((unsigned long)SvIVx(POPs)) #ifdef HAS_QUAD #define POPq ((Quad_t)SvIVx(POPs)) -#define POPuq ((Uquad_t)SvIVx(POPs)) +#define POPuq ((Uquad_t)SvUVx(POPs)) #endif #define TOPs (*sp) @@ -77,10 +77,10 @@ #define TOPi ((IV)SvIV(TOPs)) #define TOPu ((UV)SvUV(TOPs)) #define TOPl ((long)SvIV(TOPs)) -#define TOPul ((unsigned long)SvIV(TOPs)) +#define TOPul ((unsigned long)SvUV(TOPs)) #ifdef HAS_QUAD #define TOPq ((Quad_t)SvIV(TOPs)) -#define TOPuq ((Uquad_t)SvIV(TOPs)) +#define TOPuq ((Uquad_t)SvUV(TOPs)) #endif /* Go to some pains in the rare event that we must extend the stack. */ |