paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* MIPS: clean up

Browse Source 
git-svn-id: trunk@26946 -
This commit is contained in:
sergei 2014-03-04 08:42:45 +00:00
parent 98606eea15
commit 87684e1cf1
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/mips/ncpucall.pas
View File

@ -31,8 +31,6 @@ uses
type type
tMIPSELcallnode = class(tcgcallnode) tMIPSELcallnode = class(tcgcallnode)
function pass_1 : tnode; override; function pass_1 : tnode; override;
procedure extra_call_code; override;
procedure extra_post_call_code; override;
end; end;
@ -53,24 +51,6 @@ begin
include(current_procinfo.flags,pi_needs_got); include(current_procinfo.flags,pi_needs_got);
end; end;
procedure tMIPSELcallnode.extra_call_code;
begin
{ MIPS functions should never modify the stack pointer
after the prologue.
Enough space must be allocated inside the prologue, not after. }
// if pushedparasize > 0 then
// current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_const(A_ADDIU, NR_STACK_POINTER_REG, NR_STACK_POINTER_REG, -pushedparasize));
end;
procedure tMIPSELcallnode.extra_post_call_code;
begin
{ MIPS functions should never modify the stack pointer
after the prologue.
Enough space must be allocated inside the prologue, not after. }
// if pushedparasize > 0 then
// current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_const(A_ADDIU, NR_STACK_POINTER_REG, NR_STACK_POINTER_REG, pushedparasize));
end;
begin begin
ccallnode := TMIPSELCallNode; ccallnode := TMIPSELCallNode;