diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-10 18:16:37 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-10 18:16:37 +0100 |
| commit | 7ac89fac25f4953a85e2c34307f329e58072fbc0 (patch) | |
| tree | 7a91988d3ee637d96325203db3e38625fd60e9a6 /src/vhdl/vhdl-prints.adb | |
| parent | cb7a8ebe8d709bbee776988ac68156e07b7e9fca (diff) | |
| download | ghdl-7ac89fac25f4953a85e2c34307f329e58072fbc0.tar.gz ghdl-7ac89fac25f4953a85e2c34307f329e58072fbc0.tar.bz2 ghdl-7ac89fac25f4953a85e2c34307f329e58072fbc0.zip | |
vhdl-prints: handle suspend state declarations and statements
Diffstat (limited to 'src/vhdl/vhdl-prints.adb')
| -rw-r--r-- | src/vhdl/vhdl-prints.adb | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb index c339120ce..b0a9e34f6 100644 --- a/src/vhdl/vhdl-prints.adb +++ b/src/vhdl/vhdl-prints.adb @@ -2622,6 +2622,13 @@ package body Vhdl.Prints is Disp_Package_Instantiation_Declaration (Ctxt, Decl); when Iir_Kind_Psl_Default_Clock => Disp_Psl_Default_Clock (Ctxt, Decl); + + when Iir_Kind_Suspend_State_Declaration => + Start_Hbox (Ctxt); + Disp_Ident (Ctxt, Name_State); + Disp_Token (Ctxt, Tok_Semi_Colon); + Close_Hbox (Ctxt); + when others => Error_Kind ("disp_declaration_chain", Decl); end case; @@ -3240,7 +3247,7 @@ package body Vhdl.Prints is begin Stmt := First; while Stmt /= Null_Iir loop - case Iir_Kinds_Sequential_Statement (Get_Kind (Stmt)) is + case Iir_Kinds_Sequential_Statement_Ext (Get_Kind (Stmt)) is when Iir_Kind_Null_Statement => Start_Hbox (Ctxt); Disp_Label (Ctxt, Stmt); @@ -3354,6 +3361,17 @@ package body Vhdl.Prints is end; when Iir_Kind_Break_Statement => Disp_Break_Statement (Ctxt, Stmt); + + when Iir_Kind_Suspend_State_Statement => + Start_Hbox (Ctxt); + Disp_Ident (Ctxt, Name_State); + Disp_Token (Ctxt, Tok_Colon); + Start_Lit (Ctxt, Tok_Integer); + Disp_Int32 (Ctxt, Iir_Int32 (Get_Suspend_State_Index (Stmt))); + Close_Lit (Ctxt); + Disp_Token (Ctxt, Tok_Semi_Colon); + Close_Hbox (Ctxt); + end case; Stmt := Get_Chain (Stmt); end loop; @@ -4694,7 +4712,9 @@ package body Vhdl.Prints is when Iir_Kind_Selected_Name | Iir_Kind_Selected_Element | Iir_Kind_Indexed_Name - | Iir_Kind_Slice_Name => + | Iir_Kind_Slice_Name + | Iir_Kind_Procedure_Body + | Iir_Kind_Function_Body => Print (Ctxt, N); when Iir_Kind_Psl_Cover_Directive => Disp_Psl_Cover_Directive (Ctxt, N); |