paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:24:19 +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 If l^=0 then
{ Ref count dropped to zero } { Ref count dropped to zero }
DisposeAnsiString (S); { Remove...} DisposeAnsiString (S); { Remove...}
{ this pointer is not valid anymore, so set it to zero }
S:=nil;
end; end;
@ -780,7 +782,10 @@ end;
{ {
$Log$ $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 * small fixes for the new ansistring temp. management
Revision 1.24 1999/05/17 21:52:35 florian Revision 1.24 1999/05/17 21:52:35 florian