paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 18:26:08 +01:00
Code Issues Packages Projects Releases Wiki Activity

* call freemem without size

Browse Source 
git-svn-id: trunk@4972 -
This commit is contained in:
peter 2006-10-18 21:22:28 +00:00
parent 076fb20774
commit 4aa3ac3ebe
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/cutils.pas
View File

@ -923,7 +923,7 @@ uses
begin
if assigned(p) then
begin
freemem(p,strlen(p)+1);
freemem(p);
p:=nil;
end;
end;
@ -933,7 +933,7 @@ uses
begin
if assigned(p) then
begin
freemem(p,length(p^)+1);
freemem(p);
p:=nil;
end;
end;
@ -1016,7 +1016,7 @@ uses
begin
if assigned(p) then
begin
freemem(p,length+1);
freemem(p);
p:=nil;
end;
end;