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

wibble

[project @ 2000-05-15 14:49:47 by simonmar]
wibble
9cfc3137 · Simon Marlow · 5394f045 · 9cfc3137
Commit 9cfc3137 authored 24 years ago by Simon Marlow
--- 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