diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-10-31 12:15:51 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-10-31 12:15:51 +0100 |
| commit | 6fd52b789342ed9e37869891e07cd445b8f3e0bd (patch) | |
| tree | 41ad5c7a0b70cedc5ee2342d3332907ba6375fd6 /gcc/ada/table.adb | |
| parent | d99565f84f00f7edfdfa42fdc490415806ad0e4b (diff) | |
| download | gcc-6fd52b789342ed9e37869891e07cd445b8f3e0bd.zip gcc-6fd52b789342ed9e37869891e07cd445b8f3e0bd.tar.gz gcc-6fd52b789342ed9e37869891e07cd445b8f3e0bd.tar.bz2 | |
[multiple changes]
2014-10-31 Eric Botcazou <ebotcazou@adacore.com>
* inline.adb (Has_Excluded_Declaration): With back-end inlining,
only return true for nested packages.
(Cannot_Inline): Issue errors/warnings whatever the optimization level
for back-end inlining and remove assertion.
2014-10-31 Sergey Rybin <rybin@adacore.com frybin>
* table.adb (Tree_Read, Tree_Write): Use parentheses to specify
the desired order of '*' and '/' operations to avoid overflow.
2014-10-31 Eric Botcazou <ebotcazou@adacore.com>
* exp_ch6.adb (Do_Inline): Remove unreachable code.
(Do_Inline_Always): Likewise.
2014-10-31 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Check_Stand_Alone_Library): Change error message
when library has no Ada interfaces and Library_Standalone is
declared.
From-SVN: r216961
Diffstat (limited to 'gcc/ada/table.adb')
| -rw-r--r-- | gcc/ada/table.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/table.adb b/gcc/ada/table.adb index e6367af..97d0410 100644 --- a/gcc/ada/table.adb +++ b/gcc/ada/table.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -399,7 +399,7 @@ package body Table is Tree_Read_Data (Tree_Get_Table_Address, (Last_Val - Int (First) + 1) * - Table_Type'Component_Size / Storage_Unit); + (Table_Type'Component_Size / Storage_Unit)); end Tree_Read; ---------------- @@ -415,7 +415,7 @@ package body Table is Tree_Write_Data (Tree_Get_Table_Address, (Last_Val - Int (First) + 1) * - Table_Type'Component_Size / Storage_Unit); + (Table_Type'Component_Size / Storage_Unit)); end Tree_Write; begin |