From 4db6c30b10be5252368f79c2969c9d5dee8d4ac0 Mon Sep 17 00:00:00 2001
From: Alexey <support@uvviewsoft.com>
Date: Tue, 22 Mar 2022 16:27:07 +0300
Subject: [PATCH] add FPC checks; cmt

---
 cudalister.lpi  | 6 ++++++
 proc_themes.pas | 3 +--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/cudalister.lpi b/cudalister.lpi
index 500c811..ee51078 100644
--- a/cudalister.lpi
+++ b/cudalister.lpi
@@ -139,6 +139,12 @@
     <CodeGeneration>
       <SmartLinkUnit Value="True"/>
       <RelocatableUnit Value="True"/>
+      <Checks>
+        <IOChecks Value="True"/>
+        <RangeChecks Value="True"/>
+        <OverflowChecks Value="True"/>
+        <StackChecks Value="True"/>
+      </Checks>
       <TargetCPU Value="i386"/>
       <TargetOS Value="win32"/>
       <Optimizations>
diff --git a/proc_themes.pas b/proc_themes.pas
index f1ffed6..2e9d799 100644
--- a/proc_themes.pas
+++ b/proc_themes.pas
@@ -513,9 +513,8 @@ function DoApplyLexerStylesMap(an: TecSyntAnalyzer): boolean;
   i: integer;
 begin
   Result:= true;
-  //anNotCorrect:= an;
   if an=nil then exit;
-  an.AppliedStylesMap:= true;
+  an.AppliedStylesMap:= true; //prevent recursion later
   if an.Formats.Count=0 then exit;
 
   //work for sublexers