From e047221995fc499e89c90ae571e92d8b798565c5 Mon Sep 17 00:00:00 2001
From: juha <juha.manninen62@gmail.com>
Date: Fri, 14 Sep 2018 14:26:50 +0300
Subject: [PATCH] DebugLn for issue 30109.

---
 components/codetools/linkscanner.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/components/codetools/linkscanner.pas b/components/codetools/linkscanner.pas
index 200c7ce23..5a17bcedb 100644
--- a/components/codetools/linkscanner.pas
+++ b/components/codetools/linkscanner.pas
@@ -3607,6 +3607,7 @@ begin
   if FSkippingDirectives<>lssdNone then exit(true);
   ReadSpace;
   VariableName:=ReadUpperIdentifier;
+  DebugLn(['TLinkScanner.IfdefDirective: VariableName=', VariableName]);
   if (VariableName<>'') and (not Values.IsDefined(VariableName)) then
     SkipTillEndifElse(lssdTillElse);
   Result:=true;
@@ -4651,14 +4652,16 @@ function TLinkScanner.InternalIfDirective: boolean;
 
 var
   ExprResult: Boolean;
+  Expr: String;
 begin
-  //DebugLn(['TLinkScanner.InternalIfDirective FSkippingDirectives=',ord(FSkippingDirectives),' IfLevel=',IfLevel]);
+  DebugLn(['TLinkScanner.InternalIfDirective FSkippingDirectives=', ord(FSkippingDirectives),', IfLevel=',IfLevel]);
   inc(SrcPos);
   if SrcPos>SrcLen then
     RaiseMissingExpr;
   ExprResult:=Values.EvalBoolean(@Src[SrcPos],CommentInnerEndPos-SrcPos);
   Result:=true;
-  //DebugLn(['TLinkScanner.InternalIfDirective ExprResult=',ExprResult]);
+  Expr:=Copy(Src,SrcPos,CommentInnerEndPos-SrcPos);
+  DebugLn(['TLinkScanner.InternalIfDirective: Expr=',Expr,', ExprResult=',ExprResult]);
   if Values.ErrorPosition>=0 then begin
     inc(SrcPos,Values.ErrorPosition);
     RaiseException(20170422130200,Values.ErrorMsg)
-- 
2.18.0