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

* fixed decr_ansistr which didn't set s to nil

Browse Source
This commit is contained in:
peter 1999-05-31 20:37:39 +00:00
parent e161a3e489
commit 157011cc0a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/astrings.inc
View File

@ -122,6 +122,8 @@ Begin
If l^=0 then
{ Ref count dropped to zero }
DisposeAnsiString (S); { Remove...}
{ this pointer is not valid anymore, so set it to zero }
S:=nil;
end;
@ -780,7 +782,10 @@ end;
{
$Log$
Revision 1.25 1999-05-17 22:41:24 florian
Revision 1.26 1999-05-31 20:37:39 peter
* fixed decr_ansistr which didn't set s to nil
Revision 1.25 1999/05/17 22:41:24 florian
* small fixes for the new ansistring temp. management
Revision 1.24 1999/05/17 21:52:35 florian