From: sof <unknown>
Date: Wed, 24 Jul 2002 18:18:13 +0000 (+0000)
Subject: [project @ 2002-07-24 18:18:13 by sof]
X-Git-Tag: Approx_11550_changesets_converted~1805
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dd0f41298bebcc4e6d966d38d457f3f7c6938bfa;p=ghc-hetmet.git

[project @ 2002-07-24 18:18:13 by sof]
warning removal
---

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index 9277c72..3ac0e4e 100644
--- a/ghc/rts/Printer.c
+++ b/ghc/rts/Printer.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.52 2002/07/17 09:21:50 simonmar Exp $
+ * $Id: Printer.c,v 1.53 2002/07/24 18:18:13 sof Exp $
  *
  * (c) The GHC Team, 1994-2000.
  *
@@ -980,7 +980,7 @@ findPtr(P_ p, int follow)
 		  if (*q == (W_)p) {
 		      if (i < arr_size) {
 			  r = q;
-			  while (!LOOKS_LIKE_GHC_INFO(*r) || *r == NULL) {
+			  while (!LOOKS_LIKE_GHC_INFO(*r) || (P_)*r == NULL) {
 			      r--;
 			  }
 			  fprintf(stdout, "%p = ", r);