paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 03:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Freemem(p,0) does nothing

Browse Source
This commit is contained in:
peter 2004-11-21 21:14:14 +00:00
parent fb71fcc7f9
commit ac471f1b98
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/cmem.pp
View File

@ -88,6 +88,12 @@ end;
Function CFreeMemSize(p:pointer;Size:ptrint):ptrint; Function CFreeMemSize(p:pointer;Size:ptrint):ptrint;
begin begin
if size<=0 then
begin
if size<0 then
runerror(204);
exit;
end;
if (p <> nil) then if (p <> nil) then
begin begin
if (size <> pptrint(p-sizeof(ptrint))^) then if (size <> pptrint(p-sizeof(ptrint))^) then
@ -191,7 +197,10 @@ end.
{ {
$Log$ $Log$
Revision 1.9 2004-09-19 19:04:11 olle Revision 1.10 2004-11-21 21:14:14 peter
* Freemem(p,0) does nothing
Revision 1.9 2004/09/19 19:04:11 olle
* added $if defined(..) for 2.0. * added $if defined(..) for 2.0.
Revision 1.8 2004/09/19 08:16:03 olle Revision 1.8 2004/09/19 08:16:03 olle