From cd742f4a165865225a3a6c6d1bd287897994bdd1 Mon Sep 17 00:00:00 2001
From: Pascal Obry <obry@adacore.com>
Date: Wed, 23 May 2018 10:24:04 +0000
Subject: [Ada] Fix memory leak in win32_wait error handling

2018-05-23  Pascal Obry  <obry@adacore.com>

gcc/ada/

	* adaint.c (win32_wait): Properly free the handle/pid lists when
	WaitForMultipleObjects fails (return WAIT_FAILED).

From-SVN: r260599
---
 gcc/ada/adaint.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'gcc/ada/adaint.c')

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 07e55e4..552bd44 100644
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -2607,6 +2607,8 @@ win32_wait (int *status)
   /* If there was an error, exit now */
   if (res == WAIT_FAILED)
     {
+      free (hl);
+      free (pidl);
       errno = EINVAL;
       return -1;
     }
-- 
cgit v1.1