mf

Author: wsmoses

src/llvm/transforms.jl

@@ -2573,7 +2573,26 @@ function removeDeadArgs!(mod::LLVM.Module, tm::LLVM.TargetMachine, post_gc_fixup
                 for u in LLVM.uses(fn)
                     u = LLVM.user(u)
                     if isa(u, LLVM.ConstantExpr)
-                        u = LLVM.user(only(LLVM.uses(u)))
+			for u in LLVM.uses(u)
+			   u = LLVM.user(u)
+			    if !isa(u, LLVM.CallInst)
+				continue
+			    end
+			    @assert isa(u, LLVM.CallInst)
+			    B = IRBuilder()
+			    nextInst = LLVM.Instruction(LLVM.API.LLVMGetNextInstruction(u))
+			    position!(B, nextInst)
+			    inp = operands(u)[idx]
+			    cl = call!(B, funcT, sfunc, LLVM.Value[inp])
+			    if isa(value_type(inp), LLVM.PointerType)
+				LLVM.API.LLVMAddCallSiteAttribute(
+				    cl,
+				    LLVM.API.LLVMAttributeIndex(1),
+				    EnumAttribute("nocapture"),
+				)
+			    end
+			end
+			continue
                     end
                     if !isa(u, LLVM.CallInst)
                         continue