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_intr.h"
53 lp_declare_intrinsic(LLVMModuleRef module
,
56 LLVMTypeRef
*arg_types
,
59 LLVMTypeRef function_type
;
60 LLVMValueRef function
;
62 assert(!LLVMGetNamedFunction(module
, name
));
64 function_type
= LLVMFunctionType(ret_type
, arg_types
, num_args
, 0);
65 function
= LLVMAddFunction(module
, name
, function_type
);
67 LLVMSetFunctionCallConv(function
, LLVMCCallConv
);
68 LLVMSetLinkage(function
, LLVMExternalLinkage
);
70 assert(LLVMIsDeclaration(function
));
77 assert(LLVMGetIntrinsicID(function
));
84 lp_build_intrinsic(LLVMBuilderRef builder
,
90 LLVMModuleRef module
= LLVMGetGlobalParent(LLVMGetBasicBlockParent(LLVMGetInsertBlock(builder
)));
91 LLVMValueRef function
;
93 function
= LLVMGetNamedFunction(module
, name
);
95 LLVMTypeRef arg_types
[LP_MAX_FUNC_ARGS
];
98 assert(num_args
<= LP_MAX_FUNC_ARGS
);
100 for(i
= 0; i
< num_args
; ++i
) {
102 arg_types
[i
] = LLVMTypeOf(args
[i
]);
105 function
= lp_declare_intrinsic(module
, name
, ret_type
, arg_types
, num_args
);
108 return LLVMBuildCall(builder
, function
, args
, num_args
, "");
113 lp_build_intrinsic_unary(LLVMBuilderRef builder
,
115 LLVMTypeRef ret_type
,
118 return lp_build_intrinsic(builder
, name
, ret_type
, &a
, 1);
123 lp_build_intrinsic_binary(LLVMBuilderRef builder
,
125 LLVMTypeRef ret_type
,
129 LLVMValueRef args
[2];
134 return lp_build_intrinsic(builder
, name
, ret_type
, args
, 2);
139 lp_build_intrinsic_map(LLVMBuilderRef builder
,
141 LLVMTypeRef ret_type
,
145 LLVMTypeRef ret_elem_type
= LLVMGetElementType(ret_type
);
146 unsigned n
= LLVMGetVectorSize(ret_type
);
150 assert(num_args
<= LP_MAX_FUNC_ARGS
);
152 res
= LLVMGetUndef(ret_type
);
153 for(i
= 0; i
< n
; ++i
) {
154 LLVMValueRef index
= LLVMConstInt(LLVMInt32Type(), i
, 0);
155 LLVMValueRef arg_elems
[LP_MAX_FUNC_ARGS
];
156 LLVMValueRef res_elem
;
157 for(j
= 0; j
< num_args
; ++j
)
158 arg_elems
[j
] = LLVMBuildExtractElement(builder
, args
[j
], index
, "");
159 res_elem
= lp_build_intrinsic(builder
, name
, ret_elem_type
, arg_elems
, num_args
);
160 res
= LLVMBuildInsertElement(builder
, res
, res_elem
, index
, "");
168 lp_build_intrinsic_map_unary(LLVMBuilderRef builder
,
170 LLVMTypeRef ret_type
,
173 return lp_build_intrinsic_map(builder
, name
, ret_type
, &a
, 1);
178 lp_build_intrinsic_map_binary(LLVMBuilderRef builder
,
180 LLVMTypeRef ret_type
,
184 LLVMValueRef args
[2];
189 return lp_build_intrinsic_map(builder
, name
, ret_type
, args
, 2);