diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-22 13:28:59 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-22 13:28:59 +0000 |
| commit | 1cf3e68fce1617b528b52884a6e32e0692a33bb0 (patch) | |
| tree | 4b42ff27b8bbc52a2a7f6a8d4867f75dbaf294aa /gcc/ada/sem_eval.adb | |
| parent | 0c6022602c0531dbafa2e9f9411ca805bacaa7bb (diff) | |
| download | gcc-1cf3e68fce1617b528b52884a6e32e0692a33bb0.tar.gz | |
2009-06-22 Jose Ruiz <ruiz@adacore.com>
* sysdep.c (__gnat_localtime_tzoff for RTX):
SystemTimeToTzSpecificLocalTime is not supported by RTX. Use
GetTimeZoneInformation instead.
2009-06-22 Robert Dewar <dewar@adacore.com>
* sem_res.adb (Check_No_Direct_Boolean_Operators): New procedure
2009-06-22 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Collect_Previous_Instances): Do not collect
instantiations declared in a previous generic package body.
2009-06-22 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Add doc that X=True and X=False is allowed for the
restriction No_Direct_Boolean_Operators.
2009-06-22 Thomas Quinot <quinot@adacore.com>
* bindusg.adb: Minor fixes to gnatbind usage message
* sem_eval.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148794 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_eval.adb')
| -rw-r--r-- | gcc/ada/sem_eval.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index 19abf4b3672..fb18cf34acf 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -706,7 +706,7 @@ package body Sem_Eval is return Unknown; -- For access types, the only time we know the result at compile time - -- (apart from identical operands, which we handled already, is if we + -- (apart from identical operands, which we handled already) is if we -- know one operand is null and the other is not, or both operands are -- known null. @@ -720,9 +720,7 @@ package body Sem_Eval is return Unknown; end if; - elsif Known_Non_Null (L) - and then Known_Null (R) - then + elsif Known_Non_Null (L) and then Known_Null (R) then return NE; else @@ -792,7 +790,7 @@ package body Sem_Eval is -- For remaining scalar cases we know exactly (note that this does -- include the fixed-point case, where we know the run time integer - -- values now) + -- values now). else declare |