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

* _This_ is the real revision 1.32... :-)

Browse Source
This commit is contained in:
sg 2000-01-06 01:08:33 +00:00
parent 72b6e9345b
commit ebb5f22c13
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rtl/objpas/typinfo.pp
View File

@ -52,7 +52,7 @@ unit typinfo;
tkWString,tkVariant,tkArray,tkRecord,tkInterface, tkWString,tkVariant,tkArray,tkRecord,tkInterface,
tkClass,tkObject,tkWChar,tkBool); tkClass,tkObject,tkWChar,tkBool);
TTOrdType = (otSByte,otUByte,otChar,otSWord,otUWord,otWChar,otSLong,otULong); TTOrdType = (otSByte,otUByte,otSWord,otUWord,otSLong,otULong);
TFloatType = (ftSingle,ftDouble,ftExtended,ftComp,ftCurr, TFloatType = (ftSingle,ftDouble,ftExtended,ftComp,ftCurr,
ftFixed16,ftFixed32); ftFixed16,ftFixed32);
@ -485,6 +485,7 @@ unit typinfo;
var var
value,Index,Ivalue : longint; value,Index,Ivalue : longint;
TypeInfo: PTypeInfo;
begin begin
SetIndexValues(PropInfo,Index,Ivalue); SetIndexValues(PropInfo,Index,Ivalue);
@ -497,12 +498,20 @@ unit typinfo;
Value:=CallIntegerFunc(Instance,PPointer(Pointer(Instance.ClassType)+Longint(PropInfo^.GetProc))^,Index,IValue); Value:=CallIntegerFunc(Instance,PPointer(Pointer(Instance.ClassType)+Longint(PropInfo^.GetProc))^,Index,IValue);
end; end;
{ cut off unnecessary stuff } { cut off unnecessary stuff }
case GetTypeData(PropInfo^.PropType)^.OrdType of TypeInfo := PropInfo^.PropType;
otSWord,otUWord,otWChar: case TypeInfo^.Kind of
Value:=Value and $ffff; tkChar, tkBool:
otSByte,otUByte,otChar: Value:=Value and $ff;
Value:=Value and $ff; tkWChar:
end; Value:=Value and $ffff;
tkInteger:
case GetTypeData(TypeInfo)^.OrdType of
otSWord,otUWord:
Value:=Value and $ffff;
otSByte,otUByte:
Value:=Value and $ff;
end;
end;
GetOrdProp:=Value; GetOrdProp:=Value;
end; end;
@ -807,7 +816,10 @@ end.
{ {
$Log$ $Log$
Revision 1.33 2000-01-06 00:23:24 pierre Revision 1.34 2000-01-06 01:08:33 sg
* _This_ is the real revision 1.32... :-)
Revision 1.33 2000/01/06 00:23:24 pierre
* missing declarations for otChar andotWChar added * missing declarations for otChar andotWChar added
Revision 1.32 2000/01/05 18:59:56 sg Revision 1.32 2000/01/05 18:59:56 sg