From 9ef6bbaf339096178bb756722144f7893fb77e83 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 30 Oct 1997 22:31:06 +0000
Subject: [PATCH] [project @ 1997-10-30 22:31:06 by sof] Minor fix to suppress
gcc warning
---
ghc/runtime/storage/SMscav.lc | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/ghc/runtime/storage/SMscav.lc b/ghc/runtime/storage/SMscav.lc
index 6e400b90284e..3d9256f94f05 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);
--
GitLab