[project @ 2003-12-16 16:19:29 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 f0ae177..76b1f43 100644 (file)
--- 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)