[ctypes-commit] ctypes/source _ctypes.c,1.310,1.311

[Thomas H. <th...@us...>]

Update of /cvsroot/ctypes/ctypes/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3892

Modified Files:
	_ctypes.c 
Log Message:
Fix foreign functions loaded via ordinal on Windows CE.


Index: _ctypes.c
===================================================================
RCS file: /cvsroot/ctypes/ctypes/source/_ctypes.c,v
retrieving revision 1.310
retrieving revision 1.311
diff -C2 -d -r1.310 -r1.311
*** _ctypes.c	10 Mar 2006 17:35:37 -0000	1.310
--- _ctypes.c	10 Mar 2006 20:08:27 -0000	1.311
***************
*** 2501,2505 ****
  #ifdef MS_WIN32
  	if (PyInt_Check(obj) || PyLong_Check(obj)) {
! 		*pname = MAKEINTRESOURCE(PyInt_AsUnsignedLongMask(obj) & 0xFFFF);
  		return 1;
  	}
--- 2501,2508 ----
  #ifdef MS_WIN32
  	if (PyInt_Check(obj) || PyLong_Check(obj)) {
! 		/* We have to use MAKEINTRESOURCEA for Windows CE.
! 		   Works on Windows as well, of course.
! 		*/
! 		*pname = MAKEINTRESOURCEA(PyInt_AsUnsignedLongMask(obj) & 0xFFFF);
  		return 1;
  	}