From f6d8e786a1ca3165b41cea7de05b8f2151ac31ff Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 30 May 2015 14:05:20 +0200
Subject: write: do not implicitely append LF.

---
 src/grt/grt-files.adb | 2 --
 1 file changed, 2 deletions(-)

(limited to 'src/grt')

diff --git a/src/grt/grt-files.adb b/src/grt/grt-files.adb
index 30d51cf43..14dde9702 100644
--- a/src/grt/grt-files.adb
+++ b/src/grt/grt-files.adb
@@ -307,8 +307,6 @@ package body Grt.Files is
       R := fwrite (Str.Base (0)'Address,
                    size_t (Str.Bounds.Dim_1.Length), 1, Res);
       --  FIXME: check r
-      --  Write '\n'.
-      R1 := fputc (Character'Pos (Nl), Res);
       if Auto_Flush then
          fflush (Res);
       end if;
-- 
cgit v1.2.3