Repository : ssh://darcs.haskell.org//srv/darcs/packages/Win32 On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c42bc462affa50d5cee5a4cfdd1d872088f32a4c >--------------------------------------------------------------- commit c42bc462affa50d5cee5a4cfdd1d872088f32a4c Author: Ian Lynagh <[email protected]> Date: Fri Mar 16 13:46:02 2012 +0000 Fix WndProc for Win64 >--------------------------------------------------------------- cbits/WndProc.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/cbits/WndProc.c b/cbits/WndProc.c index 49456f8..6170e2f 100644 --- a/cbits/WndProc.c +++ b/cbits/WndProc.c @@ -71,7 +71,7 @@ LRESULT CALLBACK genericWndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lPara LRESULT lr; if (hwnd) { - LONG wndprocptr = GetWindowLong(hwnd,GWL_USERDATA); + LONG_PTR wndprocptr = GetWindowLongPtr(hwnd,GWLP_USERDATA); if (wndprocptr) { lr = ((LRESULT (*)(HWND,UINT,WPARAM,LPARAM))(wndprocptr))(hwnd,msg,wParam,lParam); #if 0 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
