* x86: Fixed bug where XMM7 wasn't used by the register allocator

compiler/i386/rgcpu.pas

@@ -57,7 +57,7 @@ implementation
       var
         supreg : tsuperregister;
       begin
-        if getsubreg(reg) in [R_SUBL,R_SUBH] then
+        if (getregtype(reg)=R_INTREGISTER) and (getsubreg(reg) in [R_SUBL,R_SUBH]) then
           begin
             { Some registers have no 8-bit subregister }
             supreg:=getsupreg(reg);

compiler/i8086/rgcpu.pas

@@ -77,7 +77,7 @@ implementation
       var
         supreg : tsuperregister;
       begin
-        if getsubreg(reg) in [R_SUBL,R_SUBH] then
+        if (getregtype(reg)=R_INTREGISTER) and (getsubreg(reg) in [R_SUBL,R_SUBH]) then
           begin
             { Some registers have no 8-bit subregister }
             supreg:=getsupreg(reg);

compiler/x86_64/rgcpu.pas

@@ -44,10 +44,13 @@ unit rgcpu;
       var
         supreg : tsuperregister;
       begin
-        supreg:=getsupreg(reg);
-        { All registers conflict with rsp/rbp }
-        add_edge(supreg,RS_RSP);
-        // add_edge(supreg,RS_RBP);
+        if (getregtype(reg)=R_INTREGISTER) then
+          begin
+            supreg:=getsupreg(reg);
+            { All registers conflict with rsp/rbp }
+            add_edge(supreg,RS_RSP);
+            // add_edge(supreg,RS_RBP);
+          end;
       end;
 
 end.