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

* throw an internal error if the reference of lea contains a segment register

Browse Source
This commit is contained in:
florian 2022-02-20 20:58:01 +01:00
parent 3a81f5c732
commit 1cd8c249b1
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/aoptx86.pas
View File

@ -4892,9 +4892,12 @@ unit aoptx86;
Multiple: TCGInt;
begin
Result:=false;
{ removes seg register prefixes from LEA operations, as they
don't do anything}
taicpu(p).oper[0]^.ref^.Segment:=NR_NO;
{ play save and throw an error if LEA uses a seg register prefix,
this is most likely an error somewhere else }
if taicpu(p).oper[0]^.ref^.Segment<>NR_NO then
internalerror(2022022001);
{ changes "lea (%reg1), %reg2" into "mov %reg1, %reg2" }
if (taicpu(p).oper[0]^.ref^.base <> NR_NO) and
(taicpu(p).oper[0]^.ref^.index = NR_NO) and