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

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

Apply workaround for #395 by klickverbot.

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

rev	line source
1273 1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	1 // Written in the D programming language by Tomas Lindquist Olsen 2008
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	2 // Binding of llvm.c.Core types 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.type;
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
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.util;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	13
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	14 // we need free
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	15 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	16 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	17 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	18 else {
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 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	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
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 * Each value in the IR has a type, an instance of [lltype]. See the
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	25 * llvm::Type class.
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 class Type
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 /// global registry for 1:1 mapping of LLVMTypeRef's -> Type's
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	30 private static Type[LLVMTypeRef] registry;
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 alias LLVMTypeKind Kind;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	33 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	34 private LLVMTypeRef type;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	35 // used to detect if the kind of type has changed after refinement
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	36 private const Kind cached_kind;
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 private this(LLVMTypeRef t) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	39 assert(t !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	40 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	41 cached_kind = kind;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	42 assert((t in registry) is null, "Duplicate type");
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	43 registry[t] = this;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	44 if (isAbstract())
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	45 registerAbstractType();
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	46 }
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 void registerAbstractType() {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	49 static extern(C) void onTypeRefine(void* old, LLVMTypeRef newTypeRef) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	50 Type T = cast(Type) old;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	51 registry.remove(T.type);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	52
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	53 if (LLVMGetTypeKind(newTypeRef) == T.cached_kind) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	54 // The kind of type didn't change, so try to update and
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	55 // recycle the Type by updating the LLVMTypeRef.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	56 T.type = newTypeRef;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	57 if (newTypeRef 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	58 // We can't update the Type if it already exists
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	59 // but is abstract since doing so requires we pass
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	60 // a pointer to an object that will be stored where
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	61 // the GC can't see it. (If it's not in the registry
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	62 // it's safe because we'll put a reference in there
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	63 // for the GC to find, and if it's not abstract
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	64 // there's no need for the pointer to get out)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	65 if (T.isAbstract())
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	66 T.type = 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 } else {
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[newTypeRef] = T;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	69 // This callback only gets called once per type. If
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	70 // we recycle the old Type object for another
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	71 // abstract type we need to re-register it with the
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	72 // new LLVMTypeRef.
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 (T.isAbstract())
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	74 T.registerAbstractType();
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	75 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	76 } else {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	77 // Kind of type has changed, invalidate the old object.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	78 T.type = null;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	79 // The new Type will get entered into the registry when
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	80 // it's first needed.
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 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	83
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	84 // Make sure we there's a reference to the passed object that
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	85 // the GC can see in the registry.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	86 auto p = this.type 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	87 assert((p !is null) && (*p is this), "Can't safely register an abstract type that isn't in the registry");
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	88
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	89 LLVMRegisterAbstractTypeCallback(this.type,
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	90 cast(void) p,
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	91 &onTypeRefine);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	92 }
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 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	95 auto cstr = LLVMTypeToString(type);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	96 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	97 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	98 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	99 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	100 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	101 Kind kind() {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	102 return LLVMGetTypeKind(type);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	103 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	104 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	105 bool isAbstract() {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	106 return LLVMIsTypeAbstract(type) != 0;
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 /** Note: may invalidate the current object. Returns the refined Type
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	109 * if it can, or null otherwise.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	110 */
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	111 Type refineAbstractType(Type to) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	112 assert(isAbstract());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	113
1274 4ff9ab0d472c Check in some old changes to the binding, from before I had commit access. Frits van Bommel <fvbommel wxs.nl> parents: 1273 diff changeset	114 LLVMRefineType(type, to.type);
1273 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 // Either type will do. Go through the registry to try to use the
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	117 // "canonical" Type object for the type.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	118 if (type != null && to.type != null) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	119 assert(type == to.type, "After refinement they should be equal, right?");
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	120 return registry[type];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	121 } else if (type != null) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	122 return registry[type];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	123 } else if (to.type != null) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	124 return registry[to.type];
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 // Both types were invalidated. Is this even possible?
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	127 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	128 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	129 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	130 static IntegerType IntType(uint bits) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	131 return IntegerType.Get(bits);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	132 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	133 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	134 static const Type Void,Label;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	135 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	136 static const IntegerType Int1, Int8, Int16, Int32, Int64, Size_t;
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 static const RealType Float,Double,X86_FP80, FP128, PPC_FP128;
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 static this()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	141 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	142 Void = new Type(LLVMVoidType());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	143 Label = new Type(LLVMLabelType());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	144
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	145 Int1 = new IntegerType(LLVMInt1Type());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	146 Int8 = new IntegerType(LLVMInt8Type());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	147 Int16 = new IntegerType(LLVMInt16Type());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	148 Int32 = new IntegerType(LLVMInt32Type());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	149 Int64 = new IntegerType(LLVMInt64Type());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	150 if (size_t.sizeof == 4)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	151 Size_t = Int32;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	152 else
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	153 Size_t = Int64;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	154
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	155 Float = new RealType(LLVMFloatType());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	156 Double = new RealType(LLVMDoubleType());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	157 X86_FP80 = new RealType(LLVMX86FP80Type());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	158 FP128 = new RealType(LLVMFP128Type());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	159 PPC_FP128 = new RealType(LLVMPPCFP128Type());
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	162 LLVMTypeRef ll()
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 return type;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	165 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	166 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	167 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	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 LLVMDumpType(type);
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	172 bool isBasic()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	173 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	174 auto k = kind;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	175 if (k == Kind.Struct \|\| k == Kind.Array \|\| k == Kind.Function)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	176 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	177 return true;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	178 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	179 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	180
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	181 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	182 class IntegerType : Type
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 private this(LLVMTypeRef t)
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 super(t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	188 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	189 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	190 static IntegerType Get(uint nbits)
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 if (nbits == 1)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	193 return Type.Int1;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	194 else if (nbits == 8)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	195 return Type.Int8;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	196 else if (nbits == 16)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	197 return Type.Int16;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	198 else if (nbits == 32)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	199 return Type.Int32;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	200 else if (nbits == 64)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	201 return Type.Int64;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	202 else
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 auto t = LLVMIntType(nbits);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	205 auto ptr = t 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	206 if (ptr !is null)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	207 return cast(IntegerType)*ptr;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	208 auto it = new IntegerType(t);
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 it;
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 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	212 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	213 uint numBits()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	214 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	215 return LLVMGetIntTypeWidth(type);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	216 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	217 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	218
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	219 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	220 class RealType : Type
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	223 private this(LLVMTypeRef t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	224 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	225 super(t);
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	230 class FunctionType : Type
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	233 private Type ret;
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 const Type[] params;
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 protected this(LLVMTypeRef t, Type r, Type[] pars)
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 super(t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	239 ret = r;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	240 params = pars;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	241 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	242 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	243 static FunctionType Get(Type r, Type[] pars, bool vararg=false)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	244 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	245 auto p = new LLVMTypeRef[pars.length];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	246 foreach(i,v; pars) p[i] = v.ll;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	247 auto t = LLVMFunctionType(r.ll, p.ptr, p.length, vararg);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	248 auto ptr = t 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	249 if (ptr !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	250 return cast(FunctionType)*ptr;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	251 auto ft = new FunctionType(t, r, pars);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	252 return ft;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	253 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	254 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	255 bool isVarArg()
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 return (LLVMIsFunctionVarArg(type) != 0);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	258 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	259 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	260 Type returnType()
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 if (!ret.type)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	263 ret = getTypeOf(LLVMGetReturnType(type));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	264
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	265 return ret;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	266 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	267 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	268 Type[] paramTypes()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	269 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	270 foreach (par ; params) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	271 if (!par.type) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	272 updateParams();
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	273 }
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 return params;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	276 }
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 Type getParamType(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	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 auto par = params[idx];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	281 if (!par.type) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	282 updateParams();
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	283 par = params[idx];
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 return params[idx];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	286 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	287 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	288 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	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 return params.length;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	291 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	292 /** Called when one or more of the parameter types have been
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	293 * invalidated.
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 private void updateParams() {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	296 assert (LLVMCountParamTypes(type) == params.length);
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 llparams = new LLVMTypeRef[params.length];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	298 LLVMGetParamTypes(type, llparams.ptr);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	299 foreach (idx, llpar ; llparams) {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	300 params[idx] = getTypeOf(llpar);
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 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	304
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	305 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	306 class StructType : Type
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	309 private this(LLVMTypeRef t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	310 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	311 super(t);
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	314 static StructType Get(Type[] elems, 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	315 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	316 auto tys = new LLVMTypeRef[elems.length];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	317 foreach(i,e; elems) tys[i] = e.ll;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	318 auto t = LLVMStructType(tys.ptr, tys.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	319 auto ptr = t 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	320 if (ptr !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	321 return cast(StructType)*ptr;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	322 auto st = new StructType(t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	323 return st;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	324 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	325 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	326 bool packed()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	327 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	328 return (LLVMIsPackedStruct(type) != 0);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	329 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	330 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	331 uint numElements()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	332 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	333 return LLVMCountStructElementTypes(type);
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	336 Type[] elementTypes()
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 auto n = numElements();
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	339 auto dst = new LLVMTypeRef[n];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	340 LLVMGetStructElementTypes(type, dst.ptr);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	341 auto e = new Type[n];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	342 for(auto 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	343 e[i] = getTypeOf(dst[i]);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	344 return e;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	345 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	346 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	347
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 abstract class SequenceType : Type
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	352 private Type elemty;
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 private this(LLVMTypeRef t, Type elemty)
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 super(t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	357 this.elemty = elemty;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	358 }
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 Type elementType()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	361 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	362 if (!elemty.type)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	363 elemty = getTypeOf(LLVMGetElementType(type));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	364 return elemty;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	365 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	366 }
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	369 class PointerType : SequenceType
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	370 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	371 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	372 private const uint addrSpace;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	373 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	374 protected this(LLVMTypeRef t, Type e, uint as)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	375 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	376 super(t, e);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	377 addrSpace = as;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	378 }
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 static PointerType Get(Type e, uint as=0)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	381 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	382 auto t = LLVMPointerType(e.ll, as);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	383 auto ptr = t 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	384 if (ptr !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	385 return cast(PointerType)*ptr;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	386 auto pt = new PointerType(t, e, as);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	387 return pt;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	388 }
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 uint addressSpace()
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 return addrSpace;
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
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 class ArrayType : SequenceType
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	398 {
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 private const uint arrlen;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	401 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	402 protected this(LLVMTypeRef t, Type e, uint l)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	403 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	404 super(t, e);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	405 arrlen = l;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	406 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	407 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	408 static ArrayType Get(Type e, uint l)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	409 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	410 auto t = LLVMArrayType(e.ll, l);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	411 auto ptr = t 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	412 if (ptr !is null) return cast(ArrayType)*ptr;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	413 auto at = new ArrayType(t, e, l);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	414 return at;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	415 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	416 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	417 uint length()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	418 {
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 arrlen;
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 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	422
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 class VectorType : SequenceType
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	425 {
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 private const uint vecsz;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	428 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	429 protected this(LLVMTypeRef t, Type e, uint s)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	430 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	431 super(t, e);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	432 vecsz = s;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	433 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	434 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	435 static VectorType Get(Type e, uint s)
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 auto t = LLVMVectorType(e.ll, s);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	438 auto ptr = t 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	439 if (ptr !is null) return cast(VectorType)*ptr;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	440 auto at = new VectorType(t, e, s);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	441 return at;
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	444 uint vectorSize()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	445 {
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 vecsz;
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	451 class OpaqueType : Type
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	452 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	453 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	454 private this(LLVMTypeRef t)
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	455 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	456 super(t);
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 static OpaqueType Get()
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 auto t = LLVMOpaqueType();
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	462 auto ot = new OpaqueType(t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	463 return ot;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	464 }
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 private static OpaqueType Get(LLVMTypeRef t)
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 auto ptr = t 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	469 if (ptr !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	470 return cast(OpaqueType)*ptr;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	471 auto ot = new OpaqueType(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 return ot;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	473 }
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 class TypeHandle
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	480 private LLVMTypeHandleRef handle;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	481 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	482 this()
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 handle = LLVMCreateTypeHandle(LLVMOpaqueType());
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	485 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	486 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	487 Type resolve()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	488 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	489 assert(handle !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	490 auto t = LLVMResolveTypeHandle(handle);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	491 return getTypeOf(t);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	492 }
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 void refine(Type to)
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 assert(handle !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	497 auto t = LLVMResolveTypeHandle(handle);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	498 LLVMRefineType(t, to.ll);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	499 }
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 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	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 assert(handle !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	504 LLVMDisposeTypeHandle(handle);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	505 handle = null;
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 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	508 ~this()
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	509 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	510 if (handle)
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 // Safe because handle isn't on the GC heap and isn't exposed.
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	513 dispose();
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	514 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	515 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	516 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	517
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	518 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	519 Type getTypeOf(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	520 {
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	521 return getTypeOf(LLVMTypeOf(v));
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	522 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	523
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	524 ///
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	525 Type getTypeOf(LLVMTypeRef ty)
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 // first check the registry
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	528 auto ptr = ty in Type.registry;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	529 if (ptr !is null) return *ptr;
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 // reconstruct D type from C type and query it
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	532 auto kind = LLVMGetTypeKind(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	533 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	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 case Type.Kind.Integer:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	536 auto bw = LLVMGetIntTypeWidth(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	537 return Type.IntType(bw);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	538
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	539 case Type.Kind.Pointer:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	540 auto e = LLVMGetElementType(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	541 auto a = LLVMGetPointerAddressSpace(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	542 return PointerType.Get(getTypeOf(e), a);
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 case Type.Kind.Struct:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	545 auto t = new StructType(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	546 return t;
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	547 // was broken for recursive types ...
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	548 /*auto n = LLVMCountStructElementTypes(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	549 auto e = new LLVMTypeRef[n];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	550 LLVMGetStructElementTypes(ty, e.ptr);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	551 auto p = LLVMIsPackedStruct(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	552 auto t = new Type[n];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	553 foreach(i,et; e) t[i] = getTypeOf(et);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	554 return StructType.Get(t,p!=0);*/
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	555
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	556 case Type.Kind.Opaque:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	557 return OpaqueType.Get(ty);
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 case Type.Kind.Function:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	560 auto llr = LLVMGetReturnType(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	561 auto lla = new LLVMTypeRef[LLVMCountParamTypes(ty)];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	562 LLVMGetParamTypes(ty, lla.ptr);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	563 auto args = new Type[lla.length];
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	564 foreach(i,a; lla) args[i] = getTypeOf(a);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	565 int isvararg = LLVMIsFunctionVarArg(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	566 return FunctionType.Get(getTypeOf(llr), args, isvararg!=0);
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 case Type.Kind.Array:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	569 auto lle = LLVMGetElementType(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	570 auto len = LLVMGetArrayLength(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	571 return ArrayType.Get(getTypeOf(lle), len);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	572
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	573 case Type.Kind.Vector:
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 lle = LLVMGetElementType(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	575 auto sz = LLVMGetVectorSize(ty);
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	576 return VectorType.Get(getTypeOf(lle), sz);
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 case Type.Kind.Void:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	579 case Type.Kind.Float:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	580 case Type.Kind.Double:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	581 case Type.Kind.X86_FP80:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	582 case Type.Kind.FP128:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	583 case Type.Kind.PPC_FP128:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	584 case Type.Kind.Label:
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	585 assert(0, "basic type not 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	586 }
1ba61de8796b Committing LLVM binding for D as it currently exists in the SVN repository. Frits van Bommel <fvbommel wxs.nl> parents: diff changeset	587 }

Mercurial > projects > ldc

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