Fixed problem in void pointer handling.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@766 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
561f2a9b97
commit
f748c7a6e9
1 changed files with 13 additions and 5 deletions
|
|
@ -381,11 +381,19 @@ TCL8::create_function(char *name, char *iname, SwigType *d, ParmList *l) {
|
|||
break;
|
||||
|
||||
case T_POINTER: case T_ARRAY: case T_REFERENCE:
|
||||
SwigType_remember(pt);
|
||||
Putc('p',argstr);
|
||||
Printv(args, ",&", target, ", SWIGTYPE", SwigType_manglestr(pt), 0);
|
||||
break;
|
||||
|
||||
{
|
||||
SwigType *lt;
|
||||
SwigType_remember(pt);
|
||||
Putc('p',argstr);
|
||||
lt = Swig_clocal_type(pt);
|
||||
if (Cmp(lt,"p.void") == 0) {
|
||||
Printv(args, ",&", target, ", 0", 0);
|
||||
} else {
|
||||
Printv(args, ",&", target, ", SWIGTYPE", SwigType_manglestr(pt), 0);
|
||||
}
|
||||
Delete(lt);
|
||||
break;
|
||||
}
|
||||
default :
|
||||
Printf(stderr,"%s : Line %d: Unable to use type %s as a function argument.\n",
|
||||
input_file, line_number, SwigType_str(pt,0));
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue