sem_prag.adb (Suppress_Unsuppress_Echeck): use loop instead of aggregate, allows bootstrap from 3.3 on powerpc-darwin.

2004-03-19  Laurent GUERBY <laurent@guerby.net>

	* sem_prag.adb (Suppress_Unsuppress_Echeck): use loop instead of
	aggregate, allows bootstrap from 3.3 on powerpc-darwin.

From-SVN: r79677
This commit is contained in:
Laurent GUERBY 2004-03-19 11:20:46 +00:00 committed by Laurent Guerby
parent 8efc8980df
commit dbee7ab93c
2 changed files with 8 additions and 1 deletions

View File

@ -1,3 +1,8 @@
2004-03-19 Laurent GUERBY <laurent@guerby.net>
* sem_prag.adb (Suppress_Unsuppress_Echeck): use loop instead of
aggregate, allows bootstrap from 3.3 on powerpc-darwin.
2004-03-18 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
* ada-tree.h (TYPE_LEFT_JUSTIFIED_MODULAR_P): Add checking.

View File

@ -3441,7 +3441,9 @@ package body Sem_Prag is
-- suppress check for any check id value.
if C = All_Checks then
Scope_Suppress := (others => Suppress_Case);
for J in Scope_Suppress'Range loop
Scope_Suppress (J) := Suppress_Case;
end loop;
else
Scope_Suppress (C) := Suppress_Case;
end if;