[project @ 2000-05-15 14:49:14 by simonmar]

fix bug in module initialization

diff --git a/ghc/compiler/nativeGen/AbsCStixGen.lhs b/ghc/compiler/nativeGen/AbsCStixGen.lhs
index b42f0b7..35649a1 100644 (file)
--- a/ghc/compiler/nativeGen/AbsCStixGen.lhs
+++ b/ghc/compiler/nativeGen/AbsCStixGen.lhs
@@ -44,10 +44,7 @@ import TyCon         ( tyConDataCons )
 import DataCon         ( dataConWrapId )
 import BitSet          ( intBS )
 import Name             ( NamedThing(..) )
-
-#ifdef REALLY_HASKELL_1_3
-ord = fromEnum :: Char -> Int
-#endif
+import Char            ( ord )
 \end{code}
 
 For each independent chunk of AbstractC code, we generate a list of
@@ -160,8 +157,9 @@ Here we handle top-level things, like @CCodeBlock@s and
             : StData IntRep [StInt 0]
             : StSegment TextSegment
             : StLabel lbl
-            : StCondJump tmp_lbl (StPrim IntNeOp [StCLbl moduleRegdLabel, 
-                                                  StInt 0])
+            : StCondJump tmp_lbl (StPrim IntNeOp       
+                                    [StInd IntRep StCLbl moduleRegdLabel, 
+                                     StInt 0])
             : StAssign IntRep (StInd IntRep (StCLbl moduleRegdLabel)) (StInt 1)
             : code 
             [ StLabel tmp_lbl