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

* better alignment checking

Browse Source
This commit is contained in:
florian 2005-02-13 19:57:15 +00:00
parent 8cf4e1a6d3
commit e26ab8447c
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncgld.pas
View File

@ -599,9 +599,9 @@ implementation
{$warning HACK: unaligned test, maybe remove all unaligned locations (array of char) from the compiler}
{ Use unaligned copy when the offset is not aligned }
len:=left.resulttype.def.size;
if ((right.location.reference.offset mod sizeof(aint)<>0) or
(left.location.reference.offset mod sizeof(aint)<>0)) and
(len>=sizeof(aint)) then
if (right.location.reference.offset mod sizeof(aint)<>0) or
(left.location.reference.offset mod sizeof(aint)<>0) or
(right.resulttype.def.alignment<sizeof(aint)) then
cg.g_concatcopy_unaligned(exprasmlist,right.location.reference,left.location.reference,len)
else
cg.g_concatcopy(exprasmlist,right.location.reference,left.location.reference,len);
@ -956,7 +956,10 @@ begin
end.
{
$Log$
Revision 1.137 2005-02-10 21:54:36 peter
Revision 1.138 2005-02-13 19:57:15 florian
* better alignment checking
Revision 1.137 2005/02/10 21:54:36 peter
* data with inittables need to have a memory location assigned
for incrref