diff options
Diffstat (limited to 'gcc/ada/tbuild.adb')
| -rw-r--r-- | gcc/ada/tbuild.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb index 52fdbfc..b89c408 100644 --- a/gcc/ada/tbuild.adb +++ b/gcc/ada/tbuild.adb @@ -926,11 +926,11 @@ package body Tbuild is -- conversion of an unchecked conversion. Extra unchecked conversions -- make the .dg output less readable. We can't do this in cases -- involving bitfields, because the sizes might not match. The - -- Is_Composite_Type checks avoid such cases. + -- "not Is_Scalar_Type" checks avoid such cases. elsif Nkind (Expr) = N_Unchecked_Type_Conversion - and then Is_Composite_Type (Etype (Expr)) - and then Is_Composite_Type (Typ) + and then not Is_Scalar_Type (Etype (Expr)) + and then not Is_Scalar_Type (Typ) then Set_Subtype_Mark (Expr, New_Occurrence_Of (Typ, Loc)); Result := Relocate_Node (Expr); |