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

Try to fix compilation error after commit #40027

Browse Source 
git-svn-id: trunk@40028 -
This commit is contained in:
pierre 2018-10-25 06:39:42 +00:00
parent 740a26d879
commit d26fb3b663
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/agx86int.pas
View File

@ -886,6 +886,7 @@ implementation
else if (asminfo^.id=as_x86_64_masm) and
(fixed_opcode=A_MOVQ) then
writer.AsmWrite(#9#9'mov')
{$ifdef I386}
else if (asminfo^.id = as_i386_wasm) and ((fixed_opcode=A_RETD)
or (fixed_opcode=A_RETND) or (fixed_opcode=A_RETFD)) then
begin
@ -899,6 +900,7 @@ implementation
writer.AsmWrite(#9#9'retf');
end
end
{$endif I386}
else
writer.AsmWrite(#9#9+prefix+std_op2str[fixed_opcode]+cond2str[taicpu(hp).condition]+suffix);
if taicpu(hp).ops<>0 then