diff options
| author | Tristan Gingold | 2015-12-19 21:36:47 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-12-19 21:36:47 +0100 |
| commit | ae7a913a9c8193daee80f6774e8cb7351edea974 (patch) | |
| tree | 620864a61a70d1d490665a511309e37e2250060f /src/vhdl/simulate/annotations.adb | |
| parent | 7fc250bfc464604ba811e9785a4719ac2c0e6564 (diff) | |
| download | ghdl-ae7a913a9c8193daee80f6774e8cb7351edea974.tar.gz ghdl-ae7a913a9c8193daee80f6774e8cb7351edea974.tar.bz2 ghdl-ae7a913a9c8193daee80f6774e8cb7351edea974.zip | |
Adjust simulation after sigptr changes.
Diffstat (limited to 'src/vhdl/simulate/annotations.adb')
| -rw-r--r-- | src/vhdl/simulate/annotations.adb | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/vhdl/simulate/annotations.adb b/src/vhdl/simulate/annotations.adb index fb19399..10ca72e 100644 --- a/src/vhdl/simulate/annotations.adb +++ b/src/vhdl/simulate/annotations.adb @@ -63,10 +63,9 @@ package body Annotations is end Increment_Current_Scope; -- Add an annotation to object OBJ. - procedure Create_Object_Info - (Block_Info : Sim_Info_Acc; - Obj : Iir; - Obj_Kind : Sim_Info_Kind := Kind_Object) + procedure Create_Object_Info (Block_Info : Sim_Info_Acc; + Obj : Iir; + Obj_Kind : Sim_Info_Kind := Kind_Object) is Info : Sim_Info_Acc; begin @@ -84,7 +83,7 @@ package body Annotations is Info := new Sim_Info_Type'(Kind => Kind_Signal, Obj_Scope => Current_Scope, Slot => Block_Info.Nbr_Objects); - -- Reserve one more slot for default value. + -- Reserve one more slot for value. Block_Info.Nbr_Objects := Block_Info.Nbr_Objects + 1; when Kind_Terminal => Info := new Sim_Info_Type'(Kind => Kind_Terminal, |