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

Fix compilation with -dEXTDEBUG

Browse Source
This commit is contained in:
Pierre Muller 2024-03-06 14:34:53 +00:00
parent 9db42f5e67
commit cc552c0815
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/pmodules.pas
View File

@ -1651,7 +1651,7 @@ type
store_interface_crc:=module.interface_crc; store_interface_crc:=module.interface_crc;
store_indirect_crc:=module.indirect_crc; store_indirect_crc:=module.indirect_crc;
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
store_crc:=curr.crc; store_crc:=module.crc;
{$endif EXTDEBUG} {$endif EXTDEBUG}
if (Errorcount=0) then if (Errorcount=0) then
tppumodule(module).writeppu; tppumodule(module).writeppu;
@ -1665,8 +1665,8 @@ type
end; end;
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
if not(cs_compilesystem in current_settings.moduleswitches) then if not(cs_compilesystem in current_settings.moduleswitches) then
if (store_crc<>curr.crc) then if (store_crc<>module.crc) then
Message1(unit_u_implementation_crc_changed,curr.ppufilename); Message1(unit_u_implementation_crc_changed,module.ppufilename);
{$endif EXTDEBUG} {$endif EXTDEBUG}
{ release unregistered defs/syms from the localsymtable } { release unregistered defs/syms from the localsymtable }