diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-01-18 21:32:59 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-01-20 21:54:35 +0100 |
commit | 418800b56e3296eec94e56707ebad7dcd1d1c6ee (patch) | |
tree | 3dc316321d3bdef39629dc57dde9651e276b9f2b /src/synth/elab-vhdl_annotations.adb | |
parent | a53b01b53c3c8225a832e8f20d019ac39d68ce38 (diff) | |
download | ghdl-418800b56e3296eec94e56707ebad7dcd1d1c6ee.tar.gz ghdl-418800b56e3296eec94e56707ebad7dcd1d1c6ee.tar.bz2 ghdl-418800b56e3296eec94e56707ebad7dcd1d1c6ee.zip |
synth: create sub-instace for processes
Diffstat (limited to 'src/synth/elab-vhdl_annotations.adb')
-rw-r--r-- | src/synth/elab-vhdl_annotations.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/synth/elab-vhdl_annotations.adb b/src/synth/elab-vhdl_annotations.adb index 0d7af8c79..3a076cde2 100644 --- a/src/synth/elab-vhdl_annotations.adb +++ b/src/synth/elab-vhdl_annotations.adb @@ -983,13 +983,9 @@ package body Elab.Vhdl_Annotations is procedure Annotate_Process_Statement (Block_Info : Sim_Info_Acc; Stmt : Iir) is - pragma Unreferenced (Block_Info); Info : Sim_Info_Acc; begin - Info := new Sim_Info_Type'(Kind => Kind_Process, - Ref => Stmt, - Nbr_Objects => 0); - Set_Ann (Stmt, Info); + Info := Create_Block_Info (Block_Info, Stmt); Annotate_Declaration_List (Info, Get_Declaration_Chain (Stmt)); |