From 6d2b8c7bfcbd534406243093d1ec5e77ac4c8484 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Mon, 15 Dec 2014 06:42:10 +0100
Subject: Use same node for implicit and explicit subprogram declarations.

---
 src/vhdl/translate/trans-chap8.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/vhdl/translate/trans-chap8.adb')

diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb
index 8f63e78..07bf43c 100644
--- a/src/vhdl/translate/trans-chap8.adb
+++ b/src/vhdl/translate/trans-chap8.adb
@@ -2912,8 +2912,7 @@ package body Trans.Chap8 is
                Imp  : constant Iir := Get_Implementation (Call);
             begin
                Canon.Canon_Subprogram_Call (Call);
-               if Get_Kind (Imp) = Iir_Kind_Implicit_Procedure_Declaration
-               then
+               if Is_Implicit_Subprogram (Imp) then
                   Translate_Implicit_Procedure_Call (Call);
                else
                   Translate_Procedure_Call (Call);
-- 
cgit