aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-parse.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/vhdl-parse.adb')
-rw-r--r--src/vhdl/vhdl-parse.adb61
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;