diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-19 06:43:47 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-19 06:43:47 +0200 |
| commit | f8f24837237c8705c21b4b46c9f8474b50786f95 (patch) | |
| tree | bd53681ee6d8e0b220773e2811734e74fab63c6e /src/synth/elab-vhdl_context.adb | |
| parent | ca53fab7cf13635747450b16525f5545c4b8bfe1 (diff) | |
| download | ghdl-f8f24837237c8705c21b4b46c9f8474b50786f95.tar.gz ghdl-f8f24837237c8705c21b4b46c9f8474b50786f95.tar.bz2 ghdl-f8f24837237c8705c21b4b46c9f8474b50786f95.zip | |
synth/elab-vhdl_values: use a proper type for signal_index
Diffstat (limited to 'src/synth/elab-vhdl_context.adb')
| -rw-r--r-- | src/synth/elab-vhdl_context.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/elab-vhdl_context.adb b/src/synth/elab-vhdl_context.adb index 717b90dd2..7211c01f0 100644 --- a/src/synth/elab-vhdl_context.adb +++ b/src/synth/elab-vhdl_context.adb @@ -25,7 +25,7 @@ with Vhdl.Utils; package body Elab.Vhdl_Context is - Sig_Nbr : Signal_Index_Type := 0; + Sig_Nbr : Signal_Index_Type := No_Signal_Index; function Get_Nbr_Signal return Signal_Index_Type is begin @@ -305,8 +305,8 @@ package body Elab.Vhdl_Context is Vt : Valtyp; begin Create_Object (Syn_Inst, Info.Slot, 1); - Vt := (Typ, Create_Value_Signal (Sig_Nbr, Init)); Sig_Nbr := Sig_Nbr + 1; + Vt := (Typ, Create_Value_Signal (Sig_Nbr, Init)); Syn_Inst.Objects (Info.Slot) := (Kind => Obj_Object, Obj => Vt); end Create_Signal; |