[project @ 2001-03-28 16:38:39 by simonmar]

use newStablePtr instead of deprecated makeStablePtr.

diff --git a/ghc/tests/lib/should_run/stableptr004.hs b/ghc/tests/lib/should_run/stableptr004.hs
index 523bdb2..86e9732 100644 (file)
--- a/ghc/tests/lib/should_run/stableptr004.hs
+++ b/ghc/tests/lib/should_run/stableptr004.hs
@@ -6,7 +6,7 @@ import StablePtr
 main = do
   let xs = [ 1 .. 50000 ]
   let ys = [ 1 .. 60000 ]
-  s1 <- makeStablePtr xs
+  s1 <- newStablePtr xs
   print (sum xs)
   freeStablePtr s1
   print (sum ys)