diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-12-05 11:02:24 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-12-05 11:02:24 +0000 |
| commit | ae60423327046b7005194bdb19f50dd50cb786f9 (patch) | |
| tree | 58acd4c116ae1b2b68b9482f60b3681d1ea78517 /gcc/ada/exp_dist.adb | |
| parent | 17bfc2d67f8d6ad5831ae43a874e15ca0cc1dc60 (diff) | |
| download | gcc-ae60423327046b7005194bdb19f50dd50cb786f9.tar.gz | |
2012-12-05 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb: Minor reformatting.
2012-12-05 Tristan Gingold <gingold@adacore.com>
* Make-generated.in: Remove the VMS host specific part, as VMS
compilers aren't built anymore on VMS.
2012-12-05 Thomas Quinot <quinot@adacore.com>
* sem.adb, errout.ads, atree.adb, atree.ads (Check_Error_Detected):
Only return quietly if a serious error of configurable run time
violation has been found.
2012-12-05 Yannick Moy <moy@adacore.com>
* sem_res.adb (Resolve_Type_Conversion): In Alfa_Mode, do not apply
conversion checks.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@194205 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_dist.adb')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index c2396c1e568..92aa4270057 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -10077,7 +10077,7 @@ package body Exp_Dist is -- Integer types (walk back to the base type) elsif U_Type = RTE (RE_Integer_8) then - Lib_RE := RE_TC_I8; + Lib_RE := RE_TC_I8; elsif U_Type = RTE (RE_Integer_16) then Lib_RE := RE_TC_I16; @@ -10188,7 +10188,7 @@ package body Exp_Dist is -- Make a return statement that calls TC_Build with the given -- typecode kind, and the constructed parameters list. - procedure Return_Alias_TypeCode (Base_TypeCode : Node_Id); + procedure Return_Alias_TypeCode (Base_TypeCode : Node_Id); -- Return a typecode that is a TC_Alias for the given typecode -------------------------- @@ -10258,7 +10258,7 @@ package body Exp_Dist is --------------------------- procedure Return_Alias_TypeCode - (Base_TypeCode : Node_Id) + (Base_TypeCode : Node_Id) is begin Add_TypeCode_Parameter (Base_TypeCode, Parameters); |