From: sof <unknown>
Date: Thu, 30 Oct 1997 22:31:06 +0000 (+0000)
Subject: [project @ 1997-10-30 22:31:06 by sof]
X-Git-Tag: Approx_2487_patches~1324
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9ef6bbaf339096178bb756722144f7893fb77e83;p=ghc-hetmet.git

[project @ 1997-10-30 22:31:06 by sof]
Minor fix to suppress gcc warning
---

diff --git a/ghc/runtime/storage/SMscav.lc b/ghc/runtime/storage/SMscav.lc
index 6e400b9..3d9256f 100644
--- a/ghc/runtime/storage/SMscav.lc
+++ b/ghc/runtime/storage/SMscav.lc
@@ -926,10 +926,10 @@ sanityChk_StkO(P_ stko)
     }
 
     while(sub > 0) {
-    	P_ subptr;
-    	P_ suaptr;
-    	P_ updptr;
-    	P_ retptr;
+    	P_  subptr;
+    	PP_ suaptr;
+    	P_  updptr;
+    	P_  retptr;
 
 	ASSERT(sub >= 1);
 	ASSERT(sub <= cts_size);