Browse Source

* qword division fixed (MSB/LSB problem)

florian 22 years ago
parent
commit
2254dc3e82
1 changed files with 12 additions and 1 deletions
  1. 12 1
      rtl/inc/int64.inc

+ 12 - 1
rtl/inc/int64.inc

@@ -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 :)