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

Add DEBUG_PPU conditional code to be able to debug ppu changes (only useful for debugging purposes)

Browse Source 
git-svn-id: trunk@42110 -
This commit is contained in:
pierre 2019-05-20 12:48:12 +00:00
parent 669e705b54
commit dd418f24b5
2 changed files with 601 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

579
compiler/entfile.pas
View File

File diff suppressed because it is too large Load Diff

27
compiler/ppu.pas
View File

@ -102,6 +102,9 @@ type
function getheadersize:longint;override;
function getheaderaddr:pentryheader;override;
procedure resetfile;override;
{$ifdef DEBUG_PPU}
procedure ppu_log(st :string);override;
{$endif}
public
header : tppuheader;
{ crc for the entire unit }
@ -235,6 +238,30 @@ begin
result:=not crc_only;
end;
{$ifdef DEBUG_PPU}
procedure tppufile.ppu_log(st :string);
begin
inherited ppu_log(st);
if flog_open then
begin
if do_crc and (ppu_log_idx < bufstart+bufidx) then
begin
writeln(flog,'New crc : ',hexstr(dword(crc),8));
writeln(flog,'New interface crc : ',hexstr(dword(interface_crc),8));
writeln(flog,'New indirect crc : ',hexstr(dword(indirect_crc),8));
ppu_log_idx:=bufstart+bufidx;
end;
end;
{$ifdef IN_PPUDUMP}
if update_crc then
begin
writeln('New crc : ',hexstr(dword(crc),8));
writeln('New interface crc : ',hexstr(dword(interface_crc),8));
writeln('New indirect crc : ',hexstr(dword(indirect_crc),8));
end;
{$endif}
end;
{$endif}
{*****************************************************************************
TPPUFile Reading