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

* Use TExternalAssembler.WriteComments() also by nasm and intel assembler writers.

Browse Source 
git-svn-id: trunk@46553 -
This commit is contained in:
yury 2020-08-22 20:47:54 +00:00
parent 832c3d89c8
commit 8cc5842317
2 changed files with 4 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/x86/agx86int.pas
View File

@ -541,26 +541,6 @@ implementation
DoNotSplitLine:=false;
case hp.typ of
ait_comment :
Begin
writer.AsmWrite(asminfo^.comment);
writer.AsmWritePChar(tai_comment(hp).str);
writer.AsmLn;
End;
ait_regalloc :
begin
if (cs_asm_regalloc in current_settings.globalswitches) then
writer.AsmWriteLn(asminfo^.comment+'Register '+masm_regname(tai_regalloc(hp).reg)+
regallocstr[tai_regalloc(hp).ratype]);
end;
ait_tempalloc :
begin
if (cs_asm_tempalloc in current_settings.globalswitches) then
WriteTempalloc(tai_tempalloc(hp));
end;
ait_section :
begin
if tai_section(hp).sectype<>sec_none then
@ -1032,7 +1012,8 @@ implementation
ait_seh_directive :
{ Ignore for now };
else
internalerror(10000);
if not WriteComments(hp) then
internalerror(10000);
end;
hp:=tai(hp.next);
end;

23
compiler/x86/agx86nsm.pas
View File

@ -751,26 +751,6 @@ interface
end;
case hp.typ of
ait_comment :
Begin
writer.AsmWrite(asminfo^.comment);
writer.AsmWritePChar(tai_comment(hp).str);
writer.AsmLn;
End;
ait_regalloc :
begin
if (cs_asm_regalloc in current_settings.globalswitches) then
writer.AsmWriteLn(#9#9+asminfo^.comment+'Register '+nasm_regname(tai_regalloc(hp).reg)+' '+
regallocstr[tai_regalloc(hp).ratype]);
end;
ait_tempalloc :
begin
if (cs_asm_tempalloc in current_settings.globalswitches) then
WriteTempalloc(tai_tempalloc(hp));
end;
ait_section :
begin
if tai_section(hp).sectype<>sec_none then
@ -1319,7 +1299,8 @@ interface
ait_seh_directive :
{ Ignore for now };
else
internalerror(10000);
if not WriteComments(hp) then
internalerror(10000);
end;
hp:=tai(hp.next);
end;