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

* Fixed SetOrdProp for class instance properties (merged from fixbranch)

Browse Source
This commit is contained in:
sg 2001-02-15 22:40:22 +00:00
parent 2a992cc477
commit f43d55181a
1 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rtl/objpas/typinfo.pp
View File

@ -547,18 +547,21 @@ unit typinfo;
DataSize: Integer;
begin
{ cut off unnecessary stuff }
case GetTypeData(PropInfo^.PropType)^.OrdType of
otSWord,otUWord: begin
Value:=Value and $ffff;
DataSize := 2;
if PropInfo^.PropType^.Kind <> tkClass then
{ cut off unnecessary stuff }
case GetTypeData(PropInfo^.PropType)^.OrdType of
otSWord,otUWord: begin
Value:=Value and $ffff;
DataSize := 2;
end;
otSByte,otUByte: begin
Value:=Value and $ff;
DataSize := 1;
end;
otSByte,otUByte: begin
Value:=Value and $ff;
DataSize := 1;
end;
else DataSize := 4;
end;
else DataSize := 4;
end
else
DataSize := 4;
SetIndexValues(PropInfo,Index,Ivalue);
case (PropInfo^.PropProcs shr 2) and 3 of
ptfield:
@ -847,7 +850,10 @@ end.
{
$Log$
Revision 1.6 2000-12-13 23:28:17 sg
Revision 1.7 2001-02-15 22:40:22 sg
* Fixed SetOrdProp for class instance properties (merged from fixbranch)
Revision 1.6 2000/12/13 23:28:17 sg
* Merged bugfix for bug 1273 from fixbranch
* Fixed typo in SetFloatProp
* Rewrote GetStrProp, now all AnsiString will be correctly