Re: [Chicken-users] Updated eggs

[Alex Shinn]

At Wed, 12 Oct 2005 08:23:07 +0200, felix winkelmann wrote:
> 
> The code for big_random looks ok, could this be related
> to expt? (does the error also appear when expt is not involved?)

OK, this is just odd.

$ csi -R numbers -eval '(print (bitwise-and (random 18446744073709551616) 
18446744073709551616))'
0
$ csi -R numbers -eval '(print (bitwise-and (random 18446744073709551616) (- 
18446744073709551616 1)))'
1418227916859036949
*** glibc detected *** double free or corruption (fasttop): 0x080a7a70 ***
$ csi -R numbers -eval '(print (bitwise-and 18446744073709551616 (- 
18446744073709551616 1)))'
0
*** glibc detected *** double free or corruption (fasttop): 0x080a7a70 ***

The error doesn't occur until you quit.  It's also related to
bitwise-and and -, not random or expt.  In general:

  (bitwise-and bignum (- bignum fixum))

causes the error, but

  (bitwise-and (- bignum fixum) bignum)
  (bitwise-and bignum (- bignum bignum))

do not.

-- 
Alex

> On 10/12/05, Alex Shinn <address@hidden> wrote:
> > At Wed, 12 Oct 2005 07:35:36 +0200, felix winkelmann wrote:
> > >
> > > Hm... Works fine on this machine. I'll try it on another tonight.
> > >
> > > Can someone else reproduce this problem?
> >
> > I can:
> >
> > $ csi -R numbers -eval '(bitwise-and (random (expt 2 64)) (- (expt 2 64) 
> > 1))'
> > *** glibc detected *** double free or corruption (fasttop): 0x080a7c08 ***
> > Aborted
> >
> > $ csi -v|grep Version
> > Version 2, Build 2 - linux-unix-gnu-x86 - [ dload ]
> >
> > $ uname -a
> > Linux strelka 2.6.6 #5 SMP Wed Jun 30 18:38:16 JST 2004 i686 GNU/Linux
> >
> > GMP version 4.1.4-6.
> >
> > --
> > Alex
> >
>