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

diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs
index 300b5f4..76b1f43 100644
--- a/ghc/compiler/absCSyn/PprAbsC.lhs
+++ b/ghc/compiler/absCSyn/PprAbsC.lhs
@@ -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")