From: sof <unknown>
Date: Mon, 24 Aug 1998 19:19:44 +0000 (+0000)
Subject: [project @ 1998-08-24 19:19:44 by sof]
X-Git-Tag: Approx_2487_patches~290
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ab6759eb93504228df33fa4d0eebf065c181b62c;p=ghc-hetmet.git

[project @ 1998-08-24 19:19:44 by sof]
Moved Util.unvectorize to a more appropriate home (CString)
---

diff --git a/ghc/lib/misc/Util.lhs b/ghc/lib/misc/Util.lhs
index 6f134bf..6a9ce84 100644
--- a/ghc/lib/misc/Util.lhs
+++ b/ghc/lib/misc/Util.lhs
@@ -87,12 +87,9 @@ module Util (
 	, assertPanic
 #endif {- COMPILING_GHC -}
 
-	, unvectorize        
-
     ) where
 
 import List(zipWith4)
-import PackedString ( unpackCStringIO )
 import Addr
 
 infixr 9 `thenCmp`
@@ -811,18 +808,3 @@ assertPanic file line = panic ("ASSERT failed! file "++file++", line "++show lin
 #endif {- COMPILING_GHC -}
 \end{code}
 
-Turn a NULL-terminated vector of null-terminated strings into a string list
-(ToDo: create a module of common marshaling functions)
-
-\begin{code}
-unvectorize :: Addr -> Int -> IO [String]
-unvectorize ptr n
-  | str == ``NULL'' = return []
-  | otherwise = do
-	x  <- unpackCStringIO str
-	xs <- unvectorize ptr (n+1)
-	return (x : xs)
-  where
-   str = indexAddrOffAddr ptr n
-
-\end{code}