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

* allow use of the imm8 form of 16-bit instructions on i8086

Browse Source 
git-svn-id: trunk@30594 -
This commit is contained in:
nickysn 2015-04-14 19:14:47 +00:00
parent b84657980d
commit f5ddd351fe
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/aasmcpu.pas
View File

@ -1281,7 +1281,11 @@ implementation
{$endif x86_64} {$endif x86_64}
) then ) then
message(asmr_e_invalid_opcode_and_operand); message(asmr_e_invalid_opcode_and_operand);
if (opsize<>S_W) and (aint(val)>=-128) and (val<=127) then if
{$ifndef i8086}
(opsize<>S_W) and
{$endif not i8086}
(aint(val)>=-128) and (val<=127) then
ot:=OT_IMM8 or OT_SIGNED ot:=OT_IMM8 or OT_SIGNED
else else
ot:=OT_IMMEDIATE or opsize_2_type[i,opsize]; ot:=OT_IMMEDIATE or opsize_2_type[i,opsize];