Commit 78b6cd55 authored by yoogx's avatar yoogx

* Revert previous changes

parent 3d9c83a8
......@@ -180,9 +180,10 @@ package body Ocarina.Backends.PN.Components is
if Instance /= No_Node and then PN_Generated /= No_Node then
Success := Process_Component_Instance (Instance,
PN_Generated);
if not Success then
return No_Node;
end if;
-- XXX ?
-- if not Success then
-- return No_Node;
-- end if;
end if;
-- assembly and final processing
......@@ -202,9 +203,10 @@ package body Ocarina.Backends.PN.Components is
if Instance /= No_Node and then PN_Generated /= No_Node then
Success := Process_Component_Instance (Instance,
PN_Generated);
if not Success then
return No_Node;
end if;
-- XXX ?
-- if not Success then
-- return No_Node;
-- end if;
end if;
-- assembly and final processing
......
......@@ -661,9 +661,9 @@ package body Ocarina.Backends.PN.Iutils is
Set_Tokens_Number (P, New_Integer_Value (0));
-- compilation
if M = 0 then
raise Program_Error; -- XXX
end if;
-- if M = 0 then
-- null;
-- end if;
end if;
end PN_TPN_Init_Place;
......@@ -711,7 +711,7 @@ package body Ocarina.Backends.PN.Iutils is
use Ocarina.Backends.PN.Nodes;
use Ocarina.Aadl_Values;
use Ocarina.Backends.PN.Nutils;
pragma Unreferenced (M);
begin
if T /= No_Node and then PN_G /= No_Node then
PN_Init_Transition (T, Aadl, Name);
......@@ -725,9 +725,9 @@ package body Ocarina.Backends.PN.Iutils is
Set_Priority (T, New_Integer_Value (0));
-- compilation
if M = 0 then
raise Program_Error; -- XXX
end if;
-- if M = 0 then
-- raise Program_Error; -- XXX
-- end if;
end if;
end PN_TPN_Init_Transition;
......@@ -1138,6 +1138,7 @@ package body Ocarina.Backends.PN.Iutils is
use Ocarina.Backends.PN.Nodes;
use Ocarina.Aadl_Values;
use Ocarina.Backends.PN.Nutils;
pragma Unreferenced (M);
begin
if T /= No_Node and then PN_G /= No_Node then
......@@ -1147,9 +1148,9 @@ package body Ocarina.Backends.PN.Iutils is
Set_Guards (T, New_List (K_List_Id));
-- compilation
if M = 0 then
raise Program_Error; -- XXX
end if;
-- if M = 0 then
-- raise Program_Error; -- XXX
-- end if;
end if;
end PN_CPN_Init_Transition;
......
Markdown is supported
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