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

* qword one was wrong !

Browse Source
This commit is contained in:
pierre 1999-06-25 12:24:44 +00:00
parent 26f0321f2f
commit 3d445a8421
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/int64.inc
View File

@ -66,7 +66,7 @@
{ we can't write qword direct currently }
divqword:=divqword xor divqword;
tqwordrec(one).high:=0;
tqwordrec(one).high:=1;
tqwordrec(one).low:=1;
lzz:=count_leading_zeros(z);
lzn:=count_leading_zeros(n);
{ if the denominator contains less zeros }
@ -233,14 +233,13 @@
hs : string;
begin
{!!!!!!!!!!!
{!!!!!!!!!!! }
hs:='';
repeat
hs:=chr(longint(value mod 10)+48)+hs;
value:=value div 10;
until value=0;
s:=hs;
}
end;
procedure int_str(value : int64;var s : string);
@ -262,7 +261,10 @@
{
$Log$
Revision 1.6 1999-06-02 10:13:16 florian
Revision 1.7 1999-06-25 12:24:44 pierre
* qword one was wrong !
Revision 1.6 1999/06/02 10:13:16 florian
* multiplication fixed
Revision 1.5 1999/05/25 20:36:41 florian