paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reuse more sparc code for sparc64

Browse Source 
git-svn-id: trunk@36961 -
This commit is contained in:
florian 2017-08-20 17:20:43 +00:00
parent 7f72c780d8
commit 37a5716819
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pstatmnt.pas
View File

@ -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.

4
compiler/rgobj.pas
View File

@ -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