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

* Replaced 'mod 8' with 'and 7'. Generates more efficient code.

Browse Source
This commit is contained in:
daniel 1998-03-31 19:01:41 +00:00
parent f0548b50a8
commit 274d8885d3
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/i386/heap.inc
View File

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