diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-11 20:49:18 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-12 20:36:00 +0100 |
| commit | 638200d3916f77cdba2a04ed3e3606b61f0aa09f (patch) | |
| tree | 047e813d54c171090c8f4e271b9e6e3cb6358cc5 /src/vhdl/vhdl-annotations.adb | |
| parent | a16e1f8da63c68292703875c3abff7912572d376 (diff) | |
| download | ghdl-638200d3916f77cdba2a04ed3e3606b61f0aa09f.tar.gz ghdl-638200d3916f77cdba2a04ed3e3606b61f0aa09f.tar.bz2 ghdl-638200d3916f77cdba2a04ed3e3606b61f0aa09f.zip | |
synth: file support (WIP).
Diffstat (limited to 'src/vhdl/vhdl-annotations.adb')
| -rw-r--r-- | src/vhdl/vhdl-annotations.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-annotations.adb b/src/vhdl/vhdl-annotations.adb index a349a8a07..9cf6d7931 100644 --- a/src/vhdl/vhdl-annotations.adb +++ b/src/vhdl/vhdl-annotations.adb @@ -780,7 +780,8 @@ package body Vhdl.Annotations is when Iir_Kind_Function_Declaration | Iir_Kind_Procedure_Declaration => - if Get_Implicit_Definition (Decl) in Iir_Predefined_Explicit + if (Get_Implicit_Definition (Decl) + not in Iir_Predefined_Pure_Functions) and then not Is_Second_Subprogram_Specification (Decl) then Annotate_Subprogram_Interfaces_Type (Block_Info, Decl); |