From 77a2b690471565e4568855dd03061e00a42cd46d Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Thu, 20 Oct 2005 12:06:27 +0000
Subject: [PATCH] remove extra error handling

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7696 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Lib/tcl/tclrun.swg | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/Lib/tcl/tclrun.swg b/Lib/tcl/tclrun.swg
index 83ae8c7b8..a43aa0c9a 100644
--- a/Lib/tcl/tclrun.swg
+++ b/Lib/tcl/tclrun.swg
@@ -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;
 }