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

amicommon: make AThreads call the thread init/exit chain

Browse Source 
git-svn-id: trunk@30992 -
This commit is contained in:
Károly Balogh 2015-06-06 19:52:13 +00:00
parent 5eea4b2846
commit 57f8922448
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/amicommon/athreads.pp
View File

@ -460,7 +460,9 @@ begin
if not exitSuspend then if not exitSuspend then
begin begin
InitThread(threadInfo^.stackLen); InitThread(threadInfo^.stackLen);
DoThreadInitProcChain;
threadInfo^.exitCode:=Pointer(threadInfo^.f(threadInfo^.p)); threadInfo^.exitCode:=Pointer(threadInfo^.f(threadInfo^.p));
DoThreadExitProcChain;
DoneThread; DoneThread;
end; end;