From: simonmar <unknown>
Date: Mon, 15 May 2000 14:49:47 +0000 (+0000)
Subject: [project @ 2000-05-15 14:49:47 by simonmar]
X-Git-Tag: Approximately_9120_patches~4458
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9cfc3137aff7cdff305a718051a48a52e1832651;p=ghc-hetmet.git

[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
--- 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