diff options
| author | Laurent GUERBY <laurent@guerby.net> | 2004-03-19 11:20:46 +0000 |
|---|---|---|
| committer | Laurent Guerby <guerby@gcc.gnu.org> | 2004-03-19 11:20:46 +0000 |
| commit | dbee7ab93c2c22ce25aa38033073a437e787a96a (patch) | |
| tree | f5a452f4d09a42cf8ac79df3bbb3294d98afcca5 | |
| parent | 8efc8980df50d002cc55d53f5fbfe4f04aeeaaaf (diff) | |
| download | gcc-dbee7ab93c2c22ce25aa38033073a437e787a96a.zip gcc-dbee7ab93c2c22ce25aa38033073a437e787a96a.tar.gz gcc-dbee7ab93c2c22ce25aa38033073a437e787a96a.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sem_prag.adb | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c614f8f..7b33fc9 100644 --- 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 --- 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; |