place override functions in the results at least once (#11773)

HaxeFoundation · Sep 17, 2024 · b99eda0 · b99eda0
1 parent 32d9b9b
commit b99eda0
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/generators/gencpp.ml b/src/generators/gencpp.ml
@@ -4407,7 +4407,10 @@ let current_virtual_functions_rev clazz base_functions =
       | _, Method MethDynamic -> result
       | TFun (args,return_type), Method _  ->
           if (is_override elem ) then
-             List.map (fun (e,a,r) ->  if e.cf_name<>elem.cf_name then (e,a,r) else  (elem,args,return_type) ) result
+            if List.exists (fun (e,a,r) -> e.cf_name=elem.cf_name ) result then
+               result
+            else
+               (elem,args,return_type) :: result
           else
              (elem,args,return_type) :: result
       | _,_ -> result