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

* fixed packrecords as discussed at the alias

Browse Source
This commit is contained in:
peter 1998-07-14 21:37:24 +00:00
parent 1bffd4e290
commit 4b6ca45e6b
1 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
compiler/symsym.inc
View File

@ -1029,11 +1029,35 @@
end;
recordsymtable,
objectsymtable : begin
address:=owner^.datasize;
{ align record and object fields }
owner^.datasize:=(owner^.datasize+l+(aktpackrecords-1)) and (not (aktpackrecords-1));
{ this symbol can't be loaded to a register }
var_options:=var_options and not vo_regable;
{ align record and object fields }
if (l=1) or (aktpackrecords=1) then
begin
address:=owner^.datasize;
inc(owner^.datasize,l)
end
else
if (l=2) or (aktpackrecords=2) then
begin
owner^.datasize:=(owner^.datasize+1) and (not 1);
address:=owner^.datasize;
inc(owner^.datasize,l)
end
else
if (l<=4) or (aktpackrecords=4) then
begin
owner^.datasize:=(owner^.datasize+3) and (not 3);
address:=owner^.datasize;
inc(owner^.datasize,l);
end
else
if (l<=16) or (aktpackrecords=16) then
begin
owner^.datasize:=(owner^.datasize+15) and (not 15);
address:=owner^.datasize;
inc(owner^.datasize,l);
end;
end;
parasymtable : begin
address:=owner^.datasize;
@ -1620,7 +1644,10 @@
{
$Log$
Revision 1.22 1998-07-14 14:47:08 peter
Revision 1.23 1998-07-14 21:37:24 peter
* fixed packrecords as discussed at the alias
Revision 1.22 1998/07/14 14:47:08 peter
* released NEWINPUT
Revision 1.21 1998/07/13 21:17:38 florian