paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 13:28:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix compilation with DEBUG_PPU macro set

Browse Source 
git-svn-id: trunk@47615 -
This commit is contained in:
pierre 2020-11-28 12:06:36 +00:00
parent 3808d9c7b6
commit f8c84dd1fd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/entfile.pas
View File

@ -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}