[Swig-cvs] SWIG/Lib/tcl tclrun.swg,1.7,1.8

[Marcelo M. <mar...@us...>]

Update of /cvsroot/swig/SWIG/Lib/tcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23369/Lib/tcl

Modified Files:
	tclrun.swg 
Log Message:
fix error reported by William K. Foster about bad strings generating seg faults

Index: tclrun.swg
===================================================================
RCS file: /cvsroot/swig/SWIG/Lib/tcl/tclrun.swg,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** tclrun.swg	17 Jan 2006 21:43:55 -0000	1.7
--- tclrun.swg	24 Jan 2006 22:32:37 -0000	1.8
***************
*** 134,138 ****
    c = SWIG_UnpackData(c,ptr,sizeof(void *));
    if (ty) {
!     tc = SWIG_TypeCheck(c,ty);
      if (!tc) {
        return SWIG_ERROR;
--- 134,138 ----
    c = SWIG_UnpackData(c,ptr,sizeof(void *));
    if (ty) {
!     tc = c ? SWIG_TypeCheck(c,ty) : 0;
      if (!tc) {
        return SWIG_ERROR;