llvm.org GIT mirror llvm / 13fd720
[OCaml] Initialize local roots prior to raising. On 4.02, the OCaml unwinder otherwise gets confused and segfaults. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@221142 91177308-0d34-0410-b5e6-96231b3b80d8 Peter Zotov 5 years ago
1 changed file(s) with 4 addition(s) and 3 deletion(s). Raw diff Collapse all Expand all
15891589 }
15901590
15911591 /* llbuilder -> llbasicblock */
1592 CAMLprim LLVMBasicBlockRef llvm_insertion_block(value B) {
1592 CAMLprim value llvm_insertion_block(value B) {
1593 CAMLparam0();
15931594 LLVMBasicBlockRef InsertBlock = LLVMGetInsertBlock(Builder_val(B));
15941595 if (!InsertBlock)
1595 raise_not_found();
1596 return InsertBlock;
1596 caml_raise_not_found();
1597 CAMLreturn((value) InsertBlock);
15971598 }
15981599
15991600 /* llvalue -> string -> llbuilder -> unit */