diff options
| author | guerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-03-19 11:20:46 +0000 |
|---|---|---|
| committer | guerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-03-19 11:20:46 +0000 |
| commit | 9589ca7af72ebbfb9369a6348d04a3da448fd398 (patch) | |
| tree | f5a452f4d09a42cf8ac79df3bbb3294d98afcca5 /gcc/ada/sem_prag.adb | |
| parent | 27588b0fda33530fa301c67908c22fa009e12652 (diff) | |
| download | gcc-9589ca7af72ebbfb9369a6348d04a3da448fd398.tar.gz | |
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
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 3d718d7b800..62eb47a5c0a 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; |