aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2009-11-30 10:36:20 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2009-11-30 10:36:20 +0100
commitf1b20d2758a7cf6d92fabd50fc71bc8fedba7da2 (patch)
tree23e632fb173b4a1b9847d237b76e0f65685977c2 /gcc
parentcd4de8202c06af8223b8f7b3d036bca7afde1e0f (diff)
downloadgcc-f1b20d2758a7cf6d92fabd50fc71bc8fedba7da2.zip
gcc-f1b20d2758a7cf6d92fabd50fc71bc8fedba7da2.tar.gz
gcc-f1b20d2758a7cf6d92fabd50fc71bc8fedba7da2.tar.bz2
Minor comment updates.
From-SVN: r154761
Diffstat (limited to 'gcc')
-rw-r--r--gcc/ada/lib-writ.ads4
-rw-r--r--gcc/ada/prj-tree.ads4
-rw-r--r--gcc/ada/switch-m.ads3
3 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/lib-writ.ads b/gcc/ada/lib-writ.ads
index d523677..fa8af04 100644
--- a/gcc/ada/lib-writ.ads
+++ b/gcc/ada/lib-writ.ads
@@ -157,7 +157,7 @@ package Lib.Writ is
-- 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
- -- reconstruct this call (e.g. for fix and continue)
+ -- reconstruct this call (e.g. for fix and continue).
-- -------------------
-- -- P Parameters --
@@ -235,7 +235,7 @@ package Lib.Writ is
-- generated exception tables. If ZX is not present, the
-- 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
-- possible cases. These values are checked for consistency by the
-- binder and then copied to the generated binder output file.
diff --git a/gcc/ada/prj-tree.ads b/gcc/ada/prj-tree.ads
index 96a2827..2eb8949 100644
--- a/gcc/ada/prj-tree.ads
+++ b/gcc/ada/prj-tree.ads
@@ -1377,8 +1377,8 @@ package Prj.Tree is
Key => Name_Id,
Hash => Hash,
Equal => "=");
- -- General type for htables associating name_id to name_id.
- -- This is in particular used to store the values of external references
+ -- General type for htables associating name_id to name_id. This is in
+ -- particular used to store the values of external references.
type Project_Node_Tree_Data is record
Project_Nodes : Tree_Private_Part.Project_Node_Table.Instance;
diff --git a/gcc/ada/switch-m.ads b/gcc/ada/switch-m.ads
index a730176..6a80023 100644
--- a/gcc/ada/switch-m.ads
+++ b/gcc/ada/switch-m.ads
@@ -43,8 +43,9 @@ package Switch.M is
-- 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
-- False, so that the switch may be passed to the compiler.
+ --
-- Project_Node_Tree is used to store tree-specific parameters like the
- -- project path
+ -- project path.
procedure Normalize_Compiler_Switches
(Switch_Chars : String;