paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +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

4
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
@ -846,7 +846,7 @@ begin
case DataSize of case DataSize of
1: PByte(Pointer(Instance)+Ptrint(PropInfo^.SetProc))^:=Byte(Value); 1: PByte(Pointer(Instance)+Ptrint(PropInfo^.SetProc))^:=Byte(Value);
2: PWord(Pointer(Instance)+Ptrint(PropInfo^.SetProc))^:=Word(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; 8: PInt64(Pointer(Instance)+Ptrint(PropInfo^.SetProc))^:=Value;
end; end;
ptstatic, ptstatic,