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

* Removed dead code.

Browse Source 
git-svn-id: trunk@9507 -
This commit is contained in:
yury 2007-12-21 23:23:55 +00:00
parent 8b12a7f2c2
commit b55501afef
1 changed files with 5 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/inc/heap.inc
View File

@ -1001,15 +1001,10 @@ end;
function SysGetMem(size : ptruint):pointer;
begin
{ Something to allocate ? }
if size<=0 then
begin
{ give an error for < 0 }
if size<0 then
HandleError(204);
{ we always need to allocate something, using heapend is not possible,
because heappend can be changed by growheap (PFV) }
size := 1;
end;
if size=0 then
{ we always need to allocate something, using heapend is not possible,
because heappend can be changed by growheap (PFV) }
size := 1;
{ calc to multiple of 16 after adding the needed bytes for memchunk header }
if size <= (maxblocksize - sizeof(tmemchunk_fixed_hdr)) then
begin
@ -1195,12 +1190,8 @@ end;
Function SysFreeMemSize(p: pointer; size: ptruint):ptruint;
begin
if size<=0 then
begin
if size<0 then
HandleError(204);
if size=0 then
exit(0);
end;
{ can't free partial blocks, ignore size }
result := SysFreeMem(p);
end;