March 2012 - Glasgow-haskell-users

Installing binary tarball fails on Linux
by Johan Tibell 09 Oct '12

09 Oct '12

Hi, I tried to install the GHC 7.4.1 32-bit binary tarball today and ran into the error below. Are 32-bit GHC's not supported on 64-bit Linuxes? The error: Installing library in /usr/local/lib/ghc-7.4.1/ghc-prim-0.2.0.0 ghc-cabal: Bad interface file: dist-install/build/GHC/Classes.hi magic number mismatch: old/corrupt interface file? (wanted 33214052, got 129742) Full log: $ tar jxf ghc-7.4.1-i386-unknown-linux.tar.bz2 $ cd ghc-7.4.1/ tibell@tibell:ghc-7.4.1$ ./configure --prefix=/usr/local checking for path to top of build tree... /tmp/ghc-7.4.1 Build platform inferred as: i386-unknown-linux Host platform inferred as: i386-unknown-linux Target platform inferred as: i386-unknown-linux GHC build : i386-unknown-linux GHC host : i386-unknown-linux GHC target : i386-unknown-linux checking for perl... /usr/bin/perl checking if your perl works in shell scripts... yes checking for a BSD-compatible install... /usr/bin/install -c checking whether ln -s works... yes checking for gsed... sed checking for gcc... /usr/bin/gcc checking for gcc... /usr/bin/gcc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether /usr/bin/gcc accepts -g... yes checking for /usr/bin/gcc option to accept ISO C89... none needed checking version of gcc... 4.4.3 checking how to run the C preprocessor... /usr/bin/gcc -E checking whether ld understands --hash-size=31... checking whether ld understands --reduce-memory-overheads... checking for extra options to pass gcc when compiling via C... -fwrapv checking Setting up CFLAGS, LDFLAGS, IGNORE_LINKER_LD_FLAGS and CPPFLAGS... done checking Setting up CONF_CC_OPTS_STAGE0, CONF_GCC_LINKER_OPTS_STAGE0, CONF_LD_LINKER_OPTS_STAGE0 and CONF_CPP_OPTS_STAGE0... done checking Setting up CONF_CC_OPTS_STAGE1, CONF_GCC_LINKER_OPTS_STAGE1, CONF_LD_LINKER_OPTS_STAGE1 and CONF_CPP_OPTS_STAGE1... done checking Setting up CONF_CC_OPTS_STAGE2, CONF_GCC_LINKER_OPTS_STAGE2, CONF_LD_LINKER_OPTS_STAGE2 and CONF_CPP_OPTS_STAGE2... done checking for .subsections_via_symbols... no checking for GNU non-executable stack support... yes checking for grep that handles long lines and -e... /bin/grep checking for egrep... /bin/grep -E checking for ANSI C header files... yes checking for sys/types.h... yes checking for sys/stat.h... yes checking for stdlib.h... yes checking for string.h... yes checking for memory.h... yes checking for strings.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for unistd.h... yes checking size of void *... 8 checking for ar... /usr/bin/ar checking whether /usr/bin/ar is GNU ar... yes checking for ar arguments... q checking whether ranlib is needed... no configure: creating ./config.status config.status: creating settings config.status: creating mk/config.mk config.status: creating mk/install.mk **************************************************** Configuration done, ready to 'make install' (see README and INSTALL files for more info.) **************************************************** $ sudo make install make -r --no-print-directory -f ghc.mk install BINDIST=YES NO_INCLUDE_DEPS=YES /usr/bin/install -c -m 755 -d "/usr/local/share/man" /usr/bin/install -c -m 755 -d "/usr/local/share/man/man1" /usr/bin/install -c -m 644 docs/man/ghc.1 "/usr/local/share/man/man1" "rm" -f driver/split/dist/ghc-split echo '#!/usr/bin/perl' >> driver/split/dist/ghc-split echo '$TARGETPLATFORM = "i386-unknown-linux";' >> driver/split/dist/ghc-split echo '$TABLES_NEXT_TO_CODE = "YES";' >> driver/split/dist/ghc-split cat driver/split/dist/ghc-split.prl >> driver/split/dist/ghc-split /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1" /usr/bin/install -c -m 755 driver/split/dist/ghc-split "/usr/local/lib/ghc-7.4.1" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/ghci-7.4.1" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/ghci-7.4.1" echo '#!/bin/sh' >> "/usr/local/bin/ghci-7.4.1" echo 'exec "/usr/local/bin/ghc-7.4.1" --interactive ${1+"$@"}' >> "/usr/local/bin/ghci-7.4.1" chmod +x "/usr/local/bin/ghci-7.4.1" "rm" -f "/usr/local/bin/ghci" ln -s ghci-7.4.1 "/usr/local/bin/ghci" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include/." && /usr/bin/install -c -m 644 includes/./*.h "/usr/local/lib/ghc-7.4.1/include/./" && /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include/rts" && /usr/bin/install -c -m 644 includes/rts/*.h "/usr/local/lib/ghc-7.4.1/include/rts/" && /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include/rts/prof" && /usr/bin/install -c -m 644 includes/rts/prof/*.h "/usr/local/lib/ghc-7.4.1/include/rts/prof/" && /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include/rts/storage" && /usr/bin/install -c -m 644 includes/rts/storage/*.h "/usr/local/lib/ghc-7.4.1/include/rts/storage/" && /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include/stg" && /usr/bin/install -c -m 644 includes/stg/*.h "/usr/local/lib/ghc-7.4.1/include/stg/" && true /usr/bin/install -c -m 644 includes/ghcautoconf.h includes/ghcplatform.h includes/dist-ghcconstants/header/GHCConstants.h includes/dist-derivedconstants/header/DerivedConstants.h "/usr/local/lib/ghc-7.4.1/include/" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/include" /usr/bin/install -c -m 644 rts/dist/build/ffi.h rts/dist/build/ffitarget.h "/usr/local/lib/ghc-7.4.1/include/" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/haddock-ghc-7.4.1" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/haddock-ghc-7.4.1" echo '#!/bin/sh' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'exedir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'exeprog="haddock"' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'executablename="$exedir/$exeprog"' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'datadir="/usr/local/share"' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'bindir="/usr/local/bin"' >> "/usr/local/bin/haddock-ghc-7.4.1" echo 'topdir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/haddock-ghc-7.4.1" cat utils/haddock/haddock.wrapper >> "/usr/local/bin/haddock-ghc-7.4.1" chmod +x "/usr/local/bin/haddock-ghc-7.4.1" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/html/" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/html/Classic.theme/" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/latex/" /usr/bin/install -c -m 644 utils/haddock/html/frames.html "/usr/local/lib/ghc-7.4.1/html/" /usr/bin/install -c -m 644 utils/haddock/html/haddock-util.js "/usr/local/lib/ghc-7.4.1/html/" /usr/bin/install -c -m 644 utils/haddock/html/Classic.theme/haskell_icon.gif "/usr/local/lib/ghc-7.4.1/html/Classic.theme/" /usr/bin/install -c -m 644 utils/haddock/html/Classic.theme/minus.gif "/usr/local/lib/ghc-7.4.1/html/Classic.theme/" /usr/bin/install -c -m 644 utils/haddock/html/Classic.theme/plus.gif "/usr/local/lib/ghc-7.4.1/html/Classic.theme/" /usr/bin/install -c -m 644 utils/haddock/html/Classic.theme/xhaddock.css "/usr/local/lib/ghc-7.4.1/html/Classic.theme/" /usr/bin/install -c -m 644 utils/haddock/html/Ocean.std-theme/hslogo-16.png "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 644 utils/haddock/html/Ocean.std-theme/minus.gif "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 644 utils/haddock/html/Ocean.std-theme/ocean.css "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 644 utils/haddock/html/Ocean.std-theme/plus.gif "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 644 utils/haddock/html/Ocean.std-theme/synopsis.png "/usr/local/lib/ghc-7.4.1/html/Ocean.std-theme/" /usr/bin/install -c -m 644 utils/haddock/latex/haddock.sty "/usr/local/lib/ghc-7.4.1/latex/" "rm" -f "/usr/local/bin/haddock" ln -s haddock-ghc-7.4.1 "/usr/local/bin/haddock" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/hsc2hs" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/hsc2hs" echo '#!/bin/sh' >> "/usr/local/bin/hsc2hs" echo 'exedir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/hsc2hs" echo 'exeprog="hsc2hs"' >> "/usr/local/bin/hsc2hs" echo 'executablename="$exedir/$exeprog"' >> "/usr/local/bin/hsc2hs" echo 'datadir="/usr/local/share"' >> "/usr/local/bin/hsc2hs" echo 'bindir="/usr/local/bin"' >> "/usr/local/bin/hsc2hs" echo 'topdir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/hsc2hs" echo 'HSC2HS_EXTRA="--cflag=-fno-stack-protector "' >> "/usr/local/bin/hsc2hs" cat utils/hsc2hs/hsc2hs.wrapper >> "/usr/local/bin/hsc2hs" chmod +x "/usr/local/bin/hsc2hs" /usr/bin/install -c -m 644 utils/hsc2hs/template-hsc.h "/usr/local/lib/ghc-7.4.1" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/ghc-pkg-7.4.1" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/ghc-pkg-7.4.1" echo '#!/bin/sh' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'exedir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'exeprog="ghc-pkg"' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'executablename="$exedir/$exeprog"' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'datadir="/usr/local/share"' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'bindir="/usr/local/bin"' >> "/usr/local/bin/ghc-pkg-7.4.1" echo 'topdir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/ghc-pkg-7.4.1" cat utils/ghc-pkg/ghc-pkg.wrapper >> "/usr/local/bin/ghc-pkg-7.4.1" chmod +x "/usr/local/bin/ghc-pkg-7.4.1" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/ghc-pkg" ln -s ghc-pkg-7.4.1 "/usr/local/bin/ghc-pkg" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/runghc" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/runghc" echo '#!/bin/sh' >> "/usr/local/bin/runghc" echo 'exedir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/runghc" echo 'exeprog="runghc"' >> "/usr/local/bin/runghc" echo 'executablename="$exedir/$exeprog"' >> "/usr/local/bin/runghc" echo 'datadir="/usr/local/share"' >> "/usr/local/bin/runghc" echo 'bindir="/usr/local/bin"' >> "/usr/local/bin/runghc" echo 'topdir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/runghc" cat utils/runghc/runghc.wrapper >> "/usr/local/bin/runghc" chmod +x "/usr/local/bin/runghc" "rm" -f "/usr/local/bin/runhaskell" ln -s runghc "/usr/local/bin/runhaskell" /usr/bin/install -c -m 755 -d "/usr/local/bin" "rm" -f "/usr/local/bin/ghc-7.4.1" create () { touch "$1" && chmod 755 "$1" ; } && create "/usr/local/bin/ghc-7.4.1" echo '#!/bin/sh' >> "/usr/local/bin/ghc-7.4.1" echo 'exedir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/ghc-7.4.1" echo 'exeprog="ghc-stage2"' >> "/usr/local/bin/ghc-7.4.1" echo 'executablename="$exedir/$exeprog"' >> "/usr/local/bin/ghc-7.4.1" echo 'datadir="/usr/local/share"' >> "/usr/local/bin/ghc-7.4.1" echo 'bindir="/usr/local/bin"' >> "/usr/local/bin/ghc-7.4.1" echo 'topdir="/usr/local/lib/ghc-7.4.1"' >> "/usr/local/bin/ghc-7.4.1" echo 'executablename="$exedir/ghc"' >> "/usr/local/bin/ghc-7.4.1" cat ghc/ghc.wrapper >> "/usr/local/bin/ghc-7.4.1" chmod +x "/usr/local/bin/ghc-7.4.1" "rm" -f "/usr/local/bin/ghc" ln -s ghc-7.4.1 "/usr/local/bin/ghc" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1" for i in driver/ghc-usage.txt driver/ghci-usage.txt rts/dist/build/libHSrts.a rts/dist/build/libHSrts_p.a rts/dist/build/libHSrts-ghc7.4.1.so rts/dist/build/libHSrts_l.a rts/dist/build/libHSrts_debug.a rts/dist/build/libHSrts_thr.a rts/dist/build/libHSrts_thr_debug.a rts/dist/build/libHSrts_thr_l.a rts/dist/build/libHSrts_thr_p.a rts/dist/build/libHSrts_debug-ghc7.4.1.so rts/dist/build/libHSrts_thr-ghc7.4.1.so rts/dist/build/libHSrts_thr_debug-ghc7.4.1.so rts/dist/build/libffi.so rts/dist/build/libffi.so.5 rts/dist/build/libffi.so.5.0.10 settings; do \ case $i in \ *.a) \ /usr/bin/install -c -m 644 $i "/usr/local/lib/ghc-7.4.1"; \ true /usr/local/lib/ghc-7.4.1/`basename $i` ;; \ *.dll) \ /usr/bin/install -c -m 644 -s $i "/usr/local/lib/ghc-7.4.1" ;; \ *.so) \ /usr/bin/install -c -m 755 $i "/usr/local/lib/ghc-7.4.1" ;; \ *.dylib) \ /usr/bin/install -c -m 755 $i "/usr/local/lib/ghc-7.4.1";; \ *) \ /usr/bin/install -c -m 644 $i "/usr/local/lib/ghc-7.4.1"; \ esac; \ done /usr/bin/gcc -E -undef -traditional -P -DINSTALLING -DLIB_DIR='"/usr/local/lib/ghc-7.4.1"' -DINCLUDE_DIR='"/usr/local/lib/ghc-7.4.1/include"' -DPAPI_INCLUDE_DIR="" -DPAPI_LIB_DIR="" -x c -Iincludes rts/package.conf.in -o rts/package.conf.install.raw grep -v '^#pragma GCC' rts/package.conf.install.raw | sed -e 's/""//g' -e 's/:[ ]*,/: /g' >rts/package.conf.install /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1" for i in utils/haddock/dist/build/tmp/haddock utils/hsc2hs/dist-install/build/tmp/hsc2hs utils/ghc-pkg/dist-install/build/tmp/ghc-pkg utils/runghc/dist-install/build/tmp/runghc ghc/stage2/build/tmp/ghc-stage2; do \ /usr/bin/install -c -m 755 $i "/usr/local/lib/ghc-7.4.1"; \ done "mv" "/usr/local/lib/ghc-7.4.1/ghc-stage2" "/usr/local/lib/ghc-7.4.1/ghc" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1" "rm" -rf "/usr/local/lib/ghc-7.4.1/package.conf.d" /usr/bin/install -c -m 755 -d "/usr/local/lib/ghc-7.4.1/package.conf.d" "/usr/local/lib/ghc-7.4.1/ghc-pkg" --force --global-conf "/usr/local/lib/ghc-7.4.1/package.conf.d" update rts/package.conf.install Reading package info from "rts/package.conf.install" ... done. "utils/ghc-cabal/dist-install/build/tmp/ghc-cabal" install "/usr/local/lib/ghc-7.4.1/ghc" "/usr/local/lib/ghc-7.4.1/ghc-pkg" "strip" "/usr/local/lib/ghc-7.4.1" libraries/ghc-prim dist-install '' '/usr/local' '/usr/local/lib/ghc-7.4.1' '/usr/local/share/doc/ghc/html/libraries' NO Installing library in /usr/local/lib/ghc-7.4.1/ghc-prim-0.2.0.0 ghc-cabal: Bad interface file: dist-install/build/GHC/Classes.hi magic number mismatch: old/corrupt interface file? (wanted 33214052, got 129742) make[1]: *** [install_packages] Error 1 make: *** [install] Error 2 -- Johan

