Sfoglia il codice sorgente

* integer registers must have the size R_SUBWHOLE for sparc, resolves issue #32065

git-svn-id: trunk@36639 -
florian 8 anni fa
parent
commit
57a137068b
2 ha cambiato i file con 2 aggiunte e 2 eliminazioni
  1. 1 1
      compiler/sparcgen/cgsparc.pas
  2. 1 1
      compiler/sparcgen/itcpugas.pas

+ 1 - 1
compiler/sparcgen/cgsparc.pas

@@ -284,7 +284,7 @@ implementation
       begin
       begin
         inherited init_register_allocators;
         inherited init_register_allocators;
 
 
-        rg[R_INTREGISTER]:=Trgcpu.create(R_INTREGISTER,R_SUBD,
+        rg[R_INTREGISTER]:=Trgcpu.create(R_INTREGISTER,R_SUBWHOLE,
             [RS_O0,RS_O1,RS_O2,RS_O3,RS_O4,RS_O5,RS_O7,
             [RS_O0,RS_O1,RS_O2,RS_O3,RS_O4,RS_O5,RS_O7,
              RS_L0,RS_L1,RS_L2,RS_L3,RS_L4,RS_L5,RS_L6,RS_L7,
              RS_L0,RS_L1,RS_L2,RS_L3,RS_L4,RS_L5,RS_L6,RS_L7,
              RS_I0,RS_I1,RS_I2,RS_I3,RS_I4,RS_I5],
              RS_I0,RS_I1,RS_I2,RS_I3,RS_I4,RS_I5],

+ 1 - 1
compiler/sparcgen/itcpugas.pas

@@ -95,7 +95,7 @@ implementation
           R_SUBFD:
           R_SUBFD:
             setsubreg(hr,R_SUBFS);
             setsubreg(hr,R_SUBFS);
           R_SUBL,R_SUBW,R_SUBD,R_SUBQ:
           R_SUBL,R_SUBW,R_SUBD,R_SUBQ:
-            setsubreg(hr,R_SUBD);
+            setsubreg(hr,R_SUBWHOLE);
         end;
         end;
         p:=findreg_by_number(hr);
         p:=findreg_by_number(hr);
         if p<>0 then
         if p<>0 then