* MIPS: clean up

git-svn-id: trunk@26946 -

compiler/mips/ncpucall.pas

@@ -31,8 +31,6 @@ uses
 type
   tMIPSELcallnode = class(tcgcallnode)
     function  pass_1 : tnode; override;
-    procedure extra_call_code; override;
-    procedure extra_post_call_code; override;
   end;
 
 
@@ -53,24 +51,6 @@ begin
     include(current_procinfo.flags,pi_needs_got);
 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
   ccallnode := TMIPSELCallNode;