Front page | perl.perl5.porters |
Postings from August 2003
I can give you ssh access to this/my host/lan if you want. You will find
a sparc linux on Debian too :-)
http://62.212.98.196:8080/mrtg/
> Mmmm. That arithmetic has gone very wrong. What happens if you run this
> with your blead?
>
> use Devel::Peek;
> use strict;
>
> foreach my $len (@ARGV) {
> print "Length $len:\n";
> my $a = $len - 1;
> Dump $a;
> my $b = 2 ** $a;
> Dump $b;
> my $c = int $b;
> Dump $b;
> Dump $c;
> my $d = $c - 1;
> Dump $d;
> my $e = 2 * $d;
> Dump $e;
> my $max = 1 + $e;
> Dump $max;
>
> my $max_p1 = $max + 1;
>
> Dump $max;
> Dump $max_p1;
> }
> __END__
centaure:~/soft/perl-current$ ./perl -Ilib -Iext ~/sparcmax2.pl 53
Length 53:
SV = IV(0x14ecf8) at 0x14e934
REFCNT = 1
FLAGS = (PADMY,IOK,pIOK)
IV = 52
SV = PVNV(0x174e00) at 0x14ea00
REFCNT = 1
FLAGS = (PADMY,NOK,pIOK,pNOK,IsUV)
UV = 4294967295
NV = 4.5035996273705e+15
PV = 0
SV = PVNV(0x174e00) at 0x14ea00
REFCNT = 1
FLAGS = (PADMY,NOK,pIOK,pNOK,IsUV)
UV = 4294967295
NV = 4.5035996273705e+15
PV = 0
SV = NV(0x157818) at 0x1832c0
REFCNT = 1
FLAGS = (PADMY,NOK,pNOK)
NV = 0.5
SV = NV(0x157820) at 0x14ea78
REFCNT = 1
FLAGS = (PADMY,NOK,pNOK)
NV = -0.5
SV = NV(0x157828) at 0x185224
REFCNT = 1
FLAGS = (PADMY,NOK,pNOK)
NV = -1
SV = IV(0x14ecd0) at 0x185260
REFCNT = 1
FLAGS = (PADMY,IOK,pIOK)
IV = 0
SV = IV(0x14ecd0) at 0x185260
REFCNT = 1
FLAGS = (PADMY,IOK,pIOK)
IV = 0
SV = IV(0x14ed10) at 0x18529c
REFCNT = 1
FLAGS = (PADMY,IOK,pIOK)
IV = 1
Thread Previous
|
Thread Next