diff options
| author | Vadim Godunko <godunko@adacore.com> | 2019-09-17 08:01:37 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-09-17 08:01:37 +0000 |
| commit | b9bfbf45419a641c0b92b1954b94b73cb3dfb935 (patch) | |
| tree | 3414ebf9359be4033522a266d02d86152200964d /gcc/ada/terminals.c | |
| parent | ee7c961db9da34d3e437eba0088f7291a7a5dfb4 (diff) | |
| download | gcc-b9bfbf45419a641c0b92b1954b94b73cb3dfb935.zip gcc-b9bfbf45419a641c0b92b1954b94b73cb3dfb935.tar.gz gcc-b9bfbf45419a641c0b92b1954b94b73cb3dfb935.tar.bz2 | |
[Ada] Avoid to close irrelevant file descriptors
'Close' subprogram of GNAT.Expect can close irrelevant file descriptors
when 'Expect' was terminated by Process_Died exception and any file open
operations was done before call to 'Close'.
2019-09-17 Vadim Godunko <godunko@adacore.com>
gcc/ada/
* libgnat/g-expect.ads, libgnat/g-expect.adb (Close_Input): New
subprogram.
(Get_Command_Output): Call Close_Input to close input stream.
(Expect_Internal): Likewise.
(Close): Likewise.
* libgnat/g-exptty.adb (Close): Likewise.
gcc/testsuite/
* gnat.dg/expect3.adb: New testcase.
From-SVN: r275781
Diffstat (limited to 'gcc/ada/terminals.c')
0 files changed, 0 insertions, 0 deletions