From eae7ff37238879bd630b02cda4fb5b58205155ad Mon Sep 17 00:00:00 2001 From: William S Fulton Date: Sat, 15 Oct 2005 22:33:37 +0000 Subject: [PATCH] TCL typemap fix git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7667 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- Examples/test-suite/typemap_variables.i | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Examples/test-suite/typemap_variables.i b/Examples/test-suite/typemap_variables.i index 94a008024..0bb67211e 100644 --- a/Examples/test-suite/typemap_variables.i +++ b/Examples/test-suite/typemap_variables.i @@ -23,7 +23,11 @@ %typemap(in) int Space::nspace "/*int nspace in */ $1=0;" %typemap(out) int Space::nspace "/*int nspace out*/ $result=0;" %typemap(in) int member "/*int member in */ $1=0;" +#ifdef SWIGTCL +%typemap(out) int member "/*int member out*/" +#else %typemap(out) int member "/*int member out*/ $result=0;" +#endif %typemap(in) int Space::Struct::smember "/*int smember in */ $1=0;" %typemap(out) int Space::Struct::smember "/*int smember out*/ $result=0;"