FFI testers wanted

[Oliver Braun]

It fails on FreeBSD 5.0 current, the "work-in-progress" upcoming major
release (but FreeBSD 5.0 current is a "moving target" at the moment):

> uname -a

FreeBSD 5.0-CURRENT i386

> cc -v

Using built-in specs.
Configured with: FreeBSD/i386 system compiler
Thread model: posix
gcc version 3.1 [FreeBSD] 20020509 (prerelease)

> ld -v

GNU ld version 2.12.0 [FreeBSD] 2002-04-10

> cd hugs98/src/unix
> ./configure --prefix=/tmp/test

ok

> grep DLL ../config.h
#define MKDLL_CMD "gcc -shared"
> grep UNDERSCORE ../config.h
/* #undef LEADING_UNDERSCORE */

> cd ..
> make install_ffi

<snip>
/bin/cp ../docs/*.txt  /tmp/test/share/hugs/docs
/bin/cp ../docs/server.*  /tmp/test/share/hugs/docs
/bin/cp ../Readme  /tmp/test/share/hugs
/bin/cp ../License /tmp/test/share/hugs
/bin/cp ../Credits /tmp/test/share/hugs
./hugs +q -w Storable     +G +L"Storable_aux.c" < /dev/null
__   __ __  __  ____   ___
_________________________________________
||   || ||  || ||  || ||__      Hugs 98: Based on the Haskell 98
standard
||___|| ||__|| ||__||  __||     Copyright (c) 1994-2001
||---||         ___||           World Wide Web: http://haskell.org/hugs
||   ||                         Report bugs to: hugs-bugs@haskell.org
||   || Version: December 2001
_________________________________________

Haskell 98 mode: Restart with command line option -98 to enable
extensions

Type :? for help
Storable> hugs in free(): error: page is already free
[Leaving Hugs]
hugs in free(): error: recursive call
hugs in free(): error: recursive call
hugs in free(): error: recursive call
hugs in free(): error: recursive call
hugs in free(): error: recursive call
hugs in free(): error: recursive call
hugs in free(): error: recursive call
hugs in free(): error: recursive call
[ ... ~10000000 times ]

BTW, hugs December 2001 release builds and works on this machine.

Regards,
         Olli
-- 
IST & IIS _ INF _ UniBwM ___________ http://ist.unibw-muenchen.de/People/obraun/
Tele-Consulting GmbH _______________ http://www.tele-consulting.com/ ___ obraun@
FreeBSD: The Power To Serve ________ http://www.freebsd.org/ ___________________