1 /**************************************************************************
3 * Copyright 2009 VMware, Inc.
6 * Permission is hereby granted, free of charge, to any person obtaining a
7 * copy of this software and associated documentation files (the
8 * "Software"), to deal in the Software without restriction, including
9 * without limitation the rights to use, copy, modify, merge, publish,
10 * distribute, sub license, and/or sell copies of the Software, and to
11 * permit persons to whom the Software is furnished to do so, subject to
12 * the following conditions:
14 * The above copyright notice and this permission notice (including the
15 * next paragraph) shall be included in all copies or substantial portions
18 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
19 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
21 * IN NO EVENT SHALL VMWARE AND/OR ITS SUPPLIERS BE LIABLE FOR
22 * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
23 * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
24 * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
26 **************************************************************************/
31 * Helpers for emiting intrinsic calls.
33 * LLVM vanilla IR doesn't represent all basic arithmetic operations we care
34 * about, and it is often necessary to resort target-specific intrinsics for
35 * performance, convenience.
37 * Ideally we would like to stay away from target specific intrinsics and
38 * move all the instruction selection logic into upstream LLVM where it belongs.
40 * These functions are also used for calling C functions provided by us from
41 * generated LLVM code.
43 * @author Jose Fonseca <jfonseca@vmware.com>
47 #include "util/u_debug.h"
49 #include "lp_bld_const.h"
50 #include "lp_bld_intr.h"
54 lp_declare_intrinsic(LLVMModuleRef module,
57 LLVMTypeRef *arg_types,
60 LLVMTypeRef function_type;
61 LLVMValueRef function;
63 assert(!LLVMGetNamedFunction(module, name));
65 function_type = LLVMFunctionType(ret_type, arg_types, num_args, 0);
66 function = LLVMAddFunction(module, name, function_type);
68 LLVMSetFunctionCallConv(function, LLVMCCallConv);
69 LLVMSetLinkage(function, LLVMExternalLinkage);
71 assert(LLVMIsDeclaration(function));
78 assert(LLVMGetIntrinsicID(function));
85 lp_build_intrinsic(LLVMBuilderRef builder,
91 LLVMModuleRef module = LLVMGetGlobalParent(LLVMGetBasicBlockParent(LLVMGetInsertBlock(builder)));
92 LLVMValueRef function;
94 function = LLVMGetNamedFunction(module, name);
96 LLVMTypeRef arg_types[LP_MAX_FUNC_ARGS];
99 assert(num_args <= LP_MAX_FUNC_ARGS);
101 for(i = 0; i < num_args; ++i) {
103 arg_types[i] = LLVMTypeOf(args[i]);
106 function = lp_declare_intrinsic(module, name, ret_type, arg_types, num_args);
109 return LLVMBuildCall(builder, function, args, num_args, "");
114 lp_build_intrinsic_unary(LLVMBuilderRef builder,
116 LLVMTypeRef ret_type,
119 return lp_build_intrinsic(builder, name, ret_type, &a, 1);
124 lp_build_intrinsic_binary(LLVMBuilderRef builder,
126 LLVMTypeRef ret_type,
130 LLVMValueRef args[2];
135 return lp_build_intrinsic(builder, name, ret_type, args, 2);
140 lp_build_intrinsic_map(struct gallivm_state *gallivm,
142 LLVMTypeRef ret_type,
146 LLVMBuilderRef builder = gallivm->builder;
147 LLVMTypeRef ret_elem_type = LLVMGetElementType(ret_type);
148 unsigned n = LLVMGetVectorSize(ret_type);
152 assert(num_args <= LP_MAX_FUNC_ARGS);
154 res = LLVMGetUndef(ret_type);
155 for(i = 0; i < n; ++i) {
156 LLVMValueRef index = lp_build_const_int32(gallivm, i);
157 LLVMValueRef arg_elems[LP_MAX_FUNC_ARGS];
158 LLVMValueRef res_elem;
159 for(j = 0; j < num_args; ++j)
160 arg_elems[j] = LLVMBuildExtractElement(builder, args[j], index, "");
161 res_elem = lp_build_intrinsic(builder, name, ret_elem_type, arg_elems, num_args);
162 res = LLVMBuildInsertElement(builder, res, res_elem, index, "");
170 lp_build_intrinsic_map_unary(struct gallivm_state *gallivm,
172 LLVMTypeRef ret_type,
175 return lp_build_intrinsic_map(gallivm, name, ret_type, &a, 1);
180 lp_build_intrinsic_map_binary(struct gallivm_state *gallivm,
182 LLVMTypeRef ret_type,
186 LLVMValueRef args[2];
191 return lp_build_intrinsic_map(gallivm, name, ret_type, args, 2);