* sprint.adb (Write_Id): If the parent node is an expanded name, check
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 9 Sep 2010 13:39:14 +0000 (13:39 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 9 Sep 2010 13:39:14 +0000 (13:39 +0000)
commit3a7b7ba88c135ece32bab65f4ae42837b261da02
treecb720994148b95b38c1b6afdac695c8b8e66650e
parent52307e9c388efd0d6bfd2ce2d3be23fdb42beb41
* sprint.adb (Write_Id): If the parent node is an expanded name, check
that its entity_or_associated_node is an entity before writing it out.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164093 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/sprint.adb