From 5bed878be18b1c833e91d5bb335e58b5805bc762 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 29 Jan 2002 14:41:52 +0000
Subject: [PATCH] [project @ 2002-01-29 14:41:52 by simonmar] Fix highly
 obscure bug.

The heap check in cmpIntegerzh_fast was erroneously passing
cmpIntegerIntzh_fast as the resumption point instead of
cmpIntegerzh_fast, with the result that if a heap-check happened to
strike in cmpIntegerzh_fast then we would end up resuming in
cmpIntegerIntzh and returning an incorrect comparison result.  One
symptom is that very occasionally floating point numbers would print
incorrectly (ending in an 'a').
---
 ghc/rts/PrimOps.hc |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc
index 8e4f5e8..76159ff 100644
--- a/ghc/rts/PrimOps.hc
+++ b/ghc/rts/PrimOps.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.89 2002/01/26 18:04:48 rje Exp $
+ * $Id: PrimOps.hc,v 1.90 2002/01/29 14:41:52 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -814,7 +814,7 @@ FN_(cmpIntegerzh_fast)
   MP_INT arg1, arg2;
   I_ r;
   FB_
-  MAYBE_GC(R2_PTR | R4_PTR, cmpIntegerIntzh_fast);
+  MAYBE_GC(R2_PTR | R4_PTR, cmpIntegerzh_fast);
   arg1._mp_size	= R1.i;
   arg1._mp_alloc= ((StgArrWords *)R2.p)->words;
   arg1._mp_d	= (mp_limb_t *) (BYTE_ARR_CTS(R2.p));
-- 
1.7.10.4