File tree Expand file tree Collapse file tree 3 files changed +4
-2
lines changed Expand file tree Collapse file tree 3 files changed +4
-2
lines changed Original file line number Diff line number Diff line change 24
24
25
25
Module (name:: String ; ctx:: Context ) =
26
26
Module (API. LLVMModuleCreateWithNameInContext (name, ctx))
27
+
27
28
Module (mod:: Module ) = Module (API. LLVMCloneModule (mod))
29
+ Base. copy (mod:: Module ) = Module (mod)
28
30
29
31
dispose (mod:: Module ) = API. LLVMDisposeModule (mod)
30
32
Original file line number Diff line number Diff line change 727
727
728
728
Context () do ctx
729
729
LLVM. Module (" SomeModule" ; ctx) do mod
730
- clone = LLVM . Module (mod)
730
+ clone = copy (mod)
731
731
@test mod != clone
732
732
@test context (clone) == ctx
733
733
dispose (clone)
Original file line number Diff line number Diff line change @@ -137,7 +137,7 @@ Context() do ctx
137
137
args = [GenericValue (LLVM. Int32Type (ctx), 1 ),
138
138
GenericValue (LLVM. Int32Type (ctx), 2 )]
139
139
140
- let mod = LLVM . Module (mod)
140
+ let mod = copy (mod)
141
141
fn = functions (mod)[" SomeFunctionSum" ]
142
142
Interpreter (mod) do engine
143
143
res = LLVM. run (engine, fn, args)
You can’t perform that action at this time.
0 commit comments