From: Jose Ruiz <ruiz@adacore.com>
Date: Tue, 15 Nov 2005 13:52:20 +0000 (+0100)
Subject: s-taprop-posix.adb (Initialize_Lock): Destroy mutex attribute before raising the... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a7e4a88171b3d27988467de59d6173804c2f8bc4;p=gcc.git

s-taprop-posix.adb (Initialize_Lock): Destroy mutex attribute before raising the exception so the memory used is freed.

2005-11-14  Jose Ruiz  <ruiz@adacore.com>

	* s-taprop-posix.adb (Initialize_Lock): Destroy mutex attribute before
	raising the exception so the memory used is freed.

From-SVN: r106956
---

diff --git a/gcc/ada/s-taprop-posix.adb b/gcc/ada/s-taprop-posix.adb
index 3ad2659f7a7..492c070ddcf 100644
--- a/gcc/ada/s-taprop-posix.adb
+++ b/gcc/ada/s-taprop-posix.adb
@@ -312,6 +312,7 @@ package body System.Task_Primitives.Operations is
       pragma Assert (Result = 0 or else Result = ENOMEM);
 
       if Result = ENOMEM then
+         Result := pthread_mutexattr_destroy (Attributes'Access);
          raise Storage_Error;
       end if;