From: Ronan Desplanques <desplanques@adacore.com>
Date: Fri, 4 Nov 2022 15:54:35 +0000 (+0100)
Subject: ada: Fix gnatmake's parsing of adc files
X-Git-Tag: upstream/13.1.0~3055
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6d0d71ea1c685df245f3c11a5daf52843823cd58;p=platform%2Fupstream%2Fgcc.git

ada: Fix gnatmake's parsing of adc files

Before this patch, gnatmake's parser for adc files failed to ignore
semicolons located inside comments. This patch fixes that behavior.

gcc/ada/

	* sfn_scan.adb (Scan_SFN_Pragmas): Improve handling of comments.
---

diff --git a/gcc/ada/sfn_scan.adb b/gcc/ada/sfn_scan.adb
index b428ed7..8ee9a09 100644
--- a/gcc/ada/sfn_scan.adb
+++ b/gcc/ada/sfn_scan.adb
@@ -583,6 +583,7 @@ package body SFN_Scan is
 
          else
             Skip_Loop : loop
+               Skip_WS;
                exit Main_Scan_Loop when At_EOF;
                exit Skip_Loop when S (P) = ';';