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

fix, deprecated switch noBoundCheck still read but wont be written anymore to project file

This commit is contained in:
Basile Burg 2015-01-02 06:59:10 +01:00
parent 4ea86602a2
commit 9901b811a0
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_dmdwrap.pas
View File

@ -149,7 +149,7 @@ type
property targetKind: TTargetSystem read fTrgKind write setTrgKind default auto;
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 noBoundsCheck: boolean read fNoBounds write setNoBounds stored false default false;
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;
@ -556,11 +556,9 @@ end;
procedure TOutputOpts.depPatch;
begin
// patch deprecated fields
if fNoBounds then
begin
fNoBounds := false;
fBoundsCheck := offAlways;
end;
if fNoBounds then setBoundsCheck(offAlways)
else setBoundsCheck(onAlways);
fNoBounds := false;
end;
procedure TOutputOpts.getOpts(const aList: TStrings);
@ -675,13 +673,14 @@ procedure TOutputOpts.setBoundsCheck(const aValue: TBoundCheckKind);
begin
if fBoundsCheck = aValue then exit;
fBoundsCheck := aValue;
depPatch;
doChanged;
end;
procedure TOutputOpts.setNoBounds(const aValue: boolean);
begin
if fNoBounds = aValue then exit;
fNoBounds := aValue;
depPatch;
doChanged;
end;