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

* refactored tx86intreader.AddReferences to use a pair of case statements,

Browse Source 
depending on the combination of operand types; this is done, so that adding
  OPR_LOCAL with OPR_REFERENCE operands can be supported later.

git-svn-id: trunk@38443 -
This commit is contained in:
nickysn 2018-03-07 16:43:39 +00:00
parent 0f6a88b0c7
commit d3cb61b651
1 changed files with 37 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/x86/rax86int.pas
View File

@ -828,8 +828,12 @@ Unit Rax86int;
end; end;
begin begin
if (dest.opr.typ<>OPR_REFERENCE) or (src.opr.typ<>OPR_REFERENCE) then case dest.opr.typ of
internalerror(2018022601); OPR_REFERENCE:
begin
case src.opr.typ of
OPR_REFERENCE:
begin
AddRegister(src.opr.ref.base,1); AddRegister(src.opr.ref.base,1);
AddRegister(src.opr.ref.index,src.opr.ref.scalefactor); AddRegister(src.opr.ref.index,src.opr.ref.scalefactor);
if src.opr.ref.segment<>NR_NO then if src.opr.ref.segment<>NR_NO then
@ -854,6 +858,14 @@ Unit Rax86int;
if dest.opr.ref.refaddr=addr_no then if dest.opr.ref.refaddr=addr_no then
dest.opr.ref.refaddr:=src.opr.ref.refaddr; dest.opr.ref.refaddr:=src.opr.ref.refaddr;
end; end;
else
internalerror(2018030701);
end;
end;
else
internalerror(2018030702);
end;
end;
procedure tx86intreader.SetSegmentOverride(oper:tx86operand;seg:tregister); procedure tx86intreader.SetSegmentOverride(oper:tx86operand;seg:tregister);