projects
/
gcc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ec09262
)
s-taprop-posix.adb (Initialize_Lock): Destroy mutex attribute before raising the...
author
Jose Ruiz
<ruiz@adacore.com>
Tue, 15 Nov 2005 13:52:20 +0000
(14:52 +0100)
committer
Arnaud Charlet
<charlet@gcc.gnu.org>
Tue, 15 Nov 2005 13:52:20 +0000
(14:52 +0100)
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
gcc/ada/s-taprop-posix.adb
patch
|
blob
|
history
diff --git
a/gcc/ada/s-taprop-posix.adb
b/gcc/ada/s-taprop-posix.adb
index 3ad2659f7a7cb17111027b8db309e4aa6bb7f8c5..492c070ddcf335c293c84d69a2f862825bbb4f59 100644
(file)
--- 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;