X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_grid.pas;h=280fd90f3fd967f0753a31ee69cb6386ceb5fd05;hb=5e0a71e1d35a9037be80c8912060a913d0e98b18;hp=b7b9e3fbb74f036f96850056900c69c9f45860ed;hpb=06b3f35c26dbd5b2b9a377ec61b3c661bfaa799c;p=d2df-sdl.git diff --git a/src/game/g_grid.pas b/src/game/g_grid.pas index b7b9e3f..280fd90 100644 --- a/src/game/g_grid.pas +++ b/src/game/g_grid.pas @@ -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;