Pārlūkot izejas kodu

[php] don't disable "untyped" magic on `-D no-deprecation-warnings` (#9206)

Aleksandr Kuzmenko 5 gadi atpakaļ
vecāks
revīzija
0975018bda
1 mainītis faili ar 3 papildinājumiem un 2 dzēšanām
  1. 3 2
      src/generators/genphp7.ml

+ 3 - 2
src/generators/genphp7.ml

@@ -1624,8 +1624,9 @@ class code_writer (ctx:php_generator_context) hx_type_path php_name =
 				| TCall (target, [arg1; arg2]) when is_std_is target -> self#write_expr_std_is target arg1 arg2
 				| TCall (_, [arg]) when is_native_struct_array_cast expr && is_object_declaration arg ->
 					(match (reveal_expr arg).eexpr with TObjectDecl fields -> self#write_assoc_array_decl fields | _ -> fail self#pos __POS__)
-				| TCall ({ eexpr = TIdent name}, args) when is_magic expr && not (defined ctx.pgc_common Define.NoDeprecationWarnings) ->
-					ctx.pgc_common.warning ("untyped " ^ name ^ " is deprecated. Use php.Syntax instead.") self#pos;
+				| TCall ({ eexpr = TIdent name}, args) when is_magic expr ->
+					if not (defined ctx.pgc_common Define.NoDeprecationWarnings) then
+						ctx.pgc_common.warning ("untyped " ^ name ^ " is deprecated. Use php.Syntax instead.") self#pos;
 					self#write_expr_magic name args
 				| TCall ({ eexpr = TField (expr, access) }, args) when is_string expr -> self#write_expr_call_string expr access args
 				| TCall (expr, args) when is_syntax_extern expr -> self#write_expr_call_syntax_extern expr args