RPCS3/llvm
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm.git synced 2025-04-09 00:51:41 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

bindings: tab and indentation fixes of my previous commits

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@141989 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Torok Edwin 2011-10-14 20:37:42 +00:00
parent b10946a5a9
commit 31116410de
2 changed files with 54 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -295,15 +295,15 @@ CAMLprim LLVMTypeRef llvm_packed_struct_type(LLVMContextRef C,
/* lltype -> string option */ /* lltype -> string option */
CAMLprim value llvm_struct_name(LLVMTypeRef Ty) CAMLprim value llvm_struct_name(LLVMTypeRef Ty)
{ {
CAMLparam0(); CAMLparam0();
const char *C = LLVMGetStructName(Ty); const char *C = LLVMGetStructName(Ty);
if (C) { if (C) {
CAMLlocal1(result); CAMLlocal1(result);
result = caml_alloc_small(1, 0); result = caml_alloc_small(1, 0);
Store_field(result, 0, caml_copy_string(C)); Store_field(result, 0, caml_copy_string(C));
CAMLreturn(result); CAMLreturn(result);
} }
CAMLreturn(Val_int(0)); CAMLreturn(Val_int(0));
} }
/* lltype -> lltype array */ /* lltype -> lltype array */
@ -475,20 +475,20 @@ CAMLprim LLVMValueRef llvm_mdnode(LLVMContextRef C, value ElementVals) {
/* llvalue -> string option */ /* llvalue -> string option */
CAMLprim value llvm_get_mdstring(LLVMValueRef V) { CAMLprim value llvm_get_mdstring(LLVMValueRef V) {
CAMLparam0(); CAMLparam0();
const char *S; const char *S;
unsigned Len; unsigned Len;
if ((S = LLVMGetMDString(V, &Len))) { if ((S = LLVMGetMDString(V, &Len))) {
CAMLlocal2(Option, Str); CAMLlocal2(Option, Str);
Str = caml_alloc_string(Len); Str = caml_alloc_string(Len);
memcpy(String_val(Str), S, Len); memcpy(String_val(Str), S, Len);
Option = alloc(1,0); Option = alloc(1,0);
Store_field(Option, 0, Str); Store_field(Option, 0, Str);
CAMLreturn(Option); CAMLreturn(Option);
} }
CAMLreturn(Val_int(0)); CAMLreturn(Val_int(0));
} }
CAMLprim value llvm_get_namedmd(LLVMModuleRef M, value name) CAMLprim value llvm_get_namedmd(LLVMModuleRef M, value name)
@ -1016,14 +1016,14 @@ DEFINE_ITERATORS(instr, Instruction, LLVMBasicBlockRef, LLVMValueRef,
/* llvalue -> ICmp.t */ /* llvalue -> ICmp.t */
CAMLprim value llvm_instr_icmp_predicate(LLVMValueRef Val) { CAMLprim value llvm_instr_icmp_predicate(LLVMValueRef Val) {
CAMLparam0(); CAMLparam0();
int x = LLVMGetICmpPredicate(Val); int x = LLVMGetICmpPredicate(Val);
if (x) { if (x) {
value Option = alloc(1, 0); value Option = alloc(1, 0);
Field(Option, 0) = Val_int(x - LLVMIntEQ); Field(Option, 0) = Val_int(x - LLVMIntEQ);
CAMLreturn(Option); CAMLreturn(Option);
} }
CAMLreturn(Val_int(0)); CAMLreturn(Val_int(0));
} }

50
lib/VMCore/Core.cpp
View File

@ -309,10 +309,10 @@ LLVMTypeRef LLVMStructCreateNamed(LLVMContextRef C, const char *Name)
const char *LLVMGetStructName(LLVMTypeRef Ty) const char *LLVMGetStructName(LLVMTypeRef Ty)
{ {
StructType *Type = unwrap<StructType>(Ty); StructType *Type = unwrap<StructType>(Ty);
if (!Type->hasName()) if (!Type->hasName())
return 0; return 0;
return Type->getName().data(); return Type->getName().data();
} }
void LLVMStructSetBody(LLVMTypeRef StructTy, LLVMTypeRef *ElementTypes, void LLVMStructSetBody(LLVMTypeRef StructTy, LLVMTypeRef *ElementTypes,
@ -533,29 +533,29 @@ LLVMValueRef LLVMMDNode(LLVMValueRef *Vals, unsigned Count) {
} }
const char *LLVMGetMDString(LLVMValueRef V, unsigned* Len) { const char *LLVMGetMDString(LLVMValueRef V, unsigned* Len) {
if (const MDString *S = dyn_cast<MDString>(unwrap(V))) { if (const MDString *S = dyn_cast<MDString>(unwrap(V))) {
*Len = S->getString().size(); *Len = S->getString().size();
return S->getString().data(); return S->getString().data();
} }
*Len = 0; *Len = 0;
return 0; return 0;
} }
unsigned LLVMGetNamedMetadataNumOperands(LLVMModuleRef M, const char* name) unsigned LLVMGetNamedMetadataNumOperands(LLVMModuleRef M, const char* name)
{ {
if (NamedMDNode *N = unwrap(M)->getNamedMetadata(name)) { if (NamedMDNode *N = unwrap(M)->getNamedMetadata(name)) {
return N->getNumOperands(); return N->getNumOperands();
} }
return 0; return 0;
} }
void LLVMGetNamedMetadataOperands(LLVMModuleRef M, const char* name, LLVMValueRef *Dest) void LLVMGetNamedMetadataOperands(LLVMModuleRef M, const char* name, LLVMValueRef *Dest)
{ {
NamedMDNode *N = unwrap(M)->getNamedMetadata(name); NamedMDNode *N = unwrap(M)->getNamedMetadata(name);
if (!N) if (!N)
return; return;
for (unsigned i=0;i<N->getNumOperands();i++) for (unsigned i=0;i<N->getNumOperands();i++)
Dest[i] = wrap(N->getOperand(i)); Dest[i] = wrap(N->getOperand(i));
} }
/*--.. Operations on scalar constants ......................................--*/ /*--.. Operations on scalar constants ......................................--*/
@ -1583,12 +1583,12 @@ void LLVMInstructionEraseFromParent(LLVMValueRef Inst) {
} }
LLVMIntPredicate LLVMGetICmpPredicate(LLVMValueRef Inst) { LLVMIntPredicate LLVMGetICmpPredicate(LLVMValueRef Inst) {
if (ICmpInst *I = dyn_cast<ICmpInst>(unwrap(Inst))) if (ICmpInst *I = dyn_cast<ICmpInst>(unwrap(Inst)))
return (LLVMIntPredicate)I->getPredicate(); return (LLVMIntPredicate)I->getPredicate();
if (ConstantExpr *CE = dyn_cast<ConstantExpr>(unwrap(Inst))) if (ConstantExpr *CE = dyn_cast<ConstantExpr>(unwrap(Inst)))
if (CE->getOpcode() == Instruction::ICmp) if (CE->getOpcode() == Instruction::ICmp)
return (LLVMIntPredicate)CE->getPredicate(); return (LLVMIntPredicate)CE->getPredicate();
return (LLVMIntPredicate)0; return (LLVMIntPredicate)0;
} }
/*--.. Call and invoke instructions ........................................--*/ /*--.. Call and invoke instructions ........................................--*/