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

* OrdType isn't valid for Int64 and QWord

Browse Source 
git-svn-id: trunk@1644 -
This commit is contained in:
florian 2005-11-04 21:22:00 +00:00
parent c1e968abf9
commit 9749238cfe
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/typinfo.pp
View File

@ -825,7 +825,7 @@ begin
DataSize := 8 DataSize := 8
else else
DataSize := 4; DataSize := 4;
if PropInfo^.PropType^.Kind <> tkClass then if not(PropInfo^.PropType^.Kind in [tkInt64,tkQword,tkClass]) then
begin begin
{ cut off unnecessary stuff } { cut off unnecessary stuff }
case GetTypeData(PropInfo^.PropType)^.OrdType of case GetTypeData(PropInfo^.PropType)^.OrdType of