paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* allow Freemem(nil)

Browse Source
This commit is contained in:
peter 2005-01-30 11:56:29 +00:00
parent 4631658576
commit 2d1aee8e53
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

@ -1042,7 +1042,7 @@ var
pcurrsize: ptrint; pcurrsize: ptrint;
begin begin
if p=nil then if p=nil then
HandleError(204); exit;
pcurrsize := pmemchunk_fixed(p-sizeof(tmemchunk_fixed_hdr))^.size; pcurrsize := pmemchunk_fixed(p-sizeof(tmemchunk_fixed_hdr))^.size;
{ check if this is a fixed- or var-sized chunk } { check if this is a fixed- or var-sized chunk }
if (pcurrsize and fixedsizeflag) = 0 then if (pcurrsize and fixedsizeflag) = 0 then
@ -1286,7 +1286,10 @@ end;
{ {
$Log$ $Log$
Revision 1.41 2004-12-19 13:45:56 peter Revision 1.42 2005-01-30 11:56:29 peter
* allow Freemem(nil)
Revision 1.41 2004/12/19 13:45:56 peter
* fixed overflow when reusing a memory block for fixed size chunks * fixed overflow when reusing a memory block for fixed size chunks
Revision 1.40 2004/11/26 22:22:58 peter Revision 1.40 2004/11/26 22:22:58 peter