Repository : ssh://darcs.haskell.org//srv/darcs/packages/Win32 On branch : master
http://hackage.haskell.org/trac/ghc/changeset/e5f27f217972a39f3c9746a3777e3e4cc30130c0 >--------------------------------------------------------------- commit e5f27f217972a39f3c9746a3777e3e4cc30130c0 Author: Ian Lynagh <[email protected]> Date: Tue Apr 24 23:14:17 2012 +0100 Remove castFunPtrToLONG It's not used in a GHC tree, and doesn't really make sense on Win64 >--------------------------------------------------------------- System/Win32/Types.hs | 3 --- include/HsWin32.h | 1 - 2 files changed, 0 insertions(+), 4 deletions(-) diff --git a/System/Win32/Types.hs b/System/Win32/Types.hs index 477838d..c834e46 100644 --- a/System/Win32/Types.hs +++ b/System/Win32/Types.hs @@ -275,9 +275,6 @@ foreign import ccall unsafe "HsWin32.h" foreign import ccall unsafe "HsWin32.h" castPtrToUINTPtr :: Ptr s -> UINT_PTR -foreign import ccall unsafe "HsWin32.h" - castFunPtrToLONG :: FunPtr a -> LONG - type LCID = DWORD type LANGID = WORD diff --git a/include/HsWin32.h b/include/HsWin32.h index dbe90a1..7bc7644 100644 --- a/include/HsWin32.h +++ b/include/HsWin32.h @@ -14,7 +14,6 @@ INLINE UINT_PTR castPtrToUINTPtr(void *p) { return (UINT_PTR)p; } INLINE void *castUINTPtrToPtr(UINT_PTR n) { return (void *)n; } -INLINE LONG castFunPtrToLONG(void *p) { return (LONG)p; } INLINE WORD hIWORD(DWORD w) { return HIWORD(w); } INLINE WORD lOWORD(DWORD w) { return LOWORD(w); } _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
