Trace.Hpc.Reflect.examineTix segfaults on 64bit

The following seg-faults on my 64bit ghc 6.12.1 when compiled with -fhpc

module Main where

import B
import Trace.Hpc.Reflect

main :: IO ()
main = do
  examineTix
  print (foo 3)
  return ()

module B where

foo 0 = 0
foo n = 1 + foo (n-1)

>ghc --make -fforce-recomp -fhpc Main
[1 of 2] Compiling B                ( B.hs, B.o )
[2 of 2] Compiling Main             ( Main.hs, Main.o )
Linking Main ...

10:21:55 - tora@colorado:/tmp/HPC
>./Main 
Segmentation fault

I believe the cause is that data ModuleInfo = ModuleInfo String Int Hash (Ptr Word64) in Trace.Hpc.Reflect uses a variable sized Int instead of a fixed (32bit if I'm reading the sources correctly) Word32 for the count.

I've attached a patch that should fix the issue.

Trac metadata

Trac field	Value
Version	6.12.1
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Code Coverage
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture