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

* fixed CReAllocMem (web bug #1637)

Browse Source
This commit is contained in:
Jonas Maebe 2001-10-23 12:14:36 +00:00
parent 9aeb958a8e
commit 717e8b5796
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/cmem/cmem.pp
View File

@ -56,7 +56,8 @@ end;
Function CReAllocMem (var p:pointer;Size:longint):Pointer; Function CReAllocMem (var p:pointer;Size:longint):Pointer;
begin begin
Result:=realloc(p,size); p := realloc(p,size);
Result:=p;
end; end;
Function CMemSize (p:pointer): Longint; Function CMemSize (p:pointer): Longint;
@ -111,7 +112,10 @@ end.
{ {
$Log$ $Log$
Revision 1.4 2001-06-07 16:34:41 jonas Revision 1.5 2001-10-23 12:14:36 jonas
* fixed CReAllocMem (web bug 1637)
Revision 1.4 2001/06/07 16:34:41 jonas
* added ifdef fpc round @ for procvars * added ifdef fpc round @ for procvars
Revision 1.3 2001/06/07 16:14:48 marco Revision 1.3 2001/06/07 16:14:48 marco