+RTS -xc and SIGINT handler gives seg fault

To reproduce this bug, save the attached file Bug.hs, 
run the following commands

  ghc -package posix -prof -auto-all Bug.hs
  ./a.out +RTS -xc

and then hit control-C.  The result is a SIGSEGV inside
fprintCCS().

Trac metadata

Trac field	Value
Version	None
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	ResolvedFixed
Component	Profiling
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture

To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information

Admin message

+RTS -xc and SIGINT handler gives seg fault