Changeset 10 for trunk/LocalPlayer

Timestamp:

Jan 7, 2017, 2:33:20 PM (8 years ago)

Author:

chronos

Message:

• Modified: Created CevoComponents ackage for installable custom components.
• Fixed: Compile time range check error.
• Added: Heaptrace check and fixed some memory leaks.
• Fixed: MaskD function.

Location:

trunk/LocalPlayer

Files:

• CityType.pas (modified) (1 diff)
• ClientTools.pas (modified) (1 diff)
• Term.pas (modified) (2 diffs)

trunk/LocalPlayer/CityType.pas

@@ -342 +342 @@
 procedure TCityTypeDlg.DeleteBtnClick(Sender: TObject);
 begin
-  fillchar(MyData.ImpOrder[ctype], sizeof(MyData.ImpOrder[ctype]), -1);
+  fillchar(MyData.ImpOrder[ctype], sizeof(MyData.ImpOrder[ctype]), Byte(-1));
   listed := [];
   Changed := true;

trunk/LocalPlayer/ClientTools.pas

@@ -434 +434 @@
   var
     stage, NextJob, Tile: integer;
-    Done: Set of jNone .. jTrans;
+    Done: Set of jNone .. jPoll;
   begin
     Done := [];

trunk/LocalPlayer/Term.pas

@@ -2516 +2516 @@
                 FarTech := adNone;
                 FillChar(EnhancementJobs, SizeOf(EnhancementJobs), jNone);
-                FillChar(ImpOrder, SizeOf(ImpOrder), -1);
+                FillChar(ImpOrder, SizeOf(ImpOrder), Byte(-1));
                 ColdWarStart := -ColdWarTurns - 1;
                 ToldAge := -1;
@@ -2533 +2533 @@
                     EffectiveOwner := -1
                   end;
-                FillChar(ToldTech, SizeOf(ToldTech), tsNA);
+                FillChar(ToldTech, SizeOf(ToldTech), Byte(tsNA));
                 if G.Difficulty[p1] > 0 then
                   SoundPreload(sbStart);