[project @ 1998-08-24 19:19:44 by sof]

Moved Util.unvectorize to a more appropriate home (CString)

1 files changed, 0 insertions, 18 deletions

diff --git a/ghc/lib/misc/Util.lhs b/ghc/lib/misc/Util.lhs
index 6f134bfa85..6a9ce84c7f 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}