Skip to content

R
riscv-gcc-1
Commit f4f50084 by Piotr Trojanek Committed by Pierre-Marie de Rodat
Options

[Ada] Use declared type for deciding on SPARK pointer rules 

2019-10-10  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

	* sem_prag.adb (Analyze_Global_In_Decl_Part): Simplify previous
	test, just like in a recent commit we simplified a similar test
	for Depends contract.

From-SVN: r276810
parent f466596d
Showing with 1 additions and 2 deletions
gcc/ada/ChangeLog
This source diff could not be displayed because it is too large. You can view the blob instead.
gcc/ada/sem_prag.adb
...@@ -2429,8 +2429,7 @@ package body Sem_Prag is ...@@ -2429,8 +2429,7 @@ package body Sem_Prag is
-- Constant related checks -- Constant related checks
elsif Ekind (Item_Id) = E_Constant elsif Ekind (Item_Id) = E_Constant
and then and then not Is_Access_Type (Etype (Item_Id))
not Is_Access_Type (Underlying_Type (Etype (Item_Id)))
then then
-- Unless it is of an access type, a constant is a read-only -- Unless it is of an access type, a constant is a read-only
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