X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FPprAbsC.lhs;h=300b5f4fff3dfcc251b64d12bea6520a1a8f357e;hp=f0ae17779fd930486f88a9d915cbd7c0648d3a7c;hb=3f5e4368fd4e87e116ce34be4cf9dd0f9f96726d;hpb=e82f4943bcf9e40188a75ad21d939a1a794c8a16

diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs
index f0ae177..300b5f4 100644
--- a/ghc/compiler/absCSyn/PprAbsC.lhs
+++ b/ghc/compiler/absCSyn/PprAbsC.lhs
@@ -28,7 +28,7 @@ import AbsCUtils	( getAmodeRep, nonemptyAbsC,
 
 import ForeignCall	( CCallSpec(..), CCallTarget(..), playSafe,
 			  playThreadSafe, ccallConvAttribute,
-			  ForeignCall(..), Safety(..), DNCallSpec(..),
+			  ForeignCall(..), DNCallSpec(..),
 			  DNType(..), DNKind(..) )
 import CLabel		( externallyVisibleCLabel,
 			  needsCDecl, pprCLabel, mkClosureLabel,
@@ -1411,7 +1411,7 @@ pprMagicId SpLim		    = ptext SLIT("SpLim")
 pprMagicId Hp			    = ptext SLIT("Hp")
 pprMagicId HpLim		    = ptext SLIT("HpLim")
 pprMagicId CurCostCentre	    = ptext SLIT("CCCS")
-pprMagicId VoidReg		    = panic "pprMagicId:VoidReg!"
+pprMagicId VoidReg		    = ptext SLIT("VoidReg")
 
 pprVanillaReg :: Int# -> SDoc
 pprVanillaReg n = char 'R' <> int (I# n)