ada: VAST: Explain 2-pass algorithm

Minor: Add a comment.

gcc/ada/ChangeLog:

	* vast.adb (Pass): Add a comment.

diff --git a/gcc/ada/vast.adb b/gcc/ada/vast.adb
index cd6257ab60ce240c84248f26516c97bd60982d4d..4a26ddb5b8464c686d329d917cee45c4bdae3c46 100644 (file)
--- a/gcc/ada/vast.adb
+++ b/gcc/ada/vast.adb
@@ -145,6 +145,8 @@ package body VAST is
 
    type Pass_Number is range 1 .. 2;
    Pass : Pass_Number;
+   --  We walk the tree twice (with Pass = 1, then Pass = 2), so that we can
+   --  compute information in Pass 1, and then check it in Pass 2.
 
    procedure VAST;
    --  Called by VAST_If_Enabled to do all the checking