Message ID | 1648428.fOq3io5smV@polaris |
---|---|
State | New |
Headers | show |
Series | [Ada] Fix wrong call to protected function returning VFA type | expand |
Index: gcc-interface/trans.c =================================================================== --- gcc-interface/trans.c (revision 258411) +++ gcc-interface/trans.c (working copy) @@ -4082,6 +4082,8 @@ node_has_volatile_full_access (Node_Id g case N_Identifier: case N_Expanded_Name: gnat_entity = Entity (gnat_node); + if (!Is_Object (gnat_entity)) + break; return Is_Volatile_Full_Access (gnat_entity) || Is_Volatile_Full_Access (Etype (gnat_entity));