Browse Source

* fix encoding of ash_savereg and ash_savereg_x

Sven/Sarah Barth 9 months ago
parent
commit
b7afb6237f
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/aarch64/agcpugas.pas

+ 2 - 2
compiler/aarch64/agcpugas.pas

@@ -278,13 +278,13 @@ unit agcpugas;
                   begin
                   begin
                     check_offset(seh.data.offset,504);
                     check_offset(seh.data.offset,504);
                     check_reg(seh.data.reg,R_INTREGISTER,min_int_reg);
                     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;
                   end;
                 ash_savereg_x:
                 ash_savereg_x:
                   begin
                   begin
                     check_offset(seh.data.offset,256);
                     check_offset(seh.data.offset,256);
                     check_reg(seh.data.reg,R_INTREGISTER,min_int_reg);
                     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;
                   end;
                 ash_saveregp:
                 ash_saveregp:
                   begin
                   begin