diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-04-29 18:29:28 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-04-29 18:29:28 +0000 |
| commit | 25a9bd2a66ab90bebdf152f1b70a957b5876ed63 (patch) | |
| tree | 24d08cf313805811b5be03ab3d061aadc32b685a | |
| parent | 8bbf3450a1ff0a3996dade29a4194cc0939d871f (diff) | |
| download | perl-25a9bd2a66ab90bebdf152f1b70a957b5876ed63.tar.gz | |
More unpack cleanups.
p4raw-id: //depot/perl@22754
| -rw-r--r-- | pp_pack.c | 32 |
1 files changed, 13 insertions, 19 deletions
@@ -1425,20 +1425,17 @@ S_unpack_rec(pTHX_ register tempsym_t* symptr, register char *s, char *strbeg, c len = along; if (checksum) { while (len-- > 0) { -#if LONGSIZE > SIZE32 && INTSIZE == SIZE32 - I32 along; -#endif - COPY32(s, &along); - DO_BO_UNPACK(along, 32); -#if LONGSIZE > SIZE32 - if (along > 2147483647) - along -= 4294967296; + COPY32(s, &ai32); + DO_BO_UNPACK(ai32, 32); +#if U32SIZE > SIZE32 + if (ai32 > 2147483647) + ai32 -= 4294967296; #endif s += SIZE32; if (checksum > bits_in_uv) - cdouble += (NV)along; + cdouble += (NV)ai32; else - cuv += along; + cuv += ai32; } } else { @@ -1447,18 +1444,15 @@ S_unpack_rec(pTHX_ register tempsym_t* symptr, register char *s, char *strbeg, c EXTEND(SP, len); EXTEND_MORTAL(len); while (len-- > 0) { -#if LONGSIZE > SIZE32 && INTSIZE == SIZE32 - I32 along; -#endif - COPY32(s, &along); - DO_BO_UNPACK(along, 32); -#if LONGSIZE > SIZE32 - if (along > 2147483647) - along -= 4294967296; + COPY32(s, &ai32); + DO_BO_UNPACK(ai32, 32); +#if U32SIZE > SIZE32 + if (ai32 > 2147483647) + ai32 -= 4294967296; #endif s += SIZE32; sv = NEWSV(42, 0); - sv_setiv(sv, (IV)along); + sv_setiv(sv, (IV)ai32); PUSHs(sv_2mortal(sv)); } } |