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

* r/esp cannot be used as index register

Browse Source 
git-svn-id: trunk@49567 -
This commit is contained in:
florian 2021-06-27 20:51:03 +00:00
parent 872ff19622
commit ba1b0883c2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/aoptx86.pas
View File

@ -8418,7 +8418,9 @@ unit aoptx86;
(
(
(taicpu(hp1).oper[0]^.ref^.base = taicpu(p).oper[1]^.reg) and
(taicpu(hp1).oper[0]^.ref^.index = NR_NO)
(taicpu(hp1).oper[0]^.ref^.index = NR_NO) and
{ r/esp cannot be an index }
(taicpu(p).oper[0]^.reg<>NR_STACK_POINTER_REG)
) or (
(taicpu(hp1).oper[0]^.ref^.index = taicpu(p).oper[1]^.reg) and
(taicpu(hp1).oper[0]^.ref^.base = NR_NO)