Subversion Repositories spacemission

Rev

Rev 4 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4 Rev 16
Line 8720... Line 8720...
8720 
          end;
 8720 
          end;
8721 
        end;
 8721 
        end;
8722 
  end;
 8722 
  end;
8723 
end;
 8723 
end;
8724 
 
 8724 
 
8725 
function MulDiv64(a, b, c: Integer): Integer; assembler;
 8725 
//function MulDiv64(a, b, c: Integer): Integer; assembler;
8726 
asm
 8726 
//asm
8727 
  mov eax, a
 8727 
//  mov eax, a
8728 
  imul b
 8728 
//  imul b
8729 
  idiv c
 8729 
//  idiv c
- 
 
 8730 
//end;
- 
 
 8731 
 
- 
 
 8732 
function MulDiv64(a, b, c: Integer): Integer; {$IFDEF VER9UP}inline;{$ENDIF}
- 
 
 8733 
begin
- 
 
 8734 
  Result := a * b div c;
8730 
end;
 8735 
end;
8731 
 
 8736 
 
8732 
function Max(B1, B2: Integer): Integer; {$IFDEF VER9UP}inline;{$ENDIF}
 8737 
function Max(B1, B2: Integer): Integer; {$IFDEF VER9UP}inline;{$ENDIF}
8733 
begin
 8738 
begin
8734 
  if B1>=B2 then Result := B1 else Result := B2;
 8739 
  if B1>=B2 then Result := B1 else Result := B2;