fpc/compiler/sparc/ncpucall.pas
peter b7fe6797bf Merged revisions 2921-2922,2925 via svnmerge from
http://svn.freepascal.org/svn/fpc/branches/linker/compiler

........
r2921 | peter | 2006-03-15 08:35:00 +0100 (Wed, 15 Mar 2006) | 2 lines

  * pass ObjectWriter to ObjectOuput

........
r2922 | peter | 2006-03-15 12:40:30 +0100 (Wed, 15 Mar 2006) | 2 lines

  * refactor asmdata

........
r2925 | peter | 2006-03-15 16:09:39 +0100 (Wed, 15 Mar 2006) | 3 lines

  * add cfi to asmdata
  * move asmlist, asmcfi, asmdata to own unit

........

git-svn-id: trunk@2932 -
2006-03-16 08:52:22 +00:00

57 lines
1.5 KiB
ObjectPascal

{
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;
{$i fpcdefs.inc}
interface
uses
ncgcal;
type
tsparccallnode = class(tcgcallnode)
procedure extra_post_call_code;override;
end;
implementation
uses
cpubase,
aasmtai,aasmdata,
aasmcpu,
paramgr,
ncal;
procedure tsparccallnode.extra_post_call_code;
begin
if paramanager.ret_in_param(procdefinition.rettype.def,procdefinition.proccalloption) then
current_asmdata.CurrAsmList.concat(taicpu.op_const(A_UNIMP,procdefinition.rettype.def.size and $fff));
end;
begin
ccallnode:=TSparcCallNode;
end.