diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-10-05 03:59:26 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-10-05 03:59:26 +0200 |
| commit | 55c9086777a877539e6cd898413482a16770b82d (patch) | |
| tree | 28e0b427a43868d72fe39eff63b9b96ceaff9c6d /src | |
| parent | c17992d28aa5b4b67828a0e717cf4840ba980628 (diff) | |
| download | ghdl-55c9086777a877539e6cd898413482a16770b82d.tar.gz ghdl-55c9086777a877539e6cd898413482a16770b82d.tar.bz2 ghdl-55c9086777a877539e6cd898413482a16770b82d.zip | |
Is_Second_Subprogram_Specification: minor improvement.
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/iirs_utils.adb | 4 |
1 files changed, 1 insertions, 3 deletions
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; |