[project @ 1999-10-13 16:39:10 by simonmar]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgBindery.lhs

diff --git a/ghc/compiler/codeGen/CgBindery.lhs b/ghc/compiler/codeGen/CgBindery.lhs
index 3481fea..8cda07b 100644 (file)
--- a/ghc/compiler/codeGen/CgBindery.lhs
+++ b/ghc/compiler/codeGen/CgBindery.lhs
@@ -193,7 +193,7 @@ modifyBindC name mangle_fn info_down (MkCgState absC binds usage)
   = MkCgState absC (modifyVarEnv mangle_fn binds name) usage
 
 lookupBindC :: Id -> FCode CgIdInfo
-lookupBindC name info_down@(MkCgInfoDown _ static_binds srt _)
+lookupBindC name info_down@(MkCgInfoDown _ static_binds srt ticky _)
                 state@(MkCgState absC local_binds usage)
   = (val, state)
   where
@@ -208,7 +208,7 @@ lookupBindC name info_down@(MkCgInfoDown _ static_binds srt _)
          -> cgPanic (text "lookupBindC: no info for" <+> ppr name) info_down state
 
 cgPanic :: SDoc -> CgInfoDownwards -> CgState -> a
-cgPanic doc info_down@(MkCgInfoDown _ static_binds srt _)
+cgPanic doc info_down@(MkCgInfoDown _ static_binds srt ticky _)
            state@(MkCgState absC local_binds usage)
   = pprPanic "cgPanic"
             (vcat [doc,