فهرست منبع

* 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