paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 20:39:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* make fullcycle for i8086 fixed

Browse Source 
git-svn-id: trunk@36164 -
This commit is contained in:
florian 2017-05-09 19:53:06 +00:00
parent b837f544de
commit f93b784895
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/aoptx86.pas
View File

@ -1868,6 +1868,7 @@ unit aoptx86;
taicpu(hp1).loadConst(0,taicpu(hp1).oper[0]^.val and $ff);
end
end;
{$ifndef i8086}
S_WL:
begin
if (getsupreg(taicpu(p).oper[0]^.reg)=getsupreg(taicpu(p).oper[1]^.reg)) and
@ -1898,6 +1899,7 @@ unit aoptx86;
taicpu(hp1).loadConst(0,taicpu(hp1).oper[0]^.val and $ffff);
end;
end;
{$endif i8086}
end
else if (taicpu(p).oper[0]^.typ = top_ref) then
begin