+ TSubRegisterSet definition forgotten to commit in r15952

  * fixed compilation on non-x86 platforms after r15952

git-svn-id: trunk@15956 -

compiler/arm/rgcpu.pas

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

compiler/cgbase.pas

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

compiler/mips/rgcpu.pas

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

compiler/ppcgen/rgcpu.pas

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

compiler/sparc/rgcpu.pas

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