diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-08-27 08:38:35 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-23 04:24:51 -0400 |
| commit | 4e40d14622b5ce8771498cdb9cf8cbfe6b71d883 (patch) | |
| tree | 4b1f044ce5f4392049c615e875ce09c9c9be8962 | |
| parent | c12e23c46785088da90ffc6dcfaca0aada4f2fb6 (diff) | |
| download | gcc-4e40d14622b5ce8771498cdb9cf8cbfe6b71d883.zip gcc-4e40d14622b5ce8771498cdb9cf8cbfe6b71d883.tar.gz gcc-4e40d14622b5ce8771498cdb9cf8cbfe6b71d883.tar.bz2 | |
[Ada] Error when closing c_stream
gcc/ada/
* libgnat/s-fileio.adb (Open): Fix setting of Tempfile.
| -rw-r--r-- | gcc/ada/libgnat/s-fileio.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/libgnat/s-fileio.adb b/gcc/ada/libgnat/s-fileio.adb index b6377e3..c574487 100644 --- a/gcc/ada/libgnat/s-fileio.adb +++ b/gcc/ada/libgnat/s-fileio.adb @@ -800,9 +800,9 @@ package body System.File_IO is Text_Encoding : Content_Encoding; - Tempfile : constant Boolean := Name = ""; + Tempfile : constant Boolean := Name = "" and Stream = NULL_Stream; -- Indicates temporary file case, which is indicated by an empty file - -- name. + -- name and no specified Stream. Namelen : constant Integer := max_path_len; -- Length required for file name, not including final ASCII.NUL. |