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

* generate 16-bit (instead of 32-bit) instructions for push/pop of a segment

Browse Source 
register in an inline asm block on i8086

git-svn-id: trunk@30616 -
This commit is contained in:
nickysn 2015-04-17 00:51:00 +00:00
parent 7315175c32
commit c3515f743f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/rax86.pas
View File

@ -803,7 +803,11 @@ begin
(opcode=A_POP)) and
(operands[1].opr.typ=OPR_REGISTER) and
is_segment_reg(operands[1].opr.reg) then
{$ifdef i8086}
opsize:=S_W
{$else i8086}
opsize:=S_L
{$endif i8086}
else
opsize:=tx86operand(operands[1]).opsize;
end;