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; |