From 5d920aef7ee18c8566395fdfd41794ab4f1bd33c Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Fri, 5 Aug 2016 16:24:24 +0200 Subject: [PATCH] remove old commented code, CE proj loading error handling --- src/ce_nativeproject.pas | 31 +++---------------------------- 1 file changed, 3 insertions(+), 28 deletions(-) diff --git a/src/ce_nativeproject.pas b/src/ce_nativeproject.pas index 92ea5c45..5ab77daa 100644 --- a/src/ce_nativeproject.pas +++ b/src/ce_nativeproject.pas @@ -597,35 +597,10 @@ end; procedure TCENativeProject.readerPropNoFound(Reader: TReader; Instance: TPersistent; var PropName: string; IsPath: Boolean; var Handled, Skip: Boolean); -//var - //idt: string; - //curr: TCompilerConfiguration; begin - // continue loading: this method ensures the project compat. in case of drastic changes. - - {curr := self.configuration[OptionsCollection.Count-1]; - 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; + // errors are avoided by property deprecation, error here means "not a project". + Skip := true; + Handled := false; end; procedure TCENativeProject.updateOutFilename;