diff --git a/compiler/x86/agx86int.pas b/compiler/x86/agx86int.pas index be4cdbe50f..05c9d3ab27 100644 --- a/compiler/x86/agx86int.pas +++ b/compiler/x86/agx86int.pas @@ -902,7 +902,7 @@ implementation hal : tasmlisttype; begin {$ifdef EXTDEBUG} - if assigned(current_module.mainsource) then + if current_module.mainsource<>'' then comment(v_info,'Start writing intel-styled assembler output for '+current_module.mainsource); {$endif} if target_asm.id<>as_x86_64_masm then @@ -943,7 +943,7 @@ implementation AsmLn; {$ifdef EXTDEBUG} - if assigned(current_module.mainsource) then + if current_module.mainsource<>'' then comment(v_info,'Done writing intel-styled assembler output for '+current_module.mainsource); {$endif EXTDEBUG} end; diff --git a/compiler/x86/agx86nsm.pas b/compiler/x86/agx86nsm.pas index 365900910f..43f5f68408 100644 --- a/compiler/x86/agx86nsm.pas +++ b/compiler/x86/agx86nsm.pas @@ -1015,7 +1015,7 @@ interface hal : tasmlisttype; begin {$ifdef EXTDEBUG} - if assigned(current_module.mainsource) then + if current_module.mainsource<>'' then comment(v_info,'Start writing nasm-styled assembler output for '+current_module.mainsource); {$endif} AsmWriteLn('BITS 32'); @@ -1037,7 +1037,7 @@ interface FreeExternChainList; end; {$ifdef EXTDEBUG} - if assigned(current_module.mainsource) then + if current_module.mainsource<>'' then comment(v_info,'Done writing nasm-styled assembler output for '+current_module.mainsource); {$endif EXTDEBUG} end;