blob: 73fbbc988d3f718176a9357f0513e62d2631f427 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %cpu=i386 }
{ Source provided for Free Pascal Bug Report 3617 }
{ Submitted by "Thomas Schatzl" on 2005-01-31 }
{ e-mail: }
{$ifdef fpc}{$asmmode intel}{$endif}
function Div64by32( var X : Int64; Y : Longint ) : Longint
; assembler;
asm
mov ecx, edx
mov edx, [eax+4].longint
mov eax, [ eax ].dword
idiv ecx
end;
begin
end.
|
