mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 05:20:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

[multiple changes]

Browse Source 
2014-07-31  Robert Dewar  <dewar@adacore.com>

	* inline.adb, s-traceb.adb, s-traceb-hpux.adb, memtrack.adb,
	s-traceb-mastop.adb: Minor reformatting.

2014-07-31  Ed Schonberg  <schonberg@adacore.com>

	* exp_ch3.adb (Expand_Record_Extension): In ASIS_Mode perform
	expansion, to handle properly visibility of selected components
	in instance bodies.

From-SVN: r213337
This commit is contained in:
Arnaud Charlet 2014-07-31 12:03:25 +02:00
parent aa3efecdfb
commit 7bfff488f8
7 changed files with 44 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/ChangeLog
View File

@ -1,3 +1,14 @@
2014-07-31 Robert Dewar <dewar@adacore.com>
* inline.adb, s-traceb.adb, s-traceb-hpux.adb, memtrack.adb,
s-traceb-mastop.adb: Minor reformatting.
2014-07-31 Ed Schonberg <schonberg@adacore.com>
* exp_ch3.adb (Expand_Record_Extension): In ASIS_Mode perform
expansion, to handle properly visibility of selected components
in instance bodies.
2014-07-31 Robert Dewar <dewar@adacore.com>
* par-ch13.adb (Get_Aspect_Specifications): Set Inside_Depends.

4
gcc/ada/exp_ch3.adb
View File

@ -4588,8 +4588,10 @@ package body Exp_Ch3 is
begin
-- Expand_Record_Extension is called directly from the semantics, so
-- we must check to see whether expansion is active before proceeding
-- Because this affects the visibility of selected components in bodies
-- of instances, it must also be called in ASIS mode.
if not Expander_Active then
if not (Expander_Active or ASIS_Mode) then
return;
end if;

10
gcc/ada/inline.adb
View File

@ -1968,10 +1968,13 @@ package body Inline is
---------------------------
function Has_Excluded_Contract return Boolean is
function Check_Excluded_Contracts (E : Entity_Id) return Boolean;
-- Return True if the subprogram E has unsupported contracts
------------------------------
-- Check_Excluded_Contracts --
------------------------------
function Check_Excluded_Contracts (E : Entity_Id) return Boolean is
Items : constant Node_Id := Contract (E);
@ -1990,8 +1993,13 @@ package body Inline is
return False;
end Check_Excluded_Contracts;
-- Local declarations
Decl : Node_Id;
P_Id : Pragma_Id;
-- Start of processing for Has_Excluded_Contract
begin
if Check_Excluded_Contracts (Spec_Id)
or else Check_Excluded_Contracts (Body_Id)

12
gcc/ada/memtrack.adb
View File

@ -196,8 +196,8 @@ package body System.Memory is
end if;
Timestamp := System.OS_Primitives.Clock;
Call_Chain (Tracebk, Max_Call_Stack, Num_Calls,
Skip_Frames => 2);
Call_Chain
(Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2);
fputc (Character'Pos ('A'), Gmemfile);
fwrite (Result'Address, Address_Size, 1, Gmemfile);
fwrite (Actual_Size'Address, size_t'Max_Size_In_Storage_Elements, 1,
@ -262,8 +262,8 @@ package body System.Memory is
Gmem_Initialize;
end if;
Call_Chain (Tracebk, Max_Call_Stack, Num_Calls,
Skip_Frames => 2);
Call_Chain
(Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2);
Timestamp := System.OS_Primitives.Clock;
fputc (Character'Pos ('D'), Gmemfile);
fwrite (Addr'Address, Address_Size, 1, Gmemfile);
@ -345,8 +345,8 @@ package body System.Memory is
if Needs_Init then
Gmem_Initialize;
end if;
Call_Chain (Tracebk, Max_Call_Stack, Num_Calls,
Skip_Frames => 2);
Call_Chain
(Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2);
Timestamp := System.OS_Primitives.Clock;
fputc (Character'Pos ('D'), Gmemfile);
fwrite (Addr'Address, Address_Size, 1, Gmemfile);

7
gcc/ada/s-traceb-hpux.adb
View File

@ -618,8 +618,11 @@ package body System.Traceback is
begin
Call_Chain
(Traceback'Address, Max_Len, Len,
Exclude_Min, Exclude_Max, Skip_Frames + 1);
-- Skip one extra frame so we skip the other Call_Chain as well
Exclude_Min, Exclude_Max,
-- Skip one extra frame to skip the other Call_Chain entry as well
Skip_Frames => Skip_Frames + 1);
end Call_Chain;
end System.Traceback;

7
gcc/ada/s-traceb-mastop.adb
View File

@ -114,8 +114,11 @@ package body System.Traceback is
begin
Call_Chain
(Traceback'Address, Max_Len, Len,
Exclude_Min, Exclude_Max, Skip_Frames + 1);
-- Skip one extra frame so we skip the other Call_Chain as well
Exclude_Min, Exclude_Max,
-- Skip one extra frame to skip the other Call_Chain entry as well
Skip_Frames => Skip_Frames + 1);
end Call_Chain;
------------------

7
gcc/ada/s-traceb.adb
View File

@ -109,8 +109,11 @@ package body System.Traceback is
begin
Call_Chain
(Traceback'Address, Max_Len, Len,
Exclude_Min, Exclude_Max, Skip_Frames + 1);
-- Skip one extra frame so we skip the other Call_Chain as well
Exclude_Min, Exclude_Max,
-- Skip one extra frame to skip the other Call_Chain entry as well
Skip_Frames => Skip_Frames + 1);
end Call_Chain;
end System.Traceback;