From dbee7ab93c2c22ce25aa38033073a437e787a96a Mon Sep 17 00:00:00 2001 From: Laurent GUERBY Date: Fri, 19 Mar 2004 11:20:46 +0000 Subject: sem_prag.adb (Suppress_Unsuppress_Echeck): use loop instead of aggregate, allows bootstrap from 3.3 on powerpc-darwin. 2004-03-19 Laurent GUERBY * sem_prag.adb (Suppress_Unsuppress_Echeck): use loop instead of aggregate, allows bootstrap from 3.3 on powerpc-darwin. From-SVN: r79677 --- gcc/ada/sem_prag.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'gcc/ada/sem_prag.adb') 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; -- cgit v1.1