Tcl Source Code

Check-in [c69140f170]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:truncation in SetWindowLongPtr data
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-4-branch
Files: files | file ages | folders
SHA1: c69140f170c0efd8c4fdb470225ca31b770760a5
User & Date: jan.nijtmans 2012-04-25 11:08:32
Context
2012-04-26
15:03
compiler warning check-in: 64764a7fb3 user: jan.nijtmans tags: core-8-4-branch
2012-04-25
11:11
merge-mark check-in: fd5204d93c user: jan.nijtmans tags: core-8-5-branch
11:08
truncation in SetWindowLongPtr data check-in: c69140f170 user: jan.nijtmans tags: core-8-4-branch
2012-04-24
20:42
syntax error check-in: 19382d2dcc user: jan.nijtmans tags: core-8-4-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to win/tclWinDde.c.

810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826

    switch (uMsg) {
	case WM_CREATE: {
	    LPCREATESTRUCT lpcs = (LPCREATESTRUCT)lParam;
	    ddeEnumServices *es;
	    es = (ddeEnumServices*)lpcs->lpCreateParams;
#ifdef _WIN64
	    SetWindowLongPtr(hwnd, GWLP_USERDATA, (long)es);
#else
	    SetWindowLong(hwnd, GWL_USERDATA, (long)es);
#endif
	    break;
	}
	case WM_DDE_ACK:
	    lr =  DdeServicesOnAck(hwnd, wParam, lParam);
	    break;
	default:







|

|







810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826

    switch (uMsg) {
	case WM_CREATE: {
	    LPCREATESTRUCT lpcs = (LPCREATESTRUCT)lParam;
	    ddeEnumServices *es;
	    es = (ddeEnumServices*)lpcs->lpCreateParams;
#ifdef _WIN64
	    SetWindowLongPtr(hwnd, GWLP_USERDATA, (LONG_PTR) es);
#else
	    SetWindowLong(hwnd, GWL_USERDATA, (LONG) es);
#endif
	    break;
	}
	case WM_DDE_ACK:
	    lr =  DdeServicesOnAck(hwnd, wParam, lParam);
	    break;
	default: