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

wibble

diff --git a/ghc/compiler/nativeGen/AbsCStixGen.lhs b/ghc/compiler/nativeGen/AbsCStixGen.lhs
index 35649a1..36cb457 100644 (file)
--- a/ghc/compiler/nativeGen/AbsCStixGen.lhs
+++ b/ghc/compiler/nativeGen/AbsCStixGen.lhs
@@ -158,7 +158,7 @@ Here we handle top-level things, like @CCodeBlock@s and
             : StSegment TextSegment
             : StLabel lbl
             : StCondJump tmp_lbl (StPrim IntNeOp       
-                                    [StInd IntRep StCLbl moduleRegdLabel, 
+                                    [StInd IntRep (StCLbl moduleRegdLabel),
                                      StInt 0])
             : StAssign IntRep (StInd IntRep (StCLbl moduleRegdLabel)) (StInt 1)
             : code