1 {
2 Copyright (c) 1998-2009 by Florian Klaempfl and David Zhang
3
4 Generate MIPSEL assembler for in call nodes
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19
20 ****************************************************************************
21 }
22 unit ncpucall;
23
24 {$i fpcdefs.inc}
25
26 interface
27
28 uses
29 node, ncgcal;
30
31 type
32 tMIPSELcallnode = class(tcgcallnode)
pass_1null33 function pass_1 : tnode; override;
34 end;
35
36
37 implementation
38
39 uses
40 globtype,cpubase,procinfo,
41 symconst,
42 aasmtai,aasmcpu,aasmdata,
43 paramgr,
44 ncal;
45
TMIPSELcallnode.pass_1null46 function TMIPSELcallnode.pass_1 : tnode;
47 begin
48 pass_1 := inherited pass_1;
49 if assigned(current_procinfo) and
50 assigned(procdefinition) and
51 (procdefinition.proccalloption in cdecl_pocalls) then
52 include(current_procinfo.flags,pi_needs_got);
53 end;
54
55
56 begin
57 ccallnode := TMIPSELCallNode;
58 end.
59