From 9cfc3137aff7cdff305a718051a48a52e1832651 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 15 May 2000 14:49:47 +0000 Subject: [PATCH] [project @ 2000-05-15 14:49:47 by simonmar] wibble --- ghc/compiler/nativeGen/AbsCStixGen.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4