paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 00:19:25 +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; DataSize: Integer;
begin begin
{ cut off unnecessary stuff } if PropInfo^.PropType^.Kind <> tkClass then
case GetTypeData(PropInfo^.PropType)^.OrdType of { cut off unnecessary stuff }
otSWord,otUWord: begin case GetTypeData(PropInfo^.PropType)^.OrdType of
Value:=Value and $ffff; otSWord,otUWord: begin
DataSize := 2; Value:=Value and $ffff;
DataSize := 2;
end;
otSByte,otUByte: begin
Value:=Value and $ff;
DataSize := 1;
end; end;
otSByte,otUByte: begin else DataSize := 4;
Value:=Value and $ff; end
DataSize := 1; else
end; DataSize := 4;
else DataSize := 4;
end;
SetIndexValues(PropInfo,Index,Ivalue); SetIndexValues(PropInfo,Index,Ivalue);
case (PropInfo^.PropProcs shr 2) and 3 of case (PropInfo^.PropProcs shr 2) and 3 of
ptfield: ptfield:
@ -847,7 +850,10 @@ end.
{ {
$Log$ $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 * Merged bugfix for bug 1273 from fixbranch
* Fixed typo in SetFloatProp * Fixed typo in SetFloatProp
* Rewrote GetStrProp, now all AnsiString will be correctly * Rewrote GetStrProp, now all AnsiString will be correctly