5 8

Type operators in GHC
by Simon Peyton-Jones 19 Sep '12

19 Sep '12

Dear GHC users As part of beefing up the kind system, we plan to implement the "Type operators" proposal for Haskell Prime http://hackage.haskell.org/trac/haskell-prime/wiki/InfixTypeConstructors GHC has had type operators for some kind, so you can say data a :+: b = Left a | Right b but you can only do that for operators which start with ":". As part of the above wiki page you can see the proposal to broaden this to ALL operators, allowing data a + b = Left a | Right b Although this technically inconsistent the value page (as the wiki page discussed), I think the payoff is huge. (And "A foolish consistency is the hobgoblin of little minds", Emerson) This email is (a) to highlight the plan, and (b) to ask about flags. Our preferred approach is to *change* what -XTypeOperators does, to allow type operators that do not start with :. But that will mean that *some* (strange) programs will stop working. The only example I have seen in tc192 of GHC's test suite {-# LANGUAGE TypeOperators #-} comp :: Arrow (~>) => (b~>c, c~>d)~>(b~>d) comp = arr (uncurry (>>>)) Written more conventionally, the signature would look like comp :: Arrow arr => arr (arr b c, arr c d) (arr b d) comp = arr (uncurry (>>>)) or, in infix notation {-# LANGUAGE TypeOperators #-} comp :: Arrow arr => (b `arr` c, c `arr` d) `arr` (b `arr` d) comp = arr (uncurry (>>>)) But tc192 as it stands would become ILLEGAL, because (~>) would be a type *constructor* rather than (as now) a type *variable*. Of course it's easily fixed, as above, but still a breakage is a breakage. It would be possible to have two flags, so as to get - Haskell 98 behaviour - Current TypeOperator behaviuor - New TypeOperator behaviour but it turns out to be Quite Tiresome to do so, and I would much rather not. Can you live with that? http://chrisdone.com/posts/2010-10-07-haskelldb-and-typeoperator-madness.ht…

