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

Avoid new line after lock prefix for nasm

Browse Source 
git-svn-id: trunk@27511 -
This commit is contained in:
pierre 2014-04-10 14:56:30 +00:00
parent e0744b9759
commit 816dfa69c1
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/x86/agx86nsm.pas
View File

@ -608,7 +608,7 @@ interface
i,j,l : longint;
InlineLevel : longint;
consttype : taiconst_type;
do_line,
do_line, SkipNewLine,
quoted : boolean;
co : comp;
sin : single;
@ -1000,6 +1000,13 @@ interface
fixed_opcode:=taicpu(hp).FixNonCommutativeOpcodes;
{ We need intel order, no At&t }
taicpu(hp).SetOperandOrder(op_intel);
{ LOCK must be on same line as opcode }
if (taicpu(hp).ops = 0) and
(fixed_opcode = A_LOCK) then
SkipNewLine:=true
else
SkipNewLine:=false;
s:='';
if ((fixed_opcode=A_FADDP) or
(fixed_opcode=A_FMULP))
@ -1069,7 +1076,8 @@ interface
end;
end;
end;
AsmLn;
if not SkipNewLine then
AsmLn;
end;
end;