Changeset 486 for trunk/AI/StdAI/Pile.pas

Timestamp:

Dec 8, 2023, 8:25:31 PM (5 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/AI/StdAI/Pile.pas (modified) (5 diffs)

trunk/AI/StdAI/Pile.pas

@@ -43 +43 @@
   if (N <> 0) or (Size > CurrentSize) then
   begin
-    FillChar(Ix, Size * sizeOf(Integer), 255);
+    FillChar(Ix, Size * SizeOf(Integer), 255);
     N := 0;
   end;
   CurrentSize := Size;
-        {$IFDEF DEBUG}
+{$IFDEF DEBUG}
   InUse := True;
 {$ENDIF}
@@ -54 +54 @@
 procedure Free;
 begin
-        {$IFDEF DEBUG}
+{$IFDEF DEBUG}
   Assert(InUse);
   InUse := False;
@@ -64 +64 @@
   if N <> 0 then
   begin
-    FillChar(Ix, CurrentSize * sizeOf(Integer), 255);
+    FillChar(Ix, CurrentSize * SizeOf(Integer), 255);
     N := 0;
   end;
 end;
 
-//Parent(i) = (i-1)/2.
-function Put(Item, Value: Integer): Boolean; //O(lg(n))
+// Parent(i) = (i-1)/2.
+function Put(Item, Value: Integer): Boolean; // O(lg(n))
 var
   I, J: Integer;
@@ -92 +92 @@
   while I > 0 do
   begin
-    J := (I - 1) shr 1;  //Parent(i) = (i-1)/2
+    J := (I - 1) shr 1;  // Parent(i) = (i-1)/2
     if Value >= bh[J].Value then
       Break;
@@ -99 +99 @@
     I := J;
   end;
-  //  Insert the new Item at the insertion point found.
+  // Insert the new Item at the insertion point found.
   bh[I].Value := Value;
   bh[I].Item := Item;