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

* handle aligned assignments with size < sizeof(aint) properly, resolves #19355

Browse Source 
git-svn-id: trunk@17468 -
This commit is contained in:
florian 2011-05-15 13:47:26 +00:00
parent 54bbaa037e
commit f1b13dca19
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncgld.pas
View File

@ -567,6 +567,7 @@ implementation
otlabel,hlabel,oflabel : tasmlabel;
href : treference;
releaseright : boolean;
alignmentrequirement,
len : aint;
r : tregister;
oldflowcontrol : tflowcontrol;
@ -777,13 +778,17 @@ implementation
{ TODO: 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.resultdef.size;
if (right.location.reference.offset mod sizeof(aint)<>0) or
(left.location.reference.offset mod sizeof(aint)<>0) or
(right.resultdef.alignment<sizeof(aint)) or
{ data smaller than an aint has less alignment requirements }
alignmentrequirement:=min(len,sizeof(aint));
if (right.location.reference.offset mod alignmentrequirement<>0) or
(left.location.reference.offset mod alignmentrequirement<>0) or
(right.resultdef.alignment<alignmentrequirement) or
((right.location.reference.alignment<>0) and
(right.location.reference.alignment<sizeof(aint))) or
(right.location.reference.alignment<alignmentrequirement)) or
((left.location.reference.alignment<>0) and
(left.location.reference.alignment<sizeof(aint))) then
(left.location.reference.alignment<alignmentrequirement)) then
cg.g_concatcopy_unaligned(current_asmdata.CurrAsmList,right.location.reference,left.location.reference,len)
else
cg.g_concatcopy(current_asmdata.CurrAsmList,right.location.reference,left.location.reference,len);