File tree Expand file tree Collapse file tree 1 file changed +2
-11
lines changed Expand file tree Collapse file tree 1 file changed +2
-11
lines changed Original file line number Diff line number Diff line change @@ -4860,15 +4860,6 @@ procedure TPythonEngine.Initialize;
4860
4860
if Assigned(gPythonEngine) then
4861
4861
raise Exception.Create(' There is already one instance of TPythonEngine running' );
4862
4862
4863
- { $IFDEF FPC}
4864
- // this allows you to just call Initialize to create a non-IDE instance with
4865
- // Lazarus.
4866
- if (AutoLoad and not IsHandleValid) then begin
4867
- LoadDLL;// Calls initialize
4868
- exit;
4869
- end ;
4870
- { $ENDIF}
4871
-
4872
4863
gPythonEngine := Self;
4873
4864
CheckRegistry;
4874
4865
if IsPython3000 then begin
@@ -8945,11 +8936,11 @@ procedure TPythonType.InitServices;
8945
8936
sq_repeat := TPythonType_SqRepeat;
8946
8937
if ssItem in Services.Sequence then
8947
8938
sq_item := TPythonType_SqItem;
8948
- if ssSlice in Services.Sequence then
8939
+ if ( ssSlice in Services.Sequence) and not FEngine.IsPython3000 then
8949
8940
sq_slice := TPythonType_SqSlice;
8950
8941
if ssAssItem in Services.Sequence then
8951
8942
sq_ass_item := TPythonType_SqAssItem;
8952
- if ssAssSlice in Services.Sequence then
8943
+ if ( ssAssSlice in Services.Sequence) and not FEngine.IsPython3000 then
8953
8944
sq_ass_slice := TPythonType_SqAssSlice;
8954
8945
if ssContains in Services.Sequence then
8955
8946
sq_contains := TPythonType_SqContains;
You can’t perform that action at this time.
0 commit comments