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