Changeset 592 for trunk/AI/StdAI

Timestamp:

Aug 10, 2024, 3:40:04 PM (4 months ago)

Author:

chronos

Message:

• Fixed: Avoided more GTK2 chrashes.
• Fixed: Build StdAI with O1 optimization level to avoid crash.
• Modified: Code cleanup.

Location:

trunk/AI/StdAI

Files:

• AI.pas (modified) (1 diff)
• CustomAI.pas (modified) (2 diffs)
• StdAI.lpi (modified) (4 diffs)
• ToolAI.pas (modified) (1 diff)
• libstdai-amd64.so (modified) ( previous)

trunk/AI/StdAI/AI.pas

@@ -289 +289 @@
     end;
   end;
-  //!!!assert(Quality>0);
+  //!!!Assert(Quality > 0);
 end;
 

trunk/AI/StdAI/CustomAI.pas

@@ -687 +687 @@
   Result := True;
   // always returns true so that it can be used like
-  // "assert(DebugMessage(...));" -> not compiled in release build
+  // "Assert(DebugMessage(...));" -> not compiled in release build
 end;
 
@@ -696 +696 @@
   Result := True;
   // always returns true so that it can be used like
-  // "assert(SetDebugMap(...));" -> not compiled in release build
+  // "Assert(SetDebugMap(...));" -> not compiled in release build
 end;
 

trunk/AI/StdAI/StdAI.lpi

@@ -2 +2 @@
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <PathDelim Value="\"/>
     <General>
@@ -9 +9 @@
         <MainUnitHasCreateFormStatements Value="False"/>
         <MainUnitHasTitleStatement Value="False"/>
+        <MainUnitHasScaledStatement Value="False"/>
+        <CompatibilityMode Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="StdAI"/>
       <UseAppBundle Value="False"/>
@@ -40 +41 @@
             </SyntaxOptions>
           </Parsing>
-          <CodeGeneration>
-            <Optimizations>
-              <OptimizationLevel Value="3"/>
-            </Optimizations>
-          </CodeGeneration>
           <Linking>
             <Debugging>
@@ -69 +65 @@
     <RunParams>
       <FormatVersion Value="2"/>
-      <Modes Count="0"/>
     </RunParams>
     <RequiredPackages Count="1">

trunk/AI/StdAI/ToolAI.pas

@@ -652 +652 @@
   MoveCost, RecoverCost: Integer;
 begin
-  //IsCapture:=true;
+  //IsCapture := True;
   Assert(((FromTile and fTerrain <= fMountains) or (FromTile and
     fTerrain = fUNKNOWN)) and ((ToTile and fTerrain <= fMountains) or