DEADSOFTWARE

don't be *too* smart: `swapInt()` should not do xor trick, 'cause we may pass the...
authorKetmar Dark <ketmar@ketmar.no-ip.org>
Tue, 5 Sep 2017 22:46:43 +0000 (01:46 +0300)
committerKetmar Dark <ketmar@ketmar.no-ip.org>
Tue, 5 Sep 2017 23:22:27 +0000 (02:22 +0300)
src/game/g_grid.pas

index b7b9e3fbb74f036f96850056900c69c9f45860ed..280fd90f3fd967f0753a31ee69cb6386ceb5fd05 100644 (file)
@@ -323,8 +323,8 @@ uses
 
 
 // ////////////////////////////////////////////////////////////////////////// //
-//procedure swapInt (var a: Integer; var b: Integer); inline; var t: Integer; begin t := a; a := b; b := t; end;
-procedure swapInt (var a: Integer; var b: Integer); inline; begin a := a xor b; b := b xor a; a := a xor b; end;
+procedure swapInt (var a: Integer; var b: Integer); inline; var t: Integer; begin t := a; a := b; b := t; end;
+//procedure swapInt (var a: Integer; var b: Integer); inline; begin a := a xor b; b := b xor a; a := a xor b; end;
 //function minInt (a, b: Integer): Integer; inline; begin if (a < b) then result := a else result := b; end;
 //function maxInt (a, b: Integer): Integer; inline; begin if (a > b) then result := a else result := b; end;