Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Appearance settings

Commit 3240a6d

Browse filesBrowse files
committed
Minor change to avoid compiler hints.
1 parent c7f6956 commit 3240a6d
Copy full SHA for 3240a6d

File tree

1 file changed

+4
-2
lines changed
Filter options

1 file changed

+4
-2
lines changed

‎PythonForDelphi/Components/Sources/Core/PythonEngine.pas

Copy file name to clipboardExpand all lines: PythonForDelphi/Components/Sources/Core/PythonEngine.pas
+4-2Lines 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 (0)
Morty Proxy This is a proxified and sanitized view of the page, visit original site.