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

+ handle fromsize>tosize in tcgz80.a_load_reg_reg

Browse Source 
git-svn-id: branches/z80@44656 -
This commit is contained in:
nickysn 2020-04-09 13:23:10 +00:00
parent ce56125e40
commit a419018ff0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/z80/cgcpu.pas
View File

@ -1323,7 +1323,7 @@ unit cgcpu;
if (tcgsize2size[fromsize]>32) or (tcgsize2size[tosize]>32) or (fromsize=OS_NO) or (tosize=OS_NO) then if (tcgsize2size[fromsize]>32) or (tcgsize2size[tosize]>32) or (fromsize=OS_NO) or (tosize=OS_NO) then
internalerror(2011021310); internalerror(2011021310);
if tcgsize2size[fromsize]>tcgsize2size[tosize] then if tcgsize2size[fromsize]>tcgsize2size[tosize] then
internalerror(2020040803); fromsize:=tosize;
if (tosize=fromsize) or (fromsize in [OS_8,OS_16,OS_32]) then if (tosize=fromsize) or (fromsize in [OS_8,OS_16,OS_32]) then
begin begin