diff options
| author | Horst von Brand <vonbrand@sleipnir.valparaiso.cl> | 1998-11-15 17:57:05 -0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-11-18 12:26:50 +0000 |
| commit | e862df63892174c464ca70c47921f99307066a25 (patch) | |
| tree | 73c3a717d1978cdab68f75dfbc6aa7a69c889e5e /pp.c | |
| parent | f8d6f981d8f0a94ca1086ebaba0e57541e43e531 (diff) | |
| download | perl-e862df63892174c464ca70c47921f99307066a25.tar.gz | |
pp.c uses 'unsigned Quad_t'
To: perlbug@perl.com
Message-Id: <199811152357.UAA12768@sleipnir.valparaiso.cl>
p4raw-id: //depot/cfgperl@2250
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -3203,7 +3203,7 @@ PP(pp_unpack) unsigned int auint; U32 aulong; #ifdef HAS_QUAD - unsigned Quad_t auquad; + Uquad_t auquad; #endif char *aptr; float afloat; @@ -3760,11 +3760,11 @@ PP(pp_unpack) EXTEND(SP, len); EXTEND_MORTAL(len); while (len-- > 0) { - if (s + sizeof(unsigned Quad_t) > strend) + if (s + sizeof(Uquad_t) > strend) auquad = 0; else { - Copy(s, &auquad, 1, unsigned Quad_t); - s += sizeof(unsigned Quad_t); + Copy(s, &auquad, 1, Uquad_t); + s += sizeof(Uquad_t); } sv = NEWSV(43, 0); if (auquad <= UV_MAX) @@ -4051,7 +4051,7 @@ PP(pp_pack) U32 aulong; #ifdef HAS_QUAD Quad_t aquad; - unsigned Quad_t auquad; + Uquad_t auquad; #endif char *aptr; float afloat; @@ -4438,8 +4438,8 @@ PP(pp_pack) case 'Q': while (len-- > 0) { fromstr = NEXTFROM; - auquad = (unsigned Quad_t)SvIV(fromstr); - sv_catpvn(cat, (char*)&auquad, sizeof(unsigned Quad_t)); + auquad = (Uquad_t)SvIV(fromstr); + sv_catpvn(cat, (char*)&auquad, sizeof(Uquad_t)); } break; case 'q': |