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

linux version, CE projs, fPIC added when outputKind is sharedLib 

+ hide allInst switch
This commit is contained in:
Basile Burg 2016-01-21 18:08:06 +01:00
parent 1ca1423579
commit 0ddc7acf6e
2 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ce_dmdwrap.pas
View File

@ -614,6 +614,10 @@ begin
begin begin
str := binKindStr[fBinKind]; str := binKindStr[fBinKind];
if str.isNotEmpty then aList.Add(str); if str.isNotEmpty then aList.Add(str);
{$IFDEF UNIX}
if fBinKind = sharedlib then
aList.Add('-fPIC');
{$ENDIF}
str := trgKindStr[fTrgKind]; str := trgKindStr[fTrgKind];
if str.isNotEmpty then aList.Add(str); if str.isNotEmpty then aList.Add(str);
if fUnittest then aList.Add('-unittest'); if fUnittest then aList.Add('-unittest');
@ -640,7 +644,22 @@ begin
baseopt := TOutputOpts(base); baseopt := TOutputOpts(base);
str := binKindStr[fBinKind]; str := binKindStr[fBinKind];
strbase := binKindStr[baseopt.fBinKind]; strbase := binKindStr[baseopt.fBinKind];
if (str <> strbase) then aList.Add(str) else aList.Add(strbase); if (str <> strbase) then
begin
aList.Add(str);
{$IFDEF UNIX}
if fBinKind = sharedlib then
aList.Add('-fPIC');
{$ENDIF}
end
else
begin
aList.Add(strbase);
{$IFDEF UNIX}
if baseopt.fBinKind = sharedlib then
aList.Add('-fPIC');
{$ENDIF}
end;
str := trgKindStr[fTrgKind]; str := trgKindStr[fTrgKind];
strbase := trgKindStr[baseopt.fTrgKind]; strbase := trgKindStr[baseopt.fTrgKind];
if (str <> strbase) then aList.Add(str) else aList.Add(strbase); if (str <> strbase) then aList.Add(str) else aList.Add(strbase);

4
src/ce_projconf.pas
View File

@ -348,8 +348,12 @@ begin
aShow := false; aShow := false;
end; end;
if getGridTarget = fProj.currentConfiguration.outputOptions then if getGridTarget = fProj.currentConfiguration.outputOptions then
begin
if aEditor.GetName = 'noBoundsCheck' then if aEditor.GetName = 'noBoundsCheck' then
aShow := false
else if aEditor.GetName = 'generateAllTmpCode' then
aShow := false; aShow := false;
end;
if getGridTarget = fProj.currentConfiguration.debugingOptions then if getGridTarget = fProj.currentConfiguration.debugingOptions then
begin begin
if aEditor.GetName = 'addCInformations' then if aEditor.GetName = 'addCInformations' then