Changeset 14193 for src/Pugs/Prim/Yaml.hs

Timestamp:

10/11/06 05:35:30 (2 years ago)

Author:

audreyt

Message:

* Rename DrIFT.YAML's addressOf to stableAddressOf,

as it's returning StablePtr?'s address, not the real pointer.

Files:

• src/Pugs/Prim/Yaml.hs (modified) (3 diffs)

src/Pugs/Prim/Yaml.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fno-warn-orphans #-}
 
-module Pugs.Prim.Yaml (
-  evalYaml, dumpYaml, addressOf,
-) where
+module Pugs.Prim.Yaml ( evalYaml, dumpYaml ) where
 import Pugs.Internals
 import Pugs.AST
@@ -72 +70 @@
 strNode = mkNode . EStr . packBuf
 
-{-
-addressOf :: a -> IO Int
-addressOf x = do
-    ptr <- newStablePtr x
-    return (castStablePtrToPtr ptr `minusPtr` (nullPtr :: Ptr ()))
--}
-
 toYaml :: (?seen :: IntSet.IntSet) => Val -> Eval YamlNode
 toYaml VUndef       = return $ mkNode ENil
@@ -84 +75 @@
 toYaml (VStr str)   = return $ strNode (encodeUTF8 str)
 toYaml v@(VRef r)   = do
-    ptr <- liftIO $ addressOf r
+    ptr <- liftIO $ stableAddressOf r
     if IntSet.member ptr ?seen then return nilNode{ n_anchor = AReference ptr } else do
         let ?seen = IntSet.insert ptr ?seen