diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-09-29 06:38:30 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-09-29 22:02:32 +0200 |
commit | 9e29eca1eb46cb6d3fabe9ab458ba77610823612 (patch) | |
tree | 6abd86da085185deb61366b25e64bd7bf0ab475a /src/simul/simul-vhdl_debug.adb | |
parent | f247d3eaa1d2dda3eb26e038efe52b0c6cbfd754 (diff) | |
download | ghdl-9e29eca1eb46cb6d3fabe9ab458ba77610823612.tar.gz ghdl-9e29eca1eb46cb6d3fabe9ab458ba77610823612.tar.bz2 ghdl-9e29eca1eb46cb6d3fabe9ab458ba77610823612.zip |
simul: factorize code, add sub_signal_type
Diffstat (limited to 'src/simul/simul-vhdl_debug.adb')
-rw-r--r-- | src/simul/simul-vhdl_debug.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/simul/simul-vhdl_debug.adb b/src/simul/simul-vhdl_debug.adb index 5ba294dd3..c54bea94f 100644 --- a/src/simul/simul-vhdl_debug.adb +++ b/src/simul/simul-vhdl_debug.adb @@ -91,17 +91,17 @@ package body Simul.Vhdl_Debug is Disp_Instance_Path (Processes_Table.Table (D.Proc).Inst); New_Line; Put (" noff: "); - Put_Uns32 (D.Off.Net_Off); + Put_Uns32 (D.Sig.Offs.Net_Off); Put (", moff: "); - Put_Uns32 (Uns32 (D.Off.Mem_Off)); + Put_Uns32 (Uns32 (D.Sig.Offs.Mem_Off)); Put (", len: "); - Put_Uns32 (D.Typ.W); + Put_Uns32 (D.Sig.Typ.W); Put (", typ: "); - Debug_Type_Short (D.Typ); + Debug_Type_Short (D.Sig.Typ); New_Line; end Disp_Driver_Entry; - procedure Disp_Conn_Endpoint (Ep : Connect_Endpoint) is + procedure Disp_Conn_Endpoint (Ep : Sub_Signal_Type) is begin Put ("sig: "); Put_Uns32 (Uns32 (Ep.Base)); |