paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 21:51:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed qword_str for values with bit 63 = 1

Browse Source
This commit is contained in:
Jonas Maebe 2001-03-03 12:39:09 +00:00
parent e72e5a0cfa
commit bf5d803a93
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/int64.inc
View File

@ -316,8 +316,8 @@
begin begin
hs:=''; hs:='';
repeat repeat
hs:=chr(longint(value mod 10)+48)+hs; hs:=chr(longint(value mod qword(10))+48)+hs;
value:=value div 10; value:=value div qword(10);
until value=0; until value=0;
s:=hs; s:=hs;
end; end;
@ -477,7 +477,10 @@
{ {
$Log$ $Log$
Revision 1.7 2000-12-10 15:00:14 florian Revision 1.8 2001-03-03 12:39:09 jonas
* fixed qword_str for values with bit 63 = 1
Revision 1.7 2000/12/10 15:00:14 florian
* val for int64 hopefully works now correct * val for int64 hopefully works now correct
Revision 1.6 2000/12/09 20:52:40 florian Revision 1.6 2000/12/09 20:52:40 florian