2011-08-04 Robert Dewar <dewar@adacore.com>

	* erroutc.adb: Minor reformatting.

2011-08-04  Thomas Quinot  <quinot@adacore.com>

	* par_sco.adb: Comment update.

2011-08-04  Tristan Gingold  <gingold@adacore.com>

	* s-flocon.ads: New file.
	* g-flocon.ads: Now a renaming of s-flocon.
	* Makefile.rtl: Add s-flocon.o



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177336 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 7 insertions, 3 deletions

diff --git a/gcc/ada/par_sco.adb b/gcc/ada/par_sco.adb
index 6c31eab2837..af953771f20 100644
--- a/gcc/ada/par_sco.adb
+++ b/gcc/ada/par_sco.adb
@@ -987,9 +987,13 @@ package body Par_SCO is
       procedure Set_Statement_Entry;
       --  If Start is No_Location, does nothing, otherwise outputs a SCO_Table
       --  statement entry for the range Start-Stop and then sets both Start
-      --  and Stop to No_Location. Unconditionally sets Term to True. This is
-      --  called when we find a statement or declaration that generates its
-      --  own table entry, so that we must end the current statement sequence.
+      --  and Stop to No_Location.
+      --  What are Start and Stop??? This comment seems completely unrelated
+      --  to the implementation!???
+      --  Unconditionally sets Term to True. What is Term???
+      --  This is called when we find a statement or declaration that generates
+      --  its own table entry, so that we must end the current statement
+      --  sequence.
 
       procedure Process_Decisions_Defer (N : Node_Id; T : Character);
       pragma Inline (Process_Decisions_Defer);