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

* strdispose now uses dispose instead of freemem(strlen()+1)

Browse Source
This commit is contained in:
Jonas Maebe 2000-03-18 15:43:05 +00:00
parent 90bc5eb4be
commit f62ff5df66
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/strings.pp
View File

@ -129,14 +129,17 @@ implementation
begin
if p<>nil then
freemem(p,strlen(p)+1);
dispose(p);
end;
end.
{
$Log$
Revision 1.5 2000-02-09 16:59:31 peter
Revision 1.6 2000-03-18 15:43:05 jonas
* strdispose now uses dispose instead of freemem(strlen()+1)
Revision 1.5 2000/02/09 16:59:31 peter
* truncated log
Revision 1.4 2000/01/07 16:41:36 daniel