mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-25 10:20:43 +08:00
Code Issues Packages Projects Releases Wiki Activity

[multiple changes]

Browse Source 
2009-04-22  Robert Dewar  <dewar@adacore.com>

	* lib-load.adb: Minor reformatting

2009-04-22  Arnaud Charlet  <charlet@adacore.com>

	* s-bitops.adb, s-bitops.ads (Raise_Error): Do not use Ada 05 syntax,
	since this unit is now part of bootstrap units, so must use Ada 95
	syntax only.

2009-04-22  Thomas Quinot  <quinot@adacore.com>

	* a-tasatt.adb: Minor reformatting

2009-04-22  Bob Duff  <duff@adacore.com>

	* s-stalib.ads: Remove "with System;" since we're inside System, so
	it's unnecessary.

2009-04-22  Vincent Celier  <celier@adacore.com>

	* prj-nmsc.adb (Add_Source): Always put the dependency file name in
	the source record, as there may be a dependency file even if no object
	file is created.

From-SVN: r146558
This commit is contained in:
Arnaud Charlet 2009-04-22 11:57:03 +02:00
parent 1cb46af046
commit 1ef4d0a80a
7 changed files with 47 additions and 26 deletions

23
gcc/ada/ChangeLog

@ -1,6 +1,27 @@
2009-04-22 Arnaud Charlet <charlet@adacore.com>
* s-bitops.adb, s-bitops.ads (Raise_Error): Do not use Ada 05 syntax,
since this unit is now part of bootstrap units, so must use Ada 95
syntax only.
2009-04-22 Thomas Quinot <quinot@adacore.com>
* a-tasatt.adb: Minor reformatting
2009-04-22 Bob Duff <duff@adacore.com>
* s-stalib.ads: Remove "with System;" since we're inside System, so
it's unnecessary.
2009-04-22 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Add_Source): Always put the dependency file name in
the source record, as there may be a dependency file even if no object
file is created.
2009-04-22 Robert Dewar <dewar@adacore.com>
* lib-load.adb: MInor reformatting
* lib-load.adb: Minor reformatting
* lib-load.ads: Minor reformatting

24
gcc/ada/a-tasatt.adb

@ -7,7 +7,7 @@
-- B o d y --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2008, AdaCore --
-- Copyright (C) 1995-2009, AdaCore --
-- --
-- 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- --
@ -42,15 +42,15 @@
-- include:
-- - It is vulnerable to bad Task_Id values, to the extent of possibly
-- trashing memory and crashing the runtime system.
-- trashing memory and crashing the runtime system.
-- - It requires dynamic storage allocation for each new attribute value,
-- except for types that happen to be the same size as System.Address, or
-- shorter.
-- except for types that happen to be the same size as System.Address, or
-- shorter.
-- - Instantiations at other than the library level rely on being able to
-- do down-level calls to a procedure declared in the generic package body.
-- This makes it potentially vulnerable to compiler changes.
-- - Instantiations at other than the library level rely on being able to
-- do down-level calls to a procedure declared in the generic package body.
-- This makes it potentially vulnerable to compiler changes.
-- The main implementation issue here is that the connection from task to
-- attribute is a potential source of dangling references.
@ -249,8 +249,8 @@ package body Ada.Task_Attributes is
-- Unchecked Conversions --
---------------------------
-- The following type corresponds to Dummy_Wrapper,
-- declared in System.Tasking.Task_Attributes.
-- The following type corresponds to Dummy_Wrapper, declared in
-- System.Tasking.Task_Attributes.
type Wrapper;
type Access_Wrapper is access all Wrapper;
@ -399,9 +399,9 @@ package body Ada.Task_Attributes is
P := P.Next;
end loop;
-- Unlock the RTS here to follow the lock ordering rule
-- that prevent us from using new (i.e the Global_Lock) while
-- holding any other lock.
-- Unlock the RTS here to follow the lock ordering rule that
-- prevent us from using new (i.e the Global_Lock) while holding
-- any other lock.
POP.Unlock_RTS;
W := new Wrapper'

15
gcc/ada/lib-load.adb

@ -783,9 +783,9 @@ package body Lib.Load is
Units.Table (Main_Unit).Version := Source_Checksum (Sind);
else
-- Duplicate information from instance unit, for the body
-- The unit node N has been rewritten as a body, but it was placed
-- in the units table when first loaded as a declaration.
-- Duplicate information from instance unit, for the body. The unit
-- node N has been rewritten as a body, but it was placed in the
-- units table when first loaded as a declaration.
Units.Table (Units.Last) := Units.Table (Get_Cunit_Unit_Number (N));
Units.Table (Units.Last).Cunit := N;
@ -804,11 +804,10 @@ package body Lib.Load is
Bunit : constant Node_Id := Cunit (Body_Unit);
begin
-- The spec is irrelevant if the body is a subprogram body, and the
-- spec is other than a subprogram spec or generic subprogram spec.
-- Note that the names must be the same, we don't need to check that,
-- because we already know that from the fact that the file names are
-- the same.
-- The spec is irrelevant if the body is a subprogram body, and the spec
-- is other than a subprogram spec or generic subprogram spec. Note that
-- the names must be the same, we don't need to check that, because we
-- already know that from the fact that the file names are the same.
return
Nkind (Unit (Bunit)) = N_Subprogram_Body

6
gcc/ada/prj-nmsc.adb

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2000-2008, Free Software Foundation, Inc. --
-- Copyright (C) 2000-2009, 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- --
@ -643,13 +643,13 @@ package body Prj.Nmsc is
Src_Data.Display_File := Display_File;
Src_Data.Dependency := In_Tree.Languages_Data.Table
(Lang_Id).Config.Dependency_Kind;
Src_Data.Dep_Name := Dependency_Name
(File_Name, Src_Data.Dependency);
Src_Data.Naming_Exception := Naming_Exception;
if Src_Data.Compiled and then Src_Data.Object_Exists then
Src_Data.Object :=
Object_Name (File_Name, Config.Object_File_Suffix);
Src_Data.Dep_Name :=
Dependency_Name (File_Name, Src_Data.Dependency);
Src_Data.Switches := Switches_Name (File_Name);
end if;

2
gcc/ada/s-bitops.adb

@ -209,7 +209,7 @@ package body System.Bit_Ops is
procedure Raise_Error is
begin
raise Constraint_Error with "unequal lengths in logical operation";
raise Constraint_Error;
end Raise_Error;
end System.Bit_Ops;

2
gcc/ada/s-bitops.ads

@ -31,6 +31,8 @@
-- Operations on packed bit strings
pragma Compiler_Unit;
with System;
package System.Bit_Ops is

1
gcc/ada/s-stalib.ads

@ -50,7 +50,6 @@ pragma Polling (Off);
-- We must turn polling off for this unit, because otherwise we get
-- elaboration circularities with Ada.Exceptions if polling is on.
with System;
with Ada.Unchecked_Conversion;
package System.Standard_Library is