Commit 10d3c22a authored by Jerome Hugues's avatar Jerome Hugues

* Minor reformatting

parent 9968bee6
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2009 Telecom ParisTech, 2010-2015 ESA & ISAE. -- -- Copyright (C) 1992-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- --
...@@ -104,7 +104,6 @@ package body Ocarina.Output is ...@@ -104,7 +104,6 @@ package body Ocarina.Output is
begin begin
if Len /= 0 then if Len /= 0 then
if Len /= Write (Current_FD, Buffer'Address, Len) then if Len /= Write (Current_FD, Buffer'Address, Len) then
-- If there are errors with standard error, just quit -- If there are errors with standard error, just quit
...@@ -198,7 +197,7 @@ package body Ocarina.Output is ...@@ -198,7 +197,7 @@ package body Ocarina.Output is
procedure Write_Eol (N : Natural := 1) is procedure Write_Eol (N : Natural := 1) is
begin begin
for I in 1 .. N loop for J in 1 .. N loop
Buffer (Natural (Next_Column)) := ASCII.LF; Buffer (Natural (Next_Column)) := ASCII.LF;
Next_Column := Next_Column + 1; Next_Column := Next_Column + 1;
Flush_Buffer; Flush_Buffer;
......
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