Prechádzať zdrojové kódy

* reuse more sparc code for sparc64

git-svn-id: trunk@36961 -
florian 8 rokov pred
rodič
commit
37a5716819
2 zmenil súbory, kde vykonal 6 pridanie a 6 odobranie
  1. 4 4
      compiler/pstatmnt.pas
  2. 2 2
      compiler/rgobj.pas

+ 4 - 4
compiler/pstatmnt.pas

@@ -1397,9 +1397,9 @@ implementation
     function assembler_block : tnode;
       var
         p : tnode;
-        {$if not(defined(sparc)) and not(defined(arm)) and not(defined(avr)) and not(defined(mips))}
+        {$if not(defined(sparcgen)) and not(defined(arm)) and not(defined(avr)) and not(defined(mips))}
         locals : longint;
-        {$endif}
+        {$endif not(defined(sparcgen)) and not(defined(arm)) and not(defined(avr)) and not(defined(mips))}
         srsym : tsym;
       begin
          if parse_generic then
@@ -1425,7 +1425,7 @@ implementation
          include(current_procinfo.flags,pi_is_assembler);
          p:=_asm_statement;
 
-{$if not(defined(sparc)) and not(defined(arm)) and not(defined(avr)) and not(defined(mips))}
+{$if not(defined(sparcgen)) and not(defined(arm)) and not(defined(avr)) and not(defined(mips))}
          if (po_assembler in current_procinfo.procdef.procoptions) then
            begin
              { set the framepointer to esp for assembler functions when the
@@ -1451,7 +1451,7 @@ implementation
                  current_procinfo.framepointer:=NR_STACK_POINTER_REG;
                end;
            end;
-{$endif not(defined(sparc)) and not(defined(arm)) and not(defined(avr)) not(defined(mipsel))}
+{$endif not(defined(sparcgen)) and not(defined(arm)) and not(defined(avr)) not(defined(mipsel))}
 
         { Flag the result as assigned when it is returned in a
           register.

+ 2 - 2
compiler/rgobj.pas

@@ -2410,7 +2410,7 @@ unit rgobj;
         if not spilled then
           exit;
 
-{$if defined(x86) or defined(mips) or defined(sparc) or defined(arm) or defined(m68k)}
+{$if defined(x86) or defined(mips) or defined(sparcgen) or defined(arm) or defined(m68k)}
         { Try replacing the register with the spilltemp. This is useful only
           for the i386,x86_64 that support memory locations for several instructions
 
@@ -2425,7 +2425,7 @@ unit rgobj;
                     mustbespilled:=false;
                 end;
             end;
-{$endif defined(x86) or defined(mips) or defined(sparc) or defined(arm) or defined(m68k)}
+{$endif defined(x86) or defined(mips) or defined(sparcgen) or defined(arm) or defined(m68k)}
 
         {
           There are registers that need are spilled. We generate the