replica
/
hanchenye-llvm-project
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[OCaml] Fix mismatched CAMLparam/CAMLreturn. 

Also, revert r221142--it was an incorrect fix to this bug
which fixed tests by accident.

llvm-svn: 221149
This commit is contained in:
Peter Zotov 2014-11-03 11:47:14 +00:00
parent 164acd5e2d
commit 2fdec7d71a
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -750,7 +750,7 @@ CAMLprim value llvm_float_of_const(LLVMValueRef Const)
if (LLVMIsAConstantFP(Const)) {
Result = LLVMConstRealGetDouble(Const, &LosesInfo);
if (LosesInfo)
return Val_int(0);
CAMLreturn(Val_int(0));
Option = alloc(1, 0);
Field(Option, 0) = caml_copy_double(Result);
@ -1590,12 +1590,11 @@ CAMLprim value llvm_position_builder(value Pos, value B) {
}
/* llbuilder -> llbasicblock */
CAMLprim value llvm_insertion_block(value B) {
CAMLparam0();
CAMLprim LLVMBasicBlockRef llvm_insertion_block(value B) {
LLVMBasicBlockRef InsertBlock = LLVMGetInsertBlock(Builder_val(B));
if (!InsertBlock)
caml_raise_not_found();
CAMLreturn((value) InsertBlock);
return InsertBlock;
}
/* llvalue -> string -> llbuilder -> unit */