From 274d8885d3aebf00c89cf18f324128f4d6b2bb78 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Tue, 31 Mar 1998 19:01:41 +0000
Subject: [PATCH] * Replaced 'mod 8' with 'and 7'. Generates more efficient
 code.

---
 rtl/i386/heap.inc | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/rtl/i386/heap.inc b/rtl/i386/heap.inc
index 77832ad9d8..90a2c58a1b 100644
--- a/rtl/i386/heap.inc
+++ b/rtl/i386/heap.inc
@@ -267,7 +267,7 @@
                 end
               else
 		          if ((longint(hp^.next)<=(longint(hp)+hp^.size)) or
-		             ((hp^.size mod 8) <> 0)) then
+		             ((hp^.size and 7) <> 0)) then
                   writeln('error in freerecord list ');
 {$EndIf CHECKHEAP}
               hp:=hp^.next;
@@ -557,8 +557,8 @@
            end;
 {$endif TEMPHEAP}
          { calc to multiply of 8 }
-         if (size mod 8)<>0 then
-           size:=size+(8-(size mod 8));
+         if (size and 7)<>0 then
+           size:=size+(8-(size and 7));
          dec(_memavail,size);
 {$ifdef UseBlocks}
          { search cache }
@@ -776,8 +776,8 @@ check_new:
        end;
 {$endif CHECKHEAP}
          { calc to multiple of 8 }
-         if (size mod 8)<>0 then
-           size:=size+(8-(size mod 8));
+         if (size and 7)<>0 then
+           size:=size+(8-(size and 7));
          inc(_memavail,size);
          if p+size>=heapptr then
            heapptr:=p
@@ -1080,8 +1080,11 @@ end;
 
 {
   $Log$
-  Revision 1.1  1998-03-25 11:18:43  root
-  Initial revision
+  Revision 1.2  1998-03-31 19:01:41  daniel
+  * Replaced 'mod 8' with 'and 7'. Generates more efficient code.
+
+  Revision 1.1.1.1  1998/03/25 11:18:43  root
+  * Restored version
 
   Revision 1.7  1998/01/26 11:59:20  michael
   + Added log at the end