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

* (Final) fix for AnsiString reference counter problem in SetStrProp

Browse Source
This commit is contained in:
sg 2000-11-25 18:36:55 +00:00
parent 74fd7fb141
commit 5c7c4fdd2a
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/typinfo.pp
View File

@ -636,18 +636,12 @@ unit typinfo;
hence can be treated like an integer type.
}
var
s: AnsiString;
Index,Ivalue : Longint;
begin
{ Another dirty trick which is necessary to increase the reference
counter of Value... }
s := Value;
Pointer(s) := nil;
SetIndexValues(PropInfo,Index,IValue);
case (PropInfo^.PropProcs shr 2) and 3 of
ptfield:
PLongint(Pointer(Instance)+Longint(PropInfo^.SetProc))^:=Longint(Pointer(Value)) ;
PAnsiString(Pointer(Instance) + Longint(PropInfo^.SetProc))^ := Value;
ptstatic:
CallIntegerProc(Instance,PropInfo^.SetProc,Longint(Pointer(Value)),Index,IValue);
ptvirtual:
@ -868,7 +862,10 @@ end.
{
$Log$
Revision 1.4 2000-11-04 16:28:26 florian
Revision 1.5 2000-11-25 18:36:55 sg
* (Final) fix for AnsiString reference counter problem in SetStrProp
Revision 1.4 2000/11/04 16:28:26 florian
* interfaces support
Revision 1.3 2000/07/17 08:37:58 sg