forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

prevent an indirection

This commit is contained in:
Basile Burg 2019-02-05 18:22:08 +01:00
parent 9001ff9857
commit 959a74a444
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/u_main.lfm
View File

@ -12,6 +12,7 @@ object MainForm: TMainForm
OnResize = FormResize OnResize = FormResize
OnWindowStateChange = FormWindowStateChange OnWindowStateChange = FormWindowStateChange
ShowHint = True ShowHint = True
LCLVersion = '2.0.0.3'
object mainMenu: TMainMenu object mainMenu: TMainMenu
top = 1 top = 1
object MenuItem1: TMenuItem object MenuItem1: TMenuItem

8
src/u_main.pas
View File

@ -3020,6 +3020,7 @@ var
asObj: boolean = false; asObj: boolean = false;
hasMain: THasMain; hasMain: THasMain;
rng: TStringRange = (ptr:nil; pos:0; len: 0); rng: TStringRange = (ptr:nil; pos:0; len: 0);
s: string;
begin begin
if fAppliOpts.showBuildDuration then if fAppliOpts.showBuildDuration then
@ -3045,13 +3046,14 @@ begin
CommandToList(firstlineFlags, lst); CommandToList(firstlineFlags, lst);
for i:= lst.Count-1 downto 0 do for i:= lst.Count-1 downto 0 do
begin begin
if (lst[i].length > 2) and (lst[i][1..3] = '-of') then s := lst[i];
if (s.length > 2) and (s[1..3] = '-of') then
begin begin
lst.Delete(i); lst.Delete(i);
fMsgs.message('the option "-of" is not be handled in the runnable modules', fMsgs.message('the option "-of" is not be handled in the runnable modules',
fDoc, amcEdit, amkWarn); fDoc, amcEdit, amkWarn);
end end
else if lst[i] = '-c' then else if s = '-c' then
begin begin
if not unittest then if not unittest then
asObj:=true asObj:=true
@ -3062,7 +3064,7 @@ begin
fDoc, amcEdit, amkWarn); fDoc, amcEdit, amkWarn);
end; end;
end end
else if lst[i] = '-run' then else if s = '-run' then
lst.Delete(i); lst.Delete(i);
end; end;
end; end;