Commit 568f9949 authored by jhugues's avatar jhugues
Browse files

* Minor reformatting



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@2641 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 800350c4
...@@ -573,7 +573,7 @@ package body Ocarina.Backends.MAST_Tree.Generator is ...@@ -573,7 +573,7 @@ package body Ocarina.Backends.MAST_Tree.Generator is
Write_Name (Node_Name (N)); Write_Name (Node_Name (N));
Write (Tok_Colon); Write (Tok_Colon);
if not Is_Empty (External_Events (N))then if not Is_Empty (External_Events (N)) then
Write_Eol; Write_Eol;
Write_Indentation (-1); Write_Indentation (-1);
Write (Tok_External_Events); Write (Tok_External_Events);
...@@ -600,7 +600,7 @@ package body Ocarina.Backends.MAST_Tree.Generator is ...@@ -600,7 +600,7 @@ package body Ocarina.Backends.MAST_Tree.Generator is
Decrement_Indentation; Decrement_Indentation;
end if; end if;
if not Is_Empty (Internal_Events (N))then if not Is_Empty (Internal_Events (N)) then
Write_Indentation (-1); Write_Indentation (-1);
Write (Tok_Internal_Events); Write (Tok_Internal_Events);
Write_Space; Write_Space;
...@@ -626,7 +626,7 @@ package body Ocarina.Backends.MAST_Tree.Generator is ...@@ -626,7 +626,7 @@ package body Ocarina.Backends.MAST_Tree.Generator is
Decrement_Indentation; Decrement_Indentation;
end if; end if;
if not Is_Empty (Event_Handlers (N))then if not Is_Empty (Event_Handlers (N)) then
Write_Indentation (-1); Write_Indentation (-1);
Write (Tok_Event_Handlers); Write (Tok_Event_Handlers);
Write_Space; Write_Space;
......
Supports Markdown
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