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

* 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 -

rtl/beos/tthread.inc

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

rtl/objpas/classes/classesh.inc

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