13 24

recent changes to hsc2hs break wrapping c++
by Evan Laforge 09 Sep '12

09 Sep '12

Recently a change was made to hsc2hs to fix this ticket: http://hackage.haskell.org/trac/ghc/ticket/2897 Unfortunately, the result is I (apparently) can't use it now. Here's how that happens: The change was to remove the dependency on HsFFI.h. However, the solution is to create a little wrapper .c file that includes wrappers around various stdio functions like fputs(). This relies on C allowing implicit casts from void* to e.g. FILE*, and is also happy to let you use undeclared functions. g++ rejects that code. And since I am calling into C++ (via a 'extern "C" { ... }' wrapper) I wind up including C++ headers that contain the structs I want hsc2hs to calculate offsets for. Of course one solution is to use C as hsc2hs expects, but it would be awkward to split my (largish) c++ program's headers into C compatible and C++ only. So meanwhile I've reverted back to an older version of hsc2hs that includes HsFFI.h. Working with c++ headers was maybe not in the original design for hsc2hs, but it's a very useful feature nonetheless. WRT HsFFI.h and the ticket, I added -I(ghc --print-libdir)/include to my hsc2hs rule a long time ago, and it wasn't very hard to do, though I admit it would have been easier had there been documentation about what to do, or a mandatory flag for the HsFFI.h path. It looks like Duncan suggested that already. Or perhaps there's a better way to wrap C++?

