From d8e763199017456ace52874b03e589ad4174d985 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Wed, 2 Feb 2000 23:37:02 +0000
Subject: [PATCH] More improvements to type-checking.

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

diff --git a/SWIG/Lib/tcl/swigtcl8.swg b/SWIG/Lib/tcl/swigtcl8.swg
index 26fd7a0db..9cec627d8 100644
--- a/SWIG/Lib/tcl/swigtcl8.swg
+++ b/SWIG/Lib/tcl/swigtcl8.swg
@@ -113,14 +113,14 @@ SWIG_TypeCheck(char *c, _swig_type_info *ty)
   return 0;
 }
 
+
 /* Convert a pointer value */
 SWIGSTATICRUNTIME(int)
-SWIG_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, _swig_type_info *ty)
+SWIG_ConvertPtrFromString(Tcl_Interp *interp, char *c, void **ptr, _swig_type_info *ty)
 {
   unsigned long p;
   register int d;
   _swig_type_info *tc;
-  char  *c = Tcl_GetStringFromObj(oc,NULL);
   p = 0;
   /* Pointer values must start with leading underscore */
   if (*c != '_') {
@@ -153,6 +153,13 @@ SWIG_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, _swig_type_info *ty
   return TCL_OK;
 }
 
+/* Convert a pointer value */
+SWIGSTATICRUNTIME(int)
+SWIG_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, _swig_type_info *ty)
+{
+  return SWIG_ConvertPtrFromString(interp, Tcl_GetStringFromObj(oc,NULL), ptr, ty);
+}
+
 /* Take a pointer and convert it to a string */
 SWIGSTATICRUNTIME(void) 
 SWIG_MakePtr(char *c, void *ptr, _swig_type_info *ty) {