From 22a6288a05c8350035939fbbffb5f8cdafe1640e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 15 Nov 2019 06:37:05 +0100
Subject: synth-stmts: preliminary work for implicit procedure calls.

---
 src/synth/synth-stmts.adb | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 393d415b5..372805d42 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -1580,6 +1580,16 @@ package body Synth.Stmts is
       return Res;
    end Synth_Subprogram_Call;
 
+   procedure Synth_Implicit_Procedure_Call
+     (Syn_Inst : Synth_Instance_Acc; Call : Node)
+   is
+      pragma Unreferenced (Syn_Inst);
+      Imp  : constant Node := Get_Implementation (Call);
+   begin
+      Error_Msg_Synth
+        (+Call, "call to implicit %n is not supported", +Imp);
+   end Synth_Implicit_Procedure_Call;
+
    procedure Synth_Procedure_Call (Syn_Inst : Synth_Instance_Acc; Stmt : Node)
    is
       Call : constant Node := Get_Procedure_Call (Stmt);
@@ -1596,8 +1606,7 @@ package body Synth.Stmts is
                pragma Assert (Res = null);
             end if;
          when others =>
-            Error_Msg_Synth
-              (+Stmt, "call to implicit %n is not supported", +Imp);
+            Synth_Implicit_Procedure_Call (Syn_Inst, Call);
       end case;
    end Synth_Procedure_Call;
 
-- 
cgit v1.2.3