Skip to content

R
riscv-gcc-1
Commit 884f97cc by Arnaud Charlet
Options

Code cleanup. 

From-SVN: r247223
parent 7c145456
Showing with 2 additions and 1 deletions
gcc/ada/contracts.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2015-2016, Free Software Foundation, Inc. -- -- Copyright (C) 2015-2017, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -658,6 +658,7 @@ package body Contracts is ...@@ -658,6 +658,7 @@ package body Contracts is
if SPARK_Mode = On if SPARK_Mode = On
and then Ekind_In (Subp_Id, E_Function, E_Generic_Function) and then Ekind_In (Subp_Id, E_Function, E_Generic_Function)
and then Comes_From_Source (Subp_Id)
and then not Is_Volatile_Function (Subp_Id) and then not Is_Volatile_Function (Subp_Id)
then then
Check_Nonvolatile_Function_Profile (Subp_Id); Check_Nonvolatile_Function_Profile (Subp_Id);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment