1 {
2 Copyright (c) 2020 by Jonas Maebe
3
4 Construct the cpu part of the triplet
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 tripletcpu;
23
24 {$i fpcdefs.inc}
25
26 interface
27
28 uses
29 globtype;
30
tripletcpustrnull31 function tripletcpustr(tripletstyle: ttripletstyle): ansistring;
32
33 implementation
34
35 uses
36 globals, systems, cpuinfo;
37
tripletcpustrnull38 function tripletcpustr(tripletstyle: ttripletstyle): ansistring;
39 begin
40 if target_info.system in systems_darwin then
41 result:='arm64'
42 else
43 result:='aarch64'
44 end;
45
46
47 end.
48
49