paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 22:40:30 +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 begin
if p<>nil then if p<>nil then
freemem(p,strlen(p)+1); dispose(p);
end; end;
end. end.
{ {
$Log$ $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 * truncated log
Revision 1.4 2000/01/07 16:41:36 daniel Revision 1.4 2000/01/07 16:41:36 daniel