From 55c9086777a877539e6cd898413482a16770b82d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 5 Oct 2016 03:59:26 +0200
Subject: Is_Second_Subprogram_Specification: minor improvement.

---
 src/vhdl/iirs_utils.adb | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb
index 6441e789a..09ebadf0f 100644
--- a/src/vhdl/iirs_utils.adb
+++ b/src/vhdl/iirs_utils.adb
@@ -892,9 +892,7 @@ package body Iirs_Utils is
    begin
       --  FIXME: don't directly use Subprogram_Body as it is not yet correctly
       --  set during instantiation.
-      return Bod /= Null_Iir
-        and then Kind_In (Bod, Iir_Kind_Function_Body,
-                          Iir_Kind_Procedure_Body)
+      return Get_Has_Body (Spec)
         and then Get_Subprogram_Specification (Bod) /= Spec;
    end Is_Second_Subprogram_Specification;
 
-- 
cgit v1.2.3