paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* rtl event init/destroy throws only an error if it's used in a mult threaded program

Browse Source
This commit is contained in:
florian 2005-02-26 11:40:38 +00:00
parent bda868e0e7
commit c7939907f0
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/thread.inc
View File

@ -387,13 +387,15 @@ end;
function NORTLEventCreate :PRTLEvent;
begin
NoThreadError;
if IsMultiThread then
NoThreadError;
end;
procedure NORTLeventdestroy(state:pRTLEvent);
begin
NoThreadError;
if IsMultiThread then
NoThreadError;
end;
procedure NORTLeventSetEvent(state:pRTLEvent);
@ -467,7 +469,10 @@ end;
{
$Log$
Revision 1.23 2005-02-25 22:02:46 florian
Revision 1.24 2005-02-26 11:40:38 florian
* rtl event init/destroy throws only an error if it's used in a mult threaded program
Revision 1.23 2005/02/25 22:02:46 florian
* another "transfer to linux"-commit
Revision 1.22 2005/02/14 17:13:29 peter