From e52692df6f64a1b5a67aeab688256b5e7f846deb Mon Sep 17 00:00:00 2001 From: Art Yerkes Date: Sun, 8 Jun 2003 04:32:52 +0000 Subject: [PATCH] Small correction to templating support. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4873 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- Source/Modules/ocaml.cxx | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Source/Modules/ocaml.cxx b/Source/Modules/ocaml.cxx index ee5bbb623..2cb85643e 100755 --- a/Source/Modules/ocaml.cxx +++ b/Source/Modules/ocaml.cxx @@ -1324,7 +1324,6 @@ public: String *name = Getattr(n,"name"); String *mangled_sym_name = mangleNameForCaml(name); String *this_class_def = NewString( f_classtemplate ); - String *classbody = NewString(""); String *name_normalized = normalizeTemplatedClassName(name); String *old_class_ctors = f_class_ctors; String *base_classes = NewString(""); @@ -1344,7 +1343,7 @@ public: while (base) { String *bname = Getattr(base, "ocaml:ctor"); if (bname) { - Printv(classbody, + Printv(f_class_ctors, " \"::",bname,"\", (fun args -> " "create_",bname,"_from_ptr raw_ptr) ;\n",NIL); Printv( base_classes, "create_", bname, "_from_ptr ;\n", @@ -1356,7 +1355,6 @@ public: } Replaceall(this_class_def,"$classname",classname); - Replaceall(this_class_def,"$classbody",classbody); Replaceall(this_class_def,"$normalized",name_normalized); Replaceall(this_class_def,"$realname",name); Replaceall(this_class_def,"$baselist",base_classes);