src/amd/common/ac_llvm_util.c

   1 /*
   2  * Copyright 2014 Advanced Micro Devices, Inc.
   3  *
   4  * Permission is hereby granted, free of charge, to any person obtaining a
   5  * copy of this software and associated documentation files (the
   6  * "Software"), to deal in the Software without restriction, including
   7  * without limitation the rights to use, copy, modify, merge, publish,
   8  * distribute, sub license, and/or sell copies of the Software, and to
   9  * permit persons to whom the Software is furnished to do so, subject to
  10  * the following conditions:
  11  *
  12  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  13  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  14  * FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT. IN NO EVENT SHALL
  15  * THE COPYRIGHT HOLDERS, AUTHORS AND/OR ITS SUPPLIERS BE LIABLE FOR ANY CLAIM,
  16  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
  17  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE
  18  * USE OR OTHER DEALINGS IN THE SOFTWARE.
  19  *
  20  * The above copyright notice and this permission notice (including the
  21  * next paragraph) shall be included in all copies or substantial portions
  22  * of the Software.
  23  *
  24  */
  25 /* based on pieces from si_pipe.c and radeon_llvm_emit.c */
  26 #include "ac_llvm_util.h"
  27 #include "util/bitscan.h"
  28 #include <llvm-c/Core.h>
  29 #include <llvm-c/Support.h>
  30 #include "c11/threads.h"
  31
  32 #include <assert.h>
  33 #include <stdio.h>
  34 #include <string.h>
  35
  36 static void ac_init_llvm_target()
  37 {
  38         LLVMInitializeAMDGPUTargetInfo();
  39         LLVMInitializeAMDGPUTarget();
  40         LLVMInitializeAMDGPUTargetMC();
  41         LLVMInitializeAMDGPUAsmPrinter();
  42
  43         /* For inline assembly. */
  44         LLVMInitializeAMDGPUAsmParser();
  45
  46         /* Workaround for bug in llvm 4.0 that causes image intrinsics
  47          * to disappear.
  48          * https://reviews.llvm.org/D26348
  49          */
  50         if (HAVE_LLVM >= 0x0400) {
  51                 /* "mesa" is the prefix for error messages */
  52                 const char *argv[2] = { "mesa", "-simplifycfg-sink-common=false" };
  53                 LLVMParseCommandLineOptions(2, argv, NULL);
  54         }
  55 }
  56
  57 static once_flag ac_init_llvm_target_once_flag = ONCE_FLAG_INIT;
  58
  59 LLVMTargetRef ac_get_llvm_target(const char *triple)
  60 {
  61         LLVMTargetRef target = NULL;
  62         char *err_message = NULL;
  63
  64         call_once(&ac_init_llvm_target_once_flag, ac_init_llvm_target);
  65
  66         if (LLVMGetTargetFromTriple(triple, &target, &err_message)) {
  67                 fprintf(stderr, "Cannot find target for triple %s ", triple);
  68                 if (err_message) {
  69                         fprintf(stderr, "%s\n", err_message);
  70                 }
  71                 LLVMDisposeMessage(err_message);
  72                 return NULL;
  73         }
  74         return target;
  75 }
  76
  77 static const char *ac_get_llvm_processor_name(enum radeon_family family)
  78 {
  79         switch (family) {
  80         case CHIP_TAHITI:
  81                 return "tahiti";
  82         case CHIP_PITCAIRN:
  83                 return "pitcairn";
  84         case CHIP_VERDE:
  85                 return "verde";
  86         case CHIP_OLAND:
  87                 return "oland";
  88         case CHIP_HAINAN:
  89                 return "hainan";
  90         case CHIP_BONAIRE:
  91                 return "bonaire";
  92         case CHIP_KABINI:
  93                 return "kabini";
  94         case CHIP_KAVERI:
  95                 return "kaveri";
  96         case CHIP_HAWAII:
  97                 return "hawaii";
  98         case CHIP_MULLINS:
  99                 return "mullins";
 100         case CHIP_TONGA:
 101                 return "tonga";
 102         case CHIP_ICELAND:
 103                 return "iceland";
 104         case CHIP_CARRIZO:
 105                 return "carrizo";
 106         case CHIP_FIJI:
 107                 return "fiji";
 108         case CHIP_STONEY:
 109                 return "stoney";
 110         case CHIP_POLARIS10:
 111                 return "polaris10";
 112         case CHIP_POLARIS11:
 113         case CHIP_POLARIS12:
 114                 return "polaris11";
 115         case CHIP_VEGA10:
 116         case CHIP_RAVEN:
 117                 return "gfx900";
 118         default:
 119                 return "";
 120         }
 121 }
 122
 123 LLVMTargetMachineRef ac_create_target_machine(enum radeon_family family, enum ac_target_machine_options tm_options)
 124 {
 125         assert(family >= CHIP_TAHITI);
 126         char features[256];
 127         const char *triple = (tm_options & AC_TM_SUPPORTS_SPILL) ? "amdgcn-mesa-mesa3d" : "amdgcn--";
 128         LLVMTargetRef target = ac_get_llvm_target(triple);
 129
 130         snprintf(features, sizeof(features),
 131                  "+DumpCode,+vgpr-spilling,-fp32-denormals%s",
 132                  tm_options & AC_TM_SISCHED ? ",+si-scheduler" : "");
 133
 134         LLVMTargetMachineRef tm = LLVMCreateTargetMachine(
 135                                      target,
 136                                      triple,
 137                                      ac_get_llvm_processor_name(family),
 138                                      features,
 139                                      LLVMCodeGenLevelDefault,
 140                                      LLVMRelocDefault,
 141                                      LLVMCodeModelDefault);
 142
 143         return tm;
 144 }
 145
 146
 147 #if HAVE_LLVM < 0x0400
 148 static LLVMAttribute ac_attr_to_llvm_attr(enum ac_func_attr attr)
 149 {
 150    switch (attr) {
 151    case AC_FUNC_ATTR_ALWAYSINLINE: return LLVMAlwaysInlineAttribute;
 152    case AC_FUNC_ATTR_BYVAL: return LLVMByValAttribute;
 153    case AC_FUNC_ATTR_INREG: return LLVMInRegAttribute;
 154    case AC_FUNC_ATTR_NOALIAS: return LLVMNoAliasAttribute;
 155    case AC_FUNC_ATTR_NOUNWIND: return LLVMNoUnwindAttribute;
 156    case AC_FUNC_ATTR_READNONE: return LLVMReadNoneAttribute;
 157    case AC_FUNC_ATTR_READONLY: return LLVMReadOnlyAttribute;
 158    default:
 159            fprintf(stderr, "Unhandled function attribute: %x\n", attr);
 160            return 0;
 161    }
 162 }
 163
 164 #else
 165
 166 static const char *attr_to_str(enum ac_func_attr attr)
 167 {
 168    switch (attr) {
 169    case AC_FUNC_ATTR_ALWAYSINLINE: return "alwaysinline";
 170    case AC_FUNC_ATTR_BYVAL: return "byval";
 171    case AC_FUNC_ATTR_INREG: return "inreg";
 172    case AC_FUNC_ATTR_NOALIAS: return "noalias";
 173    case AC_FUNC_ATTR_NOUNWIND: return "nounwind";
 174    case AC_FUNC_ATTR_READNONE: return "readnone";
 175    case AC_FUNC_ATTR_READONLY: return "readonly";
 176    case AC_FUNC_ATTR_WRITEONLY: return "writeonly";
 177    case AC_FUNC_ATTR_INACCESSIBLE_MEM_ONLY: return "inaccessiblememonly";
 178    case AC_FUNC_ATTR_CONVERGENT: return "convergent";
 179    default:
 180            fprintf(stderr, "Unhandled function attribute: %x\n", attr);
 181            return 0;
 182    }
 183 }
 184
 185 #endif
 186
 187 void
 188 ac_add_function_attr(LLVMContextRef ctx, LLVMValueRef function,
 189                      int attr_idx, enum ac_func_attr attr)
 190 {
 191 #if HAVE_LLVM < 0x0400
 192    LLVMAttribute llvm_attr = ac_attr_to_llvm_attr(attr);
 193    if (attr_idx == -1) {
 194       LLVMAddFunctionAttr(function, llvm_attr);
 195    } else {
 196       LLVMAddAttribute(LLVMGetParam(function, attr_idx - 1), llvm_attr);
 197    }
 198 #else
 199    const char *attr_name = attr_to_str(attr);
 200    unsigned kind_id = LLVMGetEnumAttributeKindForName(attr_name,
 201                                                       strlen(attr_name));
 202    LLVMAttributeRef llvm_attr = LLVMCreateEnumAttribute(ctx, kind_id, 0);
 203
 204    if (LLVMIsAFunction(function))
 205       LLVMAddAttributeAtIndex(function, attr_idx, llvm_attr);
 206    else
 207       LLVMAddCallSiteAttribute(function, attr_idx, llvm_attr);
 208 #endif
 209 }
 210
 211 void ac_add_func_attributes(LLVMContextRef ctx, LLVMValueRef function,
 212                             unsigned attrib_mask)
 213 {
 214         attrib_mask |= AC_FUNC_ATTR_NOUNWIND;
 215         attrib_mask &= ~AC_FUNC_ATTR_LEGACY;
 216
 217         while (attrib_mask) {
 218                 enum ac_func_attr attr = 1u << u_bit_scan(&attrib_mask);
 219                 ac_add_function_attr(ctx, function, -1, attr);
 220         }
 221 }
 222
 223 void
 224 ac_dump_module(LLVMModuleRef module)
 225 {
 226         char *str = LLVMPrintModuleToString(module);
 227         fprintf(stderr, "%s", str);
 228         LLVMDisposeMessage(str);
 229 }
 230
 231 void
 232 ac_llvm_add_target_dep_function_attr(LLVMValueRef F,
 233                                      const char *name, int value)
 234 {
 235         char str[16];
 236
 237         snprintf(str, sizeof(str), "%i", value);
 238         LLVMAddTargetDependentFunctionAttr(F, name, str);
 239 }