OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Minor reformatting. 

From-SVN: r213259
This commit is contained in:
Arnaud Charlet 2014-07-30 14:54:19 +02:00
parent e8fa3dcdd5
commit 7c02f27b32
4 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/exp_pakd.adb
View File

@ -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

6
gcc/ada/g-trasym-vms-alpha.adb
View File

@ -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;

6
gcc/ada/g-trasym-vms-ia64.adb
View File

@ -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;

4
gcc/ada/s-stchop.adb
View File

@ -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
--