paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 04:17:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed newstr() and disposestr()

Browse Source
This commit is contained in:
Jonas Maebe 2005-03-01 19:23:03 +00:00
parent 597fc99fb8
commit 8281d7a359
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/sysutils/sysstr.inc
View File

@ -30,9 +30,9 @@ begin
Result:=nil
else
begin
getmem(Result,length(s)+1);
new(result);
if (Result<>nil) then
Result^:=s;
Result^:=s;
end;
end;
@ -42,7 +42,7 @@ procedure DisposeStr(S: PString);
begin
if S <> Nil then
begin
Freemem(S,Length(S^)+1);
dispose(s);
S:=nil;
end;
end;
@ -2009,7 +2009,10 @@ const
{
$Log$
Revision 1.31 2005-02-28 11:12:17 jonas
Revision 1.32 2005-03-01 19:23:03 jonas
* fixed newstr() and disposestr()
Revision 1.31 2005/02/28 11:12:17 jonas
* fixed web bug 3708
Revision 1.30 2005/02/26 10:21:17 florian