First relocation of globals (#1684)

* First relocation of globals

* Fix relocation

* rework

* load glob

* with orcv1, maybe?

* Support setting metadata on old llvm.jl

* Vendor global set md

* More 1.6 orc

* add libdl

* orcv1

* fix

Author: wsmoses

src/absint.jl

@@ -103,6 +103,20 @@ function absint(arg::LLVM.Value, partial::Bool=false)
         return (true, typ)
     end
 
+    if isa(arg, GlobalVariable)    
+        gname = LLVM.name(arg)
+        for (k, v) in JuliaGlobalNameMap
+            if gname == k || gname == "ejl_"*k
+                return (true, v)
+            end
+        end
+        for (k, v) in JuliaEnzymeNameMap
+            if gname == k || gname == "ejl_"*k
+                return (true, v)
+            end
+        end
+    end
+
     if isa(arg, LLVM.LoadInst) && value_type(arg) == LLVM.PointerType(LLVM.StructType(LLVMType[]), Tracked)
         ptr = operands(arg)[1]
         ce = ptr

src/api.jl

@@ -103,6 +103,7 @@ struct CFnTypeInfo
     known_values::Ptr{IntList}
 end
 
+SetMD(v::Union{LLVM.Instruction, LLVM.GlobalVariable}, kind::String, node::LLVM.Metadata) = ccall((:EnzymeSetStringMD, libEnzyme), Cvoid, (LLVM.API.LLVMValueRef, Cstring, LLVM.API.LLVMValueRef), v, kind, LLVM.Value(node))
 
 @static if !isdefined(LLVM, :ValueMetadataDict)
 Base.haskey(md::LLVM.InstructionMetadataDict, kind::String) =