Commit 34ae32f0 authored by yoogx's avatar yoogx

* Minor reformatting

parent 9902f04b
......@@ -6,7 +6,7 @@
-- --
-- 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 --
-- 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
end if;
return Success;
end P_Prototype_Bindings;
-------------------------
......
......@@ -6,7 +6,7 @@
-- --
-- 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 --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -126,10 +126,6 @@ package body Ocarina.FE_AADL.Parser is
return Nb_Items;
end P_Items_List;
------------------
-- P_Items_List --
------------------
function P_Items_List
(Func : P_Item_Function_Ptr;
Container : Node_Id;
......@@ -170,10 +166,6 @@ package body Ocarina.FE_AADL.Parser is
return Items;
end P_Items_List;
------------------
-- P_Items_List --
------------------
function P_Items_List
(Func : P_Refinable_Item_Function_Ptr;
Container : Node_Id;
......
......@@ -6,7 +6,7 @@
-- --
-- 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 --
-- 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
Set_Standard_Output;
end Display_Parsing_Error;
---------------------------
-- Display_Parsing_Error --
---------------------------
procedure Display_Parsing_Error
(Code : Parsing_Code;
Identifier : Name_Id)
......@@ -96,10 +92,6 @@ package body Ocarina.FE_AADL.Parser_Errors is
Set_Standard_Output;
end Display_Parsing_Error;
---------------------------
-- Display_Parsing_Error --
---------------------------
procedure Display_Parsing_Error
(Code : Parsing_Code;
Error_Msg : Error_Message_Code;
......@@ -117,10 +109,6 @@ package body Ocarina.FE_AADL.Parser_Errors is
Set_Standard_Output;
end Display_Parsing_Error;
---------------------------
-- Display_Parsing_Error --
---------------------------
procedure Display_Parsing_Error
(Code : Parsing_Code;
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