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

* another check for register types (should fix new failure

Browse Source 
of webtbs/tw7161)

git-svn-id: trunk@7510 -
This commit is contained in:
Jonas Maebe 2007-05-29 11:12:37 +00:00
parent e1132f8fe1
commit 60d424e97d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/i386/daopt386.pas
View File

@ -1265,6 +1265,7 @@ begin
begin begin
p := tai(p.previous); p := tai(p.previous);
if (p.typ = ait_regalloc) and if (p.typ = ait_regalloc) and
(getregtype(tai_regalloc(p).reg) = R_INTREGISTER) and
(getsupreg(tai_regalloc(p).reg) = supreg) then (getsupreg(tai_regalloc(p).reg) = supreg) then
if (tai_regalloc(p).ratype=ra_dealloc) then if (tai_regalloc(p).ratype=ra_dealloc) then
if first then if first then