[multiple changes]

2010-06-14  Pascal Obry  <obry@adacore.com>

	* prj-proc.adb: Fix copy of object directory for extending projects.

2010-06-14  Jose Ruiz  <ruiz@adacore.com>

	* init.c (__gnat_alternate_stack): Define this space for PowerPC linux
	(__gnat_install_handler, PowerPC linux): Activate the alternative
	signal stack.

From-SVN: r160708

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2de22a1967c55d8ab965b43499f38c544be6f848..fb03eadd7cc862753013d4d1da37f75240c825b0 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,13 @@
+2010-06-14  Pascal Obry  <obry@adacore.com>
+
+       * prj-proc.adb: Fix copy of object directory for extending projects.
+
+2010-06-14  Jose Ruiz  <ruiz@adacore.com>
+
+       * init.c (__gnat_alternate_stack): Define this space for PowerPC linux
+       (__gnat_install_handler, PowerPC linux): Activate the alternative
+       signal stack.
+
 2010-06-13  Gerald Pfeifer  <gerald@pfeifer.com>
 
        * gnat_rm.texi: Move to GFDL version 1.3.

diff --git a/gcc/ada/init.c b/gcc/ada/init.c
index 28498c428a52cbee4654e08b82d31699d7c7b41f..551bdf9964fe26bccac22e30957e68a2afbcfa36 100644 (file)
--- a/gcc/ada/init.c
+++ b/gcc/ada/init.c
@@ -706,7 +706,7 @@ __gnat_error_handler (int sig,
   Raise_From_Signal_Handler (exception, msg);
 }
 
-#if defined (i386) || defined (__x86_64__)
+#if defined (i386) || defined (__x86_64__) || defined (__powerpc__)
 /* This must be in keeping with System.OS_Interface.Alternate_Stack_Size.  */
 char __gnat_alternate_stack[16 * 1024]; /* 2 * SIGSTKSZ */
 #endif
@@ -747,7 +747,7 @@ __gnat_install_handler (void)
      handled properly, avoiding a SEGV generation from stack usage by the
      handler itself.  */
 
-#if defined (i386) || defined (__x86_64__)
+#if defined (i386) || defined (__x86_64__) || defined (__powerpc__)
   stack_t stack;
   stack.ss_sp = __gnat_alternate_stack;
   stack.ss_size = sizeof (__gnat_alternate_stack);
@@ -768,7 +768,7 @@ __gnat_install_handler (void)
     sigaction (SIGILL,  &act, NULL);
   if (__gnat_get_interrupt_state (SIGBUS) != 's')
     sigaction (SIGBUS,  &act, NULL);
-#if defined (i386) || defined (__x86_64__)
+#if defined (i386) || defined (__x86_64__) || defined (__powerpc__)
   act.sa_flags |= SA_ONSTACK;
 #endif
   if (__gnat_get_interrupt_state (SIGSEGV) != 's')

diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb
index 49841522dc92dec82893836e295572bad3af01bc..1120d5b9e4e7c27b7486e495fcc6fcbc81c938e5 100644 (file)
--- a/gcc/ada/prj-proc.adb
+++ b/gcc/ada/prj-proc.adb
@@ -2274,13 +2274,13 @@ package body Prj.Proc is
           Is_Extending_All (From_Project_Node, From_Project_Node_Tree)
       then
          declare
-            Object_Dir : constant Path_Name_Type :=
-                           Project.Object_Directory.Name;
+            Object_Dir : constant Path_Information :=
+                           Project.Object_Directory;
          begin
             Prj := In_Tree.Projects;
             while Prj /= null loop
                if Prj.Project.Virtual then
-                  Prj.Project.Object_Directory.Name := Object_Dir;
+                  Prj.Project.Object_Directory := Object_Dir;
                end if;
                Prj := Prj.Next;
             end loop;