From 55e0a382c3fa5a9873249b18a75cd340cf1366f2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 8 Oct 2019 18:38:12 +0200
Subject: synth: handle subprograms in package body.

---
 src/synth/synth-decls.adb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb
index 76a408203..fe5883ac3 100644
--- a/src/synth/synth-decls.adb
+++ b/src/synth/synth-decls.adb
@@ -482,6 +482,11 @@ package body Synth.Decls is
    is
       Inter : Node;
    begin
+      if Is_Second_Subprogram_Specification (Subprg) then
+         --  Already handled.
+         return;
+      end if;
+
       Inter := Get_Interface_Declaration_Chain (Subprg);
       while Inter /= Null_Node loop
          Synth_Declaration_Type (Syn_Inst, Inter);
-- 
cgit v1.2.3