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

* the decr functions set the data now to nil

Browse Source
This commit is contained in:
florian 2004-05-29 15:39:08 +00:00
parent 5a37581b29
commit dea441a7dd
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/astrings.inc
View File

@ -115,9 +115,7 @@ Begin
If declocked(l^) then If declocked(l^) then
{ Ref count dropped to zero } { Ref count dropped to zero }
DisposeAnsiString (S); { Remove...} DisposeAnsiString (S); { Remove...}
{$ifndef decrrefnotnil}
s:=nil; s:=nil;
{$endif}
end; end;
{$ifdef hascompilerproc} {$ifdef hascompilerproc}
@ -878,7 +876,10 @@ end;
{ {
$Log$ $Log$
Revision 1.44 2004-05-16 16:52:28 peter Revision 1.45 2004-05-29 15:39:08 florian
* the decr functions set the data now to nil
Revision 1.44 2004/05/16 16:52:28 peter
* small fix for 1.0.x * small fix for 1.0.x
Revision 1.43 2004/05/01 23:55:18 peter Revision 1.43 2004/05/01 23:55:18 peter

6
rtl/inc/wstrings.inc
View File

@ -201,6 +201,7 @@ Begin
If declocked(l^) then If declocked(l^) then
{ Ref count dropped to zero } { Ref count dropped to zero }
DisposeWideString (S); { Remove...} DisposeWideString (S); { Remove...}
s:=nil;
end; end;
{$ifdef hascompilerproc} {$ifdef hascompilerproc}
@ -1041,7 +1042,10 @@ end;
{ {
$Log$ $Log$
Revision 1.37 2004-05-01 23:55:18 peter Revision 1.38 2004-05-29 15:39:08 florian
* the decr functions set the data now to nil
Revision 1.37 2004/05/01 23:55:18 peter
* replace strlenint with sizeint * replace strlenint with sizeint
Revision 1.36 2004/04/29 18:59:43 peter Revision 1.36 2004/04/29 18:59:43 peter