I was just trawling through the perl5.001m pp.c having responded to a
post, and saw:
case 'L':
while (len-- > 0) {
fromstr = NEXTFROM;
aulong = U_L(SvNV(fromstr));
sv_catpvn(cat, (char*)&aulong, sizeof(U32));
}
break;
case 'l':
while (len-- > 0) {
fromstr = NEXTFROM;
along = SvIV(fromstr);
sv_catpvn(cat, (char*)&along, sizeof(I32));
}
break;
around line 3200...
Does this mean that perl5 thinks longs are 32 bits regardless of the
"real" size of a long (which is 64 bits on "my" alpha)?
Would it be easy to fix?
Mike
--
Mike Stok | The "`Stok' disclaimers" apply.
stok@pencom.com | Pencom Systems Administration (work)
stok@cybercom.net | Cyber Access (play)
http://www.cybercom.net/~stok/ | The inevitable WWW page (?)
post, and saw:
case 'L':
while (len-- > 0) {
fromstr = NEXTFROM;
aulong = U_L(SvNV(fromstr));
sv_catpvn(cat, (char*)&aulong, sizeof(U32));
}
break;
case 'l':
while (len-- > 0) {
fromstr = NEXTFROM;
along = SvIV(fromstr);
sv_catpvn(cat, (char*)&along, sizeof(I32));
}
break;
around line 3200...
Does this mean that perl5 thinks longs are 32 bits regardless of the
"real" size of a long (which is 64 bits on "my" alpha)?
Would it be easy to fix?
Mike
--
Mike Stok | The "`Stok' disclaimers" apply.
stok@pencom.com | Pencom Systems Administration (work)
stok@cybercom.net | Cyber Access (play)
http://www.cybercom.net/~stok/ | The inevitable WWW page (?)