February 2007 - Hugs-Bugs

[Hugs] #51: The WinHugs uninstaller.exe doesn't work!
by Hugs 29 Mar '07

29 Mar '07

#51: The WinHugs uninstaller.exe doesn't work! -----------------------------+---------------------------------------------- Reporter: guest | Owner: neil Type: defect | Status: new Priority: major | Milestone: Component: winhugs | Version: current Keywords: setup uninstall | -----------------------------+---------------------------------------------- Hi guys! I was trying to uninstall WinHugs in order to install a newer version, and I found that the uninstaller.exe program doesn't work. I opened the uninstaller.exe with a hex editor, and I found that it's not a valid executable file. It's some weird combination of HTML and executable code. These are the first 15 lines of the uninstaller.exe file: {{{ <html> <head> <META HTTP-EQUIV="Content-Type" content="text/html; charset=Windows-1252"> </head> <body> <pre> <table width=100% bgcolor=#CFCFE5><tr> <td> <font face=arial size=+3> Build Log </font></table><table width=* cellspacing=0 cellpadding=0><tr><td width=0 bgcolor=#EDEDF5> </td><td width=0 bgcolor=#FFFFFF> </td><td width=*><pre> <h3>------- Build started: Project: Uninstaller, Configuration: Release|Win32 ------- </h3> </pre></table><table width=100% bgcolor=#DFDFE5><tr><td><font face=arial size=+2> Command Lines </font></table><table width=* cellspacing=0 cellpadding=0><tr><td width=0 bgcolor=#EDEDF5> </td><td width=0 bgcolor=#FFFFFF> </td><td width=*><pre>Uninstaller - up-to-date.</pre></table><table width=100% height=20 bgcolor=#CFCFE5><tr><td><font face=arial size=+2> </font></table></body></html> }}} I hope this is not difficult to fix. Greetings, -- L e a n d r o < c a f e s o l o [at] g m a i l [dot] c o m > -- Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/51> Hugs <http://www.haskell.org/hugs/> Hugs 98, an interpreter for Haskell

1 4

[Hugs] #31: Cnfigure script of Hugs98-May2006 source build doesn't check for useable sgml-tools installation
by Hugs 26 Mar '07

26 Mar '07

#31: Cnfigure script of Hugs98-May2006 source build doesn't check for useable sgml-tools installation --------------------+------------------------------------------------------- Reporter: guest | Owner: nobody Type: defect | Status: new Priority: minor | Milestone: Component: hugs | Version: 200605 Keywords: | --------------------+------------------------------------------------------- I've been unable completely to build and install Hugs98 May2006 on Slackware Linux 10.1, thus: $ tar xvfz hugs98-plus-May2006.tar.gz $ cd hugs98-plus-May2006 $ ./configure --prefix=/usr/local/pkg/hugs98-plus.May2006 $ make because of the following build errors: ... mkdir users_guide /bin/cp hugs-ug.css users_guide /bin/cp winhugs.png users_guide test -z 'docbook2html' || \ docbook2html --dsl hugs-ug.dsl users_guide.sgml Using catalogs: /etc/sgml/catalog Using stylesheet: /local/d0p6/john/hugs98-plus-May2006/docs/users_guide /hugs-ug.dsl Working on: /local/d0p6/john/hugs98-plus- May2006/docs/users_guide/users_guide.sgml jade:/local/d0p6/john/hugs98-plus- May2006/docs/users_guide/users_guide.sgml:14:0:E: URL not supported by this version jade:/local/d0p6/john/hugs98-plus- May2006/docs/users_guide/users_guide.sgml:14:0:E: DTD did not contain element declaration for document type name jade:/local/d0p6/john/hugs98-plus- May2006/docs/users_guide/users_guide.sgml:15:9:E: there is no attribute "ID" jade:/local/d0p6/john/hugs98-plus- May2006/docs/users_guide/users_guide.sgml:15:22:E: element "BOOK" undefined jade:/local/d0p6/john/hugs98-plus- May2006/docs/users_guide/users_guide.sgml:16:9:E: element "BOOKINFO" undefined ... docbook2html comes from package sgml-tools, for which we have version 1.0.9. Shouldn't the hugs98 configure script check that the available versions of docbook2html and the commands that uses in turn are suitable (a sufficiently late version) to complete the Hugs98 build? For the minute, I'll just disable the build of the documentation, but this is disappointing. John A. Murdie (john(a)cs.york.ac.uk) Department of Computer Science University of York -- Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/31> Hugs <http://www.haskell.org/hugs/> Hugs 98, an interpreter for Haskell

