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

* fixed memory release in TInterfacedObject._Release

Browse Source
This commit is contained in:
florian 2004-12-05 21:09:54 +00:00
parent 433df6f69f
commit 36bcc2defa
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/objpas.inc
View File

@ -704,7 +704,7 @@
begin begin
if declocked(frefcount) then if declocked(frefcount) then
begin begin
destroy; self.destroy;
_Release:=0; _Release:=0;
end end
else else
@ -747,7 +747,10 @@
{ {
$Log$ $Log$
Revision 1.44 2004-11-03 11:33:50 florian Revision 1.45 2004-12-05 21:09:54 florian
* fixed memory release in TInterfacedObject._Release
Revision 1.44 2004/11/03 11:33:50 florian
* fixed dyn. array handling for 32 bit architectures requiering proper alignment * fixed dyn. array handling for 32 bit architectures requiering proper alignment
Revision 1.42 2004/10/24 20:01:41 peter Revision 1.42 2004/10/24 20:01:41 peter