Mercurial > projects > ldc
view tools/binding/llvmsample1.d @ 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
// simple hello world sample of D LLVM module llvmsample1; import llvm.llvm; void main() { // create module auto m = new Module("sample1"); scope(exit) m.dispose(); // declare string auto chello = ConstantArray.GetString("Hello World!\n", true); auto hello = m.addGlobal(chello.type, "hellostring"); hello.initializer = chello; hello.linkage = Linkage.Internal; hello.globalConstant = true; // declare printf auto printfType = FunctionType.Get(Type.Int32, [ PointerType.Get(Type.Int8) ], true); auto llprintf = m.addFunction(printfType, "printf"); // declare main auto mainType = FunctionType.Get(Type.Int32, null); auto llmain = m.addFunction(mainType, "main"); // create builder auto b = new Builder; scope(exit) b.dispose(); // create main body block auto bb = llmain.appendBasicBlock("entry"); b.positionAtEnd(bb); // call printf auto zero = ConstantInt.GetU(Type.Int32, 0); auto helloptr = b.buildGEP(hello, [ zero, zero ], "str"); helloptr.dump(); auto args = [ helloptr ]; auto call = b.buildCall(llprintf, args, ""); // return 0 b.buildRet(ConstantInt.GetS(Type.Int32, 0)); // write bitcode m.writeBitcodeToFile("sample1.bc"); }