[Ada] Get_Scos: Remove bogus, dead code
authorThomas Quinot <quinot@adacore.com>
Thu, 4 Jul 2019 08:05:08 +0000 (08:05 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Thu, 4 Jul 2019 08:05:08 +0000 (08:05 +0000)
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

gcc/ada/ChangeLog
gcc/ada/get_scos.adb

index 62f031cb5cfb4deb300ef99821dc69a4da48dba1..ee34c62ac09bf039a51b3cdb4769f3211959374e 100644 (file)
@@ -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
index 27cf1905292110dcaa64d634e1a44a0edd407df8..bf6df5e078ade02ae10e6bc7b1e7e64c90916ec1 100644 (file)
@@ -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;