From: Thomas Quinot <quinot@adacore.com>
Date: Thu, 4 Jul 2019 08:05:08 +0000 (+0000)
Subject: [Ada] Get_Scos: Remove bogus, dead code
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1708a783b500003d88940ba6ef417efaf045bbc1;p=gcc.git

[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 62f031cb5cf..ee34c62ac09 100644
--- 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 27cf1905292..bf6df5e078a 100644
--- 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;