diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-15 21:12:46 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-15 21:12:46 +0200 |
| commit | 00ea68254ea6ff2ff04543f912f67a0812972be7 (patch) | |
| tree | 6e7c7e496861e1524e5f82687b354a1e17a92b44 | |
| parent | e6c65ec46abed9151e98918740272609cd18baa0 (diff) | |
| download | ghdl-00ea68254ea6ff2ff04543f912f67a0812972be7.tar.gz ghdl-00ea68254ea6ff2ff04543f912f67a0812972be7.tar.bz2 ghdl-00ea68254ea6ff2ff04543f912f67a0812972be7.zip | |
elab-vhdl_values: rename signal_index to signal_index_type
| -rw-r--r-- | src/synth/elab-vhdl_context.adb | 4 | ||||
| -rw-r--r-- | src/synth/elab-vhdl_context.ads | 2 | ||||
| -rw-r--r-- | src/synth/elab-vhdl_values.ads | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/src/synth/elab-vhdl_context.adb b/src/synth/elab-vhdl_context.adb index fd37dcfd2..c14a82964 100644 --- a/src/synth/elab-vhdl_context.adb +++ b/src/synth/elab-vhdl_context.adb @@ -25,9 +25,9 @@ with Vhdl.Utils; package body Elab.Vhdl_Context is - Sig_Nbr : Signal_Index := 0; + Sig_Nbr : Signal_Index_Type := 0; - function Get_Nbr_Signal return Signal_Index is + function Get_Nbr_Signal return Signal_Index_Type is begin return Sig_Nbr; end Get_Nbr_Signal; diff --git a/src/synth/elab-vhdl_context.ads b/src/synth/elab-vhdl_context.ads index a98cf280d..6227b138d 100644 --- a/src/synth/elab-vhdl_context.ads +++ b/src/synth/elab-vhdl_context.ads @@ -111,7 +111,7 @@ package Elab.Vhdl_Context is Init : Value_Acc); -- Number of created signals. - function Get_Nbr_Signal return Signal_Index; + function Get_Nbr_Signal return Signal_Index_Type; -- Create a sub instance: either a direct entity instantiation, or -- a component instantiation. diff --git a/src/synth/elab-vhdl_values.ads b/src/synth/elab-vhdl_values.ads index ebb249a9d..1838fef9c 100644 --- a/src/synth/elab-vhdl_values.ads +++ b/src/synth/elab-vhdl_values.ads @@ -67,7 +67,7 @@ package Elab.Vhdl_Values is subtype File_Index is Grt.Files_Operations.Ghdl_File_Index; - subtype Signal_Index is Uns32; + subtype Signal_Index_Type is Uns32; type Value_Type (Kind : Value_Kind) is record case Kind is @@ -75,7 +75,7 @@ package Elab.Vhdl_Values is | Value_Wire => N : Uns32; when Value_Signal => - S : Signal_Index; + S : Signal_Index_Type; Init : Value_Acc; when Value_Memory => Mem : Memory_Ptr; |