paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 10:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Other improvements and fixes for PPU debug code

Browse Source
This commit is contained in:
Pierre Muller 2025-04-30 16:39:15 +00:00
parent e7b6a08eae
commit f372eb8a33
3 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/fppu.pas
View File

@ -1854,6 +1854,10 @@ var
if not ppufile.createfile then
Message(unit_f_ppu_cannot_write);
{$ifdef DEBUG_GENERATE_INTERFACE_PPU}
if ppufile.writing_interface_ppu then
ppufile.crc_only:=false;
{$endif DEBUG_GENERATE_INTERFACE_PPU}
{$ifdef Test_Double_checksum_write}
if FileExists(ppufilename+'.INT',false) then
RenameFile(ppufilename+'.INT',ppufilename+'.INT-old');

7
compiler/ppu.pas
View File

@ -391,13 +391,6 @@ begin
end;
{$endif}
result:=inherited createfile;
{$ifdef DEBUG_GENERATE_INTERFACE_PPU}
if writing_interface_ppu then
begin
crc_only:=true;
writing_interface_ppu:=false;
end;
{$endif DEBUG_GENERATE_INTERFACE_PPU}
end;

6
compiler/symtype.pas
View File

@ -1265,6 +1265,12 @@ implementation
begin
oldcrc:=do_crc;
do_crc:=false;
{$ifdef DEBUG_GENERATE_INTERFACE_PPU}
{ Accept invalid marker inside getppucrc }
if writing_interface_ppu then
putlongint(d.dataidx)
else
{$endif}
if d.dataidx=-1 then
internalerror(2019022201)
else