diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-12-21 18:54:54 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-12-21 18:54:54 +0100 |
| commit | 0077cb6ed63946940700bbfd60518b0d28bc3ce2 (patch) | |
| tree | fdad4be06f42dd2ef4c72665aa60a574a4676484 /src/vhdl/simulate/simul-annotations.adb | |
| parent | 9c79e3faf7ba29c9767fed41f0c7840bdedea3e9 (diff) | |
| download | ghdl-0077cb6ed63946940700bbfd60518b0d28bc3ce2.tar.gz ghdl-0077cb6ed63946940700bbfd60518b0d28bc3ce2.tar.bz2 ghdl-0077cb6ed63946940700bbfd60518b0d28bc3ce2.zip | |
simul: add Kind_Protected instead of reusing Kind_Frame.
Diffstat (limited to 'src/vhdl/simulate/simul-annotations.adb')
| -rw-r--r-- | src/vhdl/simulate/simul-annotations.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/vhdl/simulate/simul-annotations.adb b/src/vhdl/simulate/simul-annotations.adb index 1b8182d07..7c19e3b35 100644 --- a/src/vhdl/simulate/simul-annotations.adb +++ b/src/vhdl/simulate/simul-annotations.adb @@ -83,6 +83,7 @@ package body Simul.Annotations is when Kind_Block | Kind_Process | Kind_Frame + | Kind_Protected | Kind_Package | Kind_Scalar_Type | Kind_File_Type @@ -223,7 +224,10 @@ package body Simul.Annotations is Decl := Get_Chain (Decl); end loop; - Prot_Info := new Sim_Info_Type'(Kind => Kind_Frame, + -- Note: if this protected type declaration appears in a generic + -- package declaration that is shared, the instances will always get + -- Nbr_Objects as 0... + Prot_Info := new Sim_Info_Type'(Kind => Kind_Protected, Nbr_Objects => 0); Set_Info (Prot, Prot_Info); @@ -1184,6 +1188,7 @@ package body Simul.Annotations is ("-- nbr objects:" & Object_Slot_Type'Image (Info.Nbr_Objects)); when Kind_Frame + | Kind_Protected | Kind_Process | Kind_Package => Put_Line @@ -1215,6 +1220,7 @@ package body Simul.Annotations is case Info.Kind is when Kind_Block | Kind_Frame + | Kind_Protected | Kind_Process | Kind_Package => Put_Line ("nbr objects:" |