31
31
(* Stefan Hoffmeister (Stefan.Hoffmeister@Econos.de) *)
32
32
(* Michiel du Toit (micdutoit@hsbfn.com) - Lazarus Port *)
33
33
(* Chris Nicolai (nicolaitanes@gmail.com) *)
34
- (* Kiriakos Vlahos (pyscripter@gmail.com) *)
34
+ (* Kiriakos Vlahos (pyscripter@gmail.com) *)
35
35
(* Andrey Gruzdev (andrey.gruzdev@gmail.com) *)
36
36
(* *************************************************************************)
37
37
(* This source code is distributed with no WARRANTY, for no reason or use.*)
@@ -3581,9 +3581,9 @@ procedure TPythonInterface.MapDll;
3581
3581
Py_InteractiveFlag := Import (' Py_InteractiveFlag' );
3582
3582
Py_OptimizeFlag := Import (' Py_OptimizeFlag' );
3583
3583
Py_NoSiteFlag := Import (' Py_NoSiteFlag' );
3584
- Py_UseClassExceptionsFlag := Import (' Py_UseClassExceptionsFlag' );
3585
3584
Py_FrozenFlag := Import (' Py_FrozenFlag' );
3586
3585
if not IsPython3000 then begin
3586
+ Py_UseClassExceptionsFlag := Import (' Py_UseClassExceptionsFlag' );
3587
3587
Py_TabcheckFlag := Import (' Py_TabcheckFlag' );
3588
3588
Py_UnicodeFlag := Import (' Py_UnicodeFlag' );
3589
3589
end ;
@@ -4723,9 +4723,9 @@ procedure TPythonEngine.AssignPyFlags;
4723
4723
SetFlag(Py_InteractiveFlag, pfInteractive in FPyFlags);
4724
4724
SetFlag(Py_OptimizeFlag, pfOptimize in FPyFlags);
4725
4725
SetFlag(Py_NoSiteFlag, pfNoSite in FPyFlags);
4726
- SetFlag(Py_UseClassExceptionsFlag, pfUseClassExceptionsFlag in FPyFlags);
4727
4726
SetFlag(Py_FrozenFlag, pfFrozenFlag in FPyFlags);
4728
4727
if not IsPython3000 then begin
4728
+ SetFlag(Py_UseClassExceptionsFlag, pfUseClassExceptionsFlag in FPyFlags);
4729
4729
SetFlag(Py_UnicodeFlag, pfUnicode in FPyFlags);
4730
4730
SetFlag(Py_TabcheckFlag, pfTabcheck in FPyFlags);
4731
4731
end ;
0 commit comments