paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:19:17 +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; function SysMemSize(p:pointer):longint;
begin begin
SysMemSize:=(pheaprecord(pointer(p)-sizeof(theaprecord))^.size-sizeof(theaprecord)) and sizemask; SysMemSize:=(pheaprecord(pointer(p)-sizeof(theaprecord))^.size and sizemask)-sizeof(theaprecord);
end; end;
@ -783,7 +783,10 @@ end;
{ {
$Log$ $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 * fixed getmem call with wrong size from reallocmem
Revision 1.25 1999/12/01 22:57:31 peter Revision 1.25 1999/12/01 22:57:31 peter