paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:26:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation with extdebug

Browse Source 
git-svn-id: trunk@21705 -
This commit is contained in:
florian 2012-06-25 20:01:35 +00:00
parent 8c8883cc35
commit 6ae2a43161
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aggas.pas
View File

@ -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;