* *
* C Implementation File *
* *
- * Copyright (C) 1992-2021, Free Software Foundation, Inc. *
+ * Copyright (C) 1992-2022, Free Software Foundation, Inc. *
* *
* GNAT is free software; you can redistribute it and/or modify it under *
* terms of the GNU General Public License as published by the Free Soft- *
&& compare_tree_int (TYPE_SIZE (gnu_type), MAX_FIXED_MODE_SIZE) <= 0)
return is_prescribed;
+ /* If this is an expression function and we're not optimizing for size,
+ override the heuristics, unless -gnatd.8 is specified. */
+ if (Is_Expression_Function (subprog)
+ && !optimize_size
+ && !Debug_Flag_Dot_8)
+ return is_prescribed;
+
return is_requested;
}
* *
* C Implementation File *
* *
- * Copyright (C) 1992-2021, Free Software Foundation, Inc. *
+ * Copyright (C) 1992-2022, Free Software Foundation, Inc. *
* *
* GNAT is free software; you can redistribute it and/or modify it under *
* terms of the GNU General Public License as published by the Free Soft- *
locus = input_location;
DECL_SOURCE_LOCATION (gnu_subprog_decl) = locus;
- /* If the body comes from an expression function, arrange it to be inlined
- in almost all cases. */
- if (Was_Expression_Function (gnat_node) && !Debug_Flag_Dot_8)
- DECL_DISREGARD_INLINE_LIMITS (gnu_subprog_decl) = 1;
-
/* Try to create a bona-fide thunk and hand it over to the middle-end. */
if (Is_Thunk (gnat_subprog_id)
&& maybe_make_gnu_thunk (gnat_subprog_id, gnu_subprog_decl))