diff options
| author | Tristan Gingold | 2015-05-30 14:05:20 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2015-05-30 14:05:20 +0200 |
| commit | f6d8e786a1ca3165b41cea7de05b8f2151ac31ff (patch) | |
| tree | e2b35ee3b32f87c5afdbd0eb25673d008cf216a3 /src | |
| parent | 825a5354da3274f069ccc02a75b8998dc0479ac3 (diff) | |
| download | ghdl-f6d8e786a1ca3165b41cea7de05b8f2151ac31ff.tar.gz ghdl-f6d8e786a1ca3165b41cea7de05b8f2151ac31ff.tar.bz2 ghdl-f6d8e786a1ca3165b41cea7de05b8f2151ac31ff.zip | |
write: do not implicitely append LF.
Diffstat (limited to 'src')
| -rw-r--r-- | src/grt/grt-files.adb | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/grt/grt-files.adb b/src/grt/grt-files.adb index 30d51cf..14dde97 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; |