[project @ 1997-10-30 22:31:06 by sof]

[ghc-hetmet.git] / ghc / runtime / storage / SMscav.lc

diff --git a/ghc/runtime/storage/SMscav.lc b/ghc/runtime/storage/SMscav.lc
index 6e400b9..3d9256f 100644 (file)
--- 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);