diff --git a/compiler/entfile.pas b/compiler/entfile.pas index b95f91fee4..3f2fcb9b57 100644 --- a/compiler/entfile.pas +++ b/compiler/entfile.pas @@ -1400,7 +1400,7 @@ begin for i:=low(arr) to high(arr) do arr[i]:=reverse_byte(arr[i]); {$ifdef DEBUG_PPU} - for i:=0 to 3 do + for i:=low(arr) to high(arr) do ppu_log_val('byte['+tostr(i)+']=$'+hexstr(arr[i],2)); dec_log_level; {$endif} @@ -1871,7 +1871,7 @@ procedure tentryfile.putset(const arr: array of byte); {$endif} putdata(arr,sizeof(arr)); {$ifdef DEBUG_PPU} - for i:=0 to 31 do + for i:=0 to sizeof(arr)-1 do ppu_log_val('byte['+tostr(i)+']=$'+hexstr(arr[i],2)); dec_log_level; {$endif}