[commit: Win32] master: Remove castFunPtrToLONG (e5f27f2)

[Ian Lynagh]

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 <igloo at earth.li>
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); }