RPCS3/llvm
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm.git synced 2025-01-24 11:36:10 +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.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@221142 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Peter Zotov 2014-11-03 09:51:44 +00:00
parent 10fa04ca7d
commit 13fd7205fa
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 */ /* llbuilder -> llbasicblock */
CAMLprim LLVMBasicBlockRef llvm_insertion_block(value B) { CAMLprim value llvm_insertion_block(value B) {
CAMLparam0();
LLVMBasicBlockRef InsertBlock = LLVMGetInsertBlock(Builder_val(B)); LLVMBasicBlockRef InsertBlock = LLVMGetInsertBlock(Builder_val(B));
if (!InsertBlock) if (!InsertBlock)
raise_not_found(); caml_raise_not_found();
return InsertBlock; CAMLreturn((value) InsertBlock);
} }
/* llvalue -> string -> llbuilder -> unit */ /* llvalue -> string -> llbuilder -> unit */