Skip to content

Commit 3240a6d

Browse files
committed
Minor change to avoid compiler hints.
1 parent c7f6956 commit 3240a6d

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

PythonForDelphi/Components/Sources/Core/PythonEngine.pas

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4902,8 +4902,10 @@ procedure TPythonEngine.CheckRegistry;
49024902
key : string;
49034903
Path : string;
49044904
NewPath : string;
4905+
{$IFDEF CPUX86}
49054906
MajorVersion : integer;
49064907
MinorVersion : integer;
4908+
{$ENDIF}
49074909
VersionSuffix: string;
49084910
{$ENDIF}
49094911
begin
@@ -4912,10 +4914,10 @@ procedure TPythonEngine.CheckRegistry;
49124914
try
49134915
with TRegistry.Create(KEY_ALL_ACCESS and not KEY_NOTIFY) do
49144916
try
4915-
MajorVersion := StrToInt(RegVersion[1]);
4916-
MinorVersion := StrToInt(RegVersion[3]);
49174917
VersionSuffix := '';
49184918
{$IFDEF CPUX86}
4919+
MajorVersion := StrToInt(RegVersion[1]);
4920+
MinorVersion := StrToInt(RegVersion[3]);
49194921
if (MajorVersion > 3) or ((MajorVersion = 3) and (MinorVersion >= 5)) then
49204922
VersionSuffix := '-32';
49214923
{$ENDIF}

0 commit comments

Comments
 (0)