소스 검색

* fixed missing list.concat in tcgmos6502.a_load_const_reg

Nikolay Nikolov 1 년 전
부모
커밋
7af9a1f6e0
1개의 변경된 파일3개의 추가작업 그리고 3개의 파일을 삭제
  1. 3 3
      compiler/mos6502/cgcpu.pas

+ 3 - 3
compiler/mos6502/cgcpu.pas

@@ -1306,11 +1306,11 @@ unit cgcpu;
              if not (size in [OS_8,OS_S8]) then
                internalerror(2024040704);
              if reg=NR_A then
-               taicpu.op_const(A_LDA,byte(a))
+               list.Concat(taicpu.op_const(A_LDA,byte(a)))
              else if reg=NR_X then
-               taicpu.op_const(A_LDX,byte(a))
+               list.Concat(taicpu.op_const(A_LDX,byte(a)))
              else if reg=NR_Y then
-               taicpu.op_const(A_LDY,byte(a))
+               list.Concat(taicpu.op_const(A_LDY,byte(a)))
              else
                internalerror(2024040705);
            end