Removed unused TPythonEngine.Lock/Unlock

Author: pyscripter

Source/PythonEngine.pas

@@ -1748,7 +1748,6 @@   TPythonEngine = class(TPythonInterface)
     FRedirectIO:                 Boolean;
     FOnAfterInit:                TNotifyEvent;
     FClients:                    TList;
-    FLock:                       TCriticalSection;
     FExecModule:                 AnsiString;
     FAutoFinalize:               Boolean;
     FProgramName:                UnicodeString;
@@ -1801,8 +1800,6 @@   TPythonEngine = class(TPythonInterface)
     destructor  Destroy; override;
 
     // Public methods
-    procedure  Lock;
-    procedure  Unlock;
     procedure  SetPythonHome(const PythonHome: UnicodeString);
     procedure  SetProgramName(const ProgramName: UnicodeString);
     function   IsType(ob: PPyObject; obt: PPyTypeObject): Boolean;
@@ -3936,7 +3933,6 @@ constructor TPythonEngine.Create(AOwner: TComponent);
   i : Integer;
 begin
   inherited;
-  FLock                    := TCriticalSection.Create;
   FInitScript              := TstringList.Create;
   FClients                 := TList.Create;
   FRedirectIO              := True;
@@ -3968,7 +3964,6 @@ destructor TPythonEngine.Destroy;
   FClients.Free;
   FInitScript.Free;
   FTraceback.Free;
-  FLock.Free;
 {$IFNDEF FPC}
   inherited;
 {$ENDIF}
@@ -4039,16 +4034,6 @@ procedure TPythonEngine.Finalize;
   FPyDateTime_DateTimeTZType  := nil;
 end;
 
-procedure TPythonEngine.Lock;
-begin
-  FLock.Enter;
-end;
-
-procedure TPythonEngine.Unlock;
-begin
-  FLock.Leave;
-end;
-
 procedure TPythonEngine.AfterLoad;
 begin
   inherited;

Tests/NumberServicesTest.pas

@@ -282,9 +282,6 @@ constructor PyTRandomInteger.CreateWith(PythonType: TPythonType;
     try
       inherited;
 
-      // obtain lock
-      Lock;
-
       // create object
       FRandomInteger := TRandomInteger.Create;
 
@@ -294,9 +291,6 @@ constructor PyTRandomInteger.CreateWith(PythonType: TPythonType;
         // try to parse
         if (PyArg_ParseTuple(args, '|O:CreateWith', @val1) <> 0) and Assigned(val1) then
           FRandomInteger.Value := PythonToTRandomInteger(val1).Value;
-
-      // unlock
-      Unlock;
     except
       on e: Exception do
         PyErr_SetString(PyExc_Exception^, PAnsiChar(AnsiString(e.Message)));