paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 20:26:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed qword division

Browse Source
This commit is contained in:
florian 1999-06-28 22:25:25 +00:00
parent d39372ee23
commit e0e9f4481e
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/inc/int64.inc
View File

@ -56,17 +56,17 @@
count_leading_zeros:=r;
end;
function divqword(z,n : qword) : qword;[public,alias: 'FPC_DIV_QWORD'];
function divqword(n,z : qword) : qword;[public,alias: 'FPC_DIV_QWORD'];
var
shift,lzz,lzn : longint;
one : qword;
begin
{ we can't write qword direct currently }
divqword:=divqword xor divqword;
tqwordrec(one).high:=0;
tqwordrec(one).low:=1;
divqword:=0;
one:=1;
if n=divqword then
runerror(200);
lzz:=count_leading_zeros(z);
lzn:=count_leading_zeros(n);
{ if the denominator contains less zeros }
@ -77,13 +77,13 @@
shift:=lzn-lzz;
n:=n shl shift;
repeat
if z>n then
if z>=n then
begin
z:=z-n;
divqword:=divqword+(one shl shift);
divqword:=divqword+(one shl shift);
end;
dec(shift);
n:=n shr one;
n:=n shr 1;
until shift<=0;
end;
@ -261,7 +261,10 @@
{
$Log$
Revision 1.7 1999-06-25 12:24:44 pierre
Revision 1.8 1999-06-28 22:25:25 florian
* fixed qword division
Revision 1.7 1999/06/25 12:24:44 pierre
* qword one was wrong !
Revision 1.6 1999/06/02 10:13:16 florian