paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 04:31:54 +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 } { we can't write qword direct currently }
divqword:=divqword xor divqword; divqword:=divqword xor divqword;
tqwordrec(one).high:=0; tqwordrec(one).high:=0;
tqwordrec(one).high:=1; tqwordrec(one).low:=1;
lzz:=count_leading_zeros(z); lzz:=count_leading_zeros(z);
lzn:=count_leading_zeros(n); lzn:=count_leading_zeros(n);
{ if the denominator contains less zeros } { if the denominator contains less zeros }
@ -233,14 +233,13 @@
hs : string; hs : string;
begin begin
{!!!!!!!!!!! {!!!!!!!!!!! }
hs:=''; hs:='';
repeat repeat
hs:=chr(longint(value mod 10)+48)+hs; hs:=chr(longint(value mod 10)+48)+hs;
value:=value div 10; value:=value div 10;
until value=0; until value=0;
s:=hs; s:=hs;
}
end; end;
procedure int_str(value : int64;var s : string); procedure int_str(value : int64;var s : string);
@ -262,7 +261,10 @@
{ {
$Log$ $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 * multiplication fixed
Revision 1.5 1999/05/25 20:36:41 florian Revision 1.5 1999/05/25 20:36:41 florian