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

+ Patch from peter to fix finalize (bug 2975)

Browse Source
This commit is contained in:
michael 2004-02-26 12:42:34 +00:00
parent e91bc5bb19
commit c89ab11d7a
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/rtti.inc
View File

@ -149,16 +149,10 @@ begin
Temp:=PByte(TypeInfo);
case temp^ of
tkAstring :
begin
fpc_AnsiStr_Decr_Ref(PPointer(Data)^);
PPchar(Data)^:=Nil;
end;
fpc_AnsiStr_Decr_Ref(PPointer(Data)^);
{$ifdef HASWIDESTRING}
tkWstring :
begin
fpc_WideStr_Decr_Ref(PPointer(Data)^);
PPchar(Data)^:=Nil;
end;
fpc_WideStr_Decr_Ref(PPointer(Data)^);
{$endif HASWIDESTRING}
tkArray :
begin
@ -319,7 +313,10 @@ procedure fpc_finalize_array(data,typeinfo : pointer;count,size : longint); [Pub
{
$Log$
Revision 1.8 2004-01-22 22:09:05 peter
Revision 1.9 2004-02-26 12:42:34 michael
+ Patch from peter to fix finalize (bug 2975)
Revision 1.8 2004/01/22 22:09:05 peter
* finalize needs to reset to nil after decr_ref
Revision 1.7 2002/09/07 15:07:46 peter