Explorar o código

+ handle fromsize>tosize in tcgz80.a_load_reg_reg

git-svn-id: branches/z80@44656 -
nickysn %!s(int64=5) %!d(string=hai) anos
pai
achega
a419018ff0
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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
          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