% -----------------------------------------------------------------------------
-% $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
%
-- 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]]
-- 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
%
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