aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/gnat1drv.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2015-11-12 12:54:53 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2015-11-12 12:54:53 +0100
commitdf9ad6bc4901bf25c40b136fa6c1b39a78d76f41 (patch)
treeaa3b21fc032f8c4cdeea20baf480c8adda10a71f /gcc/ada/gnat1drv.adb
parent549cc9c2bcb93b5424c9a0967016d4e51e587311 (diff)
downloadgcc-df9ad6bc4901bf25c40b136fa6c1b39a78d76f41.zip
gcc-df9ad6bc4901bf25c40b136fa6c1b39a78d76f41.tar.gz
gcc-df9ad6bc4901bf25c40b136fa6c1b39a78d76f41.tar.bz2
[multiple changes]
2015-11-12 Gary Dismukes <dismukes@adacore.com> * gnat1drv.adb, opt.ads: Minor reformatting. 2015-11-12 Ed Schonberg <schonberg@adacore.com> * sem_ch3.adb (Analyze_Number_Declaration): Call Analyze_Dimension, to propagate dimension information from expression to named number. * sem_dim.ads: Documentation: number declaration and explicit dereference can carry dimension information. * sem_dim.adb (Analyze_Dimension_Number_Declaration): New procedure, to propagate dimension information from expression of declaration to named number, whose type becomes one of the dimensioned base types rather than universal real. (Analyze_Dimension_Binary_Op): a) If one operand is a literal that is the value of a declared constant after constant-foloding, use the dimensions of the declared constant. b) If an operand is a literal that is a contant-folded expression, and expander is active, do not report a dimension mismatch if literal does not carry them, because dimension matching will have been checked previously. From-SVN: r230244
Diffstat (limited to 'gcc/ada/gnat1drv.adb')
-rw-r--r--gcc/ada/gnat1drv.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb
index e84719a..e36533a 100644
--- a/gcc/ada/gnat1drv.adb
+++ b/gcc/ada/gnat1drv.adb
@@ -155,7 +155,7 @@ procedure Gnat1drv is
Operating_Mode := Generate_Code;
-- Suppress alignment checks since we do not have access to alignment
- -- info on the target
+ -- info on the target.
Suppress_Options.Suppress (Alignment_Check) := False;
end if;