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

+ Changed FreeAndNil to simple free (From Mattias Gaertner)

Browse Source
This commit is contained in:
michael 2004-12-24 09:18:38 +00:00
parent e5da7466d7
commit 360f273759
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/inc/contnrs.pp
View File

@ -172,7 +172,7 @@ begin
if OwnsObjects then if OwnsObjects then
begin begin
O:=GetItem(Index); O:=GetItem(Index);
FreeAndNil(O); O.Free;
end; end;
Put(Index,Pointer(AObject)); Put(Index,Pointer(AObject));
end; end;
@ -505,7 +505,10 @@ end.
{ {
$Log$ $Log$
Revision 1.8 2004-12-22 15:33:24 peter Revision 1.9 2004-12-24 09:18:38 michael
+ Changed FreeAndNil to simple free (From Mattias Gaertner)
Revision 1.8 2004/12/22 15:33:24 peter
* fixed compile * fixed compile
Revision 1.7 2004/12/22 12:05:41 michael Revision 1.7 2004/12/22 12:05:41 michael
@ -529,4 +532,4 @@ end.
Revision 1.1 2002/07/16 13:34:39 florian Revision 1.1 2002/07/16 13:34:39 florian
+ skeleton for contnr.pp added + skeleton for contnr.pp added
} }