Browse Source

Fix compilation with -dEXTDEBUG

Pierre Muller 1 year ago
parent
commit
cc552c0815
1 changed files with 3 additions and 3 deletions
  1. 3 3
      compiler/pmodules.pas

+ 3 - 3
compiler/pmodules.pas

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