3 6

[Hugs] #32: Compile of hugs98-plus-May2006.tar.gz fails on SPARC Solaris 8
by Hugs 21 Mar '07

21 Mar '07

#32: Compile of hugs98-plus-May2006.tar.gz fails on SPARC Solaris 8 --------------------+------------------------------------------------------- Reporter: guest | Owner: nobody Type: defect | Status: new Priority: major | Milestone: Component: hugs | Version: 200605 Keywords: | --------------------+------------------------------------------------------- My machine: {{{ straumli> uname -a SunOS straumli 5.8 Generic_117350-28 sun4u sparc SUNW,Sun-Blade-100 straumli> }}} After configuring (WTF is up with that "ultra-evil" comment anyway?), I compile, and get: {{{ straumli> make cd src; make all make[1]: Entering directory `/users/stremler/Work/Haskell/hugs98-plus- May2006/src' gcc -c -DNDEBUG=1 -g -O2 hugs.c gcc -c -DNDEBUG=1 -g -O2 edit.c gcc -c -DNDEBUG=1 -g -O2 observe.c gcc -c -DNDEBUG=1 -g -O2 builtin.c builtin.c: In function `mkThunk': builtin.c:2151: error: `pc' undeclared (first use in this function) builtin.c:2151: error: (Each undeclared identifier is reported only once builtin.c:2151: error: for each function it appears in.) make[1]: *** [builtin.o] Error 1 make[1]: Leaving directory `/users/stremler/Work/Haskell/hugs98-plus- May2006/src' make: *** [all] Error 2 straumli> }}} I eventually got it to compile: {{{ straumli> diff hugs98-plus-May2006/src/builtin.c hugs98-plus-May2006- modified/src/builtin.c 2151c2151,2152 < unsigned long *adj_code = (unsigned long *)pc; --- > /*unsigned long *adj_code = (unsigned long *)pc;*/ > unsigned long *adj_code = (unsigned long *)thunk->code; straumli> }}} Dunno if that's the _right_ fix. But it seems to work enough for HelloWorld.hs... hugs98-May06-bugreport (at) stremler (dot) net -- Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/32> Hugs <http://www.haskell.org/hugs/> Hugs 98, an interpreter for Haskell

1 2

[Hugs] #27: error building from src of May2006 version on Solaris 9 on SPARC
by Hugs 21 Mar '07

21 Mar '07

