From 3733a000a4f0f24eccf73e513fa470953ba4d754 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 26 Jun 2012 17:22:09 +0000
Subject: [PATCH] * fix compilation with -dextdebug

git-svn-id: trunk@21716 -
---
 compiler/x86/agx86int.pas | 4 ++--
 compiler/x86/agx86nsm.pas | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

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;