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

[multiple changes]

Browse Source 
2011-08-02  Robert Dewar  <dewar@adacore.com>

	* exp_ch3.adb: Minor comment additions.
	* sem_ch13.adb: Minor reformatting.

2011-08-02  Arnaud Charlet  <charlet@adacore.com>

	* exp_pakd.adb (Expand_Packed_Element_Reference): Revert previous change

2011-08-02  Pascal Obry  <obry@adacore.com>

	* make.adb, makeutl.adb: Removes some superfluous directory separator.

From-SVN: r177150
This commit is contained in:
Arnaud Charlet 2011-08-02 15:29:08 +02:00
parent c32d4bcf4a
commit d2d9cc2290
6 changed files with 17 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gcc/ada/ChangeLog
View File

@ -1,3 +1,12 @@
2011-08-02 Robert Dewar <dewar@adacore.com>
* exp_ch3.adb: Minor comment additions.
* sem_ch13.adb: Minor reformatting.
2011-08-02 Pascal Obry <obry@adacore.com>
* make.adb, makeutl.adb: Removes some superfluous directory separator.
2011-08-02 Robert Dewar <dewar@adacore.com>
* sem_attr.adb: Minor reformatting.
@ -63,11 +72,6 @@
(Interface_Name): Add missing documentation on JGNAT only uses of
this attribute.
2011-08-02 Javier Miranda <miranda@adacore.com>
* exp_pakd.adb (Expand_Packed_Element_Reference): Disable this routine
in CodePeer mode.
2011-08-02 Geert Bosch <bosch@adacore.com>
* cstand.adb (Back_End_Float_Types): Use Elist instead of Nlist

7
gcc/ada/exp_ch3.adb
View File

@ -4481,7 +4481,8 @@ package body Exp_Ch3 is
-- table and the initialization procedure have to be deferred to this
-- point, since we reference previously declared primitive subprograms.
-- For all types, we call an initialization procedure if there is one
-- The above comment is in the wrong place, it should be at the proper
-- point in this routine ???
procedure Expand_N_Object_Declaration (N : Node_Id) is
Def_Id : constant Entity_Id := Defining_Identifier (N);
@ -4998,6 +4999,8 @@ package body Exp_Ch3 is
return;
-- Comment needed here, what case is this???
else
-- In most cases, we must check that the initial value meets any
-- constraint imposed by the declared type. However, there is one
@ -5300,6 +5303,8 @@ package body Exp_Ch3 is
-- Expand_Record_Controller --
------------------------------
-- Need some more comments in this body ???
procedure Expand_Record_Controller (T : Entity_Id) is
Def : Node_Id := Type_Definition (Parent (T));
Comp_List : Node_Id;

7
gcc/ada/exp_pakd.adb
View File

@ -1932,13 +1932,6 @@ package body Exp_Pakd is
Arg : Node_Id;
begin
-- Disable this routine in CodePeer mode since the expansion of packed
-- arrays confuses the gnat2scil back end.
if CodePeer_Mode then
return;
end if;
-- If not bit packed, we have the enumeration case, which is easily
-- dealt with (just adjust the subscripts of the indexed component)

22
gcc/ada/make.adb
View File

@ -3826,14 +3826,7 @@ package body Make is
Get_Name_String (Project.Directory.Display_Name);
begin
if Parent_Directory (Parent_Directory'Last) =
Directory_Separator
then
return Parent_Directory & Path_Name;
else
return Parent_Directory & Directory_Separator & Path_Name;
end if;
return Parent_Directory & Path_Name;
end;
end if;
end;
@ -5203,13 +5196,6 @@ package body Make is
if not Is_Absolute_Path (Exec_File_Name) then
Get_Name_String
(Main_Project.Exec_Directory.Display_Name);
if not
Is_Directory_Separator (Name_Buffer (Name_Len))
then
Add_Char_To_Name_Buffer (Directory_Separator);
end if;
Add_Str_To_Name_Buffer (Exec_File_Name);
Saved_Linker_Switches.Table (J + 1) :=
new String'(Name_Buffer (1 .. Name_Len));
@ -5458,11 +5444,6 @@ package body Make is
begin
if not Is_Absolute_Path (Exec_File_Name) then
Get_Name_String (Main_Project.Exec_Directory.Display_Name);
if Name_Buffer (Name_Len) /= Directory_Separator then
Add_Char_To_Name_Buffer (Directory_Separator);
end if;
Add_Str_To_Name_Buffer (Exec_File_Name);
Executable := Name_Find;
end if;
@ -6074,7 +6055,6 @@ package body Make is
(Get_Name_String
(Library_Projs.Table
(Index).Library_Dir.Display_Name) &
Directory_Separator &
"lib" &
Get_Name_String
(Library_Projs.Table (Index). Library_Name) &

6
gcc/ada/makeutl.adb
View File

@ -417,12 +417,6 @@ package body Makeutl is
(ALI_Project.Object_Directory.Display_Name);
end if;
if not
Is_Directory_Separator (Name_Buffer (Name_Len))
then
Add_Char_To_Name_Buffer (Directory_Separator);
end if;
Add_Str_To_Name_Buffer (ALI);
Add_Char_To_Name_Buffer (ASCII.LF);

2
gcc/ada/sem_ch13.adb
View File

@ -7002,7 +7002,7 @@ package body Sem_Ch13 is
and then No (Underlying_Type (T))
and then
(Nkind (N) /= N_Pragma
or else Get_Pragma_Id (N) /= Pragma_Import)
or else Get_Pragma_Id (N) /= Pragma_Import)
then
Error_Msg_N
("representation item must be after full type declaration", N);