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

Handle unaligned copy in TCGSparcGen.g_concatcopy method

Browse Source
This commit is contained in:
Pierre Muller 2023-07-13 07:15:07 -05:00
parent 438b4ffb4d
commit 20d0fab8e9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/sparcgen/cgsparc.pas
View File

@ -1155,6 +1155,9 @@ implementation
{ anybody wants to determine a good value here :)? }
if len>100 then
g_concatcopy_move(list,source,dest,len)
else if ((source.alignment>0) and (source.alignment<4)) or
((dest.alignment>0) and (dest.alignment<4)) then
g_concatcopy_unaligned(list,source,dest,len)
else
begin
count:=len div 4;