paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed memory corruption with finalize() of ansistring in a class

Browse Source
This commit is contained in:
michael 2001-11-22 07:33:08 +00:00
parent 3123d15a75
commit 2de56ad75e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/genrtti.inc
View File

@ -74,6 +74,7 @@ Procedure fpc_Finalize (Data,TypeInfo: Pointer);saveregisters;[Public,Alias : 'F
already defined or not so define it locally to avoid problems PM }
Type
Pbyte = ^Byte;
PPointer = ^Pointer;
Var Temp : PByte;
I : longint;
Size,Count : longint;
@ -83,7 +84,7 @@ begin
Temp:=PByte(TypeInfo);
case temp^ of
tkAstring,tkWstring:
fpc_AnsiStr_Decr_Ref(Data);
fpc_AnsiStr_Decr_Ref(PPointer(Data)^);
tkArray :
begin
inc(Temp);
@ -235,7 +236,10 @@ procedure fpc_FinalizeArray(data,typeinfo : pointer;count,size : longint); [Publ
{
$Log$
Revision 1.8 2001-11-17 16:56:08 florian
Revision 1.9 2001-11-22 07:33:08 michael
* Fixed memory corruption with finalize() of ansistring in a class
Revision 1.8 2001/11/17 16:56:08 florian
* init and final code in genrtti.inc updated
Revision 1.7 2001/11/17 10:29:48 florian