forked from JuliaGPU/GPUCompiler.jl
/
metal.jl
837 lines (715 loc) · 33.9 KB
/
metal.jl
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
# implementation of the GPUCompiler interfaces for generating Metal code
const Metal_LLVM_Tools_jll = LazyModule("Metal_LLVM_Tools_jll", UUID("0418c028-ff8c-56b8-a53e-0f9676ed36fc"))
## target
export MetalCompilerTarget
Base.@kwdef struct MetalCompilerTarget <: AbstractCompilerTarget
macos::VersionNumber
end
function Base.hash(target::MetalCompilerTarget, h::UInt)
hash(target.macos, h)
end
source_code(target::MetalCompilerTarget) = "text"
# Metal is not supported by our LLVM builds, so we can't get a target machine
llvm_machine(::MetalCompilerTarget) = nothing
llvm_triple(target::MetalCompilerTarget) = "air64-apple-macosx$(target.macos)"
llvm_datalayout(target::MetalCompilerTarget) =
"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-v24:32:32-v32:32:32-v48:64:64-v64:64:64-v96:128:128-v128:128:128-v192:256:256-v256:256:256-v512:512:512-v1024:1024:1024"*
"-n8:16:32"
needs_byval(job::CompilerJob{MetalCompilerTarget}) = false
## job
# TODO: encode debug build or not in the compiler job
# https://github.com/JuliaGPU/CUDAnative.jl/issues/368
runtime_slug(job::CompilerJob{MetalCompilerTarget}) = "metal-macos$(job.target.macos)"
isintrinsic(@nospecialize(job::CompilerJob{MetalCompilerTarget}), fn::String) =
return startswith(fn, "air.")
const LLVMMETALFUNCCallConv = LLVM.API.LLVMCallConv(102)
const LLVMMETALKERNELCallConv = LLVM.API.LLVMCallConv(103)
const metal_struct_names = [:MtlDeviceArray, :MtlDeviceMatrix, :MtlDeviceVector]
# Initial mapping of types - There has to be a better way
const jl_type_to_c = Dict(
Float32 => "float",
Float16 => "half",
Int64 => "long",
UInt64 => "ulong",
Int32 => "int",
UInt32 => "uint",
Int16 => "short",
UInt16 => "ushort",
Int8 => "char",
UInt8 => "uchar",
Bool => "char" # xxx: ?
)
function process_module!(job::CompilerJob{MetalCompilerTarget}, mod::LLVM.Module)
# calling convention
for f in functions(mod)
#callconv!(f, LLVMMETALFUNCCallConv)
# XXX: this makes InstCombine erase kernel->func calls.
# do we even need this? if we do, do so in metallib-instead.
end
end
function process_entry!(job::CompilerJob{MetalCompilerTarget}, mod::LLVM.Module, entry::LLVM.Function)
entry = invoke(process_entry!, Tuple{CompilerJob, LLVM.Module, LLVM.Function}, job, mod, entry)
if job.source.kernel
# calling convention
callconv!(entry, LLVMMETALKERNELCallConv)
end
return entry
end
# TODO: why is this done in finish_module? maybe just in process_entry?
function finish_module!(@nospecialize(job::CompilerJob{MetalCompilerTarget}), mod::LLVM.Module, entry::LLVM.Function)
entry = invoke(finish_module!, Tuple{CompilerJob, LLVM.Module, LLVM.Function}, job, mod, entry)
ctx = context(mod)
entry_fn = LLVM.name(entry)
if job.source.kernel
entry = pass_by_reference!(job, mod, entry)
arguments = add_input_arguments!(job, mod, entry)
entry = LLVM.functions(mod)[entry_fn]
add_argument_metadata!(job, mod, entry, arguments)
add_module_metadata!(job, mod)
end
return functions(mod)[entry_fn]
end
function finish_ir!(@nospecialize(job::CompilerJob{MetalCompilerTarget}), mod::LLVM.Module,
entry::LLVM.Function)
entry = invoke(finish_ir!, Tuple{CompilerJob, LLVM.Module, LLVM.Function}, job, mod, entry)
ctx = context(mod)
entry_fn = LLVM.name(entry)
if job.source.kernel
add_address_spaces!(job, mod, entry)
end
return functions(mod)[entry_fn]
end
@unlocked function mcgen(job::CompilerJob{MetalCompilerTarget}, mod::LLVM.Module,
format=LLVM.API.LLVMObjectFile)
# translate to metallib
input = tempname(cleanup=false) * ".bc"
translated = tempname(cleanup=false) * ".metallib"
write(input, mod)
Metal_LLVM_Tools_jll.metallib_as() do assembler
proc = run(ignorestatus(`$assembler -o $translated $input`))
if !success(proc)
error("""Failed to translate LLVM code to MetalLib.
If you think this is a bug, please file an issue and attach $(input).""")
end
end
output = if format == LLVM.API.LLVMObjectFile
read(translated)
else
# disassemble
Metal_LLVM_Tools_jll.metallib_dis() do disassembler
read(`$disassembler -o - $translated`, String)
end
end
rm(input)
rm(translated)
return output
end
# generic pointer removal
#
# every pointer argument (e.g. byref objs) to a kernel needs an address space attached.
function add_address_spaces!(@nospecialize(job::CompilerJob), mod::LLVM.Module, f::LLVM.Function)
ctx = context(mod)
ft = eltype(llvmtype(f))
@compiler_assert return_type(ft) == LLVM.VoidType(ctx) job
function remapType(src)
# TODO: recurse in structs
dst = if src isa LLVM.PointerType && addrspace(src) == 0
LLVM.PointerType(remapType(eltype(src)), #=device=# 1)
else
src
end
# TODO: cache
return dst
end
# generate the new function type & definition
new_types = LLVMType[remapType(typ) for typ in parameters(ft)]
new_ft = LLVM.FunctionType(return_type(ft), new_types)
new_f = LLVM.Function(mod, "", new_ft)
linkage!(new_f, linkage(f))
for (arg, new_arg) in zip(parameters(f), parameters(new_f))
LLVM.name!(new_arg, LLVM.name(arg))
end
# map the parameters
value_map = Dict{LLVM.Value, LLVM.Value}(
param => new_param for (param, new_param) in zip(parameters(f), parameters(new_f))
)
value_map[f] = new_f
# before D96531 (part of LLVM 13), clone_into! wants to duplicate debug metadata
# when the functions are part of the same module. that is invalid, because it
# results in desynchronized debug intrinsics (GPUCompiler#284), so remove those.
if LLVM.version() < v"13"
removals = LLVM.Instruction[]
for bb in blocks(f), inst in instructions(bb)
if inst isa LLVM.CallInst && LLVM.name(called_value(inst)) == "llvm.dbg.declare"
push!(removals, inst)
end
end
for inst in removals
@assert isempty(uses(inst))
unsafe_delete!(LLVM.parent(inst), inst)
end
changes = LLVM.API.LLVMCloneFunctionChangeTypeGlobalChanges
else
changes = LLVM.API.LLVMCloneFunctionChangeTypeLocalChangesOnly
end
function type_mapper(typ)
remapType(typ)
end
clone_into!(new_f, f; value_map, changes, type_mapper)
replace_uses!(f, new_f) # to update metadata
@assert isempty(uses(f))
# remove the old function
fn = LLVM.name(f)
unsafe_delete!(mod, f)
LLVM.name!(new_f, fn)
return new_f
end
# value-to-reference conversion
#
# Metal doesn't support passing valuse, so we need to convert those to references instead
function pass_by_reference!(@nospecialize(job::CompilerJob), mod::LLVM.Module, f::LLVM.Function)
ctx = context(mod)
ft = eltype(llvmtype(f))
@compiler_assert return_type(ft) == LLVM.VoidType(ctx) job
# generate the new function type & definition
args = classify_arguments(job, ft)
new_types = LLVM.LLVMType[]
for arg in args
if arg.cc == BITS_VALUE && !(arg.typ <: Ptr || arg.typ <: Core.LLVMPtr)
# pass the value as a reference instead
push!(new_types, LLVM.PointerType(arg.codegen.typ, #=Constant=# 1))
# TODO: other attributes (nocapturem nonnull, readonly, align, dereferenceable)?
elseif arg.cc != GHOST
push!(new_types, arg.codegen.typ)
end
end
new_ft = LLVM.FunctionType(return_type(ft), new_types)
new_f = LLVM.Function(mod, "", new_ft)
linkage!(new_f, linkage(f))
for (arg, new_arg) in zip(parameters(f), parameters(new_f))
LLVM.name!(new_arg, LLVM.name(arg))
end
# emit IR performing the "conversions"
new_args = LLVM.Value[]
Builder(ctx) do builder
entry = BasicBlock(new_f, "entry"; ctx)
position!(builder, entry)
# perform argument conversions
for arg in args
if arg.cc == BITS_VALUE && !(arg.typ <: Ptr || arg.typ <: Core.LLVMPtr)
# load the reference to get a value back
val = load!(builder, parameters(new_f)[arg.codegen.i])
push!(new_args, val)
elseif arg.cc != GHOST
push!(new_args, parameters(new_f)[arg.codegen.i])
for attr in collect(parameter_attributes(f, arg.codegen.i))
push!(parameter_attributes(new_f, arg.codegen.i), attr)
end
end
end
# map the arguments
value_map = Dict{LLVM.Value, LLVM.Value}(
param => new_args[i] for (i,param) in enumerate(parameters(f))
)
value_map[f] = new_f
clone_into!(new_f, f; value_map,
changes=LLVM.API.LLVMCloneFunctionChangeTypeLocalChangesOnly)
# fall through
br!(builder, blocks(new_f)[2])
end
# remove the old function
# NOTE: if we ever have legitimate uses of the old function, create a shim instead
fn = LLVM.name(f)
@assert isempty(uses(f))
unsafe_delete!(mod, f)
LLVM.name!(new_f, fn)
return new_f
end
# kernel input arguments
#
# hardware index counters (thread id, group id, etc) aren't accessed via intrinsics,
# but using special arguments to the kernel function.
const kernel_intrinsics = Dict()
for intr in [
"dispatch_quadgroups_per_threadgroup", "dispatch_simdgroups_per_threadgroup",
"quadgroup_index_in_threadgroup", "quadgroups_per_threadgroup",
"simdgroup_index_in_threadgroup", "simdgroups_per_threadgroup",
"thread_index_in_quadgroup", "thread_index_in_simdgroup", "thread_index_in_threadgroup",
"thread_execution_width", "threads_per_simdgroup"],
(intr_typ, air_typ, julia_typ) in [
("i32", "uint", UInt32),
("i16", "ushort", UInt16),
]
push!(kernel_intrinsics,
"julia.air.$intr.$intr_typ" =>
(air_intr="$intr.$air_typ", air_typ, air_name=intr, julia_typ))
end
for intr in [
"dispatch_threads_per_threadgroup",
"grid_origin", "grid_size",
"thread_position_in_grid", "thread_position_in_threadgroup",
"threadgroup_position_in_grid", "threadgroups_per_grid",
"threads_per_grid", "threads_per_threadgroup"],
(intr_typ, air_typ, julia_typ) in [
("i32", "uint", UInt32),
("v2i32", "uint2", NTuple{2, VecElement{UInt32}}),
("v3i32", "uint3", NTuple{3, VecElement{UInt32}}),
("i16", "ushort", UInt16),
("v2i16", "ushort2", NTuple{2, VecElement{UInt16}}),
("v3i16", "ushort3", NTuple{3, VecElement{UInt16}}),
]
push!(kernel_intrinsics,
"julia.air.$intr.$intr_typ" =>
(air_intr="$intr.$air_typ", air_typ, air_name=intr, julia_typ))
end
function add_input_arguments!(@nospecialize(job::CompilerJob), mod::LLVM.Module,
entry::LLVM.Function)
ctx = context(mod)
entry_fn = LLVM.name(entry)
# figure out which intrinsics are used and need to be added as arguments
used_intrinsics = filter(keys(kernel_intrinsics)) do intr_fn
haskey(functions(mod), intr_fn)
end |> collect
# TODO: Figure out how to not be inefficient with these changes
nargs = length(used_intrinsics)
# determine which functions need these arguments
worklist = Set{LLVM.Function}([entry])
for intr_fn in used_intrinsics
push!(worklist, functions(mod)[intr_fn])
end
worklist_length = 0
while worklist_length != length(worklist)
# iteratively discover functions that use an intrinsic or any function calling it
worklist_length = length(worklist)
additions = LLVM.Function[]
for f in worklist, use in uses(f)
inst = user(use)::Instruction
bb = LLVM.parent(inst)
new_f = LLVM.parent(bb)
in(new_f, worklist) || push!(additions, new_f)
end
for f in additions
push!(worklist, f)
end
end
for intr_fn in used_intrinsics
delete!(worklist, functions(mod)[intr_fn])
end
# add the arguments
# NOTE: we could be more fine-grained, only adding the specific intrinsics used by this function.
# not sure if that's worth it though.
workmap = Dict{LLVM.Function, LLVM.Function}()
for f in worklist
fn = LLVM.name(f)
ft = eltype(llvmtype(f))
LLVM.name!(f, fn * ".orig")
# create a new function
new_param_types = LLVMType[parameters(ft)...]
for intr_fn in used_intrinsics
llvm_typ = convert(LLVMType, kernel_intrinsics[intr_fn].julia_typ; ctx)
push!(new_param_types, llvm_typ)
end
new_ft = LLVM.FunctionType(return_type(ft), new_param_types)
new_f = LLVM.Function(mod, fn, new_ft)
linkage!(new_f, linkage(f))
for (arg, new_arg) in zip(parameters(f), parameters(new_f))
LLVM.name!(new_arg, LLVM.name(arg))
end
for (intr_fn, new_arg) in zip(used_intrinsics, parameters(new_f)[end-nargs+1:end])
LLVM.name!(new_arg, kernel_intrinsics[intr_fn].air_name)
end
workmap[f] = new_f
end
# clone and rewrite the function bodies.
# we don't need to rewrite much as the arguments are added last.
for (f, new_f) in workmap
# map the arguments
value_map = Dict{LLVM.Value, LLVM.Value}()
for (param, new_param) in zip(parameters(f), parameters(new_f))
LLVM.name!(new_param, LLVM.name(param))
value_map[param] = new_param
end
value_map[f] = new_f
clone_into!(new_f, f; value_map,
changes=LLVM.API.LLVMCloneFunctionChangeTypeLocalChangesOnly)
# we can't remove this function yet, as we might still need to rewrite any called,
# but remove the IR already
empty!(f)
end
# drop unused constants that may be referring to the old functions
# XXX: can we do this differently?
for f in worklist
for use in uses(f)
val = user(use)
if val isa LLVM.ConstantExpr && isempty(uses(val))
LLVM.unsafe_destroy!(val)
end
end
end
# update other uses of the old function, modifying call sites to pass the arguments
function rewrite_uses!(f, new_f)
# update uses
Builder(ctx) do builder
for use in uses(f)
val = user(use)
if val isa LLVM.CallInst || val isa LLVM.InvokeInst || val isa LLVM.CallBrInst
callee_f = LLVM.parent(LLVM.parent(val))
# forward the arguments
position!(builder, val)
new_val = if val isa LLVM.CallInst
call!(builder, new_f, [arguments(val)..., parameters(callee_f)[end-nargs+1:end]...], operand_bundles(val))
else
# TODO: invoke and callbr
error("Rewrite of $(typeof(val))-based calls is not implemented: $val")
end
callconv!(new_val, callconv(val))
replace_uses!(val, new_val)
@assert isempty(uses(val))
unsafe_delete!(LLVM.parent(val), val)
elseif val isa LLVM.ConstantExpr && opcode(val) == LLVM.API.LLVMBitCast
# XXX: why isn't this caught by the value materializer above?
target = operands(val)[1]
@assert target == f
new_val = LLVM.const_bitcast(new_f, llvmtype(val))
rewrite_uses!(val, new_val)
# we can't simply replace this constant expression, as it may be used
# as a call, taking arguments (so we need to rewrite it to pass the input arguments)
# drop the old constant if it is unused
# XXX: can we do this differently?
if isempty(uses(val))
LLVM.unsafe_destroy!(val)
end
else
error("Cannot rewrite unknown use of function: $val")
end
end
end
end
for (f, new_f) in workmap
rewrite_uses!(f, new_f)
@assert isempty(uses(f))
unsafe_delete!(mod, f)
end
# replace uses of the intrinsics with references to the input arguments
for (i, intr_fn) in enumerate(used_intrinsics)
intr = functions(mod)[intr_fn]
for use in uses(intr)
val = user(use)
callee_f = LLVM.parent(LLVM.parent(val))
if val isa LLVM.CallInst || val isa LLVM.InvokeInst || val isa LLVM.CallBrInst
replace_uses!(val, parameters(callee_f)[end-nargs+i])
else
error("Cannot rewrite unknown use of function: $val")
end
@assert isempty(uses(val))
unsafe_delete!(LLVM.parent(val), val)
end
@assert isempty(uses(intr))
unsafe_delete!(mod, intr)
end
return used_intrinsics
end
# argument metadata generation
#
# module metadata is used to identify buffers that are passed as kernel arguments.
# Recursively generate metadata for normal kernel arguments
function add_md(arg; ctx, field_info=nothing, level=1)
structinfo(T,i) = (fieldoffset(T,i), fieldname(T,i), fieldtype(T,i))
if arg.codegen.typ isa LLVM.PointerType
# Process pointer to structs as argument buffers
if eltype(arg.codegen.typ) isa LLVM.StructType
argbuf_info = Metadata[]
# Get information about struct elements first
new_codegen_typ = eltype(arg.codegen.typ)
struct_info = add_md((typ=arg.typ, codegen=(typ=new_codegen_typ, i=1)); ctx, level=level+1)
# Create argument buffer's type metadata
struct_type_info = Metadata[]
# Struct element metadata format:
# If element is itself a struct directly (not a reference to a struct)
# air.struct_type_info keyword
# Metadata node of the struct (element struct - NOT a self-reference)
# Offset in bytes from start of struct
# Size of element in bytes (8 for buffers (pointer size))
# Length of element (0 for buffers...always?)
# Field type
# Field name
# Field argument type? (mainly air.indirect_argument)
# With structs with the threadgroup addresspace, this metadata node is not present
# Because each threadgroup gets the struct data directly without redirection??
# If the element is itself a struct directly (not a reference to a struct)
# Location index of the element struct in the higher-level struct
# Metadata node to more details about element
# If argument is unused
# air.arg_unused
# Return the struct element type name and field name from metadata
function parse_struct_names(md)
for (i, item) in enumerate(md)
if item isa MDString && string(item) == "air.arg_type_name"
return (md[i+1], md[i+3])
end
end
error("Struct element metadata keyword 'air.arg_type_name' not found in $(md)")
end
for (i,struct_field_info) in enumerate(struct_info)
type_name, field_name = parse_struct_names(struct_field_info)
field_is_struct = arg.typ isa LLVM.StructType
if field_is_struct
push!(struct_type_info, MDString("air.struct_type_info"; ctx))
push!(struct_type_info, MDNode(struct_field_info; ctx))
end
push!(struct_type_info, Metadata(ConstantInt(Int32(fieldoffset(arg.typ,i)); ctx)))
# If field is (arg)buffer, set size to 8 and length to 0
if string(struct_field_info[2]) in ["air.buffer", "air.indirect_buffer"]
push!(struct_type_info, Metadata(ConstantInt(Int32(8); ctx))) # Field element size
push!(struct_type_info, Metadata(ConstantInt(Int32(0); ctx))) # Length of field
else
field_type = fieldtype(arg.typ, i)
push!(struct_type_info, Metadata(ConstantInt(Int32(sizeof(eltype(field_type))); ctx))) # Field element size
push!(struct_type_info, Metadata(ConstantInt(Int32(length(field_type.parameters)); ctx))) # Length of field
end
push!(struct_type_info, type_name) # Field type
push!(struct_type_info, field_name) # Field name
push!(struct_type_info, MDString("air.indirect_argument"; ctx))
if field_is_struct
push!(struct_type_info, Metadata(ConstantInt(Int32(i); ctx)))
else
struct_field_info = MDNode(struct_field_info; ctx)
push!(struct_type_info, struct_field_info)
end
end
struct_type_info = MDNode(struct_type_info; ctx)
# Add argument buffer details
# Create the argument buffer main metadata
push!(argbuf_info, Metadata(ConstantInt(Int32(arg.codegen.i-1); ctx))) # Argument index
push!(argbuf_info, MDString("air.indirect_buffer"; ctx))
push!(argbuf_info, MDString("air.buffer_size"; ctx))
push!(argbuf_info, Metadata(ConstantInt(Int32(sizeof(arg.typ)); ctx)))
push!(argbuf_info, MDString("air.location_index"; ctx))
push!(argbuf_info, Metadata(ConstantInt(Int32(arg.codegen.i-1); ctx)))
push!(argbuf_info, Metadata(ConstantInt(Int32(1); ctx)))
# TODO: Check for const array and put to air.read
push!(argbuf_info, MDString("air.read_write"; ctx))
push!(argbuf_info, MDString("air.struct_type_info"; ctx))
push!(argbuf_info, struct_type_info) # Argument buffer type info
push!(argbuf_info, MDString("air.arg_type_size"; ctx))
push!(argbuf_info, Metadata(ConstantInt(Int32(sizeof(arg.typ)); ctx))) # Arg type size
push!(argbuf_info, MDString("air.arg_type_align_size"; ctx))
push!(argbuf_info, Metadata(ConstantInt(Int32(Base.datatype_alignment(arg.typ)); ctx)))
push!(argbuf_info, MDString("air.arg_type_name"; ctx))
push!(argbuf_info, MDString(string(arg.typ); ctx))
push!(argbuf_info, MDString("air.arg_name"; ctx))
push!(argbuf_info, MDString("arg_$(arg.codegen.i-1)"; ctx)) # TODO: How to get this? Does the compiler job have it somewhere?
# Ignore unused flag for now
# Make argument buffer metadata node
argbuf_info = MDNode(argbuf_info; ctx)
return argbuf_info
# Process other references (e.g. to scalars) or plain pointers as simple buffers
else
ptr_datatype = if arg.typ <: Core.LLVMPtr || arg.typ <: Ptr
arg.typ.parameters[1]
else
arg.typ
end
arg_info_ptr = Metadata[]
push!(arg_info_ptr, Metadata(ConstantInt(Int32(arg.codegen.i-1); ctx))) # Argument index
push!(arg_info_ptr, MDString("air.buffer"; ctx))
push!(arg_info_ptr, MDString("air.location_index"; ctx))
push!(arg_info_ptr, Metadata(ConstantInt(Int32(arg.codegen.i-1); ctx)))
push!(arg_info_ptr, Metadata(ConstantInt(Int32(1); ctx)))
push!(arg_info_ptr, MDString("air.read_write"; ctx)) # TODO: Check for const array
push!(arg_info_ptr, MDString("air.arg_type_size"; ctx))
push!(arg_info_ptr, Metadata(ConstantInt(Int32(sizeof(ptr_datatype)); ctx))) # TODO: Get properly
push!(arg_info_ptr, MDString("air.arg_type_align_size"; ctx))
push!(arg_info_ptr, Metadata(ConstantInt(Int32(Base.datatype_alignment(ptr_datatype)); ctx)))
push!(arg_info_ptr, MDString("air.arg_type_name"; ctx))
# Handle naming for pointer to ArrayType
if eltype(arg.codegen.typ) isa LLVM.ArrayType
arg_type_name = jl_type_to_c[eltype(eltype(arg.typ))] * string(length(eltype(arg.codegen.typ)))
else
arg_type_name = string(eltype(arg.codegen.typ))
end
push!(arg_info_ptr, MDString(arg_type_name; ctx)) # TODO: Get properly
push!(arg_info_ptr, MDString("air.arg_name"; ctx))
# TODO: Properly get top-level argument names
arg_name = field_info != nothing ? string(field_info[2]) : "arg_$(arg.codegen.i)"
push!(arg_info_ptr, MDString(arg_name; ctx))
return arg_info_ptr
end
elseif arg.codegen.typ isa LLVM.StructType
arg_info_struct = []
for (i, elem) in enumerate(collect(elements(arg.codegen.typ)))
field_info = structinfo(arg.typ, i)
push!(arg_info_struct, add_md((typ=field_info[3], codegen=(typ=elem, i=i)); ctx, field_info, level=level+1))
end
return arg_info_struct
# Process as basic leaf argument
else
arg_info = Metadata[]
# If it's a top-level arg, encode as a buffer
if level == 1
## Simple Buffer Argument Metadata layout
# Kernel argument index
# air.buffer keyword
# air.location_index keyword
# Kernel argument location index (NOT the same as argument index)
# Values are determined as explained by pages 46 and 79 of the Metal docs
# https://developer.apple.com/metal/Metal-Shading-Language-Specification.pdf
# Note that these indices are unique to each resource group type [buffer, threadgroup, sampler, texture]
# Unknown value - Has always been 1
# Vertex/stag_in info? Something with rasters?
# Resource usage status
# air.arg_type_size keyword
# Buffer element size
# air.arg_type_align_size keyword
# Buffer element alignment
# air.arg_type_name keyword
# Buffer element type name
# air.arg_name keyword
# Kernel argument name
datatype = arg.typ
arg_info_ptr = Metadata[]
push!(arg_info_ptr, Metadata(ConstantInt(Int32(arg.codegen.i-1); ctx)))
push!(arg_info_ptr, MDString("air.buffer"; ctx))
push!(arg_info_ptr, MDString("air.location_index"; ctx))
push!(arg_info_ptr, Metadata(ConstantInt(Int32(arg.codegen.i-1); ctx)))
push!(arg_info_ptr, Metadata(ConstantInt(Int32(1); ctx)))
push!(arg_info_ptr, MDString("air.read_write"; ctx)) # TODO: Check for const array
push!(arg_info_ptr, MDString("air.arg_type_size"; ctx))
push!(arg_info_ptr, Metadata(ConstantInt(Int32(sizeof(datatype)); ctx)))
push!(arg_info_ptr, MDString("air.arg_type_align_size"; ctx))
push!(arg_info_ptr, Metadata(ConstantInt(Int32(Base.datatype_alignment(datatype)); ctx)))
push!(arg_info_ptr, MDString("air.arg_type_name"; ctx))
push!(arg_info_ptr, MDString(string(eltype(arg.codegen.typ)); ctx))
push!(arg_info_ptr, MDString("air.arg_name"; ctx))
# TODO: Properly get top-level argument names
arg_name = field_info != nothing ? string(field_info[2]) : "arg_$(arg.codegen.i)"
push!(arg_info_ptr, MDString(arg_name; ctx))
# Else process as indirect_constant (vector type)
# TODO: Need to check upstream that we're only passing valid vector types
elseif arg.codegen.typ isa LLVM.ArrayType
arg_length = length(arg.codegen.typ)
push!(arg_info, Metadata(ConstantInt(Int32(arg.codegen.i-1); ctx)))
push!(arg_info, MDString("air.indirect_constant"; ctx))
push!(arg_info, MDString("air.location_index"; ctx))
push!(arg_info, Metadata(ConstantInt(Int32(arg.codegen.i-1); ctx)))
push!(arg_info, Metadata(ConstantInt(Int32(1); ctx)))
push!(arg_info, MDString("air.arg_type_name"; ctx))
arg_type_name = jl_type_to_c[eltype(arg.typ)] * string(arg_length)
push!(arg_info, MDString(arg_type_name; ctx))
push!(arg_info, MDString("air.arg_name"; ctx))
arg_name = field_info != nothing ? string(field_info[2]) : "arg_$(arg.codegen.i)"
push!(arg_info, MDString(arg_name; ctx))
else
error("Unknown Metal kernel argument type $(arg.typ)")
end
return arg_info
end
end
function add_argument_metadata!(@nospecialize(job::CompilerJob), mod::LLVM.Module,
entry::LLVM.Function, used_intrinsics::Vector)
ctx = context(mod)
## argument info
arg_infos = Metadata[]
# Iterate through arguments and create metadata for them
for arg in classify_arguments(job, eltype(llvmtype(entry)))
# Ignore ghost type
if arg.cc != GHOST
arg_info = add_md(arg; ctx)
# Ensure returned type is a metadata node
if !isa(arg_info, MDTuple)
arg_info = MDNode(arg_info; ctx)
end
push!(arg_infos, arg_info)
end
end
# Create metadata for argument intrinsics last
for (i, intr_fn) in enumerate(used_intrinsics)
arg_info = Metadata[]
push!(arg_info, Metadata(ConstantInt(Int32(length(parameters(entry))-i); ctx)))
push!(arg_info, MDString("air." * kernel_intrinsics[intr_fn].air_name; ctx))
push!(arg_info, MDString("air.arg_type_name"; ctx))
push!(arg_info, MDString(kernel_intrinsics[intr_fn].air_typ; ctx))
push!(arg_info, MDString("air.arg_name"; ctx))
push!(arg_info, MDString(kernel_intrinsics[intr_fn].air_name; ctx))
arg_info = MDNode(arg_info; ctx)
push!(arg_infos, arg_info)
end
arg_infos = MDNode(arg_infos; ctx)
## stage info
stage_infos = Metadata[]
stage_infos = MDNode(stage_infos; ctx)
kernel_md = MDNode([entry, stage_infos, arg_infos]; ctx)
push!(metadata(mod)["air.kernel"], kernel_md)
return
end
# module-level metadata
# TODO: determine limits being set dynamically
function add_module_metadata!(@nospecialize(job::CompilerJob), mod::LLVM.Module)
ctx = context(mod)
# register max device buffer count
max_buff = Metadata[]
push!(max_buff, Metadata(ConstantInt(Int32(7); ctx)))
push!(max_buff, MDString("air.max_device_buffers"; ctx))
push!(max_buff, Metadata(ConstantInt(Int32(31); ctx)))
max_buff = MDNode(max_buff; ctx)
push!(metadata(mod)["llvm.module.flags"], max_buff)
# register max constant buffer count
max_const_buff_md = Metadata[]
push!(max_const_buff_md, Metadata(ConstantInt(Int32(7); ctx)))
push!(max_const_buff_md, MDString("air.max_constant_buffers"; ctx))
push!(max_const_buff_md, Metadata(ConstantInt(Int32(31); ctx)))
max_const_buff_md = MDNode(max_const_buff_md; ctx)
push!(metadata(mod)["llvm.module.flags"], max_const_buff_md)
# register max threadgroup buffer count
max_threadgroup_buff_md = Metadata[]
push!(max_threadgroup_buff_md, Metadata(ConstantInt(Int32(7); ctx)))
push!(max_threadgroup_buff_md, MDString("air.max_threadgroup_buffers"; ctx))
push!(max_threadgroup_buff_md, Metadata(ConstantInt(Int32(31); ctx)))
max_threadgroup_buff_md = MDNode(max_threadgroup_buff_md; ctx)
push!(metadata(mod)["llvm.module.flags"], max_threadgroup_buff_md)
# register max texture buffer count
max_textures_md = Metadata[]
push!(max_textures_md, Metadata(ConstantInt(Int32(7); ctx)))
push!(max_textures_md, MDString("air.max_textures"; ctx))
push!(max_textures_md, Metadata(ConstantInt(Int32(128); ctx)))
max_textures_md = MDNode(max_textures_md; ctx)
push!(metadata(mod)["llvm.module.flags"], max_textures_md)
# register max write texture buffer count
max_rw_textures_md = Metadata[]
push!(max_rw_textures_md, Metadata(ConstantInt(Int32(7); ctx)))
push!(max_rw_textures_md, MDString("air.max_read_write_textures"; ctx))
push!(max_rw_textures_md, Metadata(ConstantInt(Int32(8); ctx)))
max_rw_textures_md = MDNode(max_rw_textures_md; ctx)
push!(metadata(mod)["llvm.module.flags"], max_rw_textures_md)
# register max sampler count
max_samplers_md = Metadata[]
push!(max_samplers_md, Metadata(ConstantInt(Int32(7); ctx)))
push!(max_samplers_md, MDString("air.max_samplers"; ctx))
push!(max_samplers_md, Metadata(ConstantInt(Int32(16); ctx)))
max_samplers_md = MDNode(max_samplers_md; ctx)
push!(metadata(mod)["llvm.module.flags"], max_samplers_md)
# add compiler identification
llvm_ident_md = Metadata[]
push!(llvm_ident_md, MDString("Julia $(VERSION) with Metal.jl"; ctx))
llvm_ident_md = MDNode(llvm_ident_md; ctx)
push!(metadata(mod)["llvm.ident"], llvm_ident_md)
# add AIR version
air_md = Metadata[]
push!(air_md, Metadata(ConstantInt(Int32(2); ctx)))
push!(air_md, Metadata(ConstantInt(Int32(4); ctx)))
push!(air_md, Metadata(ConstantInt(Int32(0); ctx)))
air_md = MDNode(air_md; ctx)
push!(metadata(mod)["air.version"], air_md)
# add language version
air_lang_md = Metadata[]
push!(air_lang_md, MDString("Metal"; ctx))
push!(air_lang_md, Metadata(ConstantInt(Int32(2); ctx)))
push!(air_lang_md, Metadata(ConstantInt(Int32(4); ctx)))
push!(air_lang_md, Metadata(ConstantInt(Int32(0); ctx)))
air_lang_md = MDNode(air_lang_md; ctx)
push!(metadata(mod)["air.language_version"], air_lang_md)
return
end