GC: implemented basic GC memory swapping; some refactoring

[mate.git] / Mate / Tests / MockRefs.hs

diff --git a/Mate/Tests/MockRefs.hs b/Mate/Tests/MockRefs.hs
index f87d593eb0f70029b0f3e863dd31f10c3e318f9b..b1372606894d8bd18b1d36cc3524313fc85da8a7 100644 (file)
--- a/Mate/Tests/MockRefs.hs
+++ b/Mate/Tests/MockRefs.hs
@@ -19,7 +19,7 @@ instance RefObj (Ptr a) where
   marked      = markedRef
   mark        = markRef (0x1::Int32)
   unmark      = markRef (0x0::Int32)
-  newRef      = newRefPtr
+  setNewRef   = setNewRefPtr
   patchRefs   = patchRefsPtr
   cast = castPtr
   getNewRef ptr = peekByteOff ptr newRefOff
@@ -45,8 +45,8 @@ markedRef ptr = liftM ((/=0) . fromIntegral) (peekByteOff ptr markedOff :: IO In
 markRef :: Int32 -> Ptr a -> IO ()
 markRef val ptr = pokeByteOff ptr markedOff val
 
-newRefPtr :: Ptr a -> Ptr a -> IO ()
-newRefPtr ptr newPtr = pokeByteOff ptr newRefOff newPtr
+setNewRefPtr :: Ptr a -> Ptr a -> IO ()
+setNewRefPtr ptr newPtr = pokeByteOff ptr newRefOff newPtr
 
 patchRefsPtr :: Ptr a -> [Ptr a] -> IO ()
 patchRefsPtr ptr xs = pokeArray (ptr `plusPtr` fieldsOff) xs