correctly determine the mangled SWIGTYPE

svn path=/trunk/externals/loaders/tclpd/; revision=15756

1 files changed, 1 insertions, 1 deletions

diff --git a/tclpd.i b/tclpd.i
index 442787f..a072f5b 100644
--- a/tclpd.i
+++ b/tclpd.i
@@ -91,7 +91,7 @@ void name_setitem(type *ary, int index, type value)
 }
 
 %typemap(in) t_text * {
-    int res = SWIG_ConvertPtr($input, &$1, SWIGTYPE_p__text, 0 |  0 );
+    int res = SWIG_ConvertPtr($input, &$1, $1_descriptor, 0 |  0 );
     if(!SWIG_IsOK(res)) {
         const char *str = Tcl_GetStringFromObj($input, NULL);
         t_tcl *x = object_table_get(str);