From 3eb6b4f07da91fbb6aa803524e8817fdb445ddc5 Mon Sep 17 00:00:00 2001 From: ebotcazou Date: Wed, 13 Dec 2017 09:18:24 +0000 Subject: [PATCH] * gcc-interface/trans.c (process_freeze_entity): Be prepared for a package without body. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@255601 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/trans.c | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 70c596efbae..534b8cf92a1 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2017-12-13 Eric Botcazou + * gcc-interface/trans.c (process_freeze_entity): Be prepared for a + package without body. + +2017-12-13 Eric Botcazou + * gcc-interface/decl.c (gnat_to_gnu_entity): Robustify test for types descendant of System.Address. (gnat_to_gnu_subprog_type): Likewise. diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 4739923a09d..7a83acfd0b4 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -8718,12 +8718,12 @@ process_freeze_entity (Node_Id gnat_node) const Entity_Kind kind = Ekind (gnat_entity); tree gnu_old, gnu_new; - /* If this is a package, we need to generate code for the package. */ + /* If this is a package, generate code for the package body, if any. */ if (kind == E_Package) { - insert_code_for - (Parent (Corresponding_Body - (Parent (Declaration_Node (gnat_entity))))); + const Node_Id gnat_decl = Parent (Declaration_Node (gnat_entity)); + if (Present (Corresponding_Body (gnat_decl))) + insert_code_for (Parent (Corresponding_Body (gnat_decl))); return; } -- 2.11.4.GIT