-
Notifications
You must be signed in to change notification settings - Fork 10
/
nvvmUtils.R
48 lines (41 loc) · 1.61 KB
/
nvvmUtils.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
fixPTXCodeForNVVM =
# This removes the attributes with the id #0
# which appear for the declared routines corresponding
# to the PTXRegister accessor intrinsics.
function(code)
{
k = strsplit(code, "\\n")[[1]]
k = grep("^attributes #0", k, invert = TRUE, value = TRUE)
k = gsub("#0$", "", k)
code = paste(k, collapse = "\n")
}
# Some of the routines we can call in our code that access the thread, block, grid
# indices and dimensions.
PTXRegisterRoutineNames =
c(blockIdx = "llvm.nvvm.read.ptx.sreg.ctaid",
blockDim = "llvm.nvvm.read.ptx.sreg.ntid",
threadIdx = "llvm.nvvm.read.ptx.sreg.tid",
gridDim = "llvm.ptx.read.nctaid")
PTXRegisterRoutineNames =
structure(as(t(outer(PTXRegisterRoutineNames, c("x", "y", "z"), paste, sep = ".")), "character"),
names = t(outer(names(PTXRegisterRoutineNames), c("x", "y", "z"), paste, sep = ".")))
PTXRegisterRoutines = NULL
DefaultLayout =
"e-p:64:64:64-i1:8:8-i8:8:8-i16:16:16-i32:32:32-i64:64:64-f32:32:32-f64:64:64-v16:16:16-v32:32:32-v64:64:64-v128:128:128-n16:32:64"
ModuleForNVVM =
function (id = Sys.time(), context = NULL, registerFuns = PTXRegisterRoutineNames,
layout = DefaultLayout)
{
m = Module(id, context)
setDataLayout(m, layout)
registerPTXRoutines(m, registerFuns)
m
}
registerPTXRoutines =
function(module, dimFunNames = PTXRegisterRoutineNames)
{
PTXRegisterRoutines <<- structure(lapply(dimFunNames,
function(id) {
Function(id, Int32Type, module = module)
}), names = dimFunNames)
}