[ctypes-commit] ctypes/source callproc.c,1.97,1.98

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

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

Modified Files:
	callproc.c 
Log Message:
If after a FUNCFLAG_PYTHONAPI call the error flag is set, we *must*
raise an error, otherwise really stange things may happen.


Index: callproc.c
===================================================================
RCS file: /cvsroot/ctypes/ctypes/source/callproc.c,v
retrieving revision 1.97
retrieving revision 1.98
diff -C2 -d -r1.97 -r1.98
*** callproc.c	20 Aug 2004 14:28:46 -0000	1.97
--- callproc.c	20 Aug 2004 14:50:13 -0000	1.98
***************
*** 662,665 ****
--- 662,667 ----
  	}
  #endif
+ 	if ((flags & FUNCFLAG_PYTHONAPI) && PyErr_Occurred())
+ 		return -1;
  	return 0;
  }