Browse Source

+ handle fromsize>tosize in tcgz80.a_load_reg_reg

git-svn-id: branches/z80@44656 -
nickysn 5 years ago
parent
commit
a419018ff0
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/z80/cgcpu.pas

+ 1 - 1
compiler/z80/cgcpu.pas

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