paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* variant size must be 24 bytes on 64 bit platforms

Browse Source 
git-svn-id: trunk@3441 -
This commit is contained in:
florian 2006-05-06 22:52:13 +00:00
parent affffb4ef9
commit 2983b01109
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/symdef.pas
View File

@ -2055,7 +2055,11 @@ implementation
procedure tvariantdef.setsize;
begin
savesize:=16;
{$ifdef cpu64bit}
savesize:=24;
{$else cpu64bit}
savesize:=16;
{$endif cpu64bit}
end;

6
rtl/inc/varianth.inc
View File

@ -36,6 +36,8 @@ const
varint64 = 20;
varqword = 21;
varrecord = 36;
varstrarg = $48;
varstring = $100;
varany = $101;
@ -104,7 +106,9 @@ type
varany : (vany : pointer);
vararray : (varray : pvararray);
varbyref : (vpointer : pointer);
);
{ unused so far, only to fill up space }
varrecord : (vrecord : pointer;precinfo : pointer);
);
1:
(vlongs : array[0..2] of longint);
);