Fixed bool handling.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@346 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-03-19 03:16:54 +00:00
commit 3d2677bf51

View file

@ -513,13 +513,22 @@ void TCL8::create_function(char *name, char *iname, DataType *d, ParmList *l)
// Signed Integers
case T_BOOL:
case T_INT:
case T_SINT:
case T_UINT:
argstr << "i";
args << ",&" << target;
break;
case T_BOOL:
argstr << "i";
{
char tb[32];
sprintf(tb,"tempb%d",i);
f.add_local("int",tb);
args << ",&" << tb;
incode << tab4 << target << " = (bool) " << tb << ";\n";
}
break;
case T_SHORT:
case T_SSHORT:
case T_USHORT: