6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-26 21:32:10 +00:00
Code Issues Projects Releases Wiki Activity

Expose ExecutionEngine::getTargetData() to c and ocaml bindings.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@48851 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Erick Tryzelaar 2008-03-27 00:27:14 +00:00
parent 5b0c85588a
commit 7c1483bc6f
6 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bindings/ocaml/executionengine/Makefile
View File

@ -15,6 +15,6 @@ LEVEL := ../../..
LIBRARYNAME := llvm_executionengine
DONT_BUILD_RELINKED := 1
UsedComponents := executionengine jit interpreter native
UsedOcamlInterfaces := llvm
UsedOcamlInterfaces := llvm llvm_target
include ../Makefile.ocaml

3
bindings/ocaml/executionengine/llvm_executionengine.ml
View File

@ -83,6 +83,9 @@ module ExecutionEngine = struct
external free_machine_code: Llvm.llvalue -> t -> unit
= "llvm_ee_free_machine_code"
external target_data: t -> Llvm_target.TargetData.t
= "LLVMGetExecutionEngineTargetData"
(* The following are not bound. Patches are welcome.
get_target_data: t -> lltargetdata

4
bindings/ocaml/executionengine/llvm_executionengine.mli
View File

@ -147,4 +147,8 @@ module ExecutionEngine: sig
(** [free_machine_code f ee] releases the memory in the execution engine [ee]
used to store the machine code for the function [f]. *)
val free_machine_code: Llvm.llvalue -> t -> unit
(** [target_data ee] is the target data owned by the execution engine
[ee]. *)
val target_data: t -> Llvm_target.TargetData.t
end

3
include/llvm-c/ExecutionEngine.h
View File

@ -20,6 +20,7 @@
#define LLVM_C_EXECUTIONENGINE_H
#include "llvm-c/Core.h"
#include "llvm-c/Target.h"
#ifdef __cplusplus
extern "C" {
@ -88,6 +89,8 @@ int LLVMRemoveModuleProvider(LLVMExecutionEngineRef EE,
int LLVMFindFunction(LLVMExecutionEngineRef EE, const char *Name,
LLVMValueRef *OutFn);
LLVMTargetDataRef LLVMGetExecutionEngineTargetData(LLVMExecutionEngineRef EE);
#ifdef __cplusplus
}

4
lib/ExecutionEngine/ExecutionEngineBindings.cpp
View File

@ -187,3 +187,7 @@ int LLVMFindFunction(LLVMExecutionEngineRef EE, const char *Name,
}
return 1;
}
LLVMTargetDataRef LLVMGetExecutionEngineTargetData(LLVMExecutionEngineRef EE) {
return wrap(unwrap(EE)->getTargetData());
}

10
test/Bindings/Ocaml/executionengine.ml
View File

@ -1,9 +1,10 @@
(* RUN: %ocamlc -warn-error A llvm.cma llvm_executionengine.cma %s -o %t
(* RUN: %ocamlc -warn-error A llvm.cma llvm_target.cma llvm_executionengine.cma %s -o %t
* RUN: ./%t %t.bc
*)
open Llvm
open Llvm_executionengine
open Llvm_target
(* Note that this takes a moment to link, so it's best to keep the number of
individual tests low. *)
@ -93,6 +94,13 @@ let test_executionengine () =
(* run_static_dtors *)
ExecutionEngine.run_static_dtors ee;
(* Show that the target data binding links and runs.*)
let td = ExecutionEngine.target_data ee in
(* Demonstrate that a garbage pointer wasn't returned. *)
let ty = intptr_type td in
if ty != i32_type && ty != i64_type then bomb "target_data did not work";
(* dispose *)
ExecutionEngine.dispose ee