#27: error building from src of May2006 version on Solaris 9 on SPARC --------------------------------+------------------------------------------- Reporter: jhudson(a)dminfo.com | Owner: nobody Type: defect | Status: new Priority: minor | Milestone: Component: hugs | Version: 200605 Keywords: | --------------------------------+------------------------------------------- *** Error from Make *** gcc -c -DNDEBUG=1 -g -O2 builtin.c builtin.c: In function `mkThunk': builtin.c:2151: error: `pc' undeclared (first use in this function) builtin.c:2151: error: (Each undeclared identifier is reported only once builtin.c:2151: error: for each function it appears in.) make[1]: *** [builtin.o] Error 1 *** First 200 lines from "config.log" *** This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by Hugs98 configure 1.0, which was generated by GNU Autoconf 2.59. Invocation command line was $ ./configure --prefix=/h1/users/joe/Play/Haskell/hugs98-plus-May2006 ## --------- ## ## Platform. ## ## --------- ## hostname = taurus uname -m = sun4u uname -r = 5.9 uname -s = SunOS uname -v = Generic_117171-07 /usr/bin/uname -p = sparc /bin/uname -X = System = SunOS Node = taurus Release = 5.9 KernelID = Generic_117171-07 Machine = sun4u BusType = <unknown> Serial = <unknown> Users = <unknown> OEM# = 0 Origin# = 1 NumCPU = 1 /bin/arch = sun4 /usr/bin/arch -k = sun4u /usr/convex/getsysinfo = unknown hostinfo = unknown /bin/machine = unknown /usr/bin/oslevel = unknown /bin/universe = unknown PATH: /h1/DEV/Lisp/cmucl-19a/binary/bin PATH: /usr/perl5/bin PATH: . PATH: /mnt/flash/h1/users/joe/DEV PATH: /h1/users/joe/bin PATH: /usr/local/bin PATH: /usr/bin PATH: /usr/ucb PATH: /etc PATH: /usr/local/lib PATH: /usr/local/DM/bin PATH: /usr/local/DM/esi_bin PATH: /users/bdc PATH: /usr/local/samba/bin PATH: /usr/local/pgsql/bin PATH: /u3/Tcl/bin PATH: /usr/ccs/bin ## ----------- ## ## Core tests. ## ## ----------- ## configure:1383: checking build system type configure:1401: result: sparc-sun-solaris2.9 configure:1409: checking host system type configure:1423: result: sparc-sun-solaris2.9 configure:1431: checking target system type configure:1445: result: sparc-sun-solaris2.9 configure:1674: checking for bison configure:1703: result: no configure:1674: checking for byacc configure:1703: result: no configure:1768: checking for gcc configure:1784: found /usr/local/bin/gcc configure:1794: result: gcc configure:2038: checking for C compiler version configure:2041: gcc --version </dev/null >&5 gcc (GCC) 3.4.2 Copyright (C) 2004 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. configure:2044: $? = 0 configure:2046: gcc -v </dev/null >&5 Reading specs from /usr/local/lib/gcc/sparc-sun-solaris2.9/3.4.2/specs Configured with: ../configure --with-as=/usr/ccs/bin/as --with- ld=/usr/ccs/bin/ld --disable-nls --disable-libgcj --enable-languages=c,c+ : (reconfigured) ../configure --with-as=/usr/ccs/bin/as --with- ld=/usr/ccs/bin/ld --disable-nls --disable-libgcj --enable-languages=c,c++ Thread model: posix gcc version 3.4.2 configure:2049: $? = 0 configure:2051: gcc -V </dev/null >&5 gcc: `-V' option must have argument configure:2054: $? = 1 configure:2077: checking for C compiler default output file name configure:2080: gcc -g conftest.c >&5 configure:2083: $? = 0 configure:2129: result: a.out configure:2134: checking whether the C compiler works configure:2140: ./a.out configure:2143: $? = 0 configure:2160: result: yes configure:2167: checking whether we are cross compiling configure:2169: result: no configure:2172: checking for suffix of executables configure:2174: gcc -o conftest -g conftest.c >&5 configure:2177: $? = 0 configure:2202: result: configure:2208: checking for suffix of object files configure:2229: gcc -c -g conftest.c >&5 configure:2232: $? = 0 configure:2254: result: o configure:2258: checking whether we are using the GNU C compiler configure:2282: gcc -c -g conftest.c >&5 configure:2288: $? = 0 configure:2291: test -z || test ! -s conftest.err configure:2294: $? = 0 configure:2297: test -s conftest.o configure:2300: $? = 0 configure:2313: result: yes configure:2319: checking whether gcc accepts -g configure:2340: gcc -c -g conftest.c >&5 configure:2346: $? = 0 configure:2349: test -z || test ! -s conftest.err configure:2352: $? = 0 configure:2355: test -s conftest.o configure:2358: $? = 0 configure:2369: result: yes configure:2386: checking for gcc option to accept ANSI C configure:2456: gcc -c -g conftest.c >&5 configure:2462: $? = 0 configure:2465: test -z || test ! -s conftest.err configure:2468: $? = 0 configure:2471: test -s conftest.o configure:2474: $? = 0 configure:2492: result: none needed configure:2510: gcc -c -g conftest.c >&5 conftest.c:2: error: parse error before "me" configure:2516: $? = 1 configure: failed program was: | #ifndef __cplusplus | choke me | #endif configure:2652: checking how to run the C preprocessor configure:2687: gcc -E conftest.c configure:2693: $? = 0 configure:2725: gcc -E conftest.c conftest.c:9:28: ac_nonexistent.h: No such file or directory configure:2731: $? = 1 configure: failed program was: | /* confdefs.h. */ | | #define PACKAGE_NAME "Hugs98" | #define PACKAGE_TARNAME "hugs98" | #define PACKAGE_VERSION "1.0" | #define PACKAGE_STRING "Hugs98 1.0" | #define PACKAGE_BUGREPORT "hugs-bugs(a)haskell.org" | /* end confdefs.h. */ | #include <ac_nonexistent.h> configure:2770: result: gcc -E configure:2794: gcc -E conftest.c configure:2800: $? = 0 configure:2832: gcc -E conftest.c conftest.c:9:28: ac_nonexistent.h: No such file or directory configure:2838: $? = 1 configure: failed program was: | /* confdefs.h. */ | | #define PACKAGE_NAME "Hugs98" | #define PACKAGE_TARNAME "hugs98" | #define PACKAGE_VERSION "1.0" | #define PACKAGE_STRING "Hugs98 1.0" | #define PACKAGE_BUGREPORT "hugs-bugs(a)haskell.org" | /* end confdefs.h. */ | #include <ac_nonexistent.h> configure:2882: checking for egrep configure:2892: result: grep -E configure:2898: checking whether gcc needs -traditional configure:2940: result: no configure:3463: checking for rm configure:3481: found /usr/local/bin/rm configure:3493: result: /usr/local/bin/rm configure:3503: checking for cp configure:3521: found /usr/local/bin/cp configure:3533: result: /usr/local/bin/cp configure:3544: checking for ld configure:3560: found /usr/ucb/ld configure:3570: result: ld configure:3582: checking for perl configure:3598: found /usr/perl5/bin/perl configure:3608: result: perl configure:3617: checking whether make sets $(MAKE) configure:3637: result: yes configure:3648: checking for hp2ps configure:3675: result: 0 configure:3693: checking for docbook2html configure:3722: result: no configure:3693: checking for db2html configure:3722: result: no configure:3733: checking for docbook2dvi configure:3762: result: no configure:3733: checking for db2dvi -- Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/27> Hugs <http://www.haskell.org/hugs/> Hugs 98, an interpreter for Haskell

