From a419018ff060bb94ca806bb27fc35a6e5f69a904 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Thu, 9 Apr 2020 13:23:10 +0000
Subject: [PATCH] + handle fromsize>tosize in tcgz80.a_load_reg_reg

git-svn-id: branches/z80@44656 -
---
 compiler/z80/cgcpu.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/z80/cgcpu.pas b/compiler/z80/cgcpu.pas
index 77e4d258fc..1ddd95ba0b 100644
--- a/compiler/z80/cgcpu.pas
+++ b/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