[project @ 2004-08-13 10:45:16 by simonmar]

[ghc-hetmet.git] / ghc / compiler / absCSyn / PprAbsC.lhs

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