소스 검색

* generate an internal error in tcgz80.a_cmp_reg_reg_label, because that's not yet implemented

git-svn-id: branches/z80@45018 -
nickysn 5 년 전
부모
커밋
d54a2b7cb6
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      compiler/z80/cgcpu.pas

+ 1 - 1
compiler/z80/cgcpu.pas

@@ -1724,7 +1724,7 @@ unit cgcpu;
         tmpreg : tregister;
         i : byte;
       begin
-        list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_cmp_reg_reg_label')));
+        internalerror(2020042301);
         //swapped:=false;
         //{ swap parameters? }
         //case cmp_op of