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

remove old commented code, CE proj loading error handling

This commit is contained in:
Basile Burg 2016-08-05 16:24:24 +02:00
parent ea6c3bd2f8
commit 5d920aef7e
1 changed files with 3 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/ce_nativeproject.pas
View File

@ -597,35 +597,10 @@ end;
procedure TCENativeProject.readerPropNoFound(Reader: TReader; Instance: TPersistent; procedure TCENativeProject.readerPropNoFound(Reader: TReader; Instance: TPersistent;
var PropName: string; IsPath: Boolean; var Handled, Skip: Boolean); var PropName: string; IsPath: Boolean; var Handled, Skip: Boolean);
//var
//idt: string;
//curr: TCompilerConfiguration;
begin begin
// continue loading: this method ensures the project compat. in case of drastic changes. // errors are avoided by property deprecation, error here means "not a project".
Skip := true;
{curr := self.configuration[OptionsCollection.Count-1]; Handled := false;
if PropName = 'debugIdentifier' then
begin
idt := Reader.ReadUnicodeString; // next prop starts one char too late
if curr.debugingOptions.debugIdentifiers.IndexOf(idt) = -1 then
curr.debugingOptions.debugIdentifiers.Add(idt);
Skip := true;
Handled := true;
end
else if PropName = 'versionIdentifier' then
begin
idt := Reader.ReadString; // next prop starts one char too late
if curr.outputOptions.versionIdentifiers.IndexOf(idt) = -1 then
curr.outputOptions.versionIdentifiers.Add(idt);
Skip := true;
Handled := true;
exit;
end
else}
begin
Skip := true;
Handled := false;
end;
end; end;
procedure TCENativeProject.updateOutFilename; procedure TCENativeProject.updateOutFilename;