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

Remove unused code in mzscheme.cxx

Browse source
This commit is contained in:
William S Fulton 2022-11-12 09:06:26 +00:00
commit 3364c18d06
1 changed files with 0 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Source/Modules/mzscheme.cxx
View file

@ -641,8 +641,6 @@ public:
* classHandler() * classHandler()
* ------------------------------------------------------------ */ * ------------------------------------------------------------ */
virtual int classHandler(Node *n) { virtual int classHandler(Node *n) {
String *mangled_classname = 0;
String *real_classname = 0;
String *scm_structname = NewString(""); String *scm_structname = NewString("");
SwigType *ctype_ptr = NewStringf("p.%s", getClassType()); SwigType *ctype_ptr = NewStringf("p.%s", getClassType());
@ -663,9 +661,6 @@ public:
Printv(scm_structname, struct_name, NIL); Printv(scm_structname, struct_name, NIL);
Replaceall(scm_structname, "_", "-"); Replaceall(scm_structname, "_", "-");
real_classname = Getattr(n, "name");
mangled_classname = Swig_name_mangle(real_classname);
Printv(fieldnames_tab, "static const char *_swig_struct_", cls_swigtype, "_field_names[] = { \n", NIL); Printv(fieldnames_tab, "static const char *_swig_struct_", cls_swigtype, "_field_names[] = { \n", NIL);
Printv(convert_proto_tab, "static Scheme_Object *_swig_convert_struct_", cls_swigtype, "(", SwigType_str(ctype_ptr, "ptr"), ");\n", NIL); Printv(convert_proto_tab, "static Scheme_Object *_swig_convert_struct_", cls_swigtype, "(", SwigType_str(ctype_ptr, "ptr"), ");\n", NIL);
@ -695,7 +690,6 @@ public:
" = SWIG_MzScheme_new_scheme_struct(menv, \"", scm_structname, "\", ", " = SWIG_MzScheme_new_scheme_struct(menv, \"", scm_structname, "\", ",
"_swig_struct_", cls_swigtype, "_field_names_cnt,", "(char**) _swig_struct_", cls_swigtype, "_field_names);\n", NIL); "_swig_struct_", cls_swigtype, "_field_names_cnt,", "(char**) _swig_struct_", cls_swigtype, "_field_names);\n", NIL);
Delete(mangled_classname);
Delete(swigtype_ptr); Delete(swigtype_ptr);
swigtype_ptr = 0; swigtype_ptr = 0;
Delete(fieldnames_tab); Delete(fieldnames_tab);