Commit 0fee0e07 authored by sewardj's avatar sewardj
Browse files

[project @ 2002-02-05 16:56:38 by sewardj]

[non-code-change] complaint --> compliant
parent 6eaccd1a
% ----------------------------------------------------------------------------- % -----------------------------------------------------------------------------
% $Id: PrelMarshalArray.lhs,v 1.9 2002/02/04 09:05:46 chak Exp $ % $Id: PrelMarshalArray.lhs,v 1.10 2002/02/05 16:56:38 sewardj Exp $
% %
% (c) The FFI task force, 2000 % (c) The FFI task force, 2000
% %
...@@ -208,7 +208,7 @@ withArray0 marker vals f = ...@@ -208,7 +208,7 @@ withArray0 marker vals f =
-- destruct each element of an array (in reverse order) -- destruct each element of an array (in reverse order)
-- --
destructArray :: Storable a => Int -> Ptr a -> IO () destructArray :: Storable a => Int -> Ptr a -> IO ()
{-# DEPRECATED destructArray "This function is not standards complaint" #-} {-# DEPRECATED destructArray "This function is not standards compliant" #-}
destructArray size ptr = destructArray size ptr =
sequence_ [destruct (ptr `advancePtr` i) sequence_ [destruct (ptr `advancePtr` i)
| i <- [size-1, size-2 .. 0]] | i <- [size-1, size-2 .. 0]]
...@@ -216,7 +216,7 @@ destructArray size ptr = ...@@ -216,7 +216,7 @@ destructArray size ptr =
-- like `destructArray', but a terminator indicates where the array ends -- like `destructArray', but a terminator indicates where the array ends
-- --
destructArray0 :: (Storable a, Eq a) => a -> Ptr a -> IO () destructArray0 :: (Storable a, Eq a) => a -> Ptr a -> IO ()
{-# DEPRECATED destructArray0 "This function is not standards complaint" #-} {-# DEPRECATED destructArray0 "This function is not standards compliant" #-}
destructArray0 marker ptr = do destructArray0 marker ptr = do
size <- lengthArray0 marker ptr size <- lengthArray0 marker ptr
sequence_ [destruct (ptr `advancePtr` i) sequence_ [destruct (ptr `advancePtr` i)
......
% ----------------------------------------------------------------------------- % -----------------------------------------------------------------------------
% $Id: PrelStorable.lhs,v 1.11 2002/02/04 09:05:46 chak Exp $ % $Id: PrelStorable.lhs,v 1.12 2002/02/05 16:56:39 sewardj Exp $
% %
% (c) The FFI task force, 2000 % (c) The FFI task force, 2000
% %
...@@ -87,7 +87,7 @@ class Storable a where ...@@ -87,7 +87,7 @@ class Storable a where
poke ptr = pokeElemOff ptr 0 poke ptr = pokeElemOff ptr 0
destruct _ = return () destruct _ = return ()
{-# DEPRECATED destruct "This function is not standards complaint" #-} {-# DEPRECATED destruct "This function is not standards compliant" #-}
\end{code} \end{code}
System-dependent, but rather obvious instances System-dependent, but rather obvious instances
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment