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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@79677 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c614f8f..7b33fc9 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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.

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 3d718d7..62eb47a 100644 (file)
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -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;