Commit 2df81058 authored by hugues.jerome's avatar hugues.jerome

* Minor reformatting



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@846 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent a87318f8
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2009, GET-Telecom Paris. --
-- Copyright (C) 2010, GET-Telecom Paris. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
......@@ -78,7 +78,7 @@ package body Ocarina.Builder.AADL_BA.Actions is
-- Add_New_If_Cond_Struct --
----------------------------
function Add_New_If_Cond_Struct (Loc : Location)return Node_Id is
function Add_New_If_Cond_Struct (Loc : Location) return Node_Id is
If_Cond_Struct : constant Node_Id := New_Node (K_If_Cond_Struct, Loc);
begin
return If_Cond_Struct;
......@@ -157,7 +157,7 @@ package body Ocarina.Builder.AADL_BA.Actions is
-- Add_New_For_Cond_Struct --
----------------------------
function Add_New_For_Cond_Struct (Loc : Location)return Node_Id is
function Add_New_For_Cond_Struct (Loc : Location) return Node_Id is
For_Cond_Struct : constant Node_Id := New_Node (K_For_Cond_Struct, Loc);
begin
return For_Cond_Struct;
......
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2009, GET-Telecom Paris. --
-- Copyright (C) 2010, GET-Telecom Paris. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
......@@ -48,7 +48,7 @@ package Ocarina.Builder.AADL_BA.Actions is
Action_Node : Node_Id)
return Node_Id;
function Add_New_If_Cond_Struct (Loc : Location)return Node_Id;
function Add_New_If_Cond_Struct (Loc : Location) return Node_Id;
procedure Add_New_If_Cond_Struct
(If_Cond_Struct : Node_Id;
......@@ -64,7 +64,7 @@ package Ocarina.Builder.AADL_BA.Actions is
Actions : List_Id)
return Node_Id;
function Add_New_For_Cond_Struct (Loc : Location)return Node_Id;
function Add_New_For_Cond_Struct (Loc : Location) return Node_Id;
procedure Add_New_For_Cond_Struct
(For_Cond_Struct : Node_Id;
......
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