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

* i8086 fix in tx86casenode.genlinearlist

Browse Source 
git-svn-id: branches/i8086@23990 -
This commit is contained in:
nickysn 2013-03-24 23:03:06 +00:00
parent 29c7d38e43
commit 1f5d384a1e
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/nx86set.pas
View File

@ -229,7 +229,11 @@ implementation
cond_le:=F_BE;
end;
{ do we need to generate cmps? }
{$ifdef i8086}
if (with_sign and (min_label<0)) or (opcgsize in [OS_32, OS_S32]) then
{$else i8086}
if (with_sign and (min_label<0)) then
{$endif i8086}
genlinearcmplist(hp)
else
begin