Fixed bool handling.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@346 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
a624768d95
commit
057fbc7d83
1 changed files with 10 additions and 1 deletions
|
|
@ -513,13 +513,22 @@ void TCL8::create_function(char *name, char *iname, DataType *d, ParmList *l)
|
||||||
|
|
||||||
// Signed Integers
|
// Signed Integers
|
||||||
|
|
||||||
case T_BOOL:
|
|
||||||
case T_INT:
|
case T_INT:
|
||||||
case T_SINT:
|
case T_SINT:
|
||||||
case T_UINT:
|
case T_UINT:
|
||||||
argstr << "i";
|
argstr << "i";
|
||||||
args << ",&" << target;
|
args << ",&" << target;
|
||||||
break;
|
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_SHORT:
|
||||||
case T_SSHORT:
|
case T_SSHORT:
|
||||||
case T_USHORT:
|
case T_USHORT:
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue