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

* 1.0.x fix

Browse Source
This commit is contained in:
peter 2004-01-21 22:14:05 +00:00
parent fa9e45b7cb
commit 4238814518
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/astrings.inc
View File

@ -115,6 +115,9 @@ Begin
If declocked(l^) then
{ Ref count dropped to zero }
DisposeAnsiString (S); { Remove...}
{$ifndef decrrefnotnil}
s:=nil;
{$endif}
end;
{$ifdef hascompilerproc}
@ -833,7 +836,10 @@ end;
{
$Log$
Revision 1.40 2004-01-21 22:02:18 peter
Revision 1.41 2004-01-21 22:14:05 peter
* 1.0.x fix
Revision 1.40 2004/01/21 22:02:18 peter
* decrref does not reset always to nil, only when string is disposed.
the reset to nil for temps is done by the compiler