aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/lib-xref.ads
diff options
context:
space:
mode:
authorYannick Moy <moy@adacore.com>2011-08-04 08:02:00 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2011-08-04 10:02:00 +0200
commite9a1ed9bed46e92e18d754d6956602f63ad73623 (patch)
tree6f3eb5c1927de33d93c7b907c188624ea27aa1cc /gcc/ada/lib-xref.ads
parent8e293fbdc67c2db30becbf0a7deeb77f6bd9d0b0 (diff)
downloadgcc-e9a1ed9bed46e92e18d754d6956602f63ad73623.zip
gcc-e9a1ed9bed46e92e18d754d6956602f63ad73623.tar.gz
gcc-e9a1ed9bed46e92e18d754d6956602f63ad73623.tar.bz2
sem_ch3.adb (Analyze_Object_Declaration): remove obsolete addition of reference for ALFA mode.
2011-08-04 Yannick Moy <moy@adacore.com> * sem_ch3.adb (Analyze_Object_Declaration): remove obsolete addition of reference for ALFA mode. * lib-xref-alfa.adb, lib-xref.ads (Traverse_Compilation_Unit): make procedure public so as to use it from formal verification back-end. From-SVN: r177324
Diffstat (limited to 'gcc/ada/lib-xref.ads')
-rw-r--r--gcc/ada/lib-xref.ads4
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/lib-xref.ads b/gcc/ada/lib-xref.ads
index 3d6252e..5ddc273 100644
--- a/gcc/ada/lib-xref.ads
+++ b/gcc/ada/lib-xref.ads
@@ -593,6 +593,10 @@ package Lib.Xref is
type Node_Processing is access procedure (N : Node_Id);
+ procedure Traverse_Compilation_Unit
+ (CU : Node_Id;
+ Process : Node_Processing);
+
procedure Traverse_All_Compilation_Units (Process : Node_Processing);
-- Call Process on all declarations through all compilation units