3 6

Occasional segfault in GHCi w/ 7.4.1-rc1 and 64bit OS X
by austin seipp 17 Jul '12

17 Jul '12

Hello GHC hackers, I have been trying the recent 7.4.1-rc1 release on my OSX Snow Leopard machine. I am using the 64bit OSX .tar.bz. I used virthualenv/hsenv to set up a virtual environment to test packages with the RC, but I discovered that GHCi seems to segfault somewhat randomly when invoked. I cannot reproduce this problem with 7.0.4 (64bit,) 7.2.2 (64bit,) or 7.5.20111223 (also 64bit.) I have invoked GHCi probably a hundred times each, and have never had it crash. I can crash the RC fairly reliably however. I looked at the shell scripts that invoke GHC and ran GDB with the proper arguments. I got a backtrace like so: $ gdb /Users/a/vh-741-rc1_2/.hsenv/ghc/lib/ghc-7.4.0.20111219/ghc GNU gdb 6.3.50-20050815 (Apple version gdb-1518) (Sat Feb 12 02:52:12 UTC 2011) Copyright 2004 Free Software Foundation, Inc. GDB is free software, covered by the GNU General Public License, and you are welcome to change it and/or distribute copies of it under certain conditions. Type "show copying" to see the conditions. There is absolutely no warranty for GDB. Type "show warranty" for details. This GDB was configured as "x86_64-apple-darwin"...Reading symbols for shared libraries .... done warning: Could not find object file "/Users/ian/zz64/ghc-7.4.0.20111219/rts/dist/build/libHSrts_thr.a(ffi64.o)" - no debug information available for "../src/x86/ffi64.c". warning: Could not find object file "/Users/ian/zz64/ghc-7.4.0.20111219/rts/dist/build/libHSrts_thr.a(prep_cif.o)" - no debug information available for "../src/prep_cif.c". warning: Could not find object file "/Users/ian/zz64/ghc-7.4.0.20111219/rts/dist/build/libHSrts_thr.a(types.o)" - no debug information available for "../src/types.c". (gdb) r -B/Users/a/vh-741-rc1_2/.hsenv/ghc/lib/ghc-7.4.0.20111219 --interactive Starting program: /Users/a/vh-741-rc1_2/.hsenv/ghc/lib/ghc-7.4.0.20111219/ghc -B/Users/a/vh-741-rc1_2/.hsenv/ghc/lib/ghc-7.4.0.20111219 --interactive Reading symbols for shared libraries + done GHCi, version 7.4.0.20111219: http://www.haskell.org/ghc/ :? for help Loading package ghc-prim ... linking ... done. Loading package integer-gmp ... linking ... done. Loading package base ... linking ... done. Program received signal EXC_BAD_ACCESS, Could not access memory. Reason: KERN_INVALID_ADDRESS at address: 0x00000000ae21cf68 0x00000001ae2060da in evacuate1 () (gdb) bt #0 0x00000001ae2060da in evacuate1 () #1 0x00000001ae20b868 in scavenge_block1 () Previous frame inner to this frame (gdb could not unwind past this frame) (gdb) So it looks like a GC bug at first glance, but I haven't done rigorous investigation. Again this doesn't happen every time - probably 1/3 the time it crashes, the other 2/3 the time it seems to work fine. This naturally also affects `runghc`. Is this a known issue? Or should I file a bug and investigate further? Perhaps something forgot to get something merged into the 7.4 branch? -- Regards, Austin

