projects/ldc: tools/binding/llvm/llvm.d annotate

annotate tools/binding/llvm/llvm.d @ 1638:0de4525a9ed6

Apply workaround for #395 by klickverbot.

author	Christian Kamm <kamm incasoftware de>
date	Mon, 08 Mar 2010 20:06:08 +0100
parents	4ff9ab0d472c
children

rev	line source
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1 // Written in the D programming language by Tomas Lindquist Olsen 2008
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	2 // Binding of llvm.c.Core values for D.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	3 //
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	4 // This file is distributed under the University of Illinois Open Source
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	5 // License. See LICENSE.TXT for details.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	6 //
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	7 module llvm.llvm;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	8
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	9 import llvm.c.Core;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	10 import llvm.c.Ext;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	11 import llvm.c.BitWriter;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	12 import llvm.c.BitReader;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	13 import llvm.c.Analysis;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	14 import llvm.c.Target;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	15
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	16 public import llvm.type;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	17 public import llvm.builder;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	18
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	19 import llvm.util;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	20
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	21 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	22 class LLVMException : Exception
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	23 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	24 this(char[] msg) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	25 super(msg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	26 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	27 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	28
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	29 version(Tango) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	30 import tango.stdc.stdlib;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	31 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	32 else {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	33 import std.c.stdlib;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	34 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	35 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	36 alias LLVMLinkage Linkage;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	37 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	38 alias LLVMIntPredicate IntPredicate;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	39 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	40 alias LLVMRealPredicate RealPredicate;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	41 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	42 alias LLVMCallConv CallConv;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	43 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	44 alias LLVMVisibility Visibility;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	45 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	46 alias LLVMValueKind ValueKind;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	47
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	48 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	49 class Module
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	50 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	51 /// global registry for 1:1 mapping of ModuleRef's -> Module's
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	52 private static Module[LLVMModuleRef] registry;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	53 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	54 private LLVMModuleRef mod;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	55 const char[] name;
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	56
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	57 // Make all methods final to enable linking with just needed libs.
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	58 // To make use of this if compiling with GDC: use -ffunction-sections when
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	59 // compiling and --gc-sections when linking.
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	60 // (Final avoids references in the vtable)
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	61 final:
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	62
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	63 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	64 this(char[] nam)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	65 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	66 name = nam;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	67 mod = LLVMModuleCreateWithName(to_stringz(nam));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	68 registry[mod] = this;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	69 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	70 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	71 private this(LLVMModuleRef m)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	72 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	73 name = null;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	74 mod = m;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	75 registry[m] = this;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	76 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	77 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	78 static package Module GetExisting(LLVMModuleRef m)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	79 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	80 if (auto p = m in registry)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	81 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	82 return *p;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	83 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	84 return new Module(m);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	85 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	86 /// Create a module from bitcode. Returns the Module on success, null on failure.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	87 static Module GetFromBitcode(char[] bitcodepath, ref char[] errmsg)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	88 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	89 LLVMModuleRef mref;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	90 LLVMMemoryBufferRef bref;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	91 char* msg;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	92 if (LLVMCreateMemoryBufferWithContentsOfFile(to_stringz(bitcodepath), &bref, &msg))
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	93 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	94 errmsg = from_stringz(msg).dup;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	95 LLVMDisposeMessage(msg);
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	96 if (errmsg.length == 0)
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	97 errmsg = "Error reading bitcode file";
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	98 throw new LLVMException(errmsg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	99 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	100 scope(exit)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	101 LLVMDisposeMemoryBuffer(bref);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	102
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	103 if (LLVMParseBitcode(bref, &mref, &msg))
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	104 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	105 errmsg = from_stringz(msg).dup;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	106 LLVMDisposeMessage(msg);
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	107 if (errmsg.length == 0)
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	108 errmsg = "Error parsing bitcode";
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	109 LLVMDisposeMemoryBuffer(bref);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	110 throw new LLVMException(errmsg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	111 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	112 return new Module(mref);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	113 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	114 /// important to call this when done
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	115 void dispose()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	116 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	117 if (mod)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	118 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	119 registry.remove(mod);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	120 LLVMDisposeModule(mod);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	121 mod = null;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	122 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	123 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	124 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	125 char[] dataLayout()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	126 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	127 assert(mod !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	128 return from_stringz(LLVMGetDataLayout(mod));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	129 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	130 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	131 void dataLayout(char[] dl)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	132 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	133 assert(mod !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	134 LLVMSetDataLayout(mod, to_stringz(dl));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	135 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	136 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	137 char[] target()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	138 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	139 assert(mod !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	140 return from_stringz(LLVMGetTarget(mod));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	141 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	142 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	143 void target(char[] dl)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	144 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	145 assert(mod !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	146 LLVMSetTarget(mod, to_stringz(dl));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	147 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	148 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	149 bool addTypeName(char[] nam, Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	150 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	151 assert(mod !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	152 return LLVMAddTypeName(mod, to_stringz(nam), t.ll) != 0;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	153 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	154 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	155 Type getTypeByName(char[] name) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	156 return getTypeOf(LLVMGetTypeByName(mod, to_stringz(name)));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	157 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	158 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	159 void deleteTypeName(char[] nam)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	160 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	161 assert(mod !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	162 LLVMDeleteTypeName(mod, to_stringz(nam));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	163 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	164 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	165 GlobalVariable addGlobal(Type t, char[] nam)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	166 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	167 assert(mod !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	168 auto c = LLVMAddGlobal(mod, t.ll, to_stringz(nam));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	169 assert(c !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	170 return new GlobalVariable(c, getTypeOf(c));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	171 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	172 /// Convenience method, type is taken to be that of the initializer
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	173 GlobalVariable addGlobal(Constant initializer, char[] name)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	174 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	175 auto global = addGlobal(initializer.type, name);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	176 global.initializer = initializer;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	177 return global;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	178 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	179 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	180 GlobalValue getNamedGlobal(char[] nam)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	181 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	182 assert(mod !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	183 auto c = LLVMGetNamedGlobal(mod, to_stringz(nam));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	184 if (c is null) return null;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	185 return cast(GlobalValue)getValueOf(c);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	186 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	187 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	188 Function addFunction(Type t, char[] nam)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	189 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	190 assert(mod !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	191 auto c = LLVMAddFunction(mod, to_stringz(nam), t.ll);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	192 assert(c !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	193 return new Function(c, getTypeOf(c));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	194 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	195 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	196 Function getNamedFunction(char[] nam)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	197 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	198 assert(mod !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	199 auto c = LLVMGetNamedFunction(mod, to_stringz(nam));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	200 if (c is null) return null;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	201 return cast(Function)getValueOf(c);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	202 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	203 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	204 Function getOrInsertFunction(Type t, char[] nam)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	205 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	206 assert(mod !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	207 auto c = LLVMGetOrInsertFunction(mod, to_stringz(nam), t.ll);
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	208 auto val = getValueOf(c);
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	209 auto fn = cast(Function) val;
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	210 // Can happen if 'nam' names a function of a different type:
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	211 assert(fn !is null, "Not a function of type " ~ t.toString() ~ ": " ~ val.toString());
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	212 return fn;
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	213 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	214 /// Performs the same optimizations as `opt -std-compile-opts ...' would on the module.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	215 /// If inline is true, function inlining will be performed.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	216 void optimize(bool inline)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	217 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	218 LLVMOptimizeModule(mod, inline);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	219 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	220 /// Writes the module to an open file descriptor. Returns true on success.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	221 bool writeBitcodeToFileHandle(int handle)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	222 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	223 return (LLVMWriteBitcodeToFileHandle(mod, handle) == 0);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	224 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	225 /// Writes the module to the specified path. Returns 0 on success.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	226 bool writeBitcodeToFile(char[] path)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	227 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	228 return (LLVMWriteBitcodeToFile(mod, to_stringz(path)) == 0);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	229 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	230 /// Throws an exception if the module doesn't pass the LLVM verifier.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	231 void verify()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	232 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	233 char* msg;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	234 if (LLVMVerifyModule(mod, LLVMVerifierFailureAction.ReturnStatus, &msg))
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	235 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	236 auto errmsg = from_stringz(msg).dup;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	237 LLVMDisposeMessage(msg);
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	238 if (errmsg.length == 0)
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	239 errmsg = "Module verification failed";
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	240 throw new LLVMException(errmsg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	241 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	242 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	243 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	244
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	245 class ModuleProvider
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	246 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	247 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	248 private LLVMModuleProviderRef mp;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	249 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	250 private this(LLVMModuleProviderRef mp)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	251 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	252 this.mp = mp;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	253 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	254 /// Takes ownership of module, returns a ModuleProvider for it.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	255 static ModuleProvider GetForModule(Module m)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	256 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	257 auto mp = LLVMCreateModuleProviderForExistingModule(m.mod);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	258 return new ModuleProvider(mp);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	259 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	260 /// Destroys the provided module, unless this MP was passed to an ExecutionEngine.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	261 void dispose()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	262 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	263 LLVMDisposeModuleProvider(mp);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	264 mp = null;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	265 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	266 /// Returns a lazily-deserializing ModuleProvider
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	267 static ModuleProvider GetFromBitcode(char[] filename)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	268 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	269 LLVMMemoryBufferRef buf;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	270 char* msg;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	271 if (LLVMCreateMemoryBufferWithContentsOfFile(to_stringz(filename), &buf, &msg))
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	272 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	273 auto errmsg = from_stringz(msg).dup;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	274 LLVMDisposeMessage(msg);
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	275 if (errmsg.length == 0)
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	276 errmsg = "ModuleProvider: Error reading bitcode file";
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	277 throw new LLVMException(errmsg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	278 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	279
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	280 LLVMModuleProviderRef mp;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	281 // Takes ownership of buffer ...
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	282 if (LLVMGetBitcodeModuleProvider(buf, &mp, &msg))
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	283 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	284 // ... unless it fails, in which case we need to clean it up ourselves
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	285 LLVMDisposeMemoryBuffer(buf);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	286
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	287 auto errmsg = from_stringz(msg).dup;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	288 LLVMDisposeMessage(msg);
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	289 if (errmsg.length == 0)
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	290 errmsg = "Error creating ModuleProvider for bitcode file";
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	291 throw new LLVMException(errmsg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	292 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	293 return new ModuleProvider(mp);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	294 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	295 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	296 package LLVMModuleProviderRef ll()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	297 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	298 return mp;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	299 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	300 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	301
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	302 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	303 class Value
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	304 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	305 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	306 const LLVMValueRef value;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	307 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	308 const Type type;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	309 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	310 this(LLVMValueRef v, Type t=null) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	311 value = v;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	312 if (t is null) t = getTypeOf(v);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	313 type = t;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	314 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	315 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	316 char[] toString() {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	317 auto cstr = LLVMValueToString(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	318 auto result = from_stringz(cstr).dup;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	319 free(cstr);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	320 return result;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	321 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	322 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	323 ValueKind kind()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	324 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	325 return LLVMGetValueKind(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	326 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	327 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	328 char[] name()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	329 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	330 return from_stringz(LLVMGetValueName(value));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	331 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	332 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	333 void name(char[] s)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	334 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	335 LLVMSetValueName(value, to_stringz(s));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	336 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	337 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	338 void dump() {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	339 LLVMDumpValue(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	340 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	341 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	342 bool isConstant()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	343 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	344 return LLVMIsConstant(value) != 0;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	345 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	346 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	347 int opEquals(Object o)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	348 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	349 auto v = cast(Value)o;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	350 if (v is null) return 0;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	351 if (value is v.value)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	352 return 1;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	353 return 0;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	354 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	355 /// invalidates object
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	356 void eraseFromParent()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	357 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	358 LLVMEraseFromParent(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	359 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	360 /// ditto
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	361 void replaceAllUsesWith(Value newval)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	362 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	363 LLVMReplaceAllUsesWith(value, newval.value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	364 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	365
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	366 /// only for call's
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	367 void callConv(uint CC)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	368 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	369 LLVMSetInstructionCallConv(value, CC);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	370 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	371 /// ditto
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	372 uint callConv()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	373 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	374 return LLVMGetInstructionCallConv(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	375 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	376
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	377 /// only for phi's
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	378 void addIncoming(Value[] inValues, BasicBlock[] inBlocks)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	379 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	380 auto n = inValues.length;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	381 assert(n == inBlocks.length);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	382 auto v = new LLVMValueRef[n];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	383 auto b = new LLVMBasicBlockRef[n];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	384 for (size_t i=0; i<n; i++) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	385 v[i] = inValues[i].value;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	386 b[i] = inBlocks[i].bb;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	387 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	388 LLVMAddIncoming(value, v.ptr, b.ptr, n);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	389 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	390 /// ditto
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	391 uint numIncoming()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	392 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	393 return LLVMCountIncoming(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	394 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	395 /// ditto
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	396 Value getIncomingValue(uint index)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	397 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	398 return getValueOf(LLVMGetIncomingValue(value, index));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	399 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	400 /// ditto
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	401 BasicBlock getIncomingBlock(uint index)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	402 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	403 // TODO bb's should be unique as well
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	404 return new BasicBlock(LLVMGetIncomingBlock(value, index));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	405 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	406
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	407 /// only for switch's
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	408 void addCase(Value onval, BasicBlock b)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	409 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	410 LLVMAddCase(value, onval.value, b.bb);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	411 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	412 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	413
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	414 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	415 Value getValueOf(LLVMValueRef v)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	416 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	417 auto kind = LLVMGetValueKind(v);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	418 switch(kind)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	419 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	420 case ValueKind.Argument:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	421 case ValueKind.InlineAsm:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	422 case ValueKind.Instruction:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	423 return new Value(v);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	424
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	425 case ValueKind.Function:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	426 return new Function(v, getTypeOf(v));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	427
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	428 case ValueKind.GlobalVariable:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	429 return new GlobalVariable(v, getTypeOf(v));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	430
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	431 case ValueKind.GlobalAlias:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	432 case ValueKind.UndefValue:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	433 case ValueKind.ConstantExpr:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	434 case ValueKind.ConstantAggregateZero:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	435 case ValueKind.ConstantPointerNull:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	436 return new Constant(v, getTypeOf(v));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	437
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	438 case ValueKind.ConstantInt:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	439 return new ConstantInt(v, getTypeOf(v));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	440
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	441 case ValueKind.ConstantFP:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	442 return new ConstantReal(v, getTypeOf(v));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	443
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	444 case ValueKind.ConstantArray:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	445 return new ConstantArray(v, getTypeOf(v));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	446
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	447 case ValueKind.ConstantStruct:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	448 return new ConstantStruct(v, getTypeOf(v));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	449
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	450 case ValueKind.ConstantVector:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	451 return new ConstantVector(v, getTypeOf(v));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	452
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	453 case ValueKind.BasicBlock:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	454 default:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	455 assert(0);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	456 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	457 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	458
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	459 private
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	460 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	461 template GenericConstUnaOp(char[] N)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	462 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	463 const GenericConstUnaOp =
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	464 "Constant Get"~N~"(Constant v) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	465 auto c = LLVMConst"~N~"(v.value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	466 return cast(Constant)getValueOf(c);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	467 }";
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	468 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	469
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	470 template GenericConstBinOp(char[] N)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	471 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	472 const GenericConstBinOp =
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	473 "Constant Get"~N~"(Constant l, Constant r) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	474 auto c = LLVMConst"~N~"(l.value, r.value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	475 return cast(Constant)getValueOf(c);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	476 }";
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	477 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	478
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	479 template GenericConstTriOp(char[] N)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	480 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	481 const GenericConstTriOp =
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	482 "Constant Get"~N~"(Constant s, Constant t, Constant u) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	483 auto c = LLVMConst"~N~"(s.value, t.value, u.value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	484 return cast(Constant)getValueOf(c);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	485 }";
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	486 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	487
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	488 template GenericConstCast(char[] N)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	489 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	490 const GenericConstCast =
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	491 "Constant Get"~N~"(Constant v, Type t) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	492 auto c = LLVMConst"~N~"(v.value, t.ll);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	493 return cast(Constant)getValueOf(c);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	494 }";
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	495 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	496
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	497 template GenericConstCmp(char[] PRED, char[] N)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	498 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	499 const GenericConstCmp =
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	500 "Constant Get"~N~"("~PRED~"Predicate p, Constant l, Constant r) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	501 auto c = LLVMConst"~N~"(p, l.value, r.value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	502 return cast(Constant)getValueOf(c);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	503 }";
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	504 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	505
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	506 template StringDistribute(alias T, U...)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	507 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	508 static if (!U.length)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	509 const char[] StringDistribute="";
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	510 else
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	511 const char[] StringDistribute = T!(U[0]) ~ StringDistribute!(T, U[1..$]);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	512 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	513 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	514
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	515 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	516 class Constant : Value
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	517 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	518 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	519 protected this(LLVMValueRef v, Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	520 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	521 super(v,t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	522 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	523
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	524 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	525 static Constant GetNull(Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	526 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	527 return cast(Constant)getValueOf(LLVMConstNull(t.ll));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	528 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	529 /// only for int/vector
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	530 static Constant GetAllOnes(Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	531 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	532 return cast(Constant)getValueOf(LLVMConstAllOnes(t.ll));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	533 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	534 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	535 static Constant GetUndef(Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	536 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	537 return cast(Constant)getValueOf(LLVMGetUndef(t.ll));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	538 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	539 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	540 static ConstantInt GetTrue()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	541 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	542 return ConstantInt.GetU(Type.Int1, 1);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	543 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	544 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	545 static ConstantInt GetFalse()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	546 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	547 return ConstantInt.GetU(Type.Int1, 0);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	548 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	549
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	550 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	551 bool isNull()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	552 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	553 return LLVMIsNull(value) != 0;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	554 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	555 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	556 bool isUndef()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	557 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	558 return LLVMIsUndef(value) != 0;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	559 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	560
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	561 static
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	562 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	563 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	564 mixin(StringDistribute!(GenericConstUnaOp,
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	565 "Neg","Not"
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	566 ));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	567 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	568 mixin(StringDistribute!(GenericConstBinOp,
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	569 "Add","Sub","Mul","UDiv","SDiv","FDiv","URem","SRem","FRem",
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	570 "And","Or","Xor","Shl","LShr","AShr",
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	571 "ExtractElement"
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	572 ));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	573 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	574 mixin(StringDistribute!(GenericConstCast,
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	575 "Trunc","SExt","ZExt","FPTrunc","FPExt",
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	576 "UIToFP","SIToFP","FPToUI","FPToSI",
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	577 "PtrToInt","IntToPtr","BitCast"
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	578 ));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	579 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	580 mixin(StringDistribute!(GenericConstTriOp,
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	581 "Select",
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	582 "InsertElement",
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	583 "ShuffleVector"
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	584 ));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	585 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	586 mixin(GenericConstCmp!("Int","ICmp"));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	587 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	588 mixin(GenericConstCmp!("Real","FCmp"));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	589 ///
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	590 Constant GetGEP(Constant ptr, Constant[] idxs...)
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	591 {
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	592 static if (size_t.max > uint.max) {
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	593 assert(idxs.length <= uint.max, "Ridiculous number of indexes to GEP");
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	594 }
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	595 auto ar = new LLVMValueRef[idxs.length];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	596 foreach(i,v; idxs) ar[i] = v.value;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	597 auto c = LLVMConstGEP(ptr.value, ar.ptr, ar.length);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	598 return cast(Constant)getValueOf(c);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	599 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	600 ///
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	601 Constant GetExtractValue(Constant agg, uint[] idxs...) {
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	602 static if (size_t.max > uint.max) {
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	603 assert(idxs.length <= uint.max, "Ridiculous number of indexes to ExtractValue");
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	604 }
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	605 auto c = LLVMConstExtractValue(agg.value, idxs.ptr, idxs.length);
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	606 return cast(Constant)getValueOf(c);
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	607 }
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	608 ///
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	609 Constant GetInsertValue(Constant agg, Constant elt, uint[] idxs...) {
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	610 static if (size_t.max > uint.max) {
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	611 assert(idxs.length <= uint.max, "Ridiculous number of indexes to InsertValue");
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	612 }
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	613 auto c = LLVMConstInsertValue(agg.value, elt.value, idxs.ptr, idxs.length);
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	614 return cast(Constant)getValueOf(c);
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	615 }
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	616 ///
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	617 Constant GetSizeOf(Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	618 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	619 return cast(Constant)getValueOf(LLVMSizeOf(t.ll));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	620 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	621 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	622 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	623
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	624 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	625 abstract class ScalarConstant : Constant
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	626 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	627 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	628 protected this(LLVMValueRef v, Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	629 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	630 super(v, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	631 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	632 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	633
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	634 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	635 class ConstantInt : ScalarConstant
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	636 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	637 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	638 private this(LLVMValueRef v, Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	639 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	640 super(v, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	641 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	642 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	643 static ConstantInt Get(Type t, ulong N, bool signExt)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	644 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	645 auto c = LLVMConstInt(t.ll, N, signExt);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	646 return new ConstantInt(c, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	647 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	648 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	649 static ConstantInt GetS(Type t, long N)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	650 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	651 return Get(t, cast(ulong)N, true);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	652 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	653 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	654 static ConstantInt GetU(Type t, ulong N)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	655 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	656 return Get(t, N, false);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	657 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	658 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	659
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	660 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	661 class ConstantReal : ScalarConstant
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	662 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	663 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	664 private this(LLVMValueRef v, Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	665 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	666 super(v, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	667 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	668 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	669 static ConstantReal Get(Type t, real N)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	670 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	671 auto c = LLVMConstReal(t.ll, N);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	672 return new ConstantReal(c, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	673 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	674 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	675
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	676 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	677 abstract class CompositeConstant : Constant
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	678 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	679 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	680 protected this(LLVMValueRef v, Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	681 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	682 super(v, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	683 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	684 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	685
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	686 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	687 class ConstantArray : CompositeConstant
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	688 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	689 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	690 private this(LLVMValueRef v, Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	691 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	692 super(v, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	693 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	694 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	695 static ConstantArray Get(Type eltty, Constant[] vals)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	696 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	697 auto p = new LLVMValueRef[vals.length];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	698 foreach(i,v; vals) p[i] = v.value;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	699 auto c = LLVMConstArray(eltty.ll, p.ptr, p.length);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	700 return new ConstantArray(c, getTypeOf(c));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	701 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	702 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	703 static ConstantArray GetString(char[] str, bool nullterm)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	704 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	705 auto len = str.length + nullterm;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	706 auto c = LLVMConstString(str.ptr, str.length, !nullterm);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	707 return new ConstantArray(c, getTypeOf(c));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	708 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	709 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	710
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	711 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	712 class ConstantStruct : CompositeConstant
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	713 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	714 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	715 private this(LLVMValueRef v, Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	716 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	717 super(v, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	718 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	719 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	720 static ConstantStruct Get(Constant[] vals, bool packed=false)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	721 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	722 auto p = new LLVMValueRef[vals.length];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	723 foreach(i,v; vals) p[i] = v.value;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	724 auto c = LLVMConstStruct(p.ptr, p.length, packed);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	725 return new ConstantStruct(c, getTypeOf(c));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	726 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	727 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	728
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	729 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	730 class ConstantVector : CompositeConstant
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	731 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	732 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	733 private this(LLVMValueRef v, Type t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	734 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	735 super(v, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	736 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	737 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	738 static ConstantVector Get(ScalarConstant[] vals)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	739 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	740 auto p = new LLVMValueRef[vals.length];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	741 foreach(i,v; vals) p[i] = v.value;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	742 auto c = LLVMConstVector(p.ptr, p.length);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	743 return new ConstantVector(c, getTypeOf(c));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	744 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	745 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	746
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	747 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	748 abstract class GlobalValue : Constant
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	749 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	750 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	751 private this(LLVMValueRef v, Type t) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	752 super(v, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	753 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	754 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	755 bool isDeclaration()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	756 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	757 return LLVMIsDeclaration(value) != 0;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	758 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	759 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	760 Linkage linkage()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	761 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	762 return LLVMGetLinkage(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	763 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	764 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	765 void linkage(Linkage l)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	766 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	767 LLVMSetLinkage(value, l);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	768 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	769 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	770 char[] section()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	771 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	772 return from_stringz(LLVMGetSection(value));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	773 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	774 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	775 void section(char[] s)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	776 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	777 LLVMSetSection(value, to_stringz(s));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	778 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	779 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	780 Visibility visibility()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	781 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	782 return LLVMGetVisibility(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	783 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	784 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	785 void visibility(Visibility v)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	786 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	787 LLVMSetVisibility(value, v);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	788 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	789 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	790 uint alignment()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	791 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	792 return LLVMGetAlignment(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	793 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	794 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	795 void alignment(uint bytes)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	796 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	797 LLVMSetAlignment(value, bytes);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	798 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	799 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	800
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	801 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	802 class GlobalVariable : GlobalValue
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	803 {
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	804 /// TODO: void DeleteGlobal(ValueRef GlobalVar);
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	805
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	806 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	807 private this(LLVMValueRef v, Type t) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	808 super(v, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	809 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	810 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	811 bool hasInitializer()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	812 {
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	813 return isDeclaration() == 0;
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	814 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	815 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	816 Constant initializer()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	817 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	818 auto c = LLVMGetInitializer(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	819 if (c is null) return null;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	820 return cast(Constant)getValueOf(c);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	821 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	822 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	823 void initializer(Constant c)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	824 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	825 LLVMSetInitializer(value, c.value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	826 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	827 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	828 bool threadLocal()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	829 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	830 return LLVMIsThreadLocal(value) != 0;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	831 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	832 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	833 void threadLocal(bool b)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	834 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	835 LLVMSetThreadLocal(value, b);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	836 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	837 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	838 bool globalConstant()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	839 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	840 return LLVMIsGlobalConstant(value) != 0;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	841 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	842 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	843 void globalConstant(bool b)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	844 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	845 LLVMSetGlobalConstant(value, b);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	846 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	847 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	848
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	849 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	850 class Function : GlobalValue
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	851 {
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	852 /// TODO: void GetParams(ValueRef Fn, ValueRef *Params);
4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	853 /// TODO: void GetBasicBlocks(ValueRef Fn, BasicBlockRef *BasicBlocks);
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	854
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	855 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	856 package this(LLVMValueRef v, Type t) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	857 super(v, t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	858 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	859 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	860 void eraseFromParent()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	861 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	862 LLVMDeleteFunction(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	863 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	864 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	865 uint numParams()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	866 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	867 return LLVMCountParams(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	868 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	869 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	870 Value getParam(uint idx)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	871 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	872 auto v = LLVMGetParam(value, idx);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	873 assert(v !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	874 return getValueOf(v);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	875 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	876 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	877 uint intrinsicID()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	878 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	879 return LLVMGetIntrinsicID(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	880 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	881 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	882 uint callConv()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	883 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	884 return LLVMGetFunctionCallConv(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	885 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	886 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	887 void callConv(uint cc)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	888 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	889 LLVMSetFunctionCallConv(value, cc);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	890 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	891 ///
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	892 char[] gc()
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	893 {
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	894 return from_stringz(LLVMGetGC(value));
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	895 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	896 ///
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	897 void gc(char[] name)
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	898 {
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	899 LLVMSetGC(value, to_stringz(name));
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	900 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	901 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	902 uint numBasicBlocks()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	903 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	904 return LLVMCountBasicBlocks(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	905 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	906 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	907 static BasicBlock InsertBasicBlock(BasicBlock bb, char[] name)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	908 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	909 auto b = LLVMInsertBasicBlock(bb.bb, to_stringz(name));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	910 assert(b !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	911 return new BasicBlock(b);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	912 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	913 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	914 BasicBlock appendBasicBlock(char[] name)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	915 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	916 auto b = LLVMAppendBasicBlock(value, to_stringz(name));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	917 assert(b !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	918 return new BasicBlock(b);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	919 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	920 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	921 BasicBlock getEntryBasicBlock()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	922 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	923 auto b = LLVMGetEntryBasicBlock(value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	924 if (b is null) return null;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	925 return new BasicBlock(b);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	926 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	927 /// Throws an exception if the function doesn't pass the LLVM verifier.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	928 void verify()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	929 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	930 if (LLVMVerifyFunction(value, LLVMVerifierFailureAction.ReturnStatus))
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	931 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	932 auto exceptionmsg = "Function failed to verify (" ~ name ~ ")";
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	933 throw new LLVMException(exceptionmsg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	934 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	935 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	936 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	937
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	938 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	939 class BasicBlock
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	940 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	941 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	942 LLVMBasicBlockRef bb;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	943 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	944 this(LLVMBasicBlockRef b)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	945 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	946 assert(b !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	947 bb = b;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	948 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	949 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	950 this(Value v)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	951 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	952 assert(LLVMValueIsBasicBlock(v.value));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	953 bb = LLVMValueAsBasicBlock(v.value);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	954 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	955 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	956 override int opEquals(Object o) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	957 auto block = cast(BasicBlock) o;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	958 if (!block)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	959 return false;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	960 return bb == block.bb;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	961 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	962 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	963 void dispose()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	964 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	965 LLVMDeleteBasicBlock(bb);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	966 bb = null;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	967 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	968 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	969 Function getParent() {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	970 assert(bb !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	971 auto func = LLVMGetBasicBlockParent(bb);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	972 if (!func) return null;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	973 return new Function(func, getTypeOf(func));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	974 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	975 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	976 Value asValue()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	977 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	978 assert(bb !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	979 auto v = LLVMBasicBlockAsValue(bb);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	980 return new Value(v, Type.Label);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	981 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	982 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	983 bool terminated()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	984 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	985 assert(bb !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	986 return (LLVMIsTerminated(bb) != 0);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	987 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	988 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	989 bool hasPredecessors()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	990 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	991 assert(bb !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	992 return (LLVMHasPredecessors(bb) != 0);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	993 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	994 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	995 bool empty()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	996 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	997 assert(bb !is null);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	998 return (LLVMIsBasicBlockEmpty(bb) != 0);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	999 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1000 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1001
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1002 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1003 class TargetData
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1004 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1005 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1006 private LLVMTargetDataRef target;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1007 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1008 private this(LLVMTargetDataRef td)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1009 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1010 target = td;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1011 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1012 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1013 static TargetData Get(char[] str)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1014 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1015 return new TargetData(LLVMCreateTargetData(to_stringz(str)));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1016 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1017 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1018 static TargetData Get(Module M)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1019 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1020 return new TargetData(LLVMCreateTargetData(to_stringz(M.dataLayout)));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1021 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1022 /// invalidates object
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1023 void dispose()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1024 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1025 LLVMDisposeTargetData(target);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1026 target = null;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1027 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1028 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1029 size_t getABITypeSize(Type T)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1030 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1031 return LLVMABISizeOfType(target, T.ll);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1032 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1033 }

Mercurial > projects > ldc

annotate tools/binding/llvm/llvm.d @ 1638:0de4525a9ed6