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

* qword division fixed (MSB/LSB problem)

Browse Source
This commit is contained in:
florian 2003-05-12 11:16:21 +00:00
parent f8cb290a84
commit 2254dc3e82
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/int64.inc
View File

@ -17,6 +17,7 @@
{$R- no range checking } {$R- no range checking }
type type
{$ifdef ENDIAN_LITTLE}
tqwordrec = packed record tqwordrec = packed record
{$ifdef ENDIAN_LITTLE} {$ifdef ENDIAN_LITTLE}
low : dword; low : dword;
@ -30,6 +31,13 @@
{$endif not ENDIAN_BIG} {$endif not ENDIAN_BIG}
{$endif not ENDIAN_LITTLE} {$endif not ENDIAN_LITTLE}
end; end;
{$endif ENDIAN_LITTLE}
{$ifdef ENDIAN_BIG}
tqwordrec = packed record
high : dword;
low : dword;
end;
{$endif ENDIAN_BIG}
function count_leading_zeros(q : qword) : longint; function count_leading_zeros(q : qword) : longint;
@ -604,7 +612,10 @@
{ {
$Log$ $Log$
Revision 1.18 2003-05-12 07:19:04 jonas Revision 1.19 2003-05-12 11:16:21 florian
* qword division fixed (MSB/LSB problem)
Revision 1.18 2003/05/12 07:19:04 jonas
* fixed for big endian systems (since Florian doesn't seem to want to * fixed for big endian systems (since Florian doesn't seem to want to
commit this fix :) commit this fix :)