mirror of
https://github.com/RPCS3/llvm.git
synced 2024-11-23 11:49:46 +00:00
Finish removing DestroySource.
Fixes pr21901. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@224782 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
parent
da9cfe25f3
commit
d27b926340
@ -20,16 +20,9 @@ package llvm
|
||||
import "C"
|
||||
import "errors"
|
||||
|
||||
type LinkerMode C.LLVMLinkerMode
|
||||
|
||||
const (
|
||||
LinkerDestroySource = C.LLVMLinkerDestroySource
|
||||
LinkerPreserveSource = C.LLVMLinkerPreserveSource
|
||||
)
|
||||
|
||||
func LinkModules(Dest, Src Module, Mode LinkerMode) error {
|
||||
func LinkModules(Dest, Src Module) error {
|
||||
var cmsg *C.char
|
||||
failed := C.LLVMLinkModules(Dest.C, Src.C, C.LLVMLinkerMode(Mode), &cmsg)
|
||||
failed := C.LLVMLinkModules(Dest.C, Src.C, 0, &cmsg)
|
||||
if failed != 0 {
|
||||
err := errors.New(C.GoString(cmsg))
|
||||
C.LLVMDisposeMessage(cmsg)
|
||||
|
@ -23,11 +23,11 @@
|
||||
|
||||
void llvm_raise(value Prototype, char *Message);
|
||||
|
||||
/* llmodule -> llmodule -> Mode.t -> unit */
|
||||
CAMLprim value llvm_link_modules(LLVMModuleRef Dst, LLVMModuleRef Src, value Mode) {
|
||||
/* llmodule -> llmodule -> unit */
|
||||
CAMLprim value llvm_link_modules(LLVMModuleRef Dst, LLVMModuleRef Src) {
|
||||
char* Message;
|
||||
|
||||
if (LLVMLinkModules(Dst, Src, Int_val(Mode), &Message))
|
||||
if (LLVMLinkModules(Dst, Src, 0, &Message))
|
||||
llvm_raise(*caml_named_value("Llvm_linker.Error"), Message);
|
||||
|
||||
return Val_unit;
|
||||
|
@ -11,11 +11,5 @@ exception Error of string
|
||||
|
||||
let () = Callback.register_exception "Llvm_linker.Error" (Error "")
|
||||
|
||||
module Mode = struct
|
||||
type t =
|
||||
| DestroySource
|
||||
| PreserveSource
|
||||
end
|
||||
|
||||
external link_modules : Llvm.llmodule -> Llvm.llmodule -> Mode.t -> unit
|
||||
external link_modules : Llvm.llmodule -> Llvm.llmodule -> unit
|
||||
= "llvm_link_modules"
|
||||
|
@ -14,13 +14,6 @@
|
||||
|
||||
exception Error of string
|
||||
|
||||
(** Linking mode. *)
|
||||
module Mode : sig
|
||||
type t =
|
||||
| DestroySource
|
||||
| PreserveSource
|
||||
end
|
||||
|
||||
(** [link_modules dst src mode] links [src] into [dst], raising [Error]
|
||||
if the linking fails. *)
|
||||
val link_modules : Llvm.llmodule -> Llvm.llmodule -> Mode.t -> unit
|
||||
val link_modules : Llvm.llmodule -> Llvm.llmodule -> unit
|
@ -20,20 +20,13 @@
|
||||
extern "C" {
|
||||
#endif
|
||||
|
||||
|
||||
typedef enum {
|
||||
LLVMLinkerDestroySource = 0, /* Allow source module to be destroyed. */
|
||||
LLVMLinkerPreserveSource = 1 /* Preserve the source module. */
|
||||
} LLVMLinkerMode;
|
||||
|
||||
|
||||
/* Links the source module into the destination module, taking ownership
|
||||
* of the source module away from the caller. Optionally returns a
|
||||
* human-readable description of any errors that occurred in linking.
|
||||
* OutMessage must be disposed with LLVMDisposeMessage. The return value
|
||||
* is true if an error occurred, false otherwise. */
|
||||
LLVMBool LLVMLinkModules(LLVMModuleRef Dest, LLVMModuleRef Src,
|
||||
LLVMLinkerMode Mode, char **OutMessage);
|
||||
unsigned Unused, char **OutMessage);
|
||||
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
|
@ -1739,7 +1739,7 @@ bool Linker::LinkModules(Module *Dest, Module *Src) {
|
||||
//===----------------------------------------------------------------------===//
|
||||
|
||||
LLVMBool LLVMLinkModules(LLVMModuleRef Dest, LLVMModuleRef Src,
|
||||
LLVMLinkerMode Mode, char **OutMessages) {
|
||||
unsigned Unused, char **OutMessages) {
|
||||
Module *D = unwrap(Dest);
|
||||
std::string Message;
|
||||
raw_string_ostream Stream(Message);
|
||||
|
@ -45,7 +45,7 @@ let test_linker () =
|
||||
|
||||
let m1 = make_module "one"
|
||||
and m2 = make_module "two" in
|
||||
link_modules m1 m2 Mode.DestroySource;
|
||||
link_modules m1 m2;
|
||||
dispose_module m1;
|
||||
|
||||
let m1 = make_module "one"
|
||||
|
Loading…
Reference in New Issue
Block a user