Add LLVM::OperandBundleDef#dispose

src/compiler/crystal/codegen/crystal_llvm_builder.cr

@@ -45,7 +45,11 @@ module Crystal
         funclet = LLVM::OperandBundleDef.null
       end
 
-      call @printf, [global_string_pointer(format)] + args, bundle: funclet
+      begin
+        call @printf, [global_string_pointer(format)] + args, bundle: funclet
+      ensure
+        funclet.dispose
+      end
     end
 
     def position_at_end(block)

src/compiler/crystal/codegen/llvm_builder_helper.cr

@@ -128,7 +128,11 @@ module Crystal
         funclet = LLVM::OperandBundleDef.null
       end
 
-      builder.call(func.type, func.func, args, bundle: funclet, name: name)
+      begin
+        builder.call(func.type, func.func, args, bundle: funclet, name: name)
+      ensure
+        funclet.dispose
+      end
     end
 
     def invoke(func : LLVMTypedFunction, args : Array(LLVM::Value), a_then, a_catch, name : String = "")
@@ -138,7 +142,11 @@ module Crystal
         funclet = LLVM::OperandBundleDef.null
       end
 
-      builder.invoke(func.type, func.func, args, a_then, a_catch, bundle: funclet, name: name)
+      begin
+        builder.invoke(func.type, func.func, args, a_then, a_catch, bundle: funclet, name: name)
+      ensure
+        funclet.dispose
+      end
     end
 
     delegate ptr2int, int2ptr, and, or, not, bit_cast,

src/llvm/ext/llvm_ext.cc

@@ -45,6 +45,10 @@ LLVMOperandBundleRef LLVMExtCreateOperandBundle(const char *Tag, size_t TagLen,
                                    makeArrayRef(unwrap(Args), NumArgs)));
 }
 
+void LLVMExtDisposeOperandBundle(LLVMOperandBundleRef Bundle) {
+  delete unwrap(Bundle);
+}
+
 LLVMValueRef
 LLVMExtBuildCallWithOperandBundles(LLVMBuilderRef B, LLVMTypeRef Ty,
                                    LLVMValueRef Fn, LLVMValueRef *Args,

src/llvm/lib_llvm/core.cr

@@ -162,6 +162,7 @@ lib LibLLVM
 
   {% unless LibLLVM::IS_LT_180 %}
     fun create_operand_bundle = LLVMCreateOperandBundle(tag : Char*, tag_len : SizeT, args : ValueRef*, num_args : UInt) : OperandBundleRef
+    fun dispose_operand_bundle = LLVMDisposeOperandBundle(bundle : OperandBundleRef)
   {% end %}
 
   fun get_basic_block_name = LLVMGetBasicBlockName(bb : BasicBlockRef) : Char*

src/llvm/lib_llvm_ext.cr

@@ -19,6 +19,8 @@ lib LibLLVMExt
                                                          args : LibLLVM::ValueRef*,
                                                          num_args : UInt) : LibLLVM::OperandBundleRef
 
+  fun dispose_operand_bundle = LLVMExtDisposeOperandBundle(bundle : LibLLVM::OperandBundleRef)
+
   fun build_call_with_operand_bundles = LLVMExtBuildCallWithOperandBundles(LibLLVM::BuilderRef, LibLLVM::TypeRef, fn : LibLLVM::ValueRef,
                                                                            args : LibLLVM::ValueRef*, num_args : UInt,
                                                                            bundles : LibLLVM::OperandBundleRef*, num_bundles : UInt,

src/llvm/operand_bundle_def.cr

@@ -9,4 +9,8 @@ struct LLVM::OperandBundleDef
   def to_unsafe
     @unwrap
   end
+
+  def dispose
+    {{ LibLLVM::IS_LT_180 ? LibLLVMExt : LibLLVM }}.dispose_operand_bundle(@unwrap) if @unwrap
+  end
 end