jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed problem with %name() directive.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@562 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-07-10 23:11:29 +00:00
commit 825d46b353
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
SWIG/Source/Modules1.1/tcl8.cxx
View file

@ -1291,7 +1291,7 @@ void TCL8::cpp_close_class() {
if (have_destructor) {
Printv(code, "static void _swig_delete_", class_name, "(void *obj) {\n",
tab4, Swig_name_destroy(class_name), "((", t->print_type(), ") obj);\n",
tab4, Swig_name_destroy(real_classname), "((", t->print_type(), ") obj);\n",
"}\n",0);
}
@ -1314,7 +1314,7 @@ void TCL8::cpp_close_class() {
} else {
Printf(code,",0");
}
Printv(code, ", _swig_", class_name, "_methods, _swig_", class_name, "_attributes };\n", 0);
Printv(code, ", _swig_", real_classname, "_methods, _swig_", real_classname, "_attributes };\n", 0);
Printf(f_wrappers,"%s",code);
Printv(cmd_info, tab4, "{ SWIG_prefix \"", class_name, "\", SwigObjectCmd, &_wrap_class_", class_name, "},\n", 0);