7 8

Code review for new primop's CMM code.
by Ryan Newton 10 Apr '12

10 Apr '12

Hi all, In preparation for students working on concurrent data structures GSOC(s), I wanted to make sure they could count on CAS for array elements as well as IORefs. The following patch represents my first attempt: https://github.com/rrnewton/ghc/commit/18ed460be111b47a759486677960093d71ee… It passes a simple test [Appendix 2 below], but I am very unsure as to whether the GC write barrier is correct. Could someone do a code-review on the following few lines of CMM: if (GET_INFO(arr) == stg_MUT_ARR_PTRS_CLEAN_info) { SET_HDR(arr, stg_MUT_ARR_PTRS_DIRTY_info, CCCS); len = StgMutArrPtrs_ptrs(arr); // The write barrier. We must write a byte into the mark table: I8[arr + SIZEOF_StgMutArrPtrs + WDS(len) + (ind >> MUT_ARR_PTRS_CARD_BITS )] = 1; } Thanks, -Ryan -- Appendix 1: First draft code CMM definition for casArray# ------------------------------------------------------------------- stg_casArrayzh /* MutableArray# s a -> Int# -> a -> a -> State# s -> (# State# s, Int#, a #) */ { W_ arr, p, ind, old, new, h, len; arr = R1; // anything else? ind = R2; old = R3; new = R4; p = arr + SIZEOF_StgMutArrPtrs + WDS(ind); (h) = foreign "C" cas(p, old, new) []; if (h != old) { // Failure, return what was there instead of 'old': RET_NP(1,h); } else { // Compare and Swap Succeeded: if (GET_INFO(arr) == stg_MUT_ARR_PTRS_CLEAN_info) { SET_HDR(arr, stg_MUT_ARR_PTRS_DIRTY_info, CCCS); len = StgMutArrPtrs_ptrs(arr); // The write barrier. We must write a byte into the mark table: I8[arr + SIZEOF_StgMutArrPtrs + WDS(len) + (ind >> MUT_ARR_PTRS_CARD_BITS )] = 1; } RET_NP(0,h); } } -- Appendix 2: Simple test file; when run it should print: ------------------------------------------------------------------- -- Perform a CAS within a MutableArray# -- 1st try should succeed: (True,33) -- 2nd should fail: (False,44) -- Printing array: -- 33 33 33 44 33 -- Done. ------------------------------------------------------------------- {-# Language MagicHash, UnboxedTuples #-} import GHC.IO import GHC.IORef import GHC.ST import GHC.STRef import GHC.Prim import GHC.Base import Data.Primitive.Array import Control.Monad ------------------------------------------------------------------------ -- -- | Write a value to the array at the given index: casArrayST :: MutableArray s a -> Int -> a -> a -> ST s (Bool, a) casArrayST (MutableArray arr#) (I# i#) old new = ST$ \s1# -> case casArray# arr# i# old new s1# of (# s2#, x#, res #) -> (# s2#, (x# ==# 0#, res) #) ------------------------------------------------------------------------ {-# NOINLINE mynum #-} mynum :: Int mynum = 33 main = do putStrLn "Perform a CAS within a MutableArray#" arr <- newArray 5 mynum res <- stToIO$ casArrayST arr 3 mynum 44 res2 <- stToIO$ casArrayST arr 3 mynum 44 putStrLn$ " 1st try should succeed: "++show res putStrLn$ "2nd should fail: "++show res2 putStrLn "Printing array:" forM_ [0..4] $ \ i -> do x <- readArray arr i putStr (" "++show x) putStrLn "" putStrLn "Done."

2 1

cabal install version selection
by Christian Höner zu Siederdissen 02 Apr '12

02 Apr '12

Hi everybody, I fail to remember or re-google the package version selection for cabal, if no version constraints are given. If I depend on "iteratee", and there are no constraints, does it take the lowest version? When I pushed the newest version of the RNAFold package, the log showed iteratee-0.1.0 to be used, which failed of course: http://hackage.haskell.org/packages/archive/RNAFold/1.99.1.0/logs/failure/g… It got really weird, however when I saw that the dependency BiobaseVienna-0.2.2.3, which is the one actually using iteratee, was built correctly. Of course, seeing the error of my way, I have started adding more version constraints to every package I maintain. Gruss, Christian

3 2

Code review for new primop's CMM code?
by Ryan Newton 29 Mar '12

29 Mar '12

Perhaps a question mark is more appropriate in the title. It is a code review I am seeking, not one on offer ;-). On Thu, Mar 29, 2012 at 12:56 AM, Ryan Newton <rrnewton(a)gmail.com> wrote: > Hi all, > > In preparation for students working on concurrent data structures GSOC(s), > I wanted to make sure they could count on CAS for array elements as well as > IORefs. The following patch represents my first attempt: > > > https://github.com/rrnewton/ghc/commit/18ed460be111b47a759486677960093d71ee… > > It passes a simple test [Appendix 2 below], but I am very unsure as to > whether the GC write barrier is correct. Could someone do a code-review on > the following few lines of CMM: > > if (GET_INFO(arr) == stg_MUT_ARR_PTRS_CLEAN_info) { > SET_HDR(arr, stg_MUT_ARR_PTRS_DIRTY_info, CCCS); > len = StgMutArrPtrs_ptrs(arr); > // The write barrier. We must write a byte into the mark table: > I8[arr + SIZEOF_StgMutArrPtrs + WDS(len) + (ind >> > MUT_ARR_PTRS_CARD_BITS )] = 1; > } > > Thanks, > -Ryan > > -- Appendix 1: First draft code CMM definition for casArray# > ------------------------------------------------------------------- > stg_casArrayzh > /* MutableArray# s a -> Int# -> a -> a -> State# s -> (# State# s, Int#, a > #) */ > { > W_ arr, p, ind, old, new, h, len; > arr = R1; // anything else? > ind = R2; > old = R3; > new = R4; > > p = arr + SIZEOF_StgMutArrPtrs + WDS(ind); > (h) = foreign "C" cas(p, old, new) []; > > if (h != old) { > // Failure, return what was there instead of 'old': > RET_NP(1,h); > } else { > // Compare and Swap Succeeded: > if (GET_INFO(arr) == stg_MUT_ARR_PTRS_CLEAN_info) { > SET_HDR(arr, stg_MUT_ARR_PTRS_DIRTY_info, CCCS); > len = StgMutArrPtrs_ptrs(arr); > // The write barrier. We must write a byte into the mark table: > I8[arr + SIZEOF_StgMutArrPtrs + WDS(len) + (ind >> > MUT_ARR_PTRS_CARD_BITS )] = 1; > } > RET_NP(0,h); > } > } > > -- Appendix 2: Simple test file; when run it should print: > ------------------------------------------------------------------- > -- Perform a CAS within a MutableArray# > -- 1st try should succeed: (True,33) > -- 2nd should fail: (False,44) > -- Printing array: > -- 33 33 33 44 33 > -- Done. > ------------------------------------------------------------------- > {-# Language MagicHash, UnboxedTuples #-} > > import GHC.IO > import GHC.IORef > import GHC.ST > import GHC.STRef > import GHC.Prim > import GHC.Base > import Data.Primitive.Array > import Control.Monad > > ------------------------------------------------------------------------ > > -- -- | Write a value to the array at the given index: > casArrayST :: MutableArray s a -> Int -> a -> a -> ST s (Bool, a) > casArrayST (MutableArray arr#) (I# i#) old new = ST$ \s1# -> > case casArray# arr# i# old new s1# of > (# s2#, x#, res #) -> (# s2#, (x# ==# 0#, res) #) > > ------------------------------------------------------------------------ > {-# NOINLINE mynum #-} > mynum :: Int > mynum = 33 > > main = do > putStrLn "Perform a CAS within a MutableArray#" > arr <- newArray 5 mynum > > res <- stToIO$ casArrayST arr 3 mynum 44 > res2 <- stToIO$ casArrayST arr 3 mynum 44 > putStrLn$ " 1st try should succeed: "++show res > putStrLn$ "2nd should fail: "++show res2 > > putStrLn "Printing array:" > forM_ [0..4] $ \ i -> do > x <- readArray arr i > putStr (" "++show x) > putStrLn "" > putStrLn "Done." > >

1 0

[sajith@gmail.com: Google Summer of Code: a NUMA wishlist!]
by Sajith T S 29 Mar '12

29 Mar '12

Greetings, I originally posted this message to haskell-cafe, and was told that this list might be a more appropriate place to seek feedback. I'm curious to know what people think of this proposal. Thanks in advance! Regards, Sajith. ----- Forwarded message from Sajith T S <sajith(a)gmail.com> ----- Date: Sun, 25 Mar 2012 22:49:52 -0400 From: Sajith T S <sajith(a)gmail.com> To: The Haskell Cafe <haskell-cafe(a)haskell.org> Subject: Google Summer of Code: a NUMA wishlist! Dear Cafe, It's last minute-ish to bring this up (in my part of the world it's still March 25), but graduate students are famously a busy and lazy lot. :) I study at Indiana University Bloomington, and I wish to propose^W rush in this proposal and solicit feedback, mentors, etc while I can. Since student application deadline is April 6, I figure we can beat this into a real proposal's shape by then. This probably also falls on the naive and ambitious side of things, and I might not even know what I'm talking about, but let's see! That's the idea of proposal, yes? Broadly, idea is to improve support for NUMA systems. Specifically: -- Real physical processor affinity with forkOn [1]. Can we fire all CPUs if we want to? (Currently, the number passed to forkOn is interpreted as number modulo the value returned by getNumCapabilities [2]). -- Also kind of associated with the above: when launching processes, we might want to specify a list of CPUs rather than the number of CPUs. Say, a -N [0,1,3] flag rather than -N 3 flag. This shall enable us to gawk at real pretty htop [3] output. -- From a very recent discussion on parallel-haskell [4], we learn that RTS' NUMA support could be improved. The hypothesis is that allocating nurseries per Capability might be a better plan than using global pool. We might borrow/steal ideas from hwloc [5] for this. -- Finally, a logging/monitoring infrastructure to verify assumptions and determine if/how local work stays. (I would like to acknowledge my fellow conspirators and leave them unnamed, lest they shall be embarrassed by my... naivete.) Thanks, Sajith. [1] http://www.haskell.org/ghc/docs/latest/html/libraries/base/Control-Concurre… [2] http://www.haskell.org/ghc/docs/latest/html/libraries/base/Control-Concurre… [3] http://htop.sourceforge.net/ [4] http://groups.google.com/group/parallel-haskell/browse_thread/thread/7ec1eb… [5] http://www.open-mpi.org/projects/hwloc/ -- "the lyf so short, the craft so long to lerne." -- Chaucer. ----- End forwarded message ----- -- "the lyf so short, the craft so long to lerne." -- Chaucer.

3 9

Records in Haskell
by Simon Peyton-Jones 27 Mar '12

27 Mar '12

Friends Provoked the (very constructive) Yesod blog post on "Limitations of Haskell", and the follow up discussion, I've started a wiki page to collect whatever ideas we have about the name spacing issue for record fields. http://hackage.haskell.org/trac/ghc/wiki/Records As Simon M said on Reddit, this is something we'd like to fix; but we need a consensus on how to fix it. Simon

41 183

ANNOUNCE: GHC version 7.2.1
by Ian Lynagh 27 Mar '12

27 Mar '12

============================================================= The (Interactive) Glasgow Haskell Compiler -- version 7.2.1 ============================================================= The GHC Team is pleased to announce a new major release of GHC, 7.2.1. The 7.2 branch is intended to be more of a "technology preview" than normal GHC stable branches; in particular, it supports a significantly improved version of DPH, as well as new features such as compiler plugins and "safe Haskell". The design of these new features may evolve as we get more experience with them. See the release notes for more details of what's new and what's changed. We are also using this branch as an opportunity to work out the best workflows to use with git. We expect the 7.2 branch to be short-lived, with 7.4.1 coming out shortly after ICFP as normal. Full release notes are here: http://www.haskell.org/ghc/docs/7.2.1/html/users_guide/release-7-2-1.html How to get it ~~~~~~~~~~~~~ The easy way is to go to the web page, which should be self-explanatory: http://www.haskell.org/ghc/ We supply binary builds in the native package format for many platforms, and the source distribution is available from the same place. Packages will appear as they are built - if the package for your system isn't available yet, please try again later. Background ~~~~~~~~~~ Haskell is a standard lazy functional programming language. GHC is a state-of-the-art programming suite for Haskell. Included is an optimising compiler generating good code for a variety of platforms, together with an interactive system for convenient, quick development. The distribution includes space and time profiling facilities, a large collection of libraries, and support for various language extensions, including concurrency, exceptions, and foreign language interfaces (C, whatever). GHC is distributed under a BSD-style open source license. A wide variety of Haskell related resources (tutorials, libraries, specifications, documentation, compilers, interpreters, references, contact information, links to research groups) are available from the Haskell home page (see below). On-line GHC-related resources ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Relevant URLs on the World-Wide Web: GHC home page http://www.haskell.org/ghc/ GHC developers' home page http://hackage.haskell.org/trac/ghc/ Haskell home page http://www.haskell.org/ Supported Platforms ~~~~~~~~~~~~~~~~~~~ The list of platforms we support, and the people responsible for them, is here: http://hackage.haskell.org/trac/ghc/wiki/Contributors Ports to other platforms are possible with varying degrees of difficulty. The Building Guide describes how to go about porting to a new platform: http://hackage.haskell.org/trac/ghc/wiki/Building Developers ~~~~~~~~~~ We welcome new contributors. Instructions on accessing our source code repository, and getting started with hacking on GHC, are available from the GHC's developer's site run by Trac: http://hackage.haskell.org/trac/ghc/ Mailing lists ~~~~~~~~~~~~~ We run mailing lists for GHC users and bug reports; to subscribe, use the web interfaces at http://www.haskell.org/mailman/listinfo/glasgow-haskell-users http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs There are several other haskell and ghc-related mailing lists on www.haskell.org; for the full list, see http://www.haskell.org/mailman/listinfo/ Some GHC developers hang out on #haskell on IRC, too: http://www.haskell.org/haskellwiki/IRC_channel Please report bugs using our bug tracking system. Instructions on reporting bugs can be found here: http://www.haskell.org/ghc/reportabug

9 16