[Ada] Get_Scos: Remove bogus, dead code

The nonsensical snippet was found by Codepeer. No behavior change.

2019-07-04  Thomas Quinot  <quinot@adacore.com>

gcc/ada/

	* get_scos.adb: Remove bogus, dead code.

From-SVN: r273044

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 62f031c..ee34c62 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2019-07-04  Thomas Quinot  <quinot@adacore.com>
+
+       * get_scos.adb: Remove bogus, dead code.
+
 2019-07-04  Ed Schonberg  <schonberg@adacore.com>
 
        * sem_dim.adb (Analyze_Dimension_Array_Aggregate): If the

diff --git a/gcc/ada/get_scos.adb b/gcc/ada/get_scos.adb
index 27cf190..bf6df5e 100644 (file)
--- a/gcc/ada/get_scos.adb
+++ b/gcc/ada/get_scos.adb
@@ -179,12 +179,6 @@ procedure Get_SCOs is
          Skipc;
          C := Nextc;
          exit when C /= LF and then C /= CR;
-
-         if C = ' ' then
-            Skip_Spaces;
-            C := Nextc;
-            exit when C /= LF and then C /= CR;
-         end if;
       end loop;
    end Skip_EOL;