This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[PATCH] 3.4/3.5 Ada on powerpc-darwin


On Thu, 2004-03-18 at 22:55, Arnaud Charlet wrote:
> > So having it there is potentially helpful for compatibility
> > with previous versions and not breaking coding practices (except for
> > I=>J but that's easy to fix :).
> 
> OK, well I guess that would probably be fine then.

I'm testing this on mainline x86-linux, Mark would this be ok on 3.4
too? Quite safe and should help powerpc-darwin Ada people starting
with 3.3.

Laurent

Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/ChangeLog,v
retrieving revision 1.460
diff -u -r1.460 ChangeLog
--- ChangeLog	18 Mar 2004 15:18:36 -0000	1.460
+++ ChangeLog	18 Mar 2004 22:10:55 -0000
@@ -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  Arnaud Charlet  <charlet@act-europe.fr>
 
 	* 5atpopsp.adb: Remove RTEMS from list of platforms using this file.
Index: sem_prag.adb
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/sem_prag.adb,v
retrieving revision 1.22
diff -u -r1.22 sem_prag.adb
--- sem_prag.adb	15 Mar 2004 14:50:59 -0000	1.22
+++ sem_prag.adb	18 Mar 2004 22:11:06 -0000
@@ -3441,7 +3441,9 @@
             --  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;



Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]