lib/ExecutionEngine/ExecutionEngineBindings.cpp

   1 //===-- ExecutionEngineBindings.cpp - C bindings for EEs ------------------===//
   2 //
   3 //                     The LLVM Compiler Infrastructure
   4 //
   5 // This file is distributed under the University of Illinois Open Source
   6 // License. See LICENSE.TXT for details.
   7 //
   8 //===----------------------------------------------------------------------===//
   9 //
  10 // This file defines the C bindings for the ExecutionEngine library.
  11 //
  12 //===----------------------------------------------------------------------===//
  13
  14 #define DEBUG_TYPE "jit"
  15 #include "llvm-c/ExecutionEngine.h"
  16 #include "llvm/ExecutionEngine/GenericValue.h"
  17 #include "llvm/ExecutionEngine/ExecutionEngine.h"
  18 #include "llvm/Support/ErrorHandling.h"
  19 #include <cstring>
  20
  21 using namespace llvm;
  22
  23 /*===-- Operations on generic values --------------------------------------===*/
  24
  25 LLVMGenericValueRef LLVMCreateGenericValueOfInt(LLVMTypeRef Ty,
  26                                                 unsigned long long N,
  27                                                 int IsSigned) {
  28   GenericValue *GenVal = new GenericValue();
  29   GenVal->IntVal = APInt(unwrap<IntegerType>(Ty)->getBitWidth(), N, IsSigned);
  30   return wrap(GenVal);
  31 }
  32
  33 LLVMGenericValueRef LLVMCreateGenericValueOfPointer(void *P) {
  34   GenericValue *GenVal = new GenericValue();
  35   GenVal->PointerVal = P;
  36   return wrap(GenVal);
  37 }
  38
  39 LLVMGenericValueRef LLVMCreateGenericValueOfFloat(LLVMTypeRef TyRef, double N) {
  40   GenericValue *GenVal = new GenericValue();
  41   switch (unwrap(TyRef)->getTypeID()) {
  42   case Type::FloatTyID:
  43     GenVal->FloatVal = N;
  44     break;
  45   case Type::DoubleTyID:
  46     GenVal->DoubleVal = N;
  47     break;
  48   default:
  49     LLVM_UNREACHABLE("LLVMGenericValueToFloat supports only float and double.");
  50   }
  51   return wrap(GenVal);
  52 }
  53
  54 unsigned LLVMGenericValueIntWidth(LLVMGenericValueRef GenValRef) {
  55   return unwrap(GenValRef)->IntVal.getBitWidth();
  56 }
  57
  58 unsigned long long LLVMGenericValueToInt(LLVMGenericValueRef GenValRef,
  59                                          int IsSigned) {
  60   GenericValue *GenVal = unwrap(GenValRef);
  61   if (IsSigned)
  62     return GenVal->IntVal.getSExtValue();
  63   else
  64     return GenVal->IntVal.getZExtValue();
  65 }
  66
  67 void *LLVMGenericValueToPointer(LLVMGenericValueRef GenVal) {
  68   return unwrap(GenVal)->PointerVal;
  69 }
  70
  71 double LLVMGenericValueToFloat(LLVMTypeRef TyRef, LLVMGenericValueRef GenVal) {
  72   switch (unwrap(TyRef)->getTypeID()) {
  73   case Type::FloatTyID:
  74     return unwrap(GenVal)->FloatVal;
  75   case Type::DoubleTyID:
  76     return unwrap(GenVal)->DoubleVal;
  77   default:
  78     LLVM_UNREACHABLE("LLVMGenericValueToFloat supports only float and double.");
  79     break;
  80   }
  81   return 0; // Not reached
  82 }
  83
  84 void LLVMDisposeGenericValue(LLVMGenericValueRef GenVal) {
  85   delete unwrap(GenVal);
  86 }
  87
  88 /*===-- Operations on execution engines -----------------------------------===*/
  89
  90 int LLVMCreateExecutionEngine(LLVMExecutionEngineRef *OutEE,
  91                               LLVMModuleProviderRef MP,
  92                               char **OutError) {
  93   std::string Error;
  94   if (ExecutionEngine *EE = ExecutionEngine::create(unwrap(MP), false, &Error)){
  95     *OutEE = wrap(EE);
  96     return 0;
  97   }
  98   *OutError = strdup(Error.c_str());
  99   return 1;
 100 }
 101
 102 int LLVMCreateInterpreter(LLVMExecutionEngineRef *OutInterp,
 103                           LLVMModuleProviderRef MP,
 104                           char **OutError) {
 105   std::string Error;
 106   if (ExecutionEngine *Interp =
 107       ExecutionEngine::create(unwrap(MP), true, &Error)) {
 108     *OutInterp = wrap(Interp);
 109     return 0;
 110   }
 111   *OutError = strdup(Error.c_str());
 112   return 1;
 113 }
 114
 115 int LLVMCreateJITCompiler(LLVMExecutionEngineRef *OutJIT,
 116                           LLVMModuleProviderRef MP,
 117                           unsigned OptLevel,
 118                           char **OutError) {
 119   std::string Error;
 120   if (ExecutionEngine *JIT =
 121       ExecutionEngine::create(unwrap(MP), false, &Error,
 122                                  (CodeGenOpt::Level)OptLevel)) {
 123     *OutJIT = wrap(JIT);
 124     return 0;
 125   }
 126   *OutError = strdup(Error.c_str());
 127   return 1;
 128 }
 129
 130 void LLVMDisposeExecutionEngine(LLVMExecutionEngineRef EE) {
 131   delete unwrap(EE);
 132 }
 133
 134 void LLVMRunStaticConstructors(LLVMExecutionEngineRef EE) {
 135   unwrap(EE)->runStaticConstructorsDestructors(false);
 136 }
 137
 138 void LLVMRunStaticDestructors(LLVMExecutionEngineRef EE) {
 139   unwrap(EE)->runStaticConstructorsDestructors(true);
 140 }
 141
 142 int LLVMRunFunctionAsMain(LLVMExecutionEngineRef EE, LLVMValueRef F,
 143                           unsigned ArgC, const char * const *ArgV,
 144                           const char * const *EnvP) {
 145   std::vector<std::string> ArgVec;
 146   for (unsigned I = 0; I != ArgC; ++I)
 147     ArgVec.push_back(ArgV[I]);
 148
 149   return unwrap(EE)->runFunctionAsMain(unwrap<Function>(F), ArgVec, EnvP);
 150 }
 151
 152 LLVMGenericValueRef LLVMRunFunction(LLVMExecutionEngineRef EE, LLVMValueRef F,
 153                                     unsigned NumArgs,
 154                                     LLVMGenericValueRef *Args) {
 155   std::vector<GenericValue> ArgVec;
 156   ArgVec.reserve(NumArgs);
 157   for (unsigned I = 0; I != NumArgs; ++I)
 158     ArgVec.push_back(*unwrap(Args[I]));
 159
 160   GenericValue *Result = new GenericValue();
 161   *Result = unwrap(EE)->runFunction(unwrap<Function>(F), ArgVec);
 162   return wrap(Result);
 163 }
 164
 165 void LLVMFreeMachineCodeForFunction(LLVMExecutionEngineRef EE, LLVMValueRef F) {
 166   unwrap(EE)->freeMachineCodeForFunction(unwrap<Function>(F));
 167 }
 168
 169 void LLVMAddModuleProvider(LLVMExecutionEngineRef EE, LLVMModuleProviderRef MP){
 170   unwrap(EE)->addModuleProvider(unwrap(MP));
 171 }
 172
 173 int LLVMRemoveModuleProvider(LLVMExecutionEngineRef EE,
 174                              LLVMModuleProviderRef MP,
 175                              LLVMModuleRef *OutMod, char **OutError) {
 176   std::string Error;
 177   if (Module *Gone = unwrap(EE)->removeModuleProvider(unwrap(MP), &Error)) {
 178     *OutMod = wrap(Gone);
 179     return 0;
 180   }
 181   if (OutError)
 182     *OutError = strdup(Error.c_str());
 183   return 1;
 184 }
 185
 186 int LLVMFindFunction(LLVMExecutionEngineRef EE, const char *Name,
 187                      LLVMValueRef *OutFn) {
 188   if (Function *F = unwrap(EE)->FindFunctionNamed(Name)) {
 189     *OutFn = wrap(F);
 190     return 0;
 191   }
 192   return 1;
 193 }
 194
 195 LLVMTargetDataRef LLVMGetExecutionEngineTargetData(LLVMExecutionEngineRef EE) {
 196   return wrap(unwrap(EE)->getTargetData());
 197 }
 198
 199 void LLVMAddGlobalMapping(LLVMExecutionEngineRef EE, LLVMValueRef Global,
 200                           void* Addr) {
 201   unwrap(EE)->addGlobalMapping(unwrap<GlobalValue>(Global), Addr);
 202 }
 203
 204 void *LLVMGetPointerToGlobal(LLVMExecutionEngineRef EE, LLVMValueRef Global) {
 205   return unwrap(EE)->getPointerToGlobal(unwrap<GlobalValue>(Global));
 206 }