Skip to content

R
riscv-gcc-1
Commit 008f6fd3 by Arnaud Charlet
Options

[multiple changes] 

2010-06-21  Pascal Obry  <obry@adacore.com>

	* prj-nmsc.adb (Search_Directories): Use the non-translated directory
	path to open it.

2010-06-21  Javier Miranda  <miranda@adacore.com>

	* exp_cg.adb (Write_Call_Info): Fill the component sourcename using the
	external name.

2010-06-21  Ed Schonberg  <schonberg@adacore.com>

	* exp_ch4.adb (Expand_Concatenate): If an object declaration is created
	to hold the result, indicate that the target of the declaration does
	not need an initialization, to prevent spurious errors when
	Initialize_Scalars is enabled.

2010-06-21  Ed Schonberg  <schonberg@adacore.com>

	* a-tifiio.adb (Put): In the procedure that performs I/O on a String,
	Fore is not bound by line length. The Fore parameter of the internal
	procedure that performs the operation is an integer.

2010-06-21  Thomas Quinot  <quinot@adacore.com>

	* sem_res.adb, checks.adb: Minor reformatting.

2010-06-21  Emmanuel Briot  <briot@adacore.com>

	* s-regpat.adb (Next_Instruction, Get_Next_Offset): Removed, merged
	into Get_Next.
	(Insert_Operator_Before): New subprogram, avoids duplicated code
	(Compile): Avoid doing two compilations when the pattern matcher ends
	up being small.

