mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-16 13:01:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Work around missing Long_Long_Long_Size entry in .atp file

Browse Source 
gcc/ada/

	* set_targ.adb (DTN): Fix oversight.
	(Read_Target_Dependent_Values): Do not error out on missing
	Long_Long_Long_Size entry and reuse Long_Long_Size for it.
This commit is contained in:
Eric Botcazou 2020-08-09 11:48:21 +02:00 committed by Pierre-Marie de Rodat
parent 4270e94541
commit a219511d1d
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gcc/ada/set_targ.adb
View File

@ -84,8 +84,8 @@ package body Set_Targ is
S_Float_Size 'Unrestricted_Access,
S_Float_Words_BE 'Unrestricted_Access,
S_Int_Size 'Unrestricted_Access,
S_Long_Long_Long_Size 'Unrestricted_Access,
S_Long_Double_Size 'Unrestricted_Access,
S_Long_Long_Long_Size 'Unrestricted_Access,
S_Long_Long_Size 'Unrestricted_Access,
S_Long_Size 'Unrestricted_Access,
S_Maximum_Alignment 'Unrestricted_Access,
@ -748,8 +748,15 @@ package body Set_Targ is
for J in DTR'Range loop
if not DTR (J) then
Fail ("missing entry for " & DTN (J).all & " in file "
& File_Name);
-- Make an exception for Long_Long_Long_Size???
if DTN (J) = S_Long_Long_Long_Size'Unrestricted_Access then
Long_Long_Long_Size := Long_Long_Size;
else
Fail ("missing entry for " & DTN (J).all & " in file "
& File_Name);
end if;
end if;
end loop;