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

* allow 32-bit operand sizes in the i8086 version of Tx86Operand.SetSize, so

Browse Source 
32-bit operands can work properly in i8086's inline asm. Fixes mantis #29188.

git-svn-id: trunk@32866 -
This commit is contained in:
nickysn 2016-01-06 18:06:34 +00:00
parent e835f120e9
commit 21c9712ea2
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/rax86.pas
View File

@ -197,7 +197,13 @@ begin
32: size := OS_M256;
end;
opsize:=TCGSize2Opsize[size];
{$ifdef i8086}
{ allows e.g. using 32-bit registers in i8086 inline asm }
if size in [OS_32,OS_S32] then
opsize:=S_L
else
{$endif i8086}
opsize:=TCGSize2Opsize[size];
end;