Mercurial > projects > ldc
view tools/binding/llvm-ext.cpp @ 1442:0a5f7890f327
Adjust some more code that was depending on the function and delegate calling
conventions being equal.
There's also an instance in `tango.text.convert.Layout` that should be adjusted:
{{{
Index: tango/text/convert/Layout.d
===================================================================
--- tango/text/convert/Layout.d (revision 4578)
+++ tango/text/convert/Layout.d (working copy)
-660,8 +660,12 @@
case TypeCode.STRUCT:
auto s = cast(TypeInfo_Struct) type;
- if (s.xtoString)
- return Utf.fromString8 (s.xtoString(p), result);
+ if (s.xtoString) {
+ char[] delegate() toString;
+ toString.ptr = p;
+ toString.funcptr = cast(char[] function()) s.xtoString;
+ return Utf.fromString8 (toString(), result);
+ }
goto default;
case TypeCode.INTERFACE:
}}}
author | Frits van Bommel <fvbommel wxs.nl> |
---|---|
date | Sun, 31 May 2009 15:27:01 +0200 |
parents | 1ba61de8796b |
children |
line wrap: on
line source
// Extension of the LLVM C interface for use with D, some things in the // LLVM 2.2 release are kind sparse or even broken... // // This file is distributed under the University of Illinois Open Source // License. See LICENSE.TXT for details. // #ifndef D11_LLVMCEXT_H #define D11_LLVMCEXT_H #include "llvm/Type.h" #include "llvm/Constants.h" #include "llvm/Support/CFG.h" #include "llvm/Target/TargetData.h" #include "llvm-c/Core.h" #include <sstream> #include <cstring> using namespace llvm; using namespace std; extern "C" { // we need to be able to erase an instruction from its parent void LLVMEraseFromParent(LLVMValueRef I) { unwrap<Instruction>(I)->eraseFromParent(); } // we need to be able to check if a basic block is terminated int LLVMIsTerminated(LLVMBasicBlockRef BB) { return (unwrap(BB)->getTerminator() != NULL); } // we need to be able to check if a basic block has any predecessors int LLVMHasPredecessors(LLVMBasicBlockRef BB) { BasicBlock* B = unwrap(BB); return (pred_begin(B) != pred_end(B)); } // we need to be able to check if a basic block is empty int LLVMIsBasicBlockEmpty(LLVMBasicBlockRef BB) { return unwrap(BB)->empty(); } // we need to be able to replace all uses of V with W void LLVMReplaceAllUsesWith(LLVMValueRef V, LLVMValueRef W) { unwrap<Value>(V)->replaceAllUsesWith(unwrap<Value>(W)); } // sometimes it's nice to be able to dump a type, not only values... void LLVMDumpType(LLVMTypeRef T) { unwrap(T)->dump(); } LLVMValueRef LLVMGetOrInsertFunction(LLVMModuleRef M, char* Name, LLVMTypeRef Type) { return wrap(unwrap(M)->getOrInsertFunction(Name, unwrap<FunctionType>(Type))); } // being able to determine the "kind" of a value is really useful unsigned LLVMGetValueKind(LLVMValueRef Value) { return unwrap(Value)->getValueID(); } char* LLVMValueToString(LLVMValueRef v) { stringstream ss; unwrap(v)->print(ss); return strdup(ss.str().c_str()); } char* LLVMTypeToString(LLVMTypeRef ty) { stringstream ss; unwrap(ty)->print(ss); return strdup(ss.str().c_str()); } LLVMTypeRef LLVMGetTypeByName(LLVMModuleRef M, char* Name) { return wrap(unwrap(M)->getTypeByName(Name)); } int LLVMIsTypeAbstract(LLVMTypeRef T) { return unwrap(T)->isAbstract(); } } // extern "C" #endif