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

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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c614f8f06de499747bb673b472a5e45acc4e4afa..7b33fc9433d5e0b0204a7dd4f4d7bde4a6d9813f 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 3d718d7b800cd50084a2b6168fc3657189b8753f..62eb47a5c0a33d71cd2b6173f0ce199fa9f5fe1b 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;