1 /* Subroutines for the D front end on the IBM S/390 and zSeries architectures. 2 Copyright (C) 2017-2020 Free Software Foundation, Inc. 3 4 GCC is free software; you can redistribute it and/or modify 5 it under the terms of the GNU General Public License as published by 6 the Free Software Foundation; either version 3, or (at your option) 7 any later version. 8 9 GCC is distributed in the hope that it will be useful, 10 but WITHOUT ANY WARRANTY; without even the implied warranty of 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 GNU General Public License for more details. 13 14 You should have received a copy of the GNU General Public License 15 along with GCC; see the file COPYING3. If not see 16 <http://www.gnu.org/licenses/>. */ 17 18 #include "config.h" 19 #include "system.h" 20 #include "coretypes.h" 21 #include "tm.h" 22 #include "d/d-target.h" 23 #include "d/d-target-def.h" 24 25 /* Implement TARGET_D_CPU_VERSIONS for S/390 and zSeries targets. */ 26 27 void s390_d_target_versions(void)28s390_d_target_versions (void) 29 { 30 if (TARGET_ZARCH) 31 d_add_builtin_version ("SystemZ"); 32 else if (TARGET_64BIT) 33 d_add_builtin_version ("S390X"); 34 else 35 d_add_builtin_version ("S390"); 36 37 if (TARGET_SOFT_FLOAT) 38 d_add_builtin_version ("D_SoftFloat"); 39 else if (TARGET_HARD_FLOAT) 40 d_add_builtin_version ("D_HardFloat"); 41 } 42