int targets_list(void) { LLVMTargetRef t; LLVMInitializeAllTargetInfos(); LLVMInitializeAllTargets(); for (t = LLVMGetFirstTarget(); t; t = LLVMGetNextTarget(t)) { printf("%s", LLVMGetTargetName(t)); if (LLVMTargetHasJIT(t)) printf(" (+jit)"); printf("\n - %s\n", LLVMGetTargetDescription(t)); } return 0; }
/* Target.t -> string */ CAMLprim value llvm_target_description(LLVMTargetRef Target) { return caml_copy_string(LLVMGetTargetDescription(Target)); }