[project @ 2003-09-23 15:10:23 by simonpj]

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

diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs
index 300b5f4..bea6d67 100644 (file)
--- a/ghc/compiler/absCSyn/PprAbsC.lhs
+++ b/ghc/compiler/absCSyn/PprAbsC.lhs
@@ -949,7 +949,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 +1293,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")