paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:49:06 +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

10
rtl/objpas/typinfo.pp
View File

@ -547,6 +547,7 @@ unit typinfo;
DataSize: Integer; DataSize: Integer;
begin begin
if PropInfo^.PropType^.Kind <> tkClass then
{ cut off unnecessary stuff } { cut off unnecessary stuff }
case GetTypeData(PropInfo^.PropType)^.OrdType of case GetTypeData(PropInfo^.PropType)^.OrdType of
otSWord,otUWord: begin otSWord,otUWord: begin
@ -558,7 +559,9 @@ unit typinfo;
DataSize := 1; DataSize := 1;
end; end;
else DataSize := 4; else DataSize := 4;
end; end
else
DataSize := 4;
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