Commit dbee7ab9 by Laurent GUERBY Committed by Laurent Guerby

sem_prag.adb (Suppress_Unsuppress_Echeck): use loop instead of aggregate, allows…

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
parent 8efc8980
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> 2004-03-18 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
* ada-tree.h (TYPE_LEFT_JUSTIFIED_MODULAR_P): Add checking. * ada-tree.h (TYPE_LEFT_JUSTIFIED_MODULAR_P): Add checking.
......
...@@ -3441,7 +3441,9 @@ package body Sem_Prag is ...@@ -3441,7 +3441,9 @@ package body Sem_Prag is
-- suppress check for any check id value. -- suppress check for any check id value.
if C = All_Checks then 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 else
Scope_Suppress (C) := Suppress_Case; Scope_Suppress (C) := Suppress_Case;
end if; end if;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment