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

* x86: Fixed attributes of the LEAVE instruction - it reads EBP.

Browse Source 
This fixes crashes with -O3s in some cases due to an incorrect peephole
  optimization.
This commit is contained in:
Yuriy Sydorov 2021-09-15 22:29:43 +03:00
parent e121a753e1
commit 4a7a113a30
5 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i386/i386prop.inc
View File

@ -169,7 +169,7 @@
(Ch: [Ch_All]),
(Ch: [Ch_Wop2, Ch_Rop1]),
(Ch: [Ch_Wop2, Ch_Rop1]),
(Ch: [Ch_RWESP, Ch_WEBP]),
(Ch: [Ch_RWESP, Ch_RWEBP]),
(Ch: [Ch_Wop2, Ch_Rop1]),
(Ch: [Ch_Wop2, Ch_Rop1]),
(Ch: []),

2
compiler/i8086/i8086prop.inc
View File

@ -169,7 +169,7 @@
(Ch: [Ch_All]),
(Ch: [Ch_Wop2, Ch_Rop1]),
(Ch: [Ch_Wop2, Ch_Rop1]),
(Ch: [Ch_RWESP, Ch_WEBP]),
(Ch: [Ch_RWESP, Ch_RWEBP]),
(Ch: [Ch_Wop2, Ch_Rop1]),
(Ch: [Ch_Wop2, Ch_Rop1]),
(Ch: []),

1
compiler/x86/aoptx86.pas
View File

@ -3229,6 +3229,7 @@ unit aoptx86;
RegLoadedWithNewValue(CurrentReg, hp2) or
not RegUsedAfterInstruction(CurrentReg, hp2, TmpUsedRegs) then
begin
RegUsedAfterInstruction(CurrentReg, hp2, TmpUsedRegs);
{ We can remove the original MOV }
DebugMsg(SPeepholeOptimization + 'Mov2Nop 3b done',p);
RemoveCurrentp(p, hp1);

2
compiler/x86/x86ins.dat
View File

@ -942,7 +942,7 @@ reg16|32,mem \320\1\xC5\110 8086,NOX86_64
reg16|32|64,mem \320\1\x8D\110 8086
[LEAVE]
(Ch_RWESP, Ch_WEBP)
(Ch_RWESP, Ch_RWEBP)
void \1\xC9 186
[LES,lesX]

2
compiler/x86_64/x8664pro.inc
View File

@ -160,7 +160,7 @@
(Ch: [Ch_Wop2, Ch_WZeroFlag]),
(Ch: [Ch_All]),
(Ch: [Ch_Wop2, Ch_Rop1]),
(Ch: [Ch_RWESP, Ch_WEBP]),
(Ch: [Ch_RWESP, Ch_RWEBP]),
(Ch: [Ch_Wop2, Ch_Rop1]),
(Ch: []),
(Ch: [Ch_Wop2, Ch_Rop1]),