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

+ Removed DECRREFNOTNIL define

Browse Source 
git-svn-id: trunk@300 -
This commit is contained in:
michael 2005-06-09 17:48:33 +00:00
parent 033e38b8df
commit f7edd5a256
2 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/astrings.inc
View File

@ -106,9 +106,6 @@ 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;
{$endif}
end; end;
{ also define alias for internal use in the system unit } { also define alias for internal use in the system unit }

3
rtl/inc/wstrings.inc
View File

@ -188,9 +188,6 @@ 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...}
{$ifndef decrrefnotnil}
s:=nil;
{$endif}
end; end;
{ alias for internal use } { alias for internal use }