From c89ab11d7a5ac4cd17022e1fcb1d5ae5f3870c3c Mon Sep 17 00:00:00 2001 From: michael Date: Thu, 26 Feb 2004 12:42:34 +0000 Subject: [PATCH] + Patch from peter to fix finalize (bug 2975) --- rtl/inc/rtti.inc | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/rtl/inc/rtti.inc b/rtl/inc/rtti.inc index f89468277f..2652706fca 100644 --- a/rtl/inc/rtti.inc +++ b/rtl/inc/rtti.inc @@ -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