From a7e4a88171b3d27988467de59d6173804c2f8bc4 Mon Sep 17 00:00:00 2001 From: Jose Ruiz Date: Tue, 15 Nov 2005 14:52:20 +0100 Subject: [PATCH] s-taprop-posix.adb (Initialize_Lock): Destroy mutex attribute before raising the exception so the memory used is freed. 2005-11-14 Jose Ruiz * s-taprop-posix.adb (Initialize_Lock): Destroy mutex attribute before raising the exception so the memory used is freed. From-SVN: r106956 --- gcc/ada/s-taprop-posix.adb | 1 + 1 file changed, 1 insertion(+) 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; -- 2.30.2