6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-08-10 02:25:47 +00:00
Code Issues Projects Releases Wiki Activity

Fixed downrev Ocaml compatibility.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@42744 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Gordon Henriksen
2007-10-08 12:16:59 +00:00
parent 1aad74c9e8
commit 633360c9d9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -416,7 +416,7 @@ CAMLprim value llvm_lookup_global(value Name, LLVMModuleRef M) {
CAMLparam1(Name); CAMLparam1(Name);
LLVMValueRef GlobalVar; LLVMValueRef GlobalVar;
if ((GlobalVar = LLVMGetNamedGlobal(M, String_val(Name)))) { if ((GlobalVar = LLVMGetNamedGlobal(M, String_val(Name)))) {
value Option = caml_alloc(1, 1); value Option = alloc(1, 1);
Field(Option, 0) = (value) GlobalVar; Field(Option, 0) = (value) GlobalVar;
CAMLreturn(Option); CAMLreturn(Option);
} }
@@ -493,7 +493,7 @@ CAMLprim value llvm_lookup_function(value Name, LLVMModuleRef M) {
CAMLparam1(Name); CAMLparam1(Name);
LLVMValueRef Fn; LLVMValueRef Fn;
if ((Fn = LLVMGetNamedFunction(M, String_val(Name)))) { if ((Fn = LLVMGetNamedFunction(M, String_val(Name)))) {
value Option = caml_alloc(1, 1); value Option = alloc(1, 1);
Field(Option, 0) = (value) Fn; Field(Option, 0) = (value) Fn;
CAMLreturn(Option); CAMLreturn(Option);
} }