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_values.ads | |
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_values.ads')
-rw-r--r-- | src/synth/elab-vhdl_values.ads | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/synth/elab-vhdl_values.ads b/src/synth/elab-vhdl_values.ads index 1838fef9c..539edd3eb 100644 --- a/src/synth/elab-vhdl_values.ads +++ b/src/synth/elab-vhdl_values.ads @@ -67,7 +67,8 @@ package Elab.Vhdl_Values is subtype File_Index is Grt.Files_Operations.Ghdl_File_Index; - subtype Signal_Index_Type is Uns32; + type Signal_Index_Type is new Uns32; + No_Signal_Index : constant Signal_Index_Type := 0; type Value_Type (Kind : Value_Kind) is record case Kind is @@ -119,7 +120,8 @@ package Elab.Vhdl_Values is -- Create a Value_Wire. function Create_Value_Wire (S : Uns32) return Value_Acc; - function Create_Value_Signal (S : Uns32; Init : Value_Acc) return Value_Acc; + function Create_Value_Signal (S : Signal_Index_Type; Init : Value_Acc) + return Value_Acc; function Create_Value_Memory (Vtype : Type_Acc) return Valtyp; function Create_Value_Memory (Mt : Memtyp) return Valtyp; |