paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 01:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed sysmemsize which did the and sizemask wrong

Browse Source
This commit is contained in:
peter 1999-12-16 19:11:49 +00:00
parent 22d213532d
commit a3c7cfd396
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/heap.inc
View File

@ -514,7 +514,7 @@ end;
function SysMemSize(p:pointer):longint;
begin
SysMemSize:=(pheaprecord(pointer(p)-sizeof(theaprecord))^.size-sizeof(theaprecord)) and sizemask;
SysMemSize:=(pheaprecord(pointer(p)-sizeof(theaprecord))^.size and sizemask)-sizeof(theaprecord);
end;
@ -783,7 +783,10 @@ end;
{
$Log$
Revision 1.26 1999-12-13 21:04:46 peter
Revision 1.27 1999-12-16 19:11:49 peter
* fixed sysmemsize which did the and sizemask wrong
Revision 1.26 1999/12/13 21:04:46 peter
* fixed getmem call with wrong size from reallocmem
Revision 1.25 1999/12/01 22:57:31 peter