diff options
Diffstat (limited to 'src')
| -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; |