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

* finalize needs to reset to nil after decr_ref

Browse Source
This commit is contained in:
peter 2004-01-22 22:09:05 +00:00
parent 7ca7f97ba1
commit 6dc4cd8b82
2 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/rtti.inc
View File

@ -149,10 +149,16 @@ begin
Temp:=PByte(TypeInfo); Temp:=PByte(TypeInfo);
case temp^ of case temp^ of
tkAstring : tkAstring :
begin
fpc_AnsiStr_Decr_Ref(PPointer(Data)^); fpc_AnsiStr_Decr_Ref(PPointer(Data)^);
PPchar(Data)^:=Nil;
end;
{$ifdef HASWIDESTRING} {$ifdef HASWIDESTRING}
tkWstring : tkWstring :
begin
fpc_WideStr_Decr_Ref(PPointer(Data)^); fpc_WideStr_Decr_Ref(PPointer(Data)^);
PPchar(Data)^:=Nil;
end;
{$endif HASWIDESTRING} {$endif HASWIDESTRING}
tkArray : tkArray :
begin begin
@ -313,7 +319,10 @@ procedure fpc_finalize_array(data,typeinfo : pointer;count,size : longint); [Pub
{ {
$Log$ $Log$
Revision 1.7 2002-09-07 15:07:46 peter 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
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.6 2002/09/02 18:42:41 peter Revision 1.6 2002/09/02 18:42:41 peter

7
rtl/inc/wstrings.inc
View File

@ -201,8 +201,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...}
{ this pointer is not valid anymore, so set it to zero }
S:=nil;
end; end;
{$ifdef hascompilerproc} {$ifdef hascompilerproc}
@ -1011,7 +1009,10 @@ end;
{ {
$Log$ $Log$
Revision 1.34 2003-11-29 17:27:05 michael Revision 1.35 2004-01-22 22:09:05 peter
* finalize needs to reset to nil after decr_ref
Revision 1.34 2003/11/29 17:27:05 michael
+ Added overloaded version of SetWideStringManager without old parameter + Added overloaded version of SetWideStringManager without old parameter
Revision 1.33 2003/11/28 20:36:13 michael Revision 1.33 2003/11/28 20:36:13 michael