{ $Id$ Copyright (c) 2002 by Florian Klaempfl Implements the PowerPC specific part of 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 bymethodpointer 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 nppccal; {$i fpcdefs.inc} interface uses symdef,node,ncal,ncgcal; type tppccallnode = class(tcgcallnode) procedure load_framepointer;override; end; implementation uses globtype,systems, cutils,verbose,globals, symconst,symbase,symsym,symtable,defbase,paramgr, {$ifdef GDB} {$ifdef delphi} sysutils, {$else} strings, {$endif} gdb, {$endif GDB} cginfo,cgbase,pass_2, cpuinfo,cpubase,aasmbase,aasmtai,aasmcpu, nmem,nld,ncnv, ncgutil,cgobj,tgobj,regvars,rgobj,rgcpu,cg64f32,cgcpu; procedure tppccallnode.load_framepointer; begin { if we call a nested function in a method, we must } { push also SELF! } { THAT'S NOT TRUE, we have to load ESI via frame pointer } { access } { begin loadesi:=false; emit_reg(A_PUSH,S_L,R_ESI); end; } { if lexlevel=(tprocdef(procdefinition).parast.symtablelevel) then begin reference_reset_base(href,procinfo^.framepointer,procinfo^.framepointer_offset); cg.a_param_ref(exprasmlist,OS_ADDR,href,-1); end { this is only true if the difference is one !! but it cannot be more !! } else if (lexlevel=(tprocdef(procdefinition).parast.symtablelevel)-1) then begin cg.a_param_reg(exprasmlist,OS_ADDR,procinfo^.framepointer,-1); end else if (lexlevel>(tprocdef(procdefinition).parast.symtablelevel)) then begin hregister:=rg.getregisterint(exprasmlist); reference_reset_base(href,procinfo^.framepointer,procinfo^.framepointer_offset); cg.a_load_ref_reg(exprasmlist,OS_ADDR,href,hregister); for i:=(tprocdef(procdefinition).parast.symtablelevel) to lexlevel-1 do begin {we should get the correct frame_pointer_offset at each level how can we do this !!! } reference_reset_base(href,hregister,procinfo^.framepointer_offset); cg.a_load_ref_reg(exprasmlist,OS_ADDR,href,hregister); end; cg.a_param_reg(exprasmlist,OS_ADDR,hregister,-1); rg.ungetregisterint(exprasmlist,hregister); end else internalerror(2002081303); } end; begin ccallnode:=tppccallnode; end. { $Log$ Revision 1.1 2002-08-13 21:40:59 florian * more fixes for ppc calling conventions }