1 4

[Hugs] #30: Windows and Hugs, fails to complete build of base
by Hugs 21 Mar '07

21 Mar '07

#30: Windows and Hugs, fails to complete build of base ---------------------+------------------------------------------------------ Reporter: neil | Owner: nobody Type: defect | Status: new Priority: blocker | Milestone: next release Component: hugs | Version: 200605 Keywords: | ---------------------+------------------------------------------------------ Under Windows/Mingw32, building hugs and the base package gives the following issue: ..\..\src\ffihugs -98 -P..\..\hugsdir\packages\base; -i"HsBase.h" ..\..\hugsdir\packages\base\System\Process\Internals.hs -Iinclude -I..\..\ghc\includes cbits\execvpe.c Skipping base package This bug is probably related to: > ERROR "C:\Program > Files\WinHugs\packages\base\System\Process\Internals.hs":747 - > Undefined variable "addMVarFinalizer" Ross says: Hmm, it uses addMVarFinalizer under Windows, and Hugs doesn't have that. Have to think about that one. This build failure causes the Regex module not to be built, since it comes after in the list of builds. -- Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/30> Hugs <http://www.haskell.org/hugs/> Hugs 98, an interpreter for Haskell

1 3

[Hugs] #43: WinHugs installer does not provide "Install for All Users" option
by Hugs 21 Mar '07

