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

Fix compilation with -dDEBUG_PPU

Browse Source
This commit is contained in:
Pierre Muller 2024-08-16 15:08:19 +00:00
parent 159d97e864
commit 7ec9d2bf9f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/entfile.pas
View File

@ -1315,7 +1315,7 @@ begin
if sizeofreal=sizeof(e) then if sizeofreal=sizeof(e) then
begin begin
{$ifdef DEBUG_PPU} {$ifdef DEBUG_PPU}
ppu_log('getrealsize(sizeofreal='+tostr(sizeofreal)+')=')); ppu_log('getrealsize(sizeofreal='+tostr(sizeofreal)+')=');
inc_log_level; inc_log_level;
{$endif} {$endif}
if entryidx+sizeof(e)>entry.size then if entryidx+sizeof(e)>entry.size then
@ -1343,7 +1343,7 @@ begin
if sizeofreal=sizeof(d) then if sizeofreal=sizeof(d) then
begin begin
{$ifdef DEBUG_PPU} {$ifdef DEBUG_PPU}
ppu_log('getrealsize(sizeofreal='+tostr(sizeofreal)+')=')); ppu_log('getrealsize(sizeofreal='+tostr(sizeofreal)+')=');
inc_log_level; inc_log_level;
{$endif} {$endif}
if entryidx+sizeof(d)>entry.size then if entryidx+sizeof(d)>entry.size then
@ -1374,7 +1374,7 @@ begin
if sizeofreal=sizeof(s) then if sizeofreal=sizeof(s) then
begin begin
{$ifdef DEBUG_PPU} {$ifdef DEBUG_PPU}
ppu_log('getrealsize(sizeofreal='+tostr(sizeofreal)+')=')); ppu_log('getrealsize(sizeofreal='+tostr(sizeofreal)+')=');
inc_log_level; inc_log_level;
{$endif} {$endif}
if entryidx+sizeof(s)>entry.size then if entryidx+sizeof(s)>entry.size then