[project @ 2000-01-13 14:33:57 by hwloidl]

[ghc-hetmet.git] / ghc / compiler / nativeGen / StixMacro.lhs

diff --git a/ghc/compiler/nativeGen/StixMacro.lhs b/ghc/compiler/nativeGen/StixMacro.lhs
index 747759e..5ff2ea1 100644 (file)
--- a/ghc/compiler/nativeGen/StixMacro.lhs
+++ b/ghc/compiler/nativeGen/StixMacro.lhs
@@ -122,6 +122,7 @@ macroCode PUSH_UPD_FRAME args
        frame n = StInd PtrRep
            (StIndex PtrRep stgSp (StInt (toInteger (n-uF_SIZE))))
 
+        -- HWL: these values are *wrong* in a GranSim setup; ToDo: fix
        a1 = StAssign PtrRep (frame uF_RET)     upd_frame_info
        a3 = StAssign PtrRep (frame uF_SU)      stgSu
        a4 = StAssign PtrRep (frame uF_UPDATEE) bhptr