21 Mar '07

#43: WinHugs installer does not provide "Install for All Users" option ------------------------+--------------------------------------------------- Reporter: briansmith | Owner: neil Type: defect | Status: new Priority: major | Milestone: Component: winhugs | Version: 200609 Keywords: | ------------------------+--------------------------------------------------- The WinHugs installer does not provide an "Install for All Users" option. If the user is logged in with a limited account (which is the recommended practice in Windows), they will have to use the "Run as" command to run WinHugs as an administrator. But, the installer will then install the shortcuts to WinHugs in the Administrator account's Startup menu, but not any other users'. -- Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/43> Hugs <http://www.haskell.org/hugs/> Hugs 98, an interpreter for Haskell

1 3

[Hugs] #50: Disparity between GHCi and Hugs: Outstanding context : Show b
by Hugs 21 Mar '07

21 Mar '07

#50: Disparity between GHCi and Hugs: Outstanding context : Show b -----------------------------------+---------------------------------------- Reporter: guest | Owner: nobody Type: defect | Status: new Priority: minor | Milestone: next release Component: hugs | Version: 200503 Keywords: top level overloading | -----------------------------------+---------------------------------------- Possibly Hugs bug, or possible GHCi feature? {{{ showln = (++ "\n") . show main = interact (showln . length) }}} In GHCi: {{{ $ ghci Z.hs *Main> :t showln showln :: Int -> [Char] }}} In Hugs (Version: March 2005): {{{ ERROR "Z.hs":1 - Unresolved top-level overloading *** Binding : showln *** Outstanding context : Show b }}} I'm not sure which is right. -- Don -- Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/50> Hugs <http://www.haskell.org/hugs/> Hugs 98, an interpreter for Haskell

1 2

[Hugs] #35: WinHugs: foreground/background colours not from Windows
by Hugs 21 Mar '07

21 Mar '07

#35: WinHugs: foreground/background colours not from Windows ---------------------+------------------------------------------------------ Reporter: neil | Owner: neil Type: defect | Status: new Priority: minor | Milestone: Component: winhugs | Version: 200605 Keywords: | ---------------------+------------------------------------------------------ I just started using the new WinHugs GUI you developed and maintain, and I have a small issue with its appearance. I usually try to tone down all bright colors on the desktop, and hence the default window background color on my machines are not white but some shade of light gray. The issue is then that text portions seem to always have a white background while the rest of the WinHugs window conforms to the global color setting. I attach a window-shot for illustration. I suggest that it would be much nicer if the global background color setting was honored by the written text portion as well. --- Good point! The issue is to do with escape character, you can programatically change the background color of the text by outputting some magic, and this means that by default the background gets "forced" to white, rather than getting its default setting. I think the solution is to interpret white = the users background colour, black = the users foreground colour, and honour all other colours. I'll hack that up in the next few days and the next release should have this fixed. -- Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/35> Hugs <http://www.haskell.org/hugs/> Hugs 98, an interpreter for Haskell

1 2

[Hugs] #52: [PATCHES] port hugs98-Sep2006 to AIX 4.3.3, AIX 5.2, HPUX 11.0, SUNOS 5.9
by Hugs 21 Mar '07

21 Mar '07

