diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-07-07 15:20:30 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-07-07 15:20:30 +0200 |
| commit | 86ec3bfb9fc3729d1e17d750e2d76be03f4f7110 (patch) | |
| tree | 5f9cb4cf824f99f62768c9f881adcfe0418ff120 /gcc/ada/exp_imgv.adb | |
| parent | 0640c7d139ea91870c378de96cab14d708517593 (diff) | |
| download | gcc-86ec3bfb9fc3729d1e17d750e2d76be03f4f7110.zip gcc-86ec3bfb9fc3729d1e17d750e2d76be03f4f7110.tar.gz gcc-86ec3bfb9fc3729d1e17d750e2d76be03f4f7110.tar.bz2 | |
[multiple changes]
2016-07-07 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Expand_Internal_Init_Call): Subsidiary procedure
to Expand_Protected_ Subprogram_Call, to handle properly a
call to a protected function that provides the initialization
expression for a private component of the same protected type.
* sem_ch9.adb (Analyze_Protected_Definition): Layout must be
applied to itypes generated for a private operation of a protected
type that has a formal of an anonymous access to subprogram,
because these itypes have no freeze nodes and are frozen in place.
* sem_ch4.adb (Analyze_Selected_Component): If prefix is a
protected type and it is not a current instance, do not examine
the first private component of the type.
2016-07-07 Arnaud Charlet <charlet@adacore.com>
* exp_imgv.adb, g-dynhta.adb, s-regexp.adb, s-fatgen.adb, s-poosiz.adb:
Minor removal of extra whitespace.
* einfo.ads: minor removal of repeated "as" in comment
2016-07-07 Vadim Godunko <godunko@adacore.com>
* adaint.c: Complete previous change.
From-SVN: r238117
Diffstat (limited to 'gcc/ada/exp_imgv.adb')
| -rw-r--r-- | gcc/ada/exp_imgv.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb index f249afe..e4a07f7 100644 --- a/gcc/ada/exp_imgv.adb +++ b/gcc/ada/exp_imgv.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2016, 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- -- @@ -694,7 +694,7 @@ package body Exp_Imgv is if Ttyp = Standard_Integer_8 then Func := RE_Value_Enumeration_8; - elsif Ttyp = Standard_Integer_16 then + elsif Ttyp = Standard_Integer_16 then Func := RE_Value_Enumeration_16; else Func := RE_Value_Enumeration_32; @@ -1278,7 +1278,7 @@ package body Exp_Imgv is when Normal => if Ttyp = Standard_Integer_8 then XX := RE_Width_Enumeration_8; - elsif Ttyp = Standard_Integer_16 then + elsif Ttyp = Standard_Integer_16 then XX := RE_Width_Enumeration_16; else XX := RE_Width_Enumeration_32; @@ -1287,7 +1287,7 @@ package body Exp_Imgv is when Wide => if Ttyp = Standard_Integer_8 then XX := RE_Wide_Width_Enumeration_8; - elsif Ttyp = Standard_Integer_16 then + elsif Ttyp = Standard_Integer_16 then XX := RE_Wide_Width_Enumeration_16; else XX := RE_Wide_Width_Enumeration_32; @@ -1296,7 +1296,7 @@ package body Exp_Imgv is when Wide_Wide => if Ttyp = Standard_Integer_8 then XX := RE_Wide_Wide_Width_Enumeration_8; - elsif Ttyp = Standard_Integer_16 then + elsif Ttyp = Standard_Integer_16 then XX := RE_Wide_Wide_Width_Enumeration_16; else XX := RE_Wide_Wide_Width_Enumeration_32; |