diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-29 20:27:45 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-29 20:32:42 +0100 |
| commit | 9525af450ca384c9a081297f7ce63a30af944b09 (patch) | |
| tree | a820fc9e9f959551259e6ce11b439b4d29daedfd /src/synth/elab-vhdl_values-debug.adb | |
| parent | 1b5dea5805dd45dc628838b1435f5686b913e8df (diff) | |
| download | ghdl-9525af450ca384c9a081297f7ce63a30af944b09.tar.gz ghdl-9525af450ca384c9a081297f7ce63a30af944b09.tar.bz2 ghdl-9525af450ca384c9a081297f7ce63a30af944b09.zip | |
synth: represent access types as pointers in memory
Diffstat (limited to 'src/synth/elab-vhdl_values-debug.adb')
| -rw-r--r-- | src/synth/elab-vhdl_values-debug.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/elab-vhdl_values-debug.adb b/src/synth/elab-vhdl_values-debug.adb index 63718b55d..de640eae8 100644 --- a/src/synth/elab-vhdl_values-debug.adb +++ b/src/synth/elab-vhdl_values-debug.adb @@ -20,6 +20,7 @@ with Simple_IO; use Simple_IO; with Utils_IO; use Utils_IO; with Vhdl.Nodes; use Vhdl.Nodes; +with Elab.Vhdl_Heap; package body Elab.Vhdl_Values.Debug is procedure Put_Dir (Dir : Direction_Type) is @@ -273,7 +274,7 @@ package body Elab.Vhdl_Values.Debug is Put_Int64 (Read_Discrete (M)); when Type_Access => Put ("access: "); - Put_Uns32 (Uns32 (Read_Access (M))); + Put_Uns32 (Uns32 (Elab.Vhdl_Heap.Get_Index (Read_Access (M)))); when Type_File => Put ("file"); when Type_Float => |