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

tweaked default compiler options

This commit is contained in:
Basile Burg 2014-12-04 08:28:13 +01:00
parent ab23dc13d9
commit 163c8dbf92
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ce_dmdwrap.pas
View File

@ -150,7 +150,7 @@ type
property binaryKind: TBinaryKind read fBinKind write setBinKind default executable; property binaryKind: TBinaryKind read fBinKind write setBinKind default executable;
property inlining: boolean read fInline write setInline default false; property inlining: boolean read fInline write setInline default false;
property noBoundsCheck: boolean read fNoBounds write setNoBounds; property noBoundsCheck: boolean read fNoBounds write setNoBounds;
property boundsCheck: TBoundCheckKind read fBoundsCheck write setBoundsCheck; property boundsCheck: TBoundCheckKind read fBoundsCheck write setBoundsCheck default safeOnly;
property optimizations: boolean read fOptimz write setOptims default false; property optimizations: boolean read fOptimz write setOptims default false;
property generateStackFrame: boolean read fGenStack write setGenStack default false; property generateStackFrame: boolean read fGenStack write setGenStack default false;
property addMain: boolean read fMain write setMain default false; property addMain: boolean read fMain write setMain default false;
@ -544,6 +544,7 @@ end;
constructor TOutputOpts.create; constructor TOutputOpts.create;
begin begin
fVerIds := TStringList.Create; fVerIds := TStringList.Create;
fBoundsCheck := safeOnly;
end; end;
destructor TOutputOpts.destroy; destructor TOutputOpts.destroy;

4
src/ce_project.pas
View File

@ -90,7 +90,7 @@ type
implementation implementation
uses uses
ce_interfaces, controls, dialogs, ce_symstring, ce_libman, ce_main; ce_interfaces, controls, dialogs, ce_symstring, ce_libman, ce_main, ce_dcd;
constructor TCEProject.create(aOwner: TComponent); constructor TCEProject.create(aOwner: TComponent);
begin begin
@ -277,11 +277,13 @@ begin
Name := 'debug'; Name := 'debug';
debugingOptions.debug := true; debugingOptions.debug := true;
debugingOptions.addCInformations := true; debugingOptions.addCInformations := true;
outputOptions.boundsCheck := onAlways;
end; end;
with TCompilerConfiguration(fOptsColl.Add) do with TCompilerConfiguration(fOptsColl.Add) do
begin begin
Name := 'unittest'; Name := 'unittest';
outputOptions.unittest := true; outputOptions.unittest := true;
outputOptions.boundsCheck := onAlways;
end; end;
with TCompilerConfiguration(fOptsColl.Add) do with TCompilerConfiguration(fOptsColl.Add) do
begin begin