From 22b9b8d47a62c23ed03b55844fbe8bc0fd248bf8 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Tue, 15 Sep 2015 23:07:37 +0200
Subject: [PATCH] fix error when dast not found

---
 src/ce_synmemo.pas | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index dd5e30e7..5e56f6c3 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -370,11 +370,14 @@ begin
   fDefaultFontSize := 10;
   SetDefaultCoeditKeystrokes(Self); // not called in inherited if owner = nil !
   //
-  fAst := newAST(self, @astScanned);
-  fAstTimer := TIdleTimer.Create(self);
-  fAstTimer.Interval:= 2000;
-  fAstTimer.OnTimer:= @AstTimerEvent;
-  fAstTimer.Enabled:=true;
+  if dastAvailable then
+  begin
+    fAst := newAST(self, @astScanned);
+    fAstTimer := TIdleTimer.Create(self);
+    fAstTimer.Interval:= 2000;
+    fAstTimer.OnTimer:= @AstTimerEvent;
+    fAstTimer.Enabled:=true;
+  end;
   //
   ShowHint := false;
   InitHintWins;
@@ -452,7 +455,8 @@ begin
   if fileExists(fTempFileName) then
     sysutils.DeleteFile(fTempFileName);
   //
-  deleteAst(fAst);
+  if dastAvailable then
+    deleteAst(fAst);
   //
   inherited;
 end;