remove extra error handling

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7696 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-10-20 12:06:27 +00:00
commit 77a2b69047

View file

@ -130,7 +130,6 @@ SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swi
if (ty) {
tc = SWIG_TypeCheck(c,ty);
if (!tc) {
Tcl_ResetResult(interp);
return SWIG_ERROR;
}
if (flags & SWIG_POINTER_DISOWN) {
@ -184,16 +183,6 @@ SWIG_Tcl_ConvertPacked(Tcl_Interp *interp, Tcl_Obj *obj, void *ptr, int sz, swig
type_error:
if (flags) {
if (ty) {
Tcl_SetResult(interp, (char *) "Type error. Expected ", TCL_STATIC);
Tcl_AppendElement(interp, (char *) ty->name);
return SWIG_ERROR;
} else {
Tcl_SetResult(interp, (char *) "Expected packed data.", TCL_STATIC);
return SWIG_ERROR;
}
}
return SWIG_ERROR;
}