fpc/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 load_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(procinfo).maxpushedparasize
        then
          TSparcProcInfo(procinfo).maxpushedparasize:=datasize;
  end;
procedure TSparcCallNode.load_framepointer;
  begin
    InternalError(2002101000);
  end;
begin
   ccallnode:=TSparcCallNode;
end.
{
  $Log$
  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
}