From 82986fa76ba484bfce9f8a5ea91846389bb79cc8 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Tue, 2 Dec 2003 19:47:14 +0000
Subject: [PATCH] Fixed [ 755382 ] calling func(const vector<T>& p) evaluates
 p[0] in interp.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5459 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Lib/tcl/swigtcl8.swg | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Lib/tcl/swigtcl8.swg b/Lib/tcl/swigtcl8.swg
index 7c57a0f1e..0c03d7d21 100644
--- a/Lib/tcl/swigtcl8.swg
+++ b/Lib/tcl/swigtcl8.swg
@@ -224,7 +224,8 @@ SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, char *c, void **ptr, swig_type
       c = Tcl_GetStringFromObj(result, NULL);
       continue;
     }
-    if (flags & SWIG_POINTER_EXCEPTION)
+    Tcl_ResetResult(interp);
+    if (flags & SWIG_POINTER_EXCEPTION) 
       Tcl_SetResult(interp, (char *) "Type error. Expected a pointer", TCL_STATIC);
     return TCL_ERROR;
   }
@@ -237,6 +238,7 @@ SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, char *c, void **ptr, swig_type
       Tcl_AppendElement(interp, (char *) ty->name);
       return TCL_ERROR;
     } else if (!tc) {
+      Tcl_ResetResult(interp);
       return TCL_ERROR;
     }
     if (flags & SWIG_POINTER_DISOWN) {