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

annotate tools/binding/llvm/llvm.d @ 1273:1ba61de8796b

Committing LLVM binding for D as it currently exists in the SVN repository.

author	Frits van Bommel <fvbommel wxs.nl>
date	Mon, 27 Apr 2009 22:33:17 +0200
parents
children	4ff9ab0d472c

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;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	56 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	57 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	58 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	59 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	60 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	61 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	62 }
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 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	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 = null;
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 = m;
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[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	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 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	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 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	74 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	75 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	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 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	78 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	79 /// 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	80 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	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 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	83 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	84 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	85 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	86 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	87 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	88 LLVMDisposeMessage(msg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	89 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	90 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	91 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	92 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	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 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	95 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	96 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	97 LLVMDisposeMessage(msg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	98 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	99 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	100 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	101 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	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 /// 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	104 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	105 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	106 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	107 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	108 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	109 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	110 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	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 }
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 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	115 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	116 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	117 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	120 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	121 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	122 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	123 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	126 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	127 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	128 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	129 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	132 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	133 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	134 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	135 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	138 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	139 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	140 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	141 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	144 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	145 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	146 }
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 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	149 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	150 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	151 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	152 }
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 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	155 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	156 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	157 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	158 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	159 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	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 /// 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	162 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	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 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	165 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	166 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	167 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	168 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	169 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	170 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	171 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	172 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	173 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	174 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	175 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	176 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	177 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	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 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	180 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	181 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	182 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	183 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	184 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	185 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	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 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	188 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	189 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	190 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	191 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	192 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	193 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	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 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	196 auto c = LLVMGetOrInsertFunction(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	197 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	198 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	199 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	200 /// 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	201 /// 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	202 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	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 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	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 /// 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	207 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	208 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	209 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	210 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	211 /// 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	212 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	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 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	215 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	216 /// 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	217 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	218 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	219 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	220 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	221 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	222 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	223 LLVMDisposeMessage(msg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	224 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	225 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	226 }
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
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	229 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	230 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	231 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	232 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	233 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	234 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	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 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	237 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	238 /// 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	239 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	240 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	241 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	242 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	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 /// 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	245 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	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 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	248 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	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 /// 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	251 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	252 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	253 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	254 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	255 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	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 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	258 LLVMDisposeMessage(msg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	259 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	260 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	261
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	262 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	263 // 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	264 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	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 // ... 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	267 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	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 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	270 LLVMDisposeMessage(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 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	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 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	274 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	275 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	276 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	277 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	278 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	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 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	281
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	282 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	283 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	284 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	285 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	286 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	287 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	288 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	289 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	290 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	291 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	292 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	293 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	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 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	297 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	298 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	299 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	300 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	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 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	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 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	306 }
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 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	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 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	311 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	312 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	313 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	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 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	316 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	317 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	318 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	319 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	320 }
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 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	323 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	324 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	325 }
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 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	328 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	329 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	330 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	331 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	332 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	333 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	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 /// 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	336 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	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 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	339 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	340 /// ditto
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	341 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	342 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	343 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	344 }
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 /// 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	347 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	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 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	350 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	351 /// ditto
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	352 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	353 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	354 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	355 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	356
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	357 /// 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	358 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	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 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	361 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	362 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	363 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	364 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	365 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	366 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	367 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	368 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	369 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	370 /// ditto
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	371 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	372 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	373 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	374 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	375 /// ditto
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	376 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	377 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	378 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	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 /// ditto
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	381 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	382 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	383 // 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	384 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	385 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	386
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	387 /// 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	388 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	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 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	391 }
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
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 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	396 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	397 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	398 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	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 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	401 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	402 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	403 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	404
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	405 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	406 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	407
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	408 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	409 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	410
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	411 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	412 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	413 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	414 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	415 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	416 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	417
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	418 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	419 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	420
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.ConstantFP:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	422 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	423
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	424 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	425 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	426
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	427 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	428 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	429
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	430 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	431 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	432
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.BasicBlock:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	434 default:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	435 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	436 }
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
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	439 private
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 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	442 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	443 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	444 "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	445 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	446 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	447 }";
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	448 }
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 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	451 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	452 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	453 "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	454 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	455 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	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 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	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 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	462 "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	463 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	464 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	465 }";
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	466 }
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 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	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 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	471 "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	472 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	473 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	474 }";
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	475 }
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 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	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 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	480 "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	481 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	482 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	483 }";
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	484 }
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 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	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 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	489 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	490 else
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	491 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	492 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	493 }
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 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	497 {
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 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	500 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	501 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	502 }
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 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	506 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	507 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	508 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	509 /// 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	510 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	511 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	512 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	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 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	516 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	517 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	520 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	521 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	522 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	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 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	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 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	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
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	530 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	531 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	532 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	533 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	536 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	537 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	538 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	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
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	541 static
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	542 {
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 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	545 "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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	548 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	549 "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	550 "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	551 "ExtractElement"
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	554 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	555 "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	556 "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	557 "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	558 ));
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 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	561 "Select",
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	562 "InsertElement",
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	563 "ShuffleVector"
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	564 ));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	565 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	566 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	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(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	569 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	570 Constant GetGEP(Constant ptr, Constant[] idxs)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	571 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	572 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	573 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	574 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	575 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	576 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	577 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	578 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	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 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	581 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	582 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	583 }
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 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	589 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	590 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	591 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	592 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	593 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	594
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	595 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	596 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	597 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	598 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	599 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	600 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	601 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	602 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	603 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	604 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	605 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	606 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	607 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	608 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	609 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	610 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	611 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	612 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	613 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	614 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	615 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	616 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	617 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	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 }
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 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	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 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	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 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	628 }
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 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	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 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	633 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	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 }
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 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	641 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	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 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	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 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	646
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 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	649 {
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 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	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 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	654 }
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 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	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 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	659 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	660 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	661 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	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 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	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 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	667 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	668 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	669 }
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
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	672 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	673 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	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 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	677 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	678 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	681 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	682 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	683 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	684 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	685 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	686 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	687 }
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	691 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	692 {
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 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	695 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	696 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	697 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	698 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	699 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	700 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	701 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	702 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	703 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	704 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	705 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	706 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	707
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 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	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 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	713 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	716 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	717 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	718 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	721 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	722 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	723 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	724 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	725 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	726 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	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 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	731 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	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 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	736 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	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 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	741 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	742 {
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 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	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 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	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 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	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 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	752 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	753 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	756 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	757 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	758 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	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 }
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	763 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	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 /// TODO:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	766 /// void DeleteGlobal(ValueRef GlobalVar);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	767
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 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	770 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	773 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	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 return LLVMHasInitializer(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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	778 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	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 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	781 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	782 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	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 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	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 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	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 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	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 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	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 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	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 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	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 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	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 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	803 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	804 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	805 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	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 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	808 }
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	812 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	813 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	814 /// TODO:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	815 /// void GetParams(ValueRef Fn, ValueRef *Params);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	816 /// void GetBasicBlocks(ValueRef Fn, BasicBlockRef *BasicBlocks);
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	819 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	820 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	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 eraseFromParent()
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 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	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 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	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 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	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 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	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 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	836 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	837 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	838 }
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 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	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 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	843 }
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 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	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 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	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 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	851 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	852 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	853 }
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 char[] collector()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	856 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	857 return from_stringz(LLVMGetCollector(value));
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 collector(char[] col)
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 LLVMSetCollector(value, to_stringz(col));
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 numBasicBlocks()
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 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	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 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	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 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	873 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	874 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	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 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	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 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	880 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	881 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	882 }
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 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	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 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	887 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	888 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	889 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	890 /// 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	891 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	892 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	893 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	894 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	895 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	896 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	897 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	898 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	899 }
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 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	905 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	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 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	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 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	910 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	911 }
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 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	914 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	915 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	916 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	917 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	918 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	919 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	920 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	921 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	922 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	923 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	924 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	925 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	926 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	927 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	928 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	929 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	930 }
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 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	933 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	934 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	935 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	936 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	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 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	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 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	942 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	943 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	944 }
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 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	947 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	948 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	949 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	950 }
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 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	953 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	954 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	955 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	956 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	957 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	958 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	959 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	960 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	961 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	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 }
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	966 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	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 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	970 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	971 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	972 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	973 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	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 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	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 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	979 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	980 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	981 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	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 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	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 /// 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	986 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	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 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	989 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	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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	992 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	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 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	995 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	996 }

Mercurial > projects > ldc

annotate tools/binding/llvm/llvm.d @ 1273:1ba61de8796b