diff options
author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-03-24 16:08:50 +0000 |
---|---|---|
committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-03-24 16:08:50 +0000 |
commit | 4524d1ceff28dd267d78bdd3e18bffd5d88db30a (patch) | |
tree | b9005d8dcb786199a152d4e3d91717ba40010452 /gcc/ada/einfo.ads | |
parent | 5f515621d4459b5d84f5640e0993611cbd008f3c (diff) | |
download | ppe42-gcc-4524d1ceff28dd267d78bdd3e18bffd5d88db30a.tar.gz ppe42-gcc-4524d1ceff28dd267d78bdd3e18bffd5d88db30a.zip |
* einfo.ads (Size_Depends_On_Discriminant): Adjust description.
* layout.adb (Compute_Size_Depends_On_Discriminant): New procedure
to compute Set_Size_Depends_On_Discriminant.
(Layout_Type): Call it on array types in back-end layout mode.
* sem_util.adb (Requires_Transient_Scope): Return true for array
types only if the size depends on the value of discriminants.
* gcc-interface/utils2.c (build_binary_op) <MODIFY_EXPR>: Use the RHS
type if the RHS is a call to a function that returns an unconstrained
type with default discriminant.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@171402 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/einfo.ads')
-rw-r--r-- | gcc/ada/einfo.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index 88fabd76fc9..051688ae376 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2011, 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- -- @@ -3573,8 +3573,8 @@ package Einfo is -- Size_Depends_On_Discriminant (Flag177) -- Present in all entities for types and subtypes. Indicates that the -- size of the type depends on the value of one or more discriminants. --- Currently, this flag is only set in front end layout mode for arrays --- which have one or more bounds depending on a discriminant value. +-- Currently, this flag is only set for arrays which have one or more +-- bounds depending on a discriminant value. -- Size_Known_At_Compile_Time (Flag92) -- Present in all entities for types and subtypes. Indicates that the |