[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 62f031cb5cfb4deb300ef99821dc69a4da48dba1..ee34c62ac09bf039a51b3cdb4769f3211959374e 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 27cf1905292110dcaa64d634e1a44a0edd407df8..bf6df5e078ade02ae10e6bc7b1e7e64c90916ec1 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;