From 692317f4310e9652099f5097313e5965703aca92 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 13 Dec 2017 09:18:24 +0000 Subject: trans.c (process_freeze_entity): Be prepared for a package without body. * gcc-interface/trans.c (process_freeze_entity): Be prepared for a package without body. From-SVN: r255601 --- gcc/ada/gcc-interface/trans.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gcc/ada/gcc-interface') diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 4739923..7a83acf 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; } -- cgit v1.1