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/ ___________________