Jelajahi Sumber

[cpp] do not omit generation for KGeneric classes by default (see #2016)

Simon Krajewski 10 tahun lalu
induk
melakukan
e237ae6225
1 mengubah file dengan 2 tambahan dan 4 penghapusan
  1. 2 4
      gencpp.ml

+ 2 - 4
gencpp.ml

@@ -4913,8 +4913,7 @@ let generate_cppia common_ctx =
          () (*if (gen_externs) then gen_extern_class common_ctx class_def;*)
          () (*if (gen_externs) then gen_extern_class common_ctx class_def;*)
       | TClassDecl class_def ->
       | TClassDecl class_def ->
          let is_internal = is_internal_class class_def.cl_path in
          let is_internal = is_internal_class class_def.cl_path in
-         let is_generic_def = match class_def.cl_kind with KGeneric -> true | _ -> false in
-         if (is_internal || (is_macro class_def.cl_meta) || is_generic_def) then
+         if (is_internal || (is_macro class_def.cl_meta)) then
             ( if (debug>1) then print_endline (" internal class " ^ (join_class_path class_def.cl_path ".") ))
             ( if (debug>1) then print_endline (" internal class " ^ (join_class_path class_def.cl_path ".") ))
          else begin
          else begin
             ctx.ctx_class_name <- "::" ^ (join_class_path class_def.cl_path "::");
             ctx.ctx_class_name <- "::" ^ (join_class_path class_def.cl_path "::");
@@ -4978,8 +4977,7 @@ let generate_source common_ctx =
       | TClassDecl class_def ->
       | TClassDecl class_def ->
          let name =  class_text class_def.cl_path in
          let name =  class_text class_def.cl_path in
          let is_internal = is_internal_class class_def.cl_path in
          let is_internal = is_internal_class class_def.cl_path in
-         let is_generic_def = match class_def.cl_kind with KGeneric -> true | _ -> false in
-         if (is_internal || (is_macro class_def.cl_meta) || is_generic_def) then
+         if (is_internal || (is_macro class_def.cl_meta)) then
             ( if (debug>1) then print_endline (" internal class " ^ name ))
             ( if (debug>1) then print_endline (" internal class " ^ name ))
          else begin
          else begin
             build_xml := !build_xml ^ (get_code class_def.cl_meta Meta.BuildXml);
             build_xml := !build_xml ^ (get_code class_def.cl_meta Meta.BuildXml);