X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FPprAbsC.lhs;h=76b1f43f2977cf9a4a270c8c09d6b9a90d15a4a5;hb=b820793f6103cd9ea1830de6a6ffd6c604de177e;hp=f0ae17779fd930486f88a9d915cbd7c0648d3a7c;hpb=a7d8f43718b167689c0a4a4c23b33a325e0239f1;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs
index f0ae177..76b1f43 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,
@@ -846,9 +846,7 @@ pprFCall call uniq args results vol_regs
 	     ]
       DNCall (DNCallSpec isStatic kind assem nm argTys resTy) ->
          let
-	  target    = StaticTarget (mkFastString nm)
 	  resultVar = "_ccall_result"
-	  
 	  hasAssemArg = isStatic || kind == DNConstructor
 	  invokeOp  = 
 	    case kind of
@@ -949,7 +947,6 @@ pprFCall call uniq args results vol_regs
 
     call_str tgt 
       = case tgt of
-	  CasmTarget str  -> unpackFS str
   	  StaticTarget fn -> mk_ccall_str (pprCLabelString fn) ccall_args
 	  DynamicTarget   -> mk_ccall_str dyn_fun	       (tail ccall_args)
 
@@ -1294,7 +1291,6 @@ ppr_amode (CMacroExpr pk macro as)
 cExprMacroText ENTRY_CODE 		= SLIT("ENTRY_CODE")
 cExprMacroText ARG_TAG    		= SLIT("ARG_TAG")
 cExprMacroText GET_TAG    		= SLIT("GET_TAG")
-cExprMacroText UPD_FRAME_UPDATEE 	= SLIT("UPD_FRAME_UPDATEE")
 cExprMacroText CCS_HDR		 	= SLIT("CCS_HDR")
 cExprMacroText BYTE_ARR_CTS	 	= SLIT("BYTE_ARR_CTS")
 cExprMacroText PTRS_ARR_CTS	 	= SLIT("PTRS_ARR_CTS")
@@ -1411,7 +1407,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)