paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 10:38:26 +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;
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;

4
compiler/x86/agx86nsm.pas
View File

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