OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* gcc.dg/tree-ssa/ssa-dse-10.c: Clean up all dse dump files.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
ada
/
live.adb
diff --git
a/gcc/ada/live.adb
b/gcc/ada/live.adb
index
9d0dfbe
..
ceccbc0
100644
(file)
--- a/
gcc/ada/live.adb
+++ b/
gcc/ada/live.adb
@@
-6,8
+6,7
@@
-- --
-- B o d y --
-- --
-- --
-- B o d y --
-- --
--- --
--- Copyright (C) 2000-2001 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2005, 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- --
-- --
-- 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- --
@@
-17,8
+16,8
@@
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
-- for more details. You should have received a copy of the GNU General --
-- Public License distributed with GNAT; see file COPYING. If not, write --
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
-- for more details. You should have received a copy of the GNU General --
-- Public License distributed with GNAT; see file COPYING. If not, write --
--- to the
Free Software Foundation, 59 Temple Place - Suite 330, Boston
, --
---
MA 02111-1307, USA.
--
+-- to the
Free Software Foundation, 51 Franklin Street, Fifth Floor
, --
+--
Boston, MA 02110-1301, USA.
--
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
@@
-59,7
+58,7
@@
package body Live is
-- The problem of finding live entities is solved in two steps:
procedure Mark (Root : Node_Id; Marks : out Name_Set);
-- The problem of finding live entities is solved in two steps:
procedure Mark (Root : Node_Id; Marks : out Name_Set);
- -- Mark all live entities in Root as Marked
.
+ -- Mark all live entities in Root as Marked
procedure Sweep (Root : Node_Id; Marks : Name_Set);
-- For all unmarked entities in Root set Is_Eliminated to true
procedure Sweep (Root : Node_Id; Marks : Name_Set);
-- For all unmarked entities in Root set Is_Eliminated to true
@@
-92,9
+91,9
@@
package body Live is
-------------
function Body_Of (E : Entity_Id) return Node_Id is
-------------
function Body_Of (E : Entity_Id) return Node_Id is
- Decl
: Node_Id
:= Unit_Declaration_Node (E);
-
Result : Node_Id
;
-
Kind : Node_Kind := Nkind (Decl)
;
+ Decl
: constant Node_Id
:= Unit_Declaration_Node (E);
+
Kind : constant Node_Kind := Nkind (Decl)
;
+
Result : Node_Id
;
begin
if Kind = N_Subprogram_Body then
begin
if Kind = N_Subprogram_Body then
@@
-280,6
+279,8
@@
package body Live is
procedure Process (N : Node_Id) is
Result : Traverse_Result;
procedure Process (N : Node_Id) is
Result : Traverse_Result;
+ pragma Warnings (Off, Result);
+
begin
Result := Process (N);
end Process;
begin
Result := Process (N);
end Process;