Skip to content

Commit e5f27f2

Browse files
committed
Remove castFunPtrToLONG
It's not used in a GHC tree, and doesn't really make sense on Win64
1 parent f713147 commit e5f27f2

File tree

2 files changed

+0
-4
lines changed

2 files changed

+0
-4
lines changed

System/Win32/Types.hs

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -275,9 +275,6 @@ foreign import ccall unsafe "HsWin32.h"
275275
foreign import ccall unsafe "HsWin32.h"
276276
castPtrToUINTPtr :: Ptr s -> UINT_PTR
277277

278-
foreign import ccall unsafe "HsWin32.h"
279-
castFunPtrToLONG :: FunPtr a -> LONG
280-
281278
type LCID = DWORD
282279

283280
type LANGID = WORD

include/HsWin32.h

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,6 @@
1414

1515
INLINE UINT_PTR castPtrToUINTPtr(void *p) { return (UINT_PTR)p; }
1616
INLINE void *castUINTPtrToPtr(UINT_PTR n) { return (void *)n; }
17-
INLINE LONG castFunPtrToLONG(void *p) { return (LONG)p; }
1817
INLINE WORD hIWORD(DWORD w) { return HIWORD(w); }
1918
INLINE WORD lOWORD(DWORD w) { return LOWORD(w); }
2019

0 commit comments

Comments
 (0)