#52: [PATCHES] port hugs98-Sep2006 to AIX 4.3.3, AIX 5.2, HPUX 11.0, SUNOS 5.9 -------------------------+-------------------------------------------------- Reporter: guest | Owner: nobody Type: enhancement | Status: new Priority: major | Milestone: Component: hugs | Version: 200609 Keywords: port | -------------------------+-------------------------------------------------- Sorry if this is a duplicate. I sent it to hugs-bugs(a)haskell.org but it just seems to have disappeared into the ether. Here is a shell script that I used to build the Sep 2006 release for: AIX 4.3.3 (IBM 5.0.2.0 compiler) AIX 5.2 (IBM 6.0.0.7 compiler) HPUX 11.0 (A.11.00.13 compiler) Redhat 9 x86 Redhat AS 4 x86 (CentOS actually) Solaris 9 (6.0u2 compiler) There are some source patches in the script as well as some settings that are required for proper compilation. I have a framework that runs the script in the unpacked source tree to do the build and install. Some autoconf work needs to be done for proper configuration of inline functions and shared library creation. As far as the latter goes you might consider using libtool, which is designed for that sort of thing. The current approach of using the compiler for shared library creation is not supported by HPUX 11.0 -- the link needs to be done by the linker directly. So at the very least the compiles and links need to be split into two separate commands. Some documentation for the OPTFLAGS and PTHREAD_CC variables would be nice. There is still an issue in the SUNOS build related to a couple of symbols in System/Posix/Internals.so. Hugs runs properly for what I am doing so I haven't spent time on this yet: runhugs: Error occurred ERROR "libraries/bootlib/System/Posix/Internals.hs" - Error while importing DLL "libraries/bootlib/System/Posix/Internals.so": ld.so.1: ffihugs: fatal: relocation error: file libraries/bootlib/System/Posix/Internals.so: symbol __hscore_readdir: referenced symbol not found There is also a question about the make_bootlib script -- what is "cat -s" intended to do? It is not clear to me that it is portable -- the AIX man page states that -S does what -s used to do, for example. Here is a summary of what I had to do for the various platforms to get hugs to compile and install: - AIX The AIX preprocessor fails when it sees invalid # directives. (Note that it also allows # directives to have white space or comments before the # -- it looked like some of the Haskell code in Hugs thinks spaces will prevent interference from the preprocessor.) The proper inline keyword is __inline. The _LARGE_FILES symbol collides with _LARGE_FILES_API, which latter is turned on automatically when long long is enabled (in at least one failed compilation, anyway). The hugs code has // comments in it -- this is not valid for older C compilers. Increase -qmaxmem so optimization completes without warnings. Turn on alloca support. Use -G compiler option for proper shared library support. - HPUX Added +Z to generate position independent code for shared library use. Added +DAportable so the resulting binaries can run on older PARISC version processors. Pass -b option to linker when building shared libraries. Added wrapper around ld for proper shared library linking. HPUX 11, at least the version I have, does not support linking a shared library via the compiler -- you are supposed to use the linker directly. I made a wrapper that throws away the crt0.o argument that the compiler passes to the linker and that seems to fix the problem (that particular file is not used for dynamic links and is not position-independent anyway so will cause a link failure). The HPUX compiler I have does not appear to support the inline keyword. - LINUX no changes necessary - SUNOS The SUNOS compiler I have (6.0u2) has some sort of problem with inline functions as used by Hugs in shared libraries. I converted them to "static" to work around whatever was going on. Perhaps "extern inline" is needed or some such. Set the -G option for linking shared libraries. -- Joe Buehler jbuehler(a)spirentcom.com {{{ #!/bin/ksh HOST="$1" OS="$2" OS_VERSION="$3" OS_VERSION_MINOR="$4" patch_aix() { /usr/local/bin/patch -p0 -N -b -Vnumbered <<\EOF --- libraries/tools/make_bootlib.~1~ 2006-05-19 17:36:17.000000000 -0400 +++ libraries/tools/make_bootlib 2007-01-09 12:50:58.000000000 -0500 @@ -62,10 +62,19 @@ # portability we run the preprocessor on a .c file. cpp_input=$tmpdir/cppinput.c - cp "$1" $cpp_input + # AIX C/C++ compiler version 6.0 fails on illegal preprocessor directives + sed ' + s/^$[ ]*#[ ]*[-!]$/ELIMINATE THIS STRING PLEASE\1/ + s/^$[ ][ ]*#[ ]*[A-Z]$/ELIMINATE THIS STRING PLEASE\1/ + s/^$[ ][ ]*#[ ]*osthreads$/ELIMINATE THIS STRING PLEASE\1/ + ' "$1" >$cpp_input # gcc-3.3 on MacOS X 10.3 is reported to add #pragma - $cpp $cpp_flags $cpp_input | grep -v '^#' | cat -s + $cpp $cpp_flags $cpp_input | + sed ' + /^#/d + s/^ELIMINATE THIS STRING PLEASE// + ' | cat -s } # internal Hugs modules --- packages/base/include/HsBase.h.~1~ 2006-09-20 18:01:52.000000000 -0400 +++ packages/base/include/HsBase.h 2007-01-09 13:10:35.000000000 -0500 @@ -220,6 +220,8 @@ #ifndef INLINE # if defined(_MSC_VER) # define INLINE extern __inline +# elif defined(__xlC__) +# define INLINE __inline # elif defined(__GNUC__) # define INLINE extern inline # else EOF } patch_hpux() { /usr/local/bin/patch -p0 -N -b -Vnumbered <<\EOF --- packages/base/include/HsBase.h.~1~ 2006-09-20 18:01:52.000000000 -0400 +++ packages/base/include/HsBase.h 2007-01-09 13:10:35.000000000 -0500 @@ -220,6 +220,8 @@ #ifndef INLINE # if defined(_MSC_VER) # define INLINE extern __inline +# elif defined(__hpux) +# define INLINE static # elif defined(__GNUC__) # define INLINE extern inline # else EOF } patch_sunos() { /usr/local/bin/patch -p0 -N -b -Vnumbered <<\EOF --- packages/base/include/HsBase.h.~1~ 2006-09-20 18:01:52.000000000 -0400 +++ packages/base/include/HsBase.h 2007-01-09 13:10:35.000000000 -0500 @@ -220,6 +220,8 @@ #ifndef INLINE # if defined(_MSC_VER) # define INLINE extern __inline +# elif defined(__sun) +# define INLINE static # elif defined(__GNUC__) # define INLINE extern inline # else EOF } export CC=cc export PTHREAD_CC=cc export CFLAGS=-O export OPTFLAGS=-O case "$OS" in aix) # This is the compiler I like to use under AIX. CC=/usr/vacpp/bin/xlC_r PTHREAD_CC=/usr/vacpp/bin/xlC_r # Enable large files -- this is implied by "long long" so we turn it on globally. CFLAGS="$CFLAGS -D_LARGE_FILE_API" # Some of the C code actually has C++ commments in it! CFLAGS="$CFLAGS -qcpluscmt" # Increase memory available for optimization. CFLAGS="$CFLAGS -qmaxmem=32768" # For alloca support CFLAGS="$CFLAGS -ma" # This version of HUGS does not know how to make AIX shared objects. export ac_cv_dll_flags=-G # The _LARGE_FILES and _LARGE_FILE_API symbols are incompatible -- # defining both causes system header file conflicts (AIX 5.2.0.0) export ac_cv_sys_large_files=no patch_aix ;; hpux) # This version of HUGS does not know how to make HPUX shared objects. CFLAGS="$CFLAGS +Z +DAportable -tl,$PWD/myld" export ac_cv_dll_flags="-Wl,-b" cat >myld <<-\EOF && chmod 755 myld #!/bin/ksh I=0 J=0 SHARED= #echo "LINK: $0 $*" >&2 for ARG; do case "$ARG" in */crt0.o) ARGV[$I]="$ARG" I=$(expr $I + 1) ;; -b) SHARED=1 ARGV[$I]="$ARG" ARGV_SHARED[$J]="$ARG" I=$(expr $I + 1) J=$(expr $J + 1) ;; *) ARGV[$I]="$ARG" ARGV_SHARED[$J]="$ARG" I=$(expr $I + 1) J=$(expr $J + 1) ;; esac done if [ "$SHARED" != "" ]; then set -x ld "${ARGV_SHARED[@]}" else set -x ld "${ARGV[@]}" fi EOF patch_hpux ;; linux) ;; sunos) # This version of HUGS does not know how to make SUNOS shared objects. export ac_cv_dll_flags=-G patch_sunos ;; esac && ./configure \ CC="$CC" \ PTHREAD_CC="$CC" \ CFLAGS="$CFLAGS" \ OPTFLAGS="$OPTFLAGS" \ --disable-large-banner \ --with-pthreads \ && gmake && ( gmake verbosecheck || true ) && gmake install && true }}} -- Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/52> Hugs <http://www.haskell.org/hugs/> Hugs 98, an interpreter for Haskell

