paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 21:09:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ TSubRegisterSet definition forgotten to commit in r15952

Browse Source 
* fixed compilation on non-x86 platforms after r15952

git-svn-id: trunk@15956 -
This commit is contained in:
Jonas Maebe 2010-09-09 08:48:02 +00:00
parent fbdb939c2e
commit f302fcdc98
5 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/rgcpu.pas
View File

@ -92,7 +92,7 @@ unit rgcpu;
{ load consts entry } { load consts entry }
if getregtype(tempreg)=R_INTREGISTER then if getregtype(tempreg)=R_INTREGISTER then
hreg:=getregisterinline(helplist,R_SUBWHOLE) hreg:=getregisterinline(helplist,[R_SUBWHOLE])
else else
hreg:=cg.getintregister(helplist,OS_ADDR); hreg:=cg.getintregister(helplist,OS_ADDR);
@ -138,7 +138,7 @@ unit rgcpu;
{ load consts entry } { load consts entry }
if getregtype(tempreg)=R_INTREGISTER then if getregtype(tempreg)=R_INTREGISTER then
hreg:=getregisterinline(helplist,R_SUBWHOLE) hreg:=getregisterinline(helplist,[R_SUBWHOLE])
else else
hreg:=cg.getintregister(helplist,OS_ADDR); hreg:=cg.getintregister(helplist,OS_ADDR);
tmpref.symbol:=l; tmpref.symbol:=l;
@ -224,7 +224,7 @@ unit rgcpu;
{ load consts entry } { load consts entry }
if getregtype(tempreg)=R_INTREGISTER then if getregtype(tempreg)=R_INTREGISTER then
hreg:=getregisterinline(helplist,R_SUBWHOLE) hreg:=getregisterinline(helplist,[R_SUBWHOLE])
else else
hreg:=cg.getintregister(helplist,OS_ADDR); hreg:=cg.getintregister(helplist,OS_ADDR);
@ -270,7 +270,7 @@ unit rgcpu;
{ load consts entry } { load consts entry }
if getregtype(tempreg)=R_INTREGISTER then if getregtype(tempreg)=R_INTREGISTER then
hreg:=getregisterinline(helplist,R_SUBWHOLE) hreg:=getregisterinline(helplist,[R_SUBWHOLE])
else else
hreg:=cg.getintregister(helplist,OS_ADDR); hreg:=cg.getintregister(helplist,OS_ADDR);
tmpref.symbol:=l; tmpref.symbol:=l;

1
compiler/cgbase.pas
View File

@ -168,6 +168,7 @@ interface
R_SUBMMD, { = 10; double scalar in multi media register } R_SUBMMD, { = 10; double scalar in multi media register }
R_SUBMMWHOLE { = 11; complete MM register, size depends on CPU } R_SUBMMWHOLE { = 11; complete MM register, size depends on CPU }
); );
TSubRegisterSet = set of TSubRegister;
TSuperRegister = type word; TSuperRegister = type word;

2
compiler/mips/rgcpu.pas
View File

@ -136,7 +136,7 @@ implementation
helplist:=tasmlist.create; helplist:=tasmlist.create;
if getregtype(tempreg)=R_INTREGISTER then if getregtype(tempreg)=R_INTREGISTER then
hreg:=getregisterinline(helplist,R_SUBWHOLE) hreg:=getregisterinline(helplist,[R_SUBWHOLE])
else else
hreg:=cg.getintregister(helplist,OS_ADDR); hreg:=cg.getintregister(helplist,OS_ADDR);

4
compiler/ppcgen/rgcpu.pas
View File

@ -70,7 +70,7 @@ unit rgcpu;
if getregtype(tempreg)=R_INTREGISTER then if getregtype(tempreg)=R_INTREGISTER then
begin begin
hreg:=getregisterinline(helplist,R_SUBWHOLE); hreg:=getregisterinline(helplist,[R_SUBWHOLE]);
{Done by add_cpu_interferences now. {Done by add_cpu_interferences now.
add_edge(getsupreg(hreg),RS_R0);} add_edge(getsupreg(hreg),RS_R0);}
end end
@ -121,7 +121,7 @@ unit rgcpu;
if getregtype(tempreg)=R_INTREGISTER then if getregtype(tempreg)=R_INTREGISTER then
begin begin
hreg:=getregisterinline(helplist,R_SUBWHOLE); hreg:=getregisterinline(helplist,[R_SUBWHOLE]);
{Done by add_cpu_interferences now. {Done by add_cpu_interferences now.
add_edge(getsupreg(hreg),RS_R0);} add_edge(getsupreg(hreg),RS_R0);}
end end

2
compiler/sparc/rgcpu.pas
View File

@ -135,7 +135,7 @@ implementation
helplist:=TAsmList.create; helplist:=TAsmList.create;
if getregtype(tempreg)=R_INTREGISTER then if getregtype(tempreg)=R_INTREGISTER then
hreg:=getregisterinline(helplist,R_SUBWHOLE) hreg:=getregisterinline(helplist,[R_SUBWHOLE])
else else
hreg:=cg.getintregister(helplist,OS_ADDR); hreg:=cg.getintregister(helplist,OS_ADDR);