Commit 6b2963e7 by Arnaud Charlet

Update comments.

From-SVN: r218149
parent d2004094
...@@ -680,10 +680,9 @@ package Opt is ...@@ -680,10 +680,9 @@ package Opt is
Full_Path_Name_For_Brief_Errors : Boolean := False; Full_Path_Name_For_Brief_Errors : Boolean := False;
-- PROJECT MANAGER -- PROJECT MANAGER
-- When True, in Brief_Output mode, each error message line -- When True, in Brief_Output mode, each error message line will start with
-- will start with the full path name of the source. -- the full path name of the source. When False, only the file name without
-- When False, only the file name without directory information -- directory information is used.
-- is used.
Full_List : Boolean := False; Full_List : Boolean := False;
-- GNAT -- GNAT
...@@ -697,8 +696,8 @@ package Opt is ...@@ -697,8 +696,8 @@ package Opt is
Generate_CodePeer_Messages : Boolean := False; Generate_CodePeer_Messages : Boolean := False;
-- GNAT -- GNAT
-- Generate CodePeer messages. Ignored if CodePeer_Mode is false. -- Generate CodePeer messages. Ignored if CodePeer_Mode is false. This is
-- This is turned on by -gnateC. -- turned on by -gnateC.
Generate_Processed_File : Boolean := False; Generate_Processed_File : Boolean := False;
-- GNAT -- GNAT
...@@ -717,8 +716,8 @@ package Opt is ...@@ -717,8 +716,8 @@ package Opt is
Generate_SCO_Instance_Table : Boolean := False; Generate_SCO_Instance_Table : Boolean := False;
-- GNAT -- GNAT
-- True when switch -fdump-scos is used. When True, a table of -- True when switch -fdump-scos is used. When True, a table of instances is
-- instances is included in SCOs. -- included in SCOs.
Generating_Code : Boolean := False; Generating_Code : Boolean := False;
-- GNAT -- GNAT
...@@ -906,10 +905,9 @@ package Opt is ...@@ -906,10 +905,9 @@ package Opt is
List_Dependencies : Boolean := False; List_Dependencies : Boolean := False;
-- GNATMAKE -- GNATMAKE
-- When True gnatmake verifies that the objects are up to date and -- When True gnatmake verifies that the objects are up to date and outputs
-- outputs the list of object dependencies (-M switch). -- the list of object dependencies (-M switch). Output depends if -a switch
-- Output depends if -a switch is used or not. -- is used or not. This list can be used directly in a Makefile.
-- This list can be used directly in a Makefile.
List_Representation_Info : Int range 0 .. 3 := 0; List_Representation_Info : Int range 0 .. 3 := 0;
-- GNAT -- GNAT
...@@ -1067,8 +1065,8 @@ package Opt is ...@@ -1067,8 +1065,8 @@ package Opt is
No_Run_Time_Mode : Boolean := False; No_Run_Time_Mode : Boolean := False;
-- GNAT, GNATBIND -- GNAT, GNATBIND
-- This flag is set True if a No_Run_Time pragma is encountered. See -- This flag is set True if a No_Run_Time pragma is encountered. See spec
-- spec of Rtsfind for a full description of handling of this pragma. -- of Rtsfind for a full description of handling of this pragma.
No_Split_Units : Boolean := False; No_Split_Units : Boolean := False;
-- GPRBUILD -- GPRBUILD
...@@ -1214,9 +1212,8 @@ package Opt is ...@@ -1214,9 +1212,8 @@ package Opt is
Preprocessing_Symbol_Defs : String_List_Access := new String_List (1 .. 4); Preprocessing_Symbol_Defs : String_List_Access := new String_List (1 .. 4);
-- An extensible array to temporarily stores symbol definitions specified -- An extensible array to temporarily stores symbol definitions specified
-- on the command line with -gnateD switches. -- on the command line with -gnateD switches. The value 4 is an arbitrary
-- What is this magic constant 4 ??? -- starting point, if more space is needed it is allocated as required.
-- What is extensible about this fixed length array ???
Preprocessing_Symbol_Last : Natural := 0; Preprocessing_Symbol_Last : Natural := 0;
-- Index of last symbol definition in array Symbol_Definitions -- Index of last symbol definition in array Symbol_Definitions
...@@ -1261,13 +1258,13 @@ package Opt is ...@@ -1261,13 +1258,13 @@ package Opt is
Relaxed_RM_Semantics : Boolean := False; Relaxed_RM_Semantics : Boolean := False;
-- GNAT -- GNAT
-- Set to True to ignore some Ada semantic error to help parse legacy -- Set to True to ignore some Ada semantic error to help parse legacy Ada
-- Ada code for use in e.g. static analysis (such as CodePeer). This -- code for use in e.g. static analysis (such as CodePeer). This deals
-- deals with cases where other compilers allow illegal constructs. Tools -- with cases where other compilers allow illegal constructs. Tools such as
-- such as CodePeer are interested in analyzing code rather than enforcing -- CodePeer are interested in analyzing code rather than enforcing legality
-- legality rules, so as long as these illegal constructs end up with code -- rules, so as long as these illegal constructs end up with code that can
-- that can be handled by the tool in question, there is no reason to -- be handled by the tool in question, there is no reason to reject the
-- reject the code that is considered correct by the other compiler. -- code that is considered correct by the other compiler.
Replace_In_Comments : Boolean := False; Replace_In_Comments : Boolean := False;
-- GNATPREP -- GNATPREP
...@@ -2254,7 +2251,4 @@ private ...@@ -2254,7 +2251,4 @@ private
-- Indicates which version of gcc is in use (3 = 3.x, 4 = 4.x). Note that -- Indicates which version of gcc is in use (3 = 3.x, 4 = 4.x). Note that
-- gcc 2.8.1 (which used to be a value of 2) is no longer supported. -- gcc 2.8.1 (which used to be a value of 2) is no longer supported.
-------------------------
-- Effect of GNAT_Mode --
-------------------------
end Opt; end Opt;
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