1 1

[Hugs] #37: Equal Ints are not equal
by Hugs 18 Mar '07

18 Mar '07

#37: Equal Ints are not equal ---------------------+------------------------------------------------------ Reporter: guest | Owner: nobody Type: defect | Status: new Priority: blocker | Milestone: Component: hugs | Version: current Keywords: | ---------------------+------------------------------------------------------ Hi, a few days ago I wrote a program which handles my own integers. Then I check my own implementation against the normal Int implementation in Hugs. Thereby I wonder about inequality of Ints which are definitely equal. This is a test program I wrote after I recognized that hugs has probably a bug in the inequality check of Ints. data MInt = Zero | Succ MInt | Pred MInt deriving Show tn :: Int -> MInt tn x | x<0 = Pred (tn (x+1)) tn 0 = Zero tn (n+1) = Succ (tn n) ti :: MInt -> Int ti Zero = 0 ti (Succ x) = 1+(ti x) ti (Pred x) = (ti x) -1 testi :: (MInt -> MInt -> MInt) -> (Int -> Int -> Int) -> Int -> Int -> Bool testi f g x y = (ti (f (tn x) (tn y))) /= (g x y) myMul x y = tn ((ti x) * (ti y)) test = [(x,y,ti (myMul (tn x) (tn y)),x * y)| x<-[-100..100], y<-([-100..(-1)]++[1..100]),(testi myMul (*) x y) ] the list "test" should be empty in any case but unfortunately hugs returns this (copy of the console): __ __ __ __ ____ ___ _________________________________________ || || || || || || ||__ Hugs 98: Based on the Haskell 98 standard ||___|| ||__|| ||__|| __|| Copyright (c) 1994-2003 ||---|| ___|| World Wide Web: http://haskell.org/hugs || || Report bugs to: hugs-bugs(a)haskell.org || || Version: November 2003 _________________________________________ Haskell 98 mode: Restart with command line option -98 to enable extensions Type :? for help Main> test [(-100,80,-8000,-8000),(-100,99,-9900,-9900), (-99,58,-5742,-5742),(-99,83,-8217,-8217), (-98,71,-6958,-6958),(-98,86,-8428,-8428), (-97,46,-4462,-4462),(-97,87,-8439,-8439), (-96,76,-7296,-7296),(-95,88,-8360,-8360),(-94,73,-6862,-6862) ERROR - Control stack overflow Main> I have checked this program with Hugs on different plattforms: Gentoo Linux x86 64-Bit and Suse Linux 32-Bit. On both plattforms the same bug occurs with different Ints for each run (i.e. the list contains different tuples). I have also checked my program with other Haskell implementations and there it returns an empty list as expected. Best regards, Stephan Swiderski (swiderski(a)informatik.rwth-aachen.de) P.S.: We have tested Sep2006 with similar results: __ __ __ __ ____ ___ _________________________________________ || || || || || || ||__ Hugs 98: Based on the Haskell 98 standard ||___|| ||__|| ||__|| __|| Copyright (c) 1994-2005 ||---|| ___|| World Wide Web: http://haskell.org/hugs || || Bugs: http://hackage.haskell.org/trac/hugs || || Version: September 2006 _________________________________________ Haskell 98 mode: Restart with command line option -98 to enable extensions Type :? for help Main> :e Main> test [(-100,90,-9000,-9000),(-98,40,-3920,-3920),(-97,63,-6111,-6111),(-97,69,-6693,- 6693) ERROR - Control stack overflow -- Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/37> Hugs <http://www.haskell.org/hugs/> Hugs 98, an interpreter for Haskell

2 7