Only cast when is variant

HaxeFoundation · Feb 10, 2025 · d9e0cfa · d9e0cfa
1 parent 9a532c1
commit d9e0cfa
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/generators/cpp/cppRetyper.ml b/src/generators/cpp/cppRetyper.ml
@@ -1434,7 +1434,7 @@ let expression ctx request_type function_args function_type expression_tree forI
           in
           retyper_ctx, mk_cppexpr (CppCast (structCast, TCppInst (t, []))) (TCppInst (t, []))
       | TCppObjectArray _ | TCppScalarArray _ | TCppNativePointer _
-      | TCppDynamicArray | TCppObjectPtr | TCppVarArg | TCppInst _ | TCppCallable _ ->
+      | TCppDynamicArray | TCppObjectPtr | TCppVarArg | TCppInst _ ->
         retyper_ctx, mk_cppexpr (CppCast (cppExpr, return_type)) return_type
       | TCppObjC k -> retyper_ctx, mk_cppexpr (CppCastObjC (cppExpr, k)) return_type
       | TCppObjCBlock (ret, args) ->
@@ -1447,6 +1447,8 @@ let expression ctx request_type function_args function_type expression_tree forI
         retyper_ctx, mk_cppexpr (CppCastVariant cppExpr) return_type
       | TCppDynamic when is_variant cppExpr.cpptype ->
         retyper_ctx, mk_cppexpr (CppCastVariant cppExpr) return_type
+      | TCppCallable _ when is_variant cppExpr.cpptype ->
+        retyper_ctx, mk_cppexpr (CppCast (cppExpr, return_type)) return_type
       | TCppStar (t, const) ->
           let ptrType =
             TCppPointer ((if const then "ConstPointer" else "Pointer"), t)