freepascal.compiler/compiler/sparc/ncpucall.pas

{******************************************************************************
    $Id$
    Copyright (c) 1998-2002 by Florian Klaempfl

    Generate SPARC assembler for in call nodes

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

 ****************************************************************************}
unit ncpucall;
{$INCLUDE fpcdefs.inc}
interface
uses
  symdef,node,ncal,ncgcal;
type
  TSparcCallNode=class(TCgCallNode)
    function pass_1:TNode;override;
{Under SPARC, the frame pointer is automatically set by the SAVE instruction
which is part of the stardrad calling mechanism. This function will do nothing.
the frame pointer register is the stack pointer register of the caller, and is
set when generating function prologue in cgcpu.tcgSPARC.g_stackframe_entry}
    procedure push_framepointer;override;
  end;
implementation
uses
  systems,
  cutils,verbose,
  paramgr,
  cgbase,
  nmem,nld,ncnv,
  cgobj,tgobj,rgobj,rgcpu,cgcpu,cpupi;
function TSparcCallNode.pass_1:TNode;
  begin
    result:=inherited pass_1;
    if assigned(result)
    then
      exit;
    if ProcDefinition is TProcDef
    then
      with TProcDef(procdefinition).parast do
        if datasize>TSparcProcInfo(current_procinfo).maxpushedparasize
        then
          TSparcProcInfo(current_procinfo).maxpushedparasize:=datasize;
  end;
procedure TSparcCallNode.push_framepointer;
  begin
  end;
begin
   ccallnode:=TSparcCallNode;
end.
{
  $Log$
  Revision 1.11  2003-04-28 09:49:58  mazen
  - InternalError removed from TSparcCallNode.push_framepointer as it is called by common coplier code.

  Revision 1.10  2003/04/27 11:21:36  peter
    * aktprocdef renamed to current_procdef
    * procinfo renamed to current_procinfo
    * procinfo will now be stored in current_module so it can be
      cleaned up properly
    * gen_main_procsym changed to create_main_proc and release_main_proc
      to also generate a tprocinfo structure
    * fixed unit implicit initfinal

  Revision 1.9  2003/04/04 15:38:56  peter
    * moved generic code from n386cal to ncgcal, i386 now also
      uses the generic ncgcal

  Revision 1.8  2003/02/05 22:44:55  mazen
  * making UNIT lower case.

  Revision 1.7  2003/02/04 21:50:54  mazen
  * fixing internal errors related to notn when compiling RTL

  Revision 1.6  2003/01/22 22:30:03  mazen
  - internal errors rmoved from a_loar_reg_reg when reg sizes differs from 32

  Revision 1.5  2002/11/14 21:42:08  mazen
  * fixing return value variable address

  Revision 1.4  2002/10/10 19:57:52  mazen
  * Just to update repsitory

  Revision 1.3  2002/09/30 19:12:14  mazen
  * function prologue fixed

  Revision 1.2  2002/08/30 13:16:23  mazen
  *call parameter handling is now based on the new param manager

  Revision 1.2  2002/08/17 09:23:49  florian
    * first part of procinfo rewrite

  Revision 1.1  2002/08/13 21:40:59  florian
    * more fixes for ppc calling conventions
}