diff options
Diffstat (limited to 'src/synth/elab-vhdl_values.ads')
| -rw-r--r-- | src/synth/elab-vhdl_values.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_values.ads b/src/synth/elab-vhdl_values.ads index 57ef8048b..67009ba5f 100644 --- a/src/synth/elab-vhdl_values.ads +++ b/src/synth/elab-vhdl_values.ads @@ -70,6 +70,9 @@ package Elab.Vhdl_Values is type Heap_Index is new Uns32; Null_Heap_Index : constant Heap_Index := 0; + type Protected_Index is new Uns32; + No_Protected_Index : constant Protected_Index := 0; + subtype File_Index is Grt.Files_Operations.Ghdl_File_Index; type Signal_Index_Type is new Uns32; @@ -214,6 +217,10 @@ package Elab.Vhdl_Values is function Read_Access (Mt : Memtyp) return Heap_Index; function Read_Access (Vt : Valtyp) return Heap_Index; + procedure Write_Protected (Mem : Memory_Ptr; Idx : Protected_Index); + function Read_Protected (Mem : Memory_Ptr) return Protected_Index; + function Read_Protected (Mt : Memtyp) return Protected_Index; + function Read_Fp64 (Vt : Valtyp) return Fp64; procedure Write_Value (Dest : Memory_Ptr; Vt : Valtyp); |