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

* m68k: don't attempt to copy less than 1 byte in g_concatcopy, this fixes tdfa7.pp on 68000 and removes some superfluous address processing on 68020+ in the same test

Browse Source
This commit is contained in:
Karoly Balogh 2022-02-08 03:04:28 +01:00
parent 8f083f6342
commit 077a3f1892
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/m68k/cgcpu.pas
View File

@ -1772,6 +1772,9 @@ unit cgcpu;
srcrefp,dstrefp : treference;
srcref,dstref : treference;
begin
if (len < 1) then
exit;
if (len = 1) or
((len in [2,4]) and
not needs_unaligned(source.alignment,lentocgsize[len]) and