瀏覽代碼

* fix compilation with extdebug

git-svn-id: trunk@21705 -
florian 13 年之前
父節點
當前提交
6ae2a43161
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/aggas.pas

+ 2 - 2
compiler/aggas.pas

@@ -1539,7 +1539,7 @@ implementation
       i: longint;
       i: longint;
     begin
     begin
 {$ifdef EXTDEBUG}
 {$ifdef EXTDEBUG}
-      if assigned(current_module.mainsource) then
+      if current_module.mainsource<>'' then
        Comment(V_Debug,'Start writing gas-styled assembler output for '+current_module.mainsource);
        Comment(V_Debug,'Start writing gas-styled assembler output for '+current_module.mainsource);
 {$endif}
 {$endif}
 
 
@@ -1583,7 +1583,7 @@ implementation
 
 
       AsmLn;
       AsmLn;
 {$ifdef EXTDEBUG}
 {$ifdef EXTDEBUG}
-      if assigned(current_module.mainsource) then
+      if current_module.mainsource<>'' then
        Comment(V_Debug,'Done writing gas-styled assembler output for '+current_module.mainsource);
        Comment(V_Debug,'Done writing gas-styled assembler output for '+current_module.mainsource);
 {$endif EXTDEBUG}
 {$endif EXTDEBUG}
     end;
     end;