Minor reformatting.

From-SVN: r213259

diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb
index 7455e25eeb2cb6b4cd2d637f48b0c5d1105a797d..be5f7f2e9cf6b638af91cc8d754e4f302d509ffb 100644 (file)
--- a/gcc/ada/exp_pakd.adb
+++ b/gcc/ada/exp_pakd.adb
@@ -796,9 +796,9 @@ package body Exp_Pakd is
       end if;
    end Convert_To_PAT_Type;
 
-   ------------------------------
+   -----------------------------------
    -- Create_Packed_Array_Impl_Type --
-   ------------------------------
+   -----------------------------------
 
    procedure Create_Packed_Array_Impl_Type (Typ : Entity_Id) is
       Loc      : constant Source_Ptr := Sloc (Typ);
@@ -1469,6 +1469,10 @@ package body Exp_Pakd is
       --  out-of-range value by design.  Compile this value without checks,
       --  because a call to the array init_proc must not raise an exception.
 
+      --  Condition is not consistent with description above, Within_Init_Proc
+      --  is True also when we are building the IP for a record or protected
+      --  type that has a packed array component???
+
       if Within_Init_Proc
         and then Initialize_Scalars
       then

diff --git a/gcc/ada/g-trasym-vms-alpha.adb b/gcc/ada/g-trasym-vms-alpha.adb
index c1ea305cfbf6c17c12a53b066c16df69b559ab16..6af947f725d151fb63c3f17260931589e4aef6db 100644 (file)
--- a/gcc/ada/g-trasym-vms-alpha.adb
+++ b/gcc/ada/g-trasym-vms-alpha.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---           Copyright (C) 1999-2012, Free Software Foundation, Inc.        --
+--           Copyright (C) 1999-2014, Free Software Foundation, Inc.        --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -295,7 +295,9 @@ package body GNAT.Traceback.Symbolic is
       end if;
    end Symbolic_Traceback;
 
-   function Symbolic_Traceback (E : Exception_Occurrence) return String is
+   function Symbolic_Traceback
+     (E : Ada.Exceptions.Exception_Occurrence) return String
+   is
    begin
       return Symbolic_Traceback (Tracebacks (E));
    end Symbolic_Traceback;

diff --git a/gcc/ada/g-trasym-vms-ia64.adb b/gcc/ada/g-trasym-vms-ia64.adb
index 897e2ebb24ae9170913907e585120b78e8b5a8c5..6ffb7f715bcdbb4e0cbff06598cf6193129911e4 100644 (file)
--- a/gcc/ada/g-trasym-vms-ia64.adb
+++ b/gcc/ada/g-trasym-vms-ia64.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---         Copyright (C) 2005-2010, Free Software Foundation, Inc.          --
+--         Copyright (C) 2005-2014, Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -337,7 +337,9 @@ package body GNAT.Traceback.Symbolic is
       return Res (1 .. Len);
    end Symbolic_Traceback;
 
-   function Symbolic_Traceback (E : Exception_Occurrence) return String is
+   function Symbolic_Traceback
+     (E : Ada.Exceptions.Exception_Occurrence) return String
+   is
    begin
       return Symbolic_Traceback (Tracebacks (E));
    end Symbolic_Traceback;

diff --git a/gcc/ada/s-stchop.adb b/gcc/ada/s-stchop.adb
index bce3e3f391a487822b5574d62104d37eb4707935..05b13dcbe8cf804841f6f5b22696d9aa627d3b04 100644 (file)
--- a/gcc/ada/s-stchop.adb
+++ b/gcc/ada/s-stchop.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---          Copyright (C) 1999-2013, Free Software Foundation, Inc.         --
+--          Copyright (C) 1999-2014, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -59,7 +59,7 @@ package body System.Stack_Checking.Operations is
    --
    --  This order is important because if at any time a write to the stack
    --  cache is pending, that write should be followed by a Poll to prevent
-   --  loosing signals.
+   --  losing signals.
    --
    --  Note: This function must be compiled with Polling turned off
    --