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
%
......@@ -208,7 +208,7 @@ withArray0 marker vals f =
-- destruct each element of an array (in reverse order)
--
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 =
sequence_ [destruct (ptr `advancePtr` i)
| i <- [size-1, size-2 .. 0]]
......@@ -216,7 +216,7 @@ destructArray size ptr =
-- like `destructArray', but a terminator indicates where the array ends
--
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
size <- lengthArray0 marker ptr
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
%
......@@ -87,7 +87,7 @@ class Storable a where
poke ptr = pokeElemOff ptr 0
destruct _ = return ()
{-# DEPRECATED destruct "This function is not standards complaint" #-}
{-# DEPRECATED destruct "This function is not standards compliant" #-}
\end{code}
System-dependent, but rather obvious instances
......
Markdown is supported
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