[commit: Win32] master: Fix WndProc for Win64 (c42bc46)

[Ian Lynagh]

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