From ba2383f9dbb95c213d32d938d165d72e244bfd0b Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Wed, 11 Dec 2002 15:45:38 +0000
Subject: [PATCH] Fixed to DYNAMIC typemaps.

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

diff --git a/Lib/tcl/tcl8.swg b/Lib/tcl/tcl8.swg
index 3afb0b9dc..e138eb8c5 100644
--- a/Lib/tcl/tcl8.swg
+++ b/Lib/tcl/tcl8.swg
@@ -159,6 +159,11 @@
 %typemap(out) SWIGTYPE *, SWIGTYPE &, SWIGTYPE []
      "Tcl_SetObjResult(interp,SWIG_NewInstanceObj(interp, (void *) $1, $1_descriptor,0));";
 
+%typemap(out) SWIGTYPE *DYNAMIC, SWIGTYPE &DYNAMIC {
+     swig_type_info *ty = SWIG_TypeDynamicCast($1_descriptor,(void **) &$1);
+     Tcl_SetObjResult(interp,SWIG_NewInstanceObj((void *) $1, ty,0));
+}
+
 %typemap(out) void "";
 
 /* Primitive types--return by value */