From 07cabf6102800aa701bc4d1bd282fafb63b8a416 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. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@55570 91177308-0d34-0410-b5e6-96231b3b80d8 --- lib/VMCore/Core.cpp | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'lib/VMCore') diff --git a/lib/VMCore/Core.cpp b/lib/VMCore/Core.cpp index 8517a41d7c..2fedc1e3f1 100644 --- a/lib/VMCore/Core.cpp +++ b/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