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

* i8086 compilation fixed after r37572

Browse Source 
git-svn-id: trunk@37573 -
This commit is contained in:
florian 2017-11-11 13:25:02 +00:00
parent 73fda1ccb6
commit 674398c5a5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/aoptx86.pas
View File

@ -1889,7 +1889,7 @@ unit aoptx86;
case taicpu(hp1).opcode Of case taicpu(hp1).opcode Of
A_DEC: A_DEC:
if (taicpu(hp1).oper[0]^.typ = top_reg) and if (taicpu(hp1).oper[0]^.typ = top_reg) and
MatchOperand(taicpu(hp1).oper[1]^,taicpu(p).oper[1]^) then MatchOperand(taicpu(hp1).oper[0]^,taicpu(p).oper[1]^) then
begin begin
taicpu(p).loadConst(0,taicpu(p).oper[0]^.val+1); taicpu(p).loadConst(0,taicpu(p).oper[0]^.val+1);
asml.remove(hp1); asml.remove(hp1);