paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 20:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* terminate with an error when initializing a critical section and recursive

Browse Source 
mutexes are not available, since one of the expected properties of
    (Delphi/Windows-compatible) critical sections is that they ar
    re-entrant (mantis #23334)

git-svn-id: trunk@23011 -
This commit is contained in:
Jonas Maebe 2012-11-18 10:23:44 +00:00
parent 676db6d377
commit d3d0df6e4d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/unix/cthreads.pp
View File

@ -463,7 +463,7 @@ Type PINTRTLEvent = ^TINTRTLEvent;
res := pthread_mutex_init(@CS,@MAttr) res := pthread_mutex_init(@CS,@MAttr)
else else
{ No recursive mutex support :/ } { No recursive mutex support :/ }
res := pthread_mutex_init(@CS,NIL); fpc_threaderror
end end
else else
res:= pthread_mutex_init(@CS,NIL); res:= pthread_mutex_init(@CS,NIL);