Merged revisions 1644 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
r1644 | florian | 2005-11-04 22:22:00 +0100 (Fr, 04 Nov 2005) | 2 lines

* OrdType isn't valid for Int64 and QWord

........

git-svn-id: branches/fixes_2_0@1645 -

rtl/objpas/typinfo.pp

@@ -825,7 +825,7 @@ begin
     DataSize := 8
   else
     DataSize := 4;
-  if PropInfo^.PropType^.Kind <> tkClass then
+  if not(PropInfo^.PropType^.Kind in [tkInt64,tkQword,tkClass]) then
     begin
       { cut off unnecessary stuff }
       case GetTypeData(PropInfo^.PropType)^.OrdType of
@@ -846,7 +846,7 @@ begin
       case DataSize of
         1: PByte(Pointer(Instance)+Ptrint(PropInfo^.SetProc))^:=Byte(Value);
         2: PWord(Pointer(Instance)+Ptrint(PropInfo^.SetProc))^:=Word(Value);
-        4:PLongint(Pointer(Instance)+Ptrint(PropInfo^.SetProc))^:=Longint(Value);
+        4: PLongint(Pointer(Instance)+Ptrint(PropInfo^.SetProc))^:=Longint(Value);
         8: PInt64(Pointer(Instance)+Ptrint(PropInfo^.SetProc))^:=Value;
       end;
     ptstatic,