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 +5
-5
lines changed Expand file tree Collapse file tree 1 file changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -58,8 +58,8 @@ Source: "compiler:Setup.e32"; DestDir: "{tmp}"; Flags: deleteafterinstall
58
58
Source : " compiler:SetupLdr.e32" ; DestDir : " {tmp} " ; Flags : deleteafterinstall
59
59
60
60
[Run]
61
- Filename : " {tmp} \{code:ConstGetErlangExe32}" ; Flags : hidewizard ; StatusMsg : " Installing {code:ConstGetErlangName32}..." ; Tasks: erlang\32 ; AfterInstall : AppendErlangPathIfTaskSelected (False)
62
- Filename : " {tmp} \{code:ConstGetErlangExe64}" ; Flags : hidewizard ; StatusMsg : " Installing {code:ConstGetErlangName64}..." ; Tasks: erlang\64 ; AfterInstall : AppendErlangPathIfTaskSelected (True)
61
+ Filename : " {tmp} \{code:ConstGetErlangExe32}" ; Flags : hidewizard ; StatusMsg : " Installing {code:ConstGetErlangName32}..." ; Tasks: erlang\32 ; AfterInstall : AppendNewErlangPathIfTaskSelected (False)
62
+ Filename : " {tmp} \{code:ConstGetErlangExe64}" ; Flags : hidewizard ; StatusMsg : " Installing {code:ConstGetErlangName64}..." ; Tasks: erlang\64 ; AfterInstall : AppendNewErlangPathIfTaskSelected (True)
63
63
Filename : " {tmp} \7za.exe" ; Parameters : " x -oelixir Precompiled.zip" ; WorkingDir : " {tmp} " ; StatusMsg : " Extracting Precompiled.zip archive..."
64
64
Filename : " {tmp} \ISCC.exe" ; Parameters : " /dElixirVersion={code:ConstGetSelectedReleaseVersion} /dSkipWelcome /dNoCompression Elixir.iss" ; WorkingDir : " {tmp} " ; StatusMsg : " Compiling Elixir installer..."
65
65
Filename : " {tmp} \Output\elixir-v{code:ConstGetSelectedReleaseVersion}-setup.exe" ; Flags : nowait ; StatusMsg : " Starting Elixir installer..."
91
91
92
92
CacheSelectedRelease: TElixirRelease;
93
93
94
- procedure AppendErlangPathIfTaskSelected (Of64Bit: Boolean);
94
+ procedure AppendNewErlangPathIfTaskSelected (Of64Bit: Boolean);
95
95
begin
96
- if IsTaskSelected(' erlang\newpath' ) or IsTaskSelected( ' existingpath ' ) then
97
- AppendErlangPath( Of64Bit, GlobalErlangData.ERTSVersion );
96
+ if IsTaskSelected(' erlang\newpath' ) then
97
+ AppendPath(GetLatestErlangPathOfArch( Of64Bit) + ' \bin ' );
98
98
end ;
99
99
100
100
procedure CurPageChanged (CurPageID: Integer);
You can’t perform that action at this time.
0 commit comments