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

* check register type also for registers in references so we are

Browse Source 
not mixing addressregisters and intregisters on m68k

git-svn-id: trunk@9128 -
This commit is contained in:
peter 2007-11-04 14:24:36 +00:00
parent 14f958682c
commit 263b7abc6f
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/rgobj.pas
View File

@ -1657,9 +1657,11 @@ unit rgobj;
if regtype in [R_INTREGISTER,R_ADDRESSREGISTER] then if regtype in [R_INTREGISTER,R_ADDRESSREGISTER] then
with ref^ do with ref^ do
begin begin
if base<>NR_NO then if (base<>NR_NO) and
(getregtype(base)=regtype) then
setsupreg(base,reginfo[getsupreg(base)].colour); setsupreg(base,reginfo[getsupreg(base)].colour);
if index<>NR_NO then if (index<>NR_NO) and
(getregtype(index)=regtype) then
setsupreg(index,reginfo[getsupreg(index)].colour); setsupreg(index,reginfo[getsupreg(index)].colour);
end; end;
end; end;
@ -1669,7 +1671,8 @@ unit rgobj;
if regtype=R_INTREGISTER then if regtype=R_INTREGISTER then
begin begin
so:=shifterop; so:=shifterop;
if so^.rs<>NR_NO then if (so^.rs<>NR_NO) and
(getregtype(so^.rs)=regtype) then
setsupreg(so^.rs,reginfo[getsupreg(so^.rs)].colour); setsupreg(so^.rs,reginfo[getsupreg(so^.rs)].colour);
end; end;
end; end;