diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-09-07 04:56:58 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-07 04:56:58 +0200 |
| commit | d646114db387b69e2fe92a1c68c2c27c35f7dc5f (patch) | |
| tree | effc33716fc1fba6af4f7fc05689a67bc1a58a61 /src/synth/elab-vhdl_values.ads | |
| parent | 68a7010349341dfaa8aa7b8b27701bf639ea0857 (diff) | |
| download | ghdl-d646114db387b69e2fe92a1c68c2c27c35f7dc5f.tar.gz ghdl-d646114db387b69e2fe92a1c68c2c27c35f7dc5f.tar.bz2 ghdl-d646114db387b69e2fe92a1c68c2c27c35f7dc5f.zip | |
elab-vhdl_values: factorize code
Diffstat (limited to 'src/synth/elab-vhdl_values.ads')
| -rw-r--r-- | src/synth/elab-vhdl_values.ads | 8 |
1 files changed, 3 insertions, 5 deletions
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; |