From 4e40d14622b5ce8771498cdb9cf8cbfe6b71d883 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 27 Aug 2020 08:38:35 -0400 Subject: [PATCH] [Ada] Error when closing c_stream gcc/ada/ * libgnat/s-fileio.adb (Open): Fix setting of Tempfile. --- gcc/ada/libgnat/s-fileio.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/ada/libgnat/s-fileio.adb b/gcc/ada/libgnat/s-fileio.adb index b6377e3827d..c574487b43e 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. -- 2.30.2