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

removed deprecated project fields

This commit is contained in:
Basile Burg 2015-05-15 09:03:06 +02:00
parent 550ab06e3e
commit b1c1c54792
1 changed files with 1 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/ce_dmdwrap.pas
View File

@ -58,7 +58,7 @@ type
(***************************************************************************** (*****************************************************************************
* Describes the different depreciation treatments. * Describes the different deprecation handling.
*) *)
TDepHandling = (silent, warning, error); TDepHandling = (silent, warning, error);
@ -124,21 +124,18 @@ type
fVerIds: TStringList; fVerIds: TStringList;
fInline: boolean; fInline: boolean;
fBoundsCheck: TBoundCheckKind; fBoundsCheck: TBoundCheckKind;
fNoBounds: boolean;
fOptimz: boolean; fOptimz: boolean;
fGenStack: boolean; fGenStack: boolean;
fMain: boolean; fMain: boolean;
fRelease: boolean; fRelease: boolean;
fAllInst: boolean; fAllInst: boolean;
fStackStomp: boolean; fStackStomp: boolean;
procedure depPatch;
procedure setAllInst(const aValue: boolean); procedure setAllInst(const aValue: boolean);
procedure setUt(const aValue: boolean); procedure setUt(const aValue: boolean);
procedure setTrgKind(const aValue: TTargetSystem); procedure setTrgKind(const aValue: TTargetSystem);
procedure setBinKind(const aValue: TBinaryKind); procedure setBinKind(const aValue: TBinaryKind);
procedure setInline(const aValue: boolean); procedure setInline(const aValue: boolean);
procedure setBoundsCheck(const aValue: TBoundCheckKind); procedure setBoundsCheck(const aValue: TBoundCheckKind);
procedure setNoBounds(const aValue: boolean);
procedure setOptims(const aValue: boolean); procedure setOptims(const aValue: boolean);
procedure setGenStack(const aValue: boolean); procedure setGenStack(const aValue: boolean);
procedure setMain(const aValue: boolean); procedure setMain(const aValue: boolean);
@ -149,7 +146,6 @@ 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 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;
@ -189,8 +185,6 @@ type
property debug: boolean read fDbg write setDbg default false; property debug: boolean read fDbg write setDbg default false;
property debugIdentifiers: TStringList read fDbgIdents write setDbgIdents; property debugIdentifiers: TStringList read fDbgIdents write setDbgIdents;
property debugLevel: Integer read fDbgLevel write setDbgLevel default 0; property debugLevel: Integer read fDbgLevel write setDbgLevel default 0;
property addDInformations: boolean read fDbgD write setDbgD stored false; deprecated;
property addCInformations: boolean read fDbgC write setDbgC stored false; deprecated;
property codeviewDexts: boolean read fDbgD write setDbgD default false; property codeviewDexts: boolean read fDbgD write setDbgD default false;
property codeviewCformat: boolean read fDbgC write setDbgC default false; property codeviewCformat: boolean read fDbgC write setDbgC default false;
property generateMapFile: boolean read fMap write setMap default false; property generateMapFile: boolean read fMap write setMap default false;
@ -222,11 +216,8 @@ type
published published
property outputFilename: TCEFilename read fFname write setFname; property outputFilename: TCEFilename read fFname write setFname;
property objectDirectory: TCEPathname read fObjDir write setObjDir; property objectDirectory: TCEPathname read fObjDir write setObjDir;
property Sources: TStringList read fExtraSrcs write setSrcs stored false; deprecated;
property exclusions: TStringList read fExcl write setExcl; property exclusions: TStringList read fExcl write setExcl;
property extraSources: TStringList read fExtraSrcs write setSrcs; property extraSources: TStringList read fExtraSrcs write setSrcs;
property includes: TStringList read fImpMod write setIncl stored false; deprecated;
property imports: TStringList read fImpStr write setImpt stored false; deprecated;
property importModulePaths: TStringList read fImpMod write setIncl; property importModulePaths: TStringList read fImpMod write setIncl;
property importStringPaths: TStringList read fImpStr write setImpt; property importStringPaths: TStringList read fImpStr write setImpt;
public public
@ -560,14 +551,6 @@ begin
inherited; inherited;
end; end;
procedure TOutputOpts.depPatch;
begin
// patch deprecated fields
if fNoBounds then setBoundsCheck(offAlways)
else setBoundsCheck(onAlways);
fNoBounds := false;
end;
procedure TOutputOpts.getOpts(const aList: TStrings); procedure TOutputOpts.getOpts(const aList: TStrings);
var var
opt: string; opt: string;
@ -621,7 +604,6 @@ begin
fUt := src.fUt; fUt := src.fUt;
fVerIds.Assign(src.fVerIds); fVerIds.Assign(src.fVerIds);
fInline := src.fInline; fInline := src.fInline;
fNoBounds := src.fNoBounds;
fBoundsCheck:= src.fBoundsCheck; fBoundsCheck:= src.fBoundsCheck;
fOptimz := src.fOptimz; fOptimz := src.fOptimz;
fGenStack := src.fGenStack; fGenStack := src.fGenStack;
@ -681,14 +663,6 @@ begin
doChanged; doChanged;
end; end;
procedure TOutputOpts.setNoBounds(const aValue: boolean);
begin
if fNoBounds = aValue then exit;
fNoBounds := aValue;
depPatch;
doChanged;
end;
procedure TOutputOpts.setOptims(const aValue: boolean); procedure TOutputOpts.setOptims(const aValue: boolean);
begin begin
if fOptimz = aValue then exit; if fOptimz = aValue then exit;