* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177150
138bc75d-0d04-0410-961f-
82ee72b054a4
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.
2011-08-02 Robert Dewar <dewar@adacore.com>
(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
-- 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);
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
-- 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;
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)
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;
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));
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;
(Get_Name_String
(Library_Projs.Table
(Index).Library_Dir.Display_Name) &
- Directory_Separator &
"lib" &
Get_Name_String
(Library_Projs.Table (Index). Library_Name) &
(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);
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);