1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
{
Copyright (c) 2002 by Florian Klaempfl
Implements the ARM 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 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 narmcal;
{$i fpcdefs.inc}
interface
uses
symdef,ncal,ncgcal;
type
tarmcallnode = class(tcgcallnode)
procedure set_result_location(realresdef: tstoreddef);override;
end;
implementation
uses
verbose,globtype,globals,aasmdata,
symconst,
cgbase,cgutils,cpuinfo,
ncgutil,tgobj,
systems;
procedure tarmcallnode.set_result_location(realresdef: tstoreddef);
begin
if (realresdef.typ=floatdef) and
(target_info.abi <> abi_eabihf) and
((cs_fp_emulation in current_settings.moduleswitches) or
(current_settings.fputype in [fpu_vfpv2,fpu_vfpv3,fpu_vfpv3_d16,fpu_fpv4_s16])) then
begin
{ keep the fpu values in integer registers for now, the code
generator will move them to memory or an mmregister when necessary
(avoids double moves in case a function result is assigned to
another function result, or passed as a parameter) }
case retloc.size of
OS_32,
OS_F32:
location_allocate_register(current_asmdata.CurrAsmList,location,s32inttype,false);
OS_64,
OS_F64:
location_allocate_register(current_asmdata.CurrAsmList,location,s64inttype,false);
else
internalerror(2010053008);
end
end
else if (resultdef.typ=floatdef) and
(location.loc=LOC_REGISTER) and
(current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11]) then
begin
location_reset_ref(location,LOC_REFERENCE,location.size,resultdef.alignment);
tg.gethltemp(current_asmdata.CurrAsmList,resultdef,resultdef.size,tt_normal,location.reference);
end
else
inherited;
end;
begin
ccallnode:=tarmcallnode;
end.
|
