This repository was archived by the owner on May 1, 2024. It is now read-only.
File tree Expand file tree Collapse file tree 1 file changed +2
-4
lines changed Expand file tree Collapse file tree 1 file changed +2
-4
lines changed Original file line number Diff line number Diff line change @@ -66,7 +66,7 @@ Filename: "{tmp}\Output\elixir-v{code:ConstGetSelectedReleaseVersion}-setup.exe"
6666[Tasks]
6767Name : " erlang" ; Description : " Install Erlang" ; GroupDescription: " Erlang" ; Check : CheckToInstallErlang
6868Name : " erlang\32" ; Description : " {code:ConstGetErlangName32}" ; GroupDescription: " Erlang" ; Flags : exclusive
69- Name : " erlang\64" ; Description : " {code:ConstGetErlangName32 }" ; GroupDescription: " Erlang" ; Flags : exclusive ; Check : IsWin64
69+ Name : " erlang\64" ; Description : " {code:ConstGetErlangName64 }" ; GroupDescription: " Erlang" ; Flags : exclusive ; Check : IsWin64
7070Name : " erlpath" ; Description : " Append Erlang directory to Path environment variable" ; GroupDescription: " Erlang" ; Check : CheckToAddErlangPath
7171
7272[Code]
@@ -318,7 +318,6 @@ function GetFirstReleaseMatchingRef(Releases: array of TElixirRelease; RefMatch:
318318var
319319 i: Integer;
320320begin
321- Result := Null;
322321 for i := 0 to GetArrayLength(Releases) - 1 do begin
323322 if Releases[i].Ref = RefMatch then begin
324323 Result := Releases[i];
@@ -331,10 +330,9 @@ function GetSelectedRelease(ListBoxes: array of TNewCheckListBox; Releases: arra
331330var
332331 i, j, k: Integer;
333332begin
334- Result := Null;
335333 for i := 0 to GetArrayLength(ListBoxes) - 1 do begin
336334 for j := 0 to ListBoxes[i].Items.Count - 1 do begin
337- if ListBoxes[i].ItemObject[j] <> Null then begin
335+ if ListBoxes[i].ItemObject[j] <> nil then begin
338336 Result := GetFirstReleaseMatchingRef(Releases, ListBoxes[i].ItemObject[j]);
339337 exit;
340338 end ;
You can’t perform that action at this time.
0 commit comments