diff options
| author | nijtmans <nijtmans> | 2011-01-25 22:33:56 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2011-01-25 22:33:56 (GMT) |
| commit | b2a0e43c20f9760344b1df76388fb910a4849f3d (patch) | |
| tree | 150b7e7d28f9c6fd1f44e197c65ffe5c4908eec8 /win/tclWinDde.c | |
| parent | 75f084f6970d2344bb5a82fdff6a73825bc6e64e (diff) | |
| download | tcl-b2a0e43c20f9760344b1df76388fb910a4849f3d.zip tcl-b2a0e43c20f9760344b1df76388fb910a4849f3d.tar.gz tcl-b2a0e43c20f9760344b1df76388fb910a4849f3d.tar.bz2 | |
Fix various gcc-4.5.2 64-bit warning messages,
e.g. by using full 64-bits for socket fd's
Diffstat (limited to 'win/tclWinDde.c')
| -rw-r--r-- | win/tclWinDde.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win/tclWinDde.c b/win/tclWinDde.c index 2b1286c..4a045eb 100644 --- a/win/tclWinDde.c +++ b/win/tclWinDde.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinDde.c,v 1.45 2010/10/11 12:11:53 nijtmans Exp $ + * RCS: @(#) $Id: tclWinDde.c,v 1.46 2011/01/25 22:33:56 nijtmans Exp $ */ #undef STATIC_BUILD @@ -220,7 +220,7 @@ Initialize(void) if (ddeInstance == 0) { Tcl_MutexLock(&ddeMutex); if (ddeInstance == 0) { - if (DdeInitializeA(&ddeInstance, DdeServerProc, + if (DdeInitializeA(&ddeInstance, (PFNCALLBACK) DdeServerProc, CBF_SKIP_REGISTRATIONS | CBF_SKIP_UNREGISTRATIONS | CBF_FAIL_POKES, 0) != DMLERR_NO_ERROR) { ddeInstance = 0; @@ -967,7 +967,7 @@ DdeClientWindowProc( (struct DdeEnumServices *) lpcs->lpCreateParams; #ifdef _WIN64 - SetWindowLongPtr(hwnd, GWLP_USERDATA, (long)es); + SetWindowLongPtr(hwnd, GWLP_USERDATA, (LONG_PTR)es); #else SetWindowLongA(hwnd, GWL_USERDATA, (long)es); #endif @@ -1042,7 +1042,7 @@ DdeEnumWindowsCallback( HWND hwndTarget, LPARAM lParam) { - DWORD dwResult = 0; + DWORD_PTR dwResult = 0; struct DdeEnumServices *es = (struct DdeEnumServices *) lParam; SendMessageTimeoutA(hwndTarget, WM_DDE_INITIATE, (WPARAM)es->hwnd, |