fix tcl C errors

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8482 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2006-01-19 04:53:32 +00:00
commit 64b47b7edb

View file

@ -64,7 +64,7 @@
/* varin */
%define %value_varin_typemap(asval_meth,frag,Type...)
%typemap(varin,noblock=1,fragment=frag) Type {
%typemap(varin,fragment=frag) Type {
Type val;
int res = asval_meth($input, &val);
if (!SWIG_IsOK(res)) {