From d646114db387b69e2fe92a1c68c2c27c35f7dc5f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 7 Sep 2022 04:56:58 +0200 Subject: elab-vhdl_values: factorize code --- src/synth/elab-vhdl_values.ads | 8 +++----- 1 file changed, 3 insertions(+), 5 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 5c56cb548..57ef8048b 100644 --- a/src/synth/elab-vhdl_values.ads +++ b/src/synth/elab-vhdl_values.ads @@ -133,8 +133,6 @@ package Elab.Vhdl_Values is function Is_Equal (L, R : Valtyp) return Boolean; - function Create_Value_Memtyp (Mt : Memtyp) return Valtyp; - -- Create a Value_Net. function Create_Value_Net (S : Uns32) return Value_Acc; @@ -147,9 +145,9 @@ package Elab.Vhdl_Values is function Create_Value_Memory (Vtype : Type_Acc; Pool : Areapool_Acc) return Valtyp; - function Create_Value_Memory_Pool (Mt : Memtyp; Pool : Areapool_Acc) - return Valtyp; - function Create_Value_Memory (Mt : Memtyp) return Valtyp; + function Create_Value_Memory (Mt : Memtyp; Pool : Areapool_Acc) + return Valtyp; + function Create_Value_Memtyp (Mt : Memtyp) return Valtyp; function Create_Value_Uns (Val : Uns64; Vtype : Type_Acc) return Valtyp; function Create_Value_Int (Val : Int64; Vtype : Type_Acc) return Valtyp; -- cgit v1.2.3