paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:39:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Sebastian Guenther

Browse Source
This commit is contained in:
michael 1999-08-29 22:21:27 +00:00
parent f90b4a3db0
commit 022e44bb17
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/typinfo.pp
View File

@ -507,7 +507,7 @@ unit typinfo;
Value:=Value and $ff;
end;
SetIndexValues(PropInfo,Index,Ivalue);
case (PropInfo^.PropProcs) and 3 of
case (PropInfo^.PropProcs shr 2) and 3 of
ptfield:
PLongint(Pointer(Instance)+Longint(PropInfo^.SetProc))^:=Value;
ptstatic:
@ -591,7 +591,7 @@ unit typinfo;
begin
SetIndexValues(PropInfo,Index,IValue);
case (PropInfo^.PropProcs) and 3 of
case (PropInfo^.PropProcs shr 2) and 3 of
ptfield:
PLongint(Pointer(Instance)+Longint(PropInfo^.SetProc))^:=Longint(Pointer(Value)) ;
ptstatic:
@ -610,7 +610,7 @@ unit typinfo;
begin
SetIndexValues(PRopInfo,Index,IValue);
case (PropInfo^.PropProcs) and 3 of
case (PropInfo^.PropProcs shr 2) and 3 of
ptfield:
PShortString(Pointer(Instance)+Longint(PropInfo^.SetProc))^:=Value;
ptstatic:
@ -676,7 +676,7 @@ unit typinfo;
begin
SetIndexValues(PropInfo,Index,Ivalue);
case (PropInfo^.PropProcs) and 3 of
case (PropInfo^.PropProcs shr 2) and 3 of
ptfield:
Case GetTypeData(PropInfo^.PropType)^.FloatType of
ftSingle:
@ -774,7 +774,10 @@ end.
{
$Log$
Revision 1.24 1999-08-06 13:21:40 michael
Revision 1.25 1999-08-29 22:21:27 michael
* Patch from Sebastian Guenther
Revision 1.24 1999/08/06 13:21:40 michael
* Patch from Sebastian Guenther
Revision 1.23 1999/06/04 12:48:37 michael