Commit f1b20d27 by Arnaud Charlet

Minor comment updates.

From-SVN: r154761
parent cd4de820
...@@ -157,7 +157,7 @@ package Lib.Writ is ...@@ -157,7 +157,7 @@ package Lib.Writ is
-- One of these lines appears for each of the arguments present in the -- One of these lines appears for each of the arguments present in the
-- call to the gnat1 program. This can be used if it is necessary to -- call to the gnat1 program. This can be used if it is necessary to
-- reconstruct this call (e.g. for fix and continue) -- reconstruct this call (e.g. for fix and continue).
-- ------------------- -- -------------------
-- -- P Parameters -- -- -- P Parameters --
...@@ -235,7 +235,7 @@ package Lib.Writ is ...@@ -235,7 +235,7 @@ package Lib.Writ is
-- generated exception tables. If ZX is not present, the -- generated exception tables. If ZX is not present, the
-- longjmp/setjmp exception scheme is in use. -- longjmp/setjmp exception scheme is in use.
-- --
-- Note that language defined units never output policy (Lx,Tx,Qx) -- Note that language defined units never output policy (Lx, Tx, Qx)
-- parameters. Language defined units must correctly handle all -- parameters. Language defined units must correctly handle all
-- possible cases. These values are checked for consistency by the -- possible cases. These values are checked for consistency by the
-- binder and then copied to the generated binder output file. -- binder and then copied to the generated binder output file.
......
...@@ -1377,8 +1377,8 @@ package Prj.Tree is ...@@ -1377,8 +1377,8 @@ package Prj.Tree is
Key => Name_Id, Key => Name_Id,
Hash => Hash, Hash => Hash,
Equal => "="); Equal => "=");
-- General type for htables associating name_id to name_id. -- General type for htables associating name_id to name_id. This is in
-- This is in particular used to store the values of external references -- particular used to store the values of external references.
type Project_Node_Tree_Data is record type Project_Node_Tree_Data is record
Project_Nodes : Tree_Private_Part.Project_Node_Table.Instance; Project_Nodes : Tree_Private_Part.Project_Node_Table.Instance;
......
...@@ -43,8 +43,9 @@ package Switch.M is ...@@ -43,8 +43,9 @@ package Switch.M is
-- consists of one small letter causes a fatal error exit and control does -- consists of one small letter causes a fatal error exit and control does
-- not return. For all other not recognized switches, Success is set to -- not return. For all other not recognized switches, Success is set to
-- False, so that the switch may be passed to the compiler. -- False, so that the switch may be passed to the compiler.
--
-- Project_Node_Tree is used to store tree-specific parameters like the -- Project_Node_Tree is used to store tree-specific parameters like the
-- project path -- project path.
procedure Normalize_Compiler_Switches procedure Normalize_Compiler_Switches
(Switch_Chars : String; (Switch_Chars : String;
......
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