From-SVN: r161074
parent 0b33adf1
Showing with 67 additions and 17 deletions
gcc/ada/ChangeLog
2010-06-21 Pascal Obry <obry@adacore.com>
* prj-nmsc.adb (Search_Directories): Use the non-translated directory
path to open it.
2010-06-21 Javier Miranda <miranda@adacore.com>
* exp_cg.adb (Write_Call_Info): Fill the component sourcename using the
external name.
2010-06-21 Ed Schonberg <schonberg@adacore.com>
* exp_ch4.adb (Expand_Concatenate): If an object declaration is created
to hold the result, indicate that the target of the declaration does
not need an initialization, to prevent spurious errors when
Initialize_Scalars is enabled.
2010-06-21 Ed Schonberg <schonberg@adacore.com>
* a-tifiio.adb (Put): In the procedure that performs I/O on a String,
Fore is not bound by line length. The Fore parameter of the internal
procedure that performs the operation is an integer.
2010-06-21 Thomas Quinot <quinot@adacore.com>
* sem_res.adb, checks.adb: Minor reformatting.
2010-06-21 Emmanuel Briot <briot@adacore.com>
* s-regpat.adb (Next_Instruction, Get_Next_Offset): Removed, merged
into Get_Next.
(Insert_Operator_Before): New subprogram, avoids duplicated code
(Compile): Avoid doing two compilations when the pattern matcher ends
up being small.
2010-06-21 Emmanuel Briot <briot@adacore.com>
* s-regpat.adb: Improve debug traces
......
gcc/ada/a-tifiio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2010, 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- --
......@@ -301,10 +301,14 @@ package body Ada.Text_IO.Fixed_IO is
(To : out String;
Last : out Natural;
Item : Num;
Fore : Field;
Fore : Integer;
Aft : Field;
Exp : Field);
-- Actual output function, used internally by all other Put routines
-- The formal Fore is an Integer, not a Field, because the routine is
-- also called from the version of Put that performs I/O to a string,
-- where the starting position depends on the size of the String, and
-- bears no relation to the bounds of Field.
---------
-- Get --
......@@ -392,7 +396,7 @@ package body Ada.Text_IO.Fixed_IO is
Last : Natural;
begin
if Fore - Boolean'Pos (Item < 0.0) < 1 or else Fore > Field'Last then
if Fore - Boolean'Pos (Item < 0.0) < 1 then
raise Layout_Error;
end if;
......@@ -407,7 +411,7 @@ package body Ada.Text_IO.Fixed_IO is
(To : out String;
Last : out Natural;
Item : Num;
Fore : Field;
Fore : Integer;
Aft : Field;
Exp : Field)
is
......
gcc/ada/checks.adb
......@@ -6477,7 +6477,7 @@ package body Checks is
-- current discriminal, which is the renaming within
-- the task body.
Disc := First_Discriminant (Tsk);
Disc := First_Discriminant (Tsk);
while Present (Disc) loop
if Chars (Disc) = Chars (Entity (Bound)) then
Set_Scope (Discriminal (Disc), Tsk);
......
gcc/ada/exp_cg.adb
......@@ -28,6 +28,7 @@ with Debug; use Debug;
with Einfo; use Einfo;
with Elists; use Elists;
with Exp_Disp; use Exp_Disp;
with Exp_Dbug; use Exp_Dbug;
with Exp_Tss; use Exp_Tss;
with Lib; use Lib;
with Namet; use Namet;
......@@ -392,7 +393,8 @@ package body Exp_CG is
Write_Str ("edge: { sourcename: ");
Write_Char ('"');
Write_Name (Chars (Defining_Entity (P)));
Get_External_Name (Defining_Entity (P), Has_Suffix => False);
Write_Str (Name_Buffer (1 .. Name_Len));
if Nkind (P) = N_Package_Declaration then
Write_Str ("___elabs");
......
gcc/ada/exp_ch4.adb
......@@ -2827,8 +2827,11 @@ package body Exp_Ch4 is
Insert_Actions (Cnode, Actions, Suppress => All_Checks);
-- Now we construct an array object with appropriate bounds
-- The target is marked as internal, to prevent useless initialization
-- when Initialize_Scalars is enabled.
Ent := Make_Temporary (Loc, 'S');
Set_Is_Internal (Ent);
-- If the bound is statically known to be out of range, we do not want
-- to abort, we want a warning and a runtime constraint error. Note that
......
gcc/ada/prj-nmsc.adb
......@@ -4788,8 +4788,8 @@ package body Prj.Nmsc is
---------------------
procedure Get_Directories
(Project : Project_Id;
Data : in out Tree_Processing_Data)
(Project : Project_Id;
Data : in out Tree_Processing_Data)
is
package Recursive_Dirs is new GNAT.Dynamic_HTables.Simple_HTable
(Header_Num => Header_Num,
......@@ -6839,12 +6839,18 @@ package body Prj.Nmsc is
declare
-- We use Element.Value, not Display_Value, because we want
-- the symbolic links to be resolved when appropriate.
Source_Directory : constant String :=
Get_Name_String (Element.Value)
& Directory_Separator;
Dir_Last : constant Natural :=
Compute_Directory_Last
(Source_Directory);
Source_Directory : constant String :=
Get_Name_String (Element.Value)
& Directory_Separator;
Dir_Last : constant Natural :=
Compute_Directory_Last
(Source_Directory);
-- The Display_Source_Directory is to be able to open an
-- UTF-8 encoded directory on Windows.
Display_Source_Directory : constant String :=
Get_Name_String
(Element.Display_Value)
& Directory_Separator;
begin
if Current_Verbosity = High then
......@@ -6856,7 +6862,7 @@ package body Prj.Nmsc is
-- We look to every entry in the source directory
Open (Dir, Source_Directory);
Open (Dir, Display_Source_Directory);
loop
Read (Dir, Name, Last);
......@@ -6871,7 +6877,7 @@ package body Prj.Nmsc is
if not Opt.Follow_Links_For_Files
or else Is_Regular_File
(Source_Directory & Name (1 .. Last))
(Display_Source_Directory & Name (1 .. Last))
then
if Current_Verbosity = High then
Write_Str (" Checking ");
......
gcc/ada/sem_res.adb
......@@ -5906,7 +5906,7 @@ package body Sem_Res is
-- to the discriminant of the same name in the target task. If the
-- entry name is the target of a requeue statement and the entry is
-- in the current protected object, the bound to be used is the
-- discriminal of the object (see apply_range_checks for details of
-- discriminal of the object (see Apply_Range_Checks for details of
-- the transformation).
-----------------------------
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment