瀏覽代碼

* fix encoding of ash_savereg and ash_savereg_x

Sven/Sarah Barth 11 月之前
父節點
當前提交
b7afb6237f
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/aarch64/agcpugas.pas

+ 2 - 2
compiler/aarch64/agcpugas.pas

@@ -278,13 +278,13 @@ unit agcpugas;
                   begin
                     check_offset(seh.data.offset,504);
                     check_reg(seh.data.reg,R_INTREGISTER,min_int_reg);
-                    writeword($C000 or ((getsupreg(seh.data.reg)-min_int_reg) shl 6) or (seh.data.offset shr 3));
+                    writeword($D000 or ((getsupreg(seh.data.reg)-min_int_reg) shl 6) or (seh.data.offset shr 3));
                   end;
                 ash_savereg_x:
                   begin
                     check_offset(seh.data.offset,256);
                     check_reg(seh.data.reg,R_INTREGISTER,min_int_reg);
-                    writeword($C400 or ((getsupreg(seh.data.reg)-min_int_reg) shl 5) or ((seh.data.offset shr 3)-1));
+                    writeword($D400 or ((getsupreg(seh.data.reg)-min_int_reg) shl 5) or ((seh.data.offset shr 3)-1));
                   end;
                 ash_saveregp:
                   begin