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

rtl/objpas/classes/classes.inc, TThread:

Browse Source 
* Synchronize: fill the syncentry using the correct size

git-svn-id: trunk@33879 -
This commit is contained in:
svenbarth 2016-06-02 18:48:41 +00:00
parent 20807f4148
commit dc5d9c7001
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/objpas/classes/classes.inc
View File

@ -342,7 +342,7 @@ class procedure TThread.Synchronize(AThread: TThread; AMethod: TThreadMethod);
if not Assigned(AThread) then begin if not Assigned(AThread) then begin
{ use a local synchronize event } { use a local synchronize event }
New(syncentry); New(syncentry);
FillChar(syncentry^, SizeOf(syncentry), 0); FillChar(syncentry^, SizeOf(TThreadQueueEntry), 0);
syncentry^.ThreadID := GetCurrentThreadID; syncentry^.ThreadID := GetCurrentThreadID;
syncentry^.SyncEvent := RtlEventCreate; syncentry^.SyncEvent := RtlEventCreate;
end else begin end else begin