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
This commit is contained in:
parent
ec09262ef1
commit
a7e4a88171
|
@ -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;
|
||||
|
||||
|
|
Loading…
Reference in New Issue