diff options
| author | Steve Hay <SteveHay@planit.com> | 2007-03-06 09:20:51 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2007-03-06 09:20:51 +0000 |
| commit | 6c0b8e732f4cf9c020efd23b58905fa8c6fbf52a (patch) | |
| tree | 8920802a5f86c1b743c85d8298e91f6b33da5b74 | |
| parent | 7a7f3e459f22e8eecb8e377ed2a7b207cba1585f (diff) | |
| download | perl-6c0b8e732f4cf9c020efd23b58905fa8c6fbf52a.tar.gz | |
Reinstate part of #28744 that was accidentally reverted in #30454
to suppress a couple of warnings (at least on Win32)
p4raw-id: //depot/perl@30482
| -rw-r--r-- | ext/Math/BigInt/FastCalc/FastCalc.pm | 2 | ||||
| -rw-r--r-- | ext/Math/BigInt/FastCalc/FastCalc.xs | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ext/Math/BigInt/FastCalc/FastCalc.pm b/ext/Math/BigInt/FastCalc/FastCalc.pm index 23b9645580..160a218c3c 100644 --- a/ext/Math/BigInt/FastCalc/FastCalc.pm +++ b/ext/Math/BigInt/FastCalc/FastCalc.pm @@ -11,7 +11,7 @@ use vars qw/@ISA $VERSION $BASE $BASE_LEN/; @ISA = qw(DynaLoader); -$VERSION = '0.12'; +$VERSION = '0.12_01'; bootstrap Math::BigInt::FastCalc $VERSION; diff --git a/ext/Math/BigInt/FastCalc/FastCalc.xs b/ext/Math/BigInt/FastCalc/FastCalc.xs index 152eb0bcd1..3e53876a22 100644 --- a/ext/Math/BigInt/FastCalc/FastCalc.xs +++ b/ext/Math/BigInt/FastCalc/FastCalc.xs @@ -381,15 +381,15 @@ _len(class,x) INIT: AV* a; SV* temp; - NV elems; + IV elems; STRLEN len; CODE: a = (AV*)SvRV(x); /* ref to aray, don't check ref */ - elems = (NV) av_len(a); /* number of elems in array */ + elems = av_len(a); /* number of elems in array */ temp = *av_fetch(a, elems, 0); /* fetch last element */ SvPV(temp, len); /* convert to string & store length */ - len += XS_BASE_LEN * elems; + len += (IV) XS_BASE_LEN * elems; ST(0) = newSViv(len); ############################################################################## |