diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-30 16:25:38 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-30 16:25:38 +0100 |
commit | e5cabfacf0240d107d986831cd13a63777c34a12 (patch) | |
tree | a4620bfdd247c81a8ff43905dd52bff6e6f3928d /gcc/ada/sem_res.ads | |
parent | b7db11490f4928d6e15c7e2310e65b53225f0f21 (diff) | |
download | gcc-e5cabfacf0240d107d986831cd13a63777c34a12.zip gcc-e5cabfacf0240d107d986831cd13a63777c34a12.tar.gz gcc-e5cabfacf0240d107d986831cd13a63777c34a12.tar.bz2 |
[multiple changes]
2015-01-30 Robert Dewar <dewar@adacore.com>
* einfo.ads: Minor comment fix.
* freeze.adb (Freeze_Profile): Add test for suspicious import
in pure unit.
* sem_prag.adb (Process_Import_Or_Interface): Test for suspicious
use in Pure unit is now moved to Freeze (to properly catch
Pure_Function exemption).
2015-01-30 Bob Duff <duff@adacore.com>
* sem_res.ads: Minor comment fix.
* sem_type.adb: sem_type.adb (Remove_Conversions): Need to
check both operands of an operator.
2015-01-30 Yannick Moy <moy@adacore.com>
* a-assert.ads, a-assert.adb: Mark package spec in SPARK. Set assertion
policy for Pre to Ignore.
(Assert): Add precondition.
From-SVN: r220288
Diffstat (limited to 'gcc/ada/sem_res.ads')
-rw-r--r-- | gcc/ada/sem_res.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_res.ads b/gcc/ada/sem_res.ads index 42b8191..e94c36b 100644 --- a/gcc/ada/sem_res.ads +++ b/gcc/ada/sem_res.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, 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- -- @@ -45,7 +45,7 @@ package Sem_Res is -- Since in practice a lot of semantic analysis has to be postponed until -- types are known (e.g. static folding, setting of suppress flags), the -- Resolve routines also complete the semantic analysis, and call the - -- expander for possibly expansion of the completely type resolved node. + -- expander for possible expansion of the completely type resolved node. procedure Resolve (N : Node_Id; Typ : Entity_Id); procedure Resolve (N : Node_Id; Typ : Entity_Id; Suppress : Check_Id); |