From eeb6537abb77f7d19270099a27ad1a690d9fd75d Mon Sep 17 00:00:00 2001 From: Gordon Henriksen Date: Sat, 30 Aug 2008 16:34:54 +0000 Subject: PR2731: C and Ocaml bindings for setTailCall and isTailCall. Based on patch by Giorgos Korfiatis. llvm-svn: 55570 --- llvm/lib/VMCore/Core.cpp | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'llvm/lib/VMCore/Core.cpp') diff --git a/llvm/lib/VMCore/Core.cpp b/llvm/lib/VMCore/Core.cpp index 8517a41d7ce..2fedc1e3f1d 100644 --- a/llvm/lib/VMCore/Core.cpp +++ b/llvm/lib/VMCore/Core.cpp @@ -963,6 +963,16 @@ void LLVMSetInstrParamAlignment(LLVMValueRef Instr, unsigned index, ParamAttr::constructAlignmentFromInt(align))); } +/*--.. Operations on call instructions (only) ..............................--*/ + +int LLVMIsTailCall(LLVMValueRef Call) { + return unwrap(Call)->isTailCall(); +} + +void LLVMSetTailCall(LLVMValueRef Call, int isTailCall) { + unwrap(Call)->setTailCall(isTailCall); +} + /*--.. Operations on phi nodes .............................................--*/ void LLVMAddIncoming(LLVMValueRef PhiNode, LLVMValueRef *IncomingValues, -- cgit v1.2.3