[project @ 2003-04-17 12:00:58 by simonmar]

[ghc-hetmet.git] / ghc / utils / genapply / GenApply.hs

diff --git a/ghc/utils/genapply/GenApply.hs b/ghc/utils/genapply/GenApply.hs
index b2486c0..1cfdf92 100644 (file)
--- a/ghc/utils/genapply/GenApply.hs
+++ b/ghc/utils/genapply/GenApply.hs
@@ -310,7 +310,7 @@ genApply args =
 --    else:
        text "case BCO:",
        nest 4 (vcat [
-         text "arity = BCO_ARITY((StgBCO *)R1.p);",
+         text "arity = ((StgBCO *)R1.p)->arity;",
          text "ASSERT(arity > 0);",
          genMkPAP "BUILD_PAP" "stg_BCO_entry" 
                True{-stack apply-} False{-not a PAP-}
@@ -441,7 +441,7 @@ genStackApply args =
 --
 -- These code fragments are used to save registers on the stack at a heap
 -- check failure in the entry code for a function.  We also have to save R1
--- and the return address (stg_gen_ap_info) on the stack.  See stg_fun_gc_gen
+-- and the return address (stg_gc_fun_info) on the stack.  See stg_gc_fun_gen
 -- in HeapStackCheck.hc for more details.
 
 mkStackSaveEntryLabel :: [ArgRep] -> Doc