anchor.diff:  begin
     Result := 0;
     if not FileExists(aPath) then
  -    exit;
  +    Exit;
   
     S := TMemoryStream.Create;
     try
  
positive.code:   procedure SwapInt(var A, B: NativeUInt); overload;
    {$ENDIF}
    procedure SwapFloat(var A, B: Single);
    function Equals(A, B: single; const Epsilon: single = 0.001): Boolean;
  
  function MakePOT(num:integer): integer;
  function Adler32CRC(TextPointer:Pointer; TextLength:cardinal):cardinal; overload;
  function Adler32CRC(const aPath:string):cardinal; overload;
  function Adler32CRC(S:TMemoryStream):cardinal; overload;
  function RandomS(Range_Both_Directions:integer):integer; overload;
  function RandomS(Range_Both_Directions:single):single; overload;
  function PseudoRandom(aMax:cardinal):cardinal;
  
negative.code: function Min(Values: array of Single): Single; overload;
  function PickMin(Values: array of Single): Byte;
  
  function Max(const A,B,C: Integer): Integer; overload;
  function Max(const A,B,C: Single): Single; overload;
  
    function GetLengthSQR(ix,iy,iz:integer): integer; //Length without SQRT
    function GetLength(ix,iy,iz:single): single; overload;
  