diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-04-03 16:05:35 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-04-03 16:17:56 +0200 |
| commit | bfc5f5c20b791e09b5a2d80aeea5ce77b84d309f (patch) | |
| tree | 99c4cbb435802c795cd235d7f6e4d943d3c1d99f | |
| parent | 22963c83d3debfba9e945a9a206a13e11fe04939 (diff) | |
| download | ghdl-bfc5f5c20b791e09b5a2d80aeea5ce77b84d309f.tar.gz ghdl-bfc5f5c20b791e09b5a2d80aeea5ce77b84d309f.tar.bz2 ghdl-bfc5f5c20b791e09b5a2d80aeea5ce77b84d309f.zip | |
vhdl-parse.adb: fix indentation (for #1711)
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 61 |
1 files changed, 31 insertions, 30 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index 7bff27c69..844cee08d 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -461,34 +461,35 @@ package body Vhdl.Parse is begin case Kind is - -- Non-Shared variables - when Iir_Kind_Entity_Declaration => - Error_Msg_Parse (Prefix & Common & "in entity declaration"); - when Iir_Kind_Architecture_Body => - Error_Msg_Parse (Prefix & Common & "in architecture body"); - when Iir_Kind_Block_Statement => - Error_Msg_Parse (Prefix & Common & "in block statement"); - when Iir_Kind_Generate_Statement_Body => - Error_Msg_Parse (Prefix & Common & "in generate statement body"); - when Iir_Kind_Package_Declaration => - Error_Msg_Parse (Prefix & Common & "in package declaration"); - when Iir_Kind_Package_Body => - Error_Msg_Parse (Prefix & Common & "in entity body"); - when Iir_Kind_Protected_Type_Declaration => - Error_Msg_Parse (Prefix & Common & "in protected type declaration"); - - -- Shared variables - when Iir_Kind_Function_Body => - Error_Msg_Parse (Common & "in function body"); - when Iir_Kinds_Process_Statement => - Error_Msg_Parse (Common & "in process statement"); - when Iir_Kind_Protected_Type_Body => - Error_Msg_Parse (Common & "in protected type body"); - when Iir_Kind_Simultaneous_Procedural_Statement => - Error_Msg_Parse (Common & "in procedural statement"); - - when others => - Error_Msg_Parse (Prefix & Common & "here"); + -- Non-Shared variables + when Iir_Kind_Entity_Declaration => + Error_Msg_Parse (Prefix & Common & "in entity declaration"); + when Iir_Kind_Architecture_Body => + Error_Msg_Parse (Prefix & Common & "in architecture body"); + when Iir_Kind_Block_Statement => + Error_Msg_Parse (Prefix & Common & "in block statement"); + when Iir_Kind_Generate_Statement_Body => + Error_Msg_Parse (Prefix & Common & "in generate statement body"); + when Iir_Kind_Package_Declaration => + Error_Msg_Parse (Prefix & Common & "in package declaration"); + when Iir_Kind_Package_Body => + Error_Msg_Parse (Prefix & Common & "in entity body"); + when Iir_Kind_Protected_Type_Declaration => + Error_Msg_Parse + (Prefix & Common & "in protected type declaration"); + + -- Shared variables + when Iir_Kind_Function_Body => + Error_Msg_Parse (Common & "in function body"); + when Iir_Kinds_Process_Statement => + Error_Msg_Parse (Common & "in process statement"); + when Iir_Kind_Protected_Type_Body => + Error_Msg_Parse (Common & "in protected type body"); + when Iir_Kind_Simultaneous_Procedural_Statement => + Error_Msg_Parse (Common & "in procedural statement"); + + when others => + Error_Msg_Parse (Prefix & Common & "here"); end case; end Error_Variable_Location; @@ -5311,7 +5312,7 @@ package body Vhdl.Parse is | Iir_Kind_Package_Declaration | Iir_Kind_Package_Body | Iir_Kind_Protected_Type_Declaration => - Error_Variable_Location(Get_Kind(Package_Parent)); + Error_Variable_Location (Get_Kind (Package_Parent)); when Iir_Kind_Function_Body | Iir_Kind_Procedure_Body | Iir_Kinds_Process_Statement @@ -5361,7 +5362,7 @@ package body Vhdl.Parse is | Iir_Kinds_Process_Statement | Iir_Kind_Protected_Type_Body | Iir_Kind_Simultaneous_Procedural_Statement => - Error_Variable_Location(Get_Kind(Package_Parent)); + Error_Variable_Location (Get_Kind (Package_Parent)); when others => Error_Kind ("parse_declarative_part(3)", Package_Parent); end case; |