[ctypes-commit] ctypes/source _ctypes.c,1.230,1.231

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

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

Modified Files:
	_ctypes.c 
Log Message:
Plug a refcount leak.


Index: _ctypes.c
===================================================================
RCS file: /cvsroot/ctypes/ctypes/source/_ctypes.c,v
retrieving revision 1.230
retrieving revision 1.231
diff -C2 -d -r1.230 -r1.231
*** _ctypes.c	24 Mar 2005 08:27:55 -0000	1.230
--- _ctypes.c	24 Mar 2005 09:04:21 -0000	1.231
***************
*** 1935,1938 ****
--- 1935,1939 ----
  		if (PyTuple_Check(value)) {
  			PyObject *ob;
+ 			PyObject *result;
  			ob = PyObject_CallObject(type, value);
  			if (ob == NULL) {
***************
*** 1941,1947 ****
  				return NULL;
  			}
! 			/* Doesn't this leak a ref to 'ob'? */
! 			return _CData_set(dst, type, setfunc, ob,
! 					  size, ptr);
  		} else if (value == Py_None && PointerTypeObject_Check(type)) {
  			*(void **)dst->b_ptr = NULL;
--- 1942,1949 ----
  				return NULL;
  			}
! 			result = _CData_set(dst, type, setfunc, ob,
! 					    size, ptr);
! 			Py_DECREF(ob);
! 			return result;
  		} else if (value == Py_None && PointerTypeObject_Check(type)) {
  			*(void **)dst->b_ptr = NULL;