RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-12-02 00:16:25 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[OCaml] Initialize local roots prior to raising.

Browse Source 
On 4.02, the OCaml unwinder otherwise gets confused and segfaults.

llvm-svn: 221142
This commit is contained in:
Peter Zotov 2014-11-03 09:51:44 +00:00
parent 772c8edf96
commit bbaea64b40
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
bindings/ocaml/llvm/llvm_ocaml.c
View File

@ -1590,11 +1590,12 @@ CAMLprim value llvm_position_builder(value Pos, value B) {
}
/* llbuilder -> llbasicblock */
CAMLprim LLVMBasicBlockRef llvm_insertion_block(value B) {
CAMLprim value llvm_insertion_block(value B) {
CAMLparam0();
LLVMBasicBlockRef InsertBlock = LLVMGetInsertBlock(Builder_val(B));
if (!InsertBlock)
raise_not_found();
return InsertBlock;
caml_raise_not_found();
CAMLreturn((value) InsertBlock);
}
/* llvalue -> string -> llbuilder -> unit */