فهرست منبع

x86: Fixed syntax error when DEBUG_REGISTERLIFE is enabled

J. Gareth "Curious Kit" Moreton 1 ماه پیش
والد
کامیت
6608fe6341
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  1. 2 2
      compiler/rgobj.pas

+ 2 - 2
compiler/rgobj.pas

@@ -2131,7 +2131,7 @@ unit rgobj;
 {$ifdef DEBUG_REGISTERLIFE}
                               write(live_registers.length,'  ');
                               for i:=0 to live_registers.length-1 do
-                                write(std_regname(newreg(regtype,live_registers.buf^[i],defaultsub)),' ');
+                                write(std_regname(newreg(regtype,live_registers.buf[i],defaultsub)),' ');
                               writeln;
 {$endif DEBUG_REGISTERLIFE}
                               add_edges_used(supreg);
@@ -2142,7 +2142,7 @@ unit rgobj;
 {$ifdef DEBUG_REGISTERLIFE}
                               write(live_registers.length,'  ');
                               for i:=0 to live_registers.length-1 do
-                                write(std_regname(newreg(regtype,live_registers.buf^[i],defaultsub)),' ');
+                                write(std_regname(newreg(regtype,live_registers.buf[i],defaultsub)),' ');
                               writeln;
 {$endif DEBUG_REGISTERLIFE}
                               add_edges_used(supreg);