* fix compilation with -dextdebug

git-svn-id: trunk@21716 -

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;

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;