Commit 988e5561 authored by yoogx's avatar yoogx
Browse files

* Minor reformatting

parent 398a3197
...@@ -29,6 +29,8 @@ ...@@ -29,6 +29,8 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Locations; use Locations;
with Ocarina.ME_AADL; with Ocarina.ME_AADL;
with Ocarina.ME_AADL.AADL_Instances.Nodes; with Ocarina.ME_AADL.AADL_Instances.Nodes;
with Ocarina.Namet; with Ocarina.Namet;
...@@ -1718,11 +1720,9 @@ package body Ocarina.Backends.PN.Components is ...@@ -1718,11 +1720,9 @@ package body Ocarina.Backends.PN.Components is
V_Formalism : constant Value_Type := V_Formalism : constant Value_Type :=
Get_Value_Type (Formalism (PN_Generated)); Get_Value_Type (Formalism (PN_Generated));
begin begin
if Get_Thread_Implementation_Kind (Aadl_Instance) = Thread_Unknown then if Get_Thread_Implementation_Kind (Aadl_Instance) = Thread_Unknown then
Display_Error Display_Error
("Petri Net backend : " & "Thread Implementation Unknown", (Image (AIN.Loc (Aadl_Instance)) & ": Unknown thread kind",
True); True);
end if; end if;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment