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

* fix compilation with -dextdebug

Browse Source 
git-svn-id: trunk@21716 -
This commit is contained in:
florian 2012-06-26 17:22:09 +00:00
parent 571b3feab1
commit 3733a000a4
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/agx86int.pas
View File

@ -902,7 +902,7 @@ implementation
hal : tasmlisttype; hal : tasmlisttype;
begin begin
{$ifdef EXTDEBUG} {$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); comment(v_info,'Start writing intel-styled assembler output for '+current_module.mainsource);
{$endif} {$endif}
if target_asm.id<>as_x86_64_masm then if target_asm.id<>as_x86_64_masm then
@ -943,7 +943,7 @@ implementation
AsmLn; AsmLn;
{$ifdef EXTDEBUG} {$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); comment(v_info,'Done writing intel-styled assembler output for '+current_module.mainsource);
{$endif EXTDEBUG} {$endif EXTDEBUG}
end; end;

4
compiler/x86/agx86nsm.pas
View File

@ -1015,7 +1015,7 @@ interface
hal : tasmlisttype; hal : tasmlisttype;
begin begin
{$ifdef EXTDEBUG} {$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); comment(v_info,'Start writing nasm-styled assembler output for '+current_module.mainsource);
{$endif} {$endif}
AsmWriteLn('BITS 32'); AsmWriteLn('BITS 32');
@ -1037,7 +1037,7 @@ interface
FreeExternChainList; FreeExternChainList;
end; end;
{$ifdef EXTDEBUG} {$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); comment(v_info,'Done writing nasm-styled assembler output for '+current_module.mainsource);
{$endif EXTDEBUG} {$endif EXTDEBUG}
end; end;