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

* Removed unused private fields TThread.FMethod and TThread.FSynchronizeException.

Browse Source 
* Removed all code of TThread.Synchronize() for BeOS, since existing code is copy/paste from win32 code and does not work anyway.

git-svn-id: trunk@13078 -
This commit is contained in:
yury 2009-05-02 12:09:30 +00:00
parent f6d452c2c0
commit 80fe51380d
2 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/beos/tthread.inc
View File

@ -244,11 +244,6 @@ end;
procedure TThread.Synchronize(Method: TThreadMethod); procedure TThread.Synchronize(Method: TThreadMethod);
begin begin
FSynchronizeException := nil;
FMethod := Method;
{ SendMessage(ThreadWindow, CM_EXECPROC, 0, Longint(Self)); }
if Assigned(FSynchronizeException) then
raise FSynchronizeException;
end; end;

2
rtl/objpas/classes/classesh.inc
View File

@ -1397,8 +1397,6 @@ type
FSuspended: LongBool; FSuspended: LongBool;
FReturnValue: Integer; FReturnValue: Integer;
FOnTerminate: TNotifyEvent; FOnTerminate: TNotifyEvent;
FMethod: TThreadMethod;
FSynchronizeException: TObject;
FFatalException: TObject; FFatalException: TObject;
procedure CallOnTerminate; procedure CallOnTerminate;
function GetPriority: TThreadPriority; function GetPriority: TThreadPriority;