diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-18 11:03:32 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-18 11:03:32 +0000 |
| commit | 579de012b31c51e885b06b54d62f0b1ebd2f0b18 (patch) | |
| tree | 0b7e9a81a122e7a917f47b847b64ed101ac7f3b9 /pp.c | |
| parent | 7069680d55e92ff6b4f98340129a4802e90c6fb9 (diff) | |
| parent | 355cf289892437cde1db03ad0bdddab5c4218746 (diff) | |
| download | perl-579de012b31c51e885b06b54d62f0b1ebd2f0b18.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@7735
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -3936,7 +3936,6 @@ PP(pp_unpack) if (checksum) { #if LONGSIZE != SIZE32 if (natint) { - long along; while (len-- > 0) { COPYNN(s, &along, sizeof(long)); s += sizeof(long); @@ -3950,6 +3949,9 @@ PP(pp_unpack) #endif { while (len-- > 0) { +#if LONGSIZE > SIZE32 && INTSIZE == SIZE32 + I32 along; +#endif COPY32(s, &along); #if LONGSIZE > SIZE32 if (along > 2147483647) @@ -3968,7 +3970,6 @@ PP(pp_unpack) EXTEND_MORTAL(len); #if LONGSIZE != SIZE32 if (natint) { - long along; while (len-- > 0) { COPYNN(s, &along, sizeof(long)); s += sizeof(long); @@ -3981,6 +3982,9 @@ PP(pp_unpack) #endif { while (len-- > 0) { +#if LONGSIZE > SIZE32 && INTSIZE == SIZE32 + I32 along; +#endif COPY32(s, &along); #if LONGSIZE > SIZE32 if (along > 2147483647) |