diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-11 23:17:43 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-11 23:17:43 +0000 |
| commit | 6b8eaf932222db04db65aff99717b9c1dbd0a692 (patch) | |
| tree | e3c8fcc891d8978d35f507c9ed8927f49653fa72 /pp.c | |
| parent | 9f2f8d047dcc7d10b832be2cce8b61f4353e10c6 (diff) | |
| download | perl-6b8eaf932222db04db65aff99717b9c1dbd0a692.tar.gz | |
Turn on largefileness always if available and
continue 64-bit fixes.
p4raw-id: //depot/cfgperl@4552
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -3254,13 +3254,13 @@ PP(pp_unpack) I16 ashort; int aint; I32 along; -#ifdef Quad_t +#ifdef HAS_QUAD Quad_t aquad; #endif U16 aushort; unsigned int auint; U32 aulong; -#ifdef Quad_t +#ifdef HAS_QUAD Uquad_t auquad; #endif char *aptr; @@ -4018,7 +4018,7 @@ PP(pp_unpack) sv_setpvn(sv, aptr, len); PUSHs(sv_2mortal(sv)); break; -#ifdef Quad_t +#ifdef HAS_QUAD case 'q': along = (strend - s) / sizeof(Quad_t); if (len > along) @@ -4336,7 +4336,7 @@ PP(pp_pack) unsigned int auint; I32 along; U32 aulong; -#ifdef Quad_t +#ifdef HAS_QUAD Quad_t aquad; Uquad_t auquad; #endif @@ -4828,7 +4828,7 @@ PP(pp_pack) } } break; -#ifdef Quad_t +#ifdef HAS_QUAD case 'Q': while (len-- > 0) { fromstr = NEXTFROM; |