Commit 01b2d3f3 authored by yoogx's avatar yoogx
Browse files

* Minor reformatting due to new warnings in GNAT GPL 2014

parent d295b794
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2012 ESA & ISAE. -- -- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2014 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify -- -- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the -- -- it under terms of the GNU General Public License as published by the --
...@@ -180,8 +180,8 @@ package body Ocarina.Backends.PN.Components is ...@@ -180,8 +180,8 @@ package body Ocarina.Backends.PN.Components is
if Instance /= No_Node and then PN_Generated /= No_Node then if Instance /= No_Node and then PN_Generated /= No_Node then
Success := Process_Component_Instance (Instance, Success := Process_Component_Instance (Instance,
PN_Generated); PN_Generated);
if Success then if not Success then
null; return No_Node;
end if; end if;
end if; end if;
...@@ -202,8 +202,8 @@ package body Ocarina.Backends.PN.Components is ...@@ -202,8 +202,8 @@ package body Ocarina.Backends.PN.Components is
if Instance /= No_Node and then PN_Generated /= No_Node then if Instance /= No_Node and then PN_Generated /= No_Node then
Success := Process_Component_Instance (Instance, Success := Process_Component_Instance (Instance,
PN_Generated); PN_Generated);
if Success then if not Success then
null; return No_Node;
end if; end if;
end if; end if;
...@@ -3288,10 +3288,10 @@ package body Ocarina.Backends.PN.Components is ...@@ -3288,10 +3288,10 @@ package body Ocarina.Backends.PN.Components is
end if; end if;
--- ---
-- compilation purpose, to fix -- XXX compilation purpose, to fix
if PN_Generated = No_Node then -- if PN_Generated = No_Node then
null; -- null;
end if; -- end if;
end PN_Thread_Skeleton; end PN_Thread_Skeleton;
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2009 Telecom ParisTech, 2010-2012 ESA & ISAE. -- -- Copyright (C) 2009 Telecom ParisTech, 2010-2014 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify -- -- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the -- -- it under terms of the GNU General Public License as published by the --
...@@ -662,7 +662,7 @@ package body Ocarina.Backends.PN.Iutils is ...@@ -662,7 +662,7 @@ package body Ocarina.Backends.PN.Iutils is
Set_Tokens_Number (P, New_Integer_Value (0)); Set_Tokens_Number (P, New_Integer_Value (0));
-- compilation -- compilation
if M = 0 then if M = 0 then
null; -- XXX raise Program_Error; -- XXX
end if; end if;
end if; end if;
end PN_TPN_Init_Place; end PN_TPN_Init_Place;
...@@ -726,7 +726,7 @@ package body Ocarina.Backends.PN.Iutils is ...@@ -726,7 +726,7 @@ package body Ocarina.Backends.PN.Iutils is
-- compilation -- compilation
if M = 0 then if M = 0 then
null; raise Program_Error; -- XXX
end if; end if;
end if; end if;
end PN_TPN_Init_Transition; end PN_TPN_Init_Transition;
...@@ -1148,7 +1148,7 @@ package body Ocarina.Backends.PN.Iutils is ...@@ -1148,7 +1148,7 @@ package body Ocarina.Backends.PN.Iutils is
-- compilation -- compilation
if M = 0 then if M = 0 then
null; raise Program_Error; -- XXX
end if; end if;
end if; end if;
end PN_CPN_Init_Transition; 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