Repository : ssh://darcs.haskell.org//srv/darcs/packages/Win32 On branch : master
http://hackage.haskell.org/trac/ghc/changeset/21335a30161c099da79ae9619c9782e5e32e4644 >--------------------------------------------------------------- commit 21335a30161c099da79ae9619c9782e5e32e4644 Author: Ian Lynagh <[email protected]> Date: Thu Sep 27 12:48:01 2012 +0100 Use finiteBitSize (bitSize now gives deprecated warnings) >--------------------------------------------------------------- System/Win32/Types.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/System/Win32/Types.hs b/System/Win32/Types.hs index 0dc41af..e0233c4 100644 --- a/System/Win32/Types.hs +++ b/System/Win32/Types.hs @@ -238,11 +238,11 @@ foreign import ccall unsafe "maperrno" -- in base/cbits/Win32Utils.c ddwordToDwords :: DDWORD -> (DWORD,DWORD) ddwordToDwords n = - (fromIntegral (n `shiftR` bitSize (undefined::DWORD)) + (fromIntegral (n `shiftR` finiteBitSize (undefined :: DWORD)) ,fromIntegral (n .&. fromIntegral (maxBound :: DWORD))) dwordsToDdword:: (DWORD,DWORD) -> DDWORD -dwordsToDdword (hi,low) = (fromIntegral low) .|. (fromIntegral hi `shiftL`bitSize hi) +dwordsToDdword (hi,low) = (fromIntegral low) .|. (fromIntegral hi `shiftL` finiteBitSize hi) ---------------------------------------------------------------- -- Primitives _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
