llvm-party-12.1.0: src/LLVM/Internal/FFI/ModuleC.cpp

#define __STDC_LIMIT_MACROS
#include "llvm/IR/Module.h"
#include "llvm-c/Core.h"

using namespace llvm;

extern "C" {

char *LLVM_Hs_GetModuleIdentifier(LLVMModuleRef val) {
	return strdup(unwrap(val)->getModuleIdentifier().c_str());
}

char *LLVM_Hs_GetSourceFileName(LLVMModuleRef val) {
	return strdup(unwrap(val)->getSourceFileName().c_str());
}

void LLVM_Hs_SetSourceFileName(LLVMModuleRef val, const char* sourceFileName) {
	return unwrap(val)->setSourceFileName(sourceFileName);
}

LLVMValueRef LLVM_Hs_GetFirstAlias(LLVMModuleRef m) {
	Module *mod = unwrap(m);
	Module::alias_iterator i = mod->alias_begin();
    if (i == mod->alias_end()) {
        return 0;
    }
    return wrap(&*i);
}

LLVMValueRef LLVM_Hs_GetNextAlias(LLVMValueRef a) {
	GlobalAlias *alias = unwrap<GlobalAlias>(a);
	Module::alias_iterator i(alias);
	if (++i == alias->getParent()->alias_end()) return 0;
	return wrap(&*i);
}

Comdat *LLVM_Hs_GetOrInsertCOMDAT(LLVMModuleRef m, const char *name) {
  return unwrap(m)->getOrInsertComdat(name);
}

// TODO (cocreature): Figure out if we can just change the linkage here
LLVMValueRef LLVM_Hs_JustAddAlias(LLVMModuleRef m, LLVMTypeRef ty, unsigned addrspace, const char *name) {
	return wrap(GlobalAlias::create(unwrap(ty), addrspace, GlobalValue::ExternalLinkage, name, 0, unwrap(m)));
}

NamedMDNode *LLVM_Hs_GetOrAddNamedMetadata(LLVMModuleRef m, const char *name) {
	return unwrap(m)->getOrInsertNamedMetadata(name);
}

NamedMDNode *LLVM_Hs_GetFirstNamedMetadata(LLVMModuleRef m) {
	Module *mod = unwrap(m);
	Module::named_metadata_iterator i = mod->named_metadata_begin();
	return i == mod->named_metadata_end() ? 0 : &*i;
}

NamedMDNode *LLVM_Hs_GetNextNamedMetadata(NamedMDNode *a) {
	Module::named_metadata_iterator i(a);
	if (++i == a->getParent()->named_metadata_end()) return 0;
	return &*i;
}

void LLVM_Hs_ModuleAppendInlineAsm(LLVMModuleRef m, const char *s, unsigned l) {
	unwrap(m)->appendModuleInlineAsm(StringRef(s,l));
}

const char *LLVM_Hs_ModuleGetInlineAsm(LLVMModuleRef m) {
	return unwrap(m)->getModuleInlineAsm().c_str();
}

}