add FPC checks; cmt

Alexey-T · Mar 22, 2022 · 4db6c30 · 4db6c30
1 parent 5f6b2d8
commit 4db6c30
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git 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
@@ -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