Преглед на файлове

x86: Fixed syntax error when DEBUG_REGISTERLIFE is enabled

J. Gareth "Curious Kit" Moreton преди 3 месеца
родител
ревизия
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);