From 7c02f27b32f60d5dba1ad24df229f4db81c5682a Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 30 Jul 2014 14:54:19 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r213259 --- gcc/ada/exp_pakd.adb | 8 ++++++-- gcc/ada/g-trasym-vms-alpha.adb | 6 ++++-- gcc/ada/g-trasym-vms-ia64.adb | 6 ++++-- gcc/ada/s-stchop.adb | 4 ++-- 4 files changed, 16 insertions(+), 8 deletions(-) diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 7455e25eeb2..be5f7f2e9cf 100644 --- 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 c1ea305cfbf..6af947f725d 100644 --- 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 897e2ebb24a..6ffb7f715bc 100644 --- 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 bce3e3f391a..05b13dcbe8c 100644 --- 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 -- -- 2.30.2