OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Add an annotation for static analysis

Browse Source 
2019-07-10  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* sfn_scan.adb (Scan_SFN_Pragmas): Add pragma Assert.

From-SVN: r273342
This commit is contained in:
Arnaud Charlet 2019-07-10 09:02:08 +00:00 committed by Pierre-Marie de Rodat
parent 9a5245da49
commit f35688c95a
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2019-07-10 Arnaud Charlet <charlet@adacore.com>
* sfn_scan.adb (Scan_SFN_Pragmas): Add pragma Assert.
2019-07-10 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch3.adb (Check_Nonoverridable_Aspects): Correct the

1
gcc/ada/sfn_scan.adb
View File

@ -607,6 +607,7 @@ package body SFN_Scan is
exception
when others =>
pragma Assert (P'Valid);
Cursor := P - S'First + 1;
raise;
end Scan_SFN_Pragmas;