paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +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 } already defined or not so define it locally to avoid problems PM }
Type Type
Pbyte = ^Byte; Pbyte = ^Byte;
PPointer = ^Pointer;
Var Temp : PByte; Var Temp : PByte;
I : longint; I : longint;
Size,Count : longint; Size,Count : longint;
@ -83,7 +84,7 @@ begin
Temp:=PByte(TypeInfo); Temp:=PByte(TypeInfo);
case temp^ of case temp^ of
tkAstring,tkWstring: tkAstring,tkWstring:
fpc_AnsiStr_Decr_Ref(Data); fpc_AnsiStr_Decr_Ref(PPointer(Data)^);
tkArray : tkArray :
begin begin
inc(Temp); inc(Temp);
@ -235,7 +236,10 @@ procedure fpc_FinalizeArray(data,typeinfo : pointer;count,size : longint); [Publ
{ {
$Log$ $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 * init and final code in genrtti.inc updated
Revision 1.7 2001/11/17 10:29:48 florian Revision 1.7 2001/11/17 10:29:48 florian