From f8f24837237c8705c21b4b46c9f8474b50786f95 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 19 May 2022 06:43:47 +0200 Subject: synth/elab-vhdl_values: use a proper type for signal_index --- src/synth/elab-vhdl_values.ads | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/synth/elab-vhdl_values.ads') 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; -- cgit v1.2.3