diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 14:54:19 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 14:54:19 +0200 |
| commit | 7c02f27b32f60d5dba1ad24df229f4db81c5682a (patch) | |
| tree | 1a031e386e572842493969a22636322f589fd213 /gcc/ada | |
| parent | e8fa3dcdd50c6c532d9dab2da73b3dd23f5c27cb (diff) | |
| download | gcc-7c02f27b32f60d5dba1ad24df229f4db81c5682a.zip gcc-7c02f27b32f60d5dba1ad24df229f4db81c5682a.tar.gz gcc-7c02f27b32f60d5dba1ad24df229f4db81c5682a.tar.bz2 | |
Minor reformatting.
From-SVN: r213259
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 8 | ||||
| -rw-r--r-- | gcc/ada/g-trasym-vms-alpha.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/g-trasym-vms-ia64.adb | 6 | ||||
| -rw-r--r-- | 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 7455e25..be5f7f2 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 c1ea305..6af947f 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 897e2eb..6ffb7f7 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 bce3e3f..05b13dc 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 -- |