6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-27 13:30:05 +00:00
Code Issues Projects Releases Wiki Activity

Expose Module::dump via C and Ocaml.

Browse Source 
Patch by Erick Tryzelaar.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@48379 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Gordon Henriksen 2008-03-14 23:58:56 +00:00
parent 3c5da81df8
commit af59b105bb
4 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
bindings/ocaml/llvm/llvm.ml
View File

@ -119,6 +119,7 @@ external define_type_name : string -> lltype -> llmodule -> bool
= "llvm_add_type_name" = "llvm_add_type_name"
external delete_type_name : string -> llmodule -> unit external delete_type_name : string -> llmodule -> unit
= "llvm_delete_type_name" = "llvm_delete_type_name"
external dump_module : llmodule -> unit = "llvm_dump_module"
(*===-- Types -------------------------------------------------------------===*) (*===-- Types -------------------------------------------------------------===*)

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

@ -98,6 +98,12 @@ CAMLprim value llvm_delete_type_name(value Name, LLVMModuleRef M) {
return Val_unit; return Val_unit;
} }
/* llmodule -> unit */
CAMLprim value llvm_dump_module(LLVMModuleRef M) {
LLVMDumpModule(M);
return Val_unit;
}
/*===-- Types -------------------------------------------------------------===*/ /*===-- Types -------------------------------------------------------------===*/

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

@ -183,6 +183,9 @@ void LLVMSetTarget(LLVMModuleRef M, const char *Triple);
int LLVMAddTypeName(LLVMModuleRef M, const char *Name, LLVMTypeRef Ty); int LLVMAddTypeName(LLVMModuleRef M, const char *Name, LLVMTypeRef Ty);
void LLVMDeleteTypeName(LLVMModuleRef M, const char *Name); void LLVMDeleteTypeName(LLVMModuleRef M, const char *Name);
/** See Module::dump. */
void LLVMDumpModule(LLVMModuleRef M);
/*===-- Types -------------------------------------------------------------===*/ /*===-- Types -------------------------------------------------------------===*/

4
lib/VMCore/Core.cpp
View File

@ -76,6 +76,10 @@ void LLVMDeleteTypeName(LLVMModuleRef M, const char *Name) {
TST.remove(I); TST.remove(I);
} }
void LLVMDumpModule(LLVMModuleRef M) {
unwrap(M)->dump();
}
/*===-- Operations on types -----------------------------------------------===*/ /*===-- Operations on types -----------------------------------------------===*/