diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-08-28 12:27:45 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-02 02:31:06 +0200 |
| commit | 8a8f3d867598a1f9e3125c9d0648ae20a7144253 (patch) | |
| tree | 9802e5c0c5e68e92acbc5c41caf3025fbe1efe02 /src/synth/elab-vhdl_values.ads | |
| parent | 91303467eac522662572d9106e2a3cb724b24a0d (diff) | |
| download | ghdl-8a8f3d867598a1f9e3125c9d0648ae20a7144253.tar.gz ghdl-8a8f3d867598a1f9e3125c9d0648ae20a7144253.tar.bz2 ghdl-8a8f3d867598a1f9e3125c9d0648ae20a7144253.zip | |
synth: use areapools
Diffstat (limited to 'src/synth/elab-vhdl_values.ads')
| -rw-r--r-- | src/synth/elab-vhdl_values.ads | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/src/synth/elab-vhdl_values.ads b/src/synth/elab-vhdl_values.ads index 15cdfeb20..28323ba1b 100644 --- a/src/synth/elab-vhdl_values.ads +++ b/src/synth/elab-vhdl_values.ads @@ -141,10 +141,12 @@ package Elab.Vhdl_Values is -- Create a Value_Wire. function Create_Value_Wire (S : Uns32) return Value_Acc; + -- Create a Value_Signal, always on the instance_pool. 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 (Vtype : Type_Acc; Pool : Areapool_Acc) + return Valtyp; function Create_Value_Memory (Mt : Memtyp) return Valtyp; function Create_Value_Uns (Val : Uns64; Vtype : Type_Acc) return Valtyp; @@ -165,14 +167,17 @@ package Elab.Vhdl_Values is function Create_Value_Terminal (Vtype : Type_Acc; T : Terminal_Index_Type) return Valtyp; - function Create_Value_Alias - (Obj : Valtyp; Off : Value_Offsets; Typ : Type_Acc) return Valtyp; + function Create_Value_Alias (Obj : Valtyp; + Off : Value_Offsets; + Typ : Type_Acc; + Pool : Areapool_Acc) return Valtyp; function Create_Value_Dyn_Alias (Obj : Value_Acc; Poff : Uns32; Ptyp : Type_Acc; Voff : Uns32; - Eoff : Uns32) return Value_Acc; + Eoff : Uns32; + Pool : Areapool_Acc) return Value_Acc; function Create_Value_Const (Val : Valtyp; Loc : Node) return Valtyp; |