Commit 34ae32f0 authored by yoogx's avatar yoogx
Browse files

* Minor reformatting

parent 9902f04b
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2015 ESA & ISAE. -- -- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2016 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify under -- -- Ocarina is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -190,7 +190,6 @@ package body Ocarina.FE_AADL.Parser.Components.Prototypes is ...@@ -190,7 +190,6 @@ package body Ocarina.FE_AADL.Parser.Components.Prototypes is
end if; end if;
return Success; return Success;
end P_Prototype_Bindings; end P_Prototype_Bindings;
------------------------- -------------------------
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2015 ESA & ISAE. -- -- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2016 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify under -- -- Ocarina is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -126,10 +126,6 @@ package body Ocarina.FE_AADL.Parser is ...@@ -126,10 +126,6 @@ package body Ocarina.FE_AADL.Parser is
return Nb_Items; return Nb_Items;
end P_Items_List; end P_Items_List;
------------------
-- P_Items_List --
------------------
function P_Items_List function P_Items_List
(Func : P_Item_Function_Ptr; (Func : P_Item_Function_Ptr;
Container : Node_Id; Container : Node_Id;
...@@ -170,10 +166,6 @@ package body Ocarina.FE_AADL.Parser is ...@@ -170,10 +166,6 @@ package body Ocarina.FE_AADL.Parser is
return Items; return Items;
end P_Items_List; end P_Items_List;
------------------
-- P_Items_List --
------------------
function P_Items_List function P_Items_List
(Func : P_Refinable_Item_Function_Ptr; (Func : P_Refinable_Item_Function_Ptr;
Container : Node_Id; Container : Node_Id;
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2015 ESA & ISAE. -- -- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2016 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify under -- -- Ocarina is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -76,10 +76,6 @@ package body Ocarina.FE_AADL.Parser_Errors is ...@@ -76,10 +76,6 @@ package body Ocarina.FE_AADL.Parser_Errors is
Set_Standard_Output; Set_Standard_Output;
end Display_Parsing_Error; end Display_Parsing_Error;
---------------------------
-- Display_Parsing_Error --
---------------------------
procedure Display_Parsing_Error procedure Display_Parsing_Error
(Code : Parsing_Code; (Code : Parsing_Code;
Identifier : Name_Id) Identifier : Name_Id)
...@@ -96,10 +92,6 @@ package body Ocarina.FE_AADL.Parser_Errors is ...@@ -96,10 +92,6 @@ package body Ocarina.FE_AADL.Parser_Errors is
Set_Standard_Output; Set_Standard_Output;
end Display_Parsing_Error; end Display_Parsing_Error;
---------------------------
-- Display_Parsing_Error --
---------------------------
procedure Display_Parsing_Error procedure Display_Parsing_Error
(Code : Parsing_Code; (Code : Parsing_Code;
Error_Msg : Error_Message_Code; Error_Msg : Error_Message_Code;
...@@ -117,10 +109,6 @@ package body Ocarina.FE_AADL.Parser_Errors is ...@@ -117,10 +109,6 @@ package body Ocarina.FE_AADL.Parser_Errors is
Set_Standard_Output; Set_Standard_Output;
end Display_Parsing_Error; end Display_Parsing_Error;
---------------------------
-- Display_Parsing_Error --
---------------------------
procedure Display_Parsing_Error procedure Display_Parsing_Error
(Code : Parsing_Code; (Code : Parsing_Code;
Expected_Token : Token_Type) Expected_Token : Token_Type)
......
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