[ctypes-commit] ctypes/source _ctypes.c,1.173,1.174

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

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

Modified Files:
	_ctypes.c 
Log Message:
Cycle GC support for the PointerType_Type metaclass.


Index: _ctypes.c
===================================================================
RCS file: /cvsroot/ctypes/ctypes/source/_ctypes.c,v
retrieving revision 1.173
retrieving revision 1.174
diff -C2 -d -r1.173 -r1.174
*** _ctypes.c	20 Oct 2004 08:13:13 -0000	1.173
--- _ctypes.c	20 Oct 2004 10:35:11 -0000	1.174
***************
*** 497,500 ****
--- 497,501 ----
  	}
  	Py_INCREF(proto);
+ 	Py_XDECREF(stgdict->proto);
  	stgdict->proto = proto;
  	return 0;
***************
*** 625,632 ****
  	0,					/* tp_setattro */
  	0,					/* tp_as_buffer */
! 	Py_TPFLAGS_DEFAULT | Py_TPFLAGS_BASETYPE, /* tp_flags */
  	"metatype for the Pointer Objects",	/* tp_doc */
! 	0,					/* tp_traverse */
! 	0,					/* tp_clear */
  	0,					/* tp_richcompare */
  	0,					/* tp_weaklistoffset */
--- 626,633 ----
  	0,					/* tp_setattro */
  	0,					/* tp_as_buffer */
! 	Py_TPFLAGS_DEFAULT | Py_TPFLAGS_BASETYPE | Py_TPFLAGS_HAVE_GC, /* tp_flags */
  	"metatype for the Pointer Objects",	/* tp_doc */
! 	(traverseproc)CDataType_traverse,	/* tp_traverse */
! 	(inquiry)CDataType_clear,		/* tp_clear */
  	0,					/* tp_richcompare */
  	0,					/* tp_weaklistoffset */