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

View File

@ -150,7 +150,7 @@ type
property binaryKind: TBinaryKind read fBinKind write setBinKind default executable;
property inlining: boolean read fInline write setInline default false;
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 generateStackFrame: boolean read fGenStack write setGenStack default false;
property addMain: boolean read fMain write setMain default false;
@ -544,6 +544,7 @@ end;
constructor TOutputOpts.create;
begin
fVerIds := TStringList.Create;
fBoundsCheck := safeOnly;
end;
destructor TOutputOpts.destroy;

View File

@ -90,7 +90,7 @@ type
implementation
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);
begin
@ -277,11 +277,13 @@ begin
Name := 'debug';
debugingOptions.debug := true;
debugingOptions.addCInformations := true;
outputOptions.boundsCheck := onAlways;
end;
with TCompilerConfiguration(fOptsColl.Add) do
begin
Name := 'unittest';
outputOptions.unittest := true;
outputOptions.boundsCheck := onAlways;
end;
with TCompilerConfiguration(fOptsColl.Add) do
begin