projects/ldc: gen/toir.c annotate

annotate gen/toir.c @ 73:b706170e24a9 trunk

[svn r77] Fixed foreach on slice. Fixed some nested function problems when accessing outer function parameters. Major changes to handling of structs. Initial support for unions. Probably more...

author	lindquist
date	Wed, 31 Oct 2007 03:11:32 +0100
parents	d7e764e62462
children	9e1bd80a7e98

rev	line source
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1 // Backend stubs
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3 /* DMDFE backend stubs
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	4 * This file contains the implementations of the backend routines.
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	5 * For dmdfe these do nothing but print a message saying the module
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	6 * has been parsed. Substitute your own behaviors for these routimes.
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	7 */
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	8
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	9 #include <stdio.h>
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	10 #include <math.h>
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	11 #include <sstream>
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	12 #include <fstream>
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	13 #include <iostream>
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	14
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	15 #include "gen/llvm.h"
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	16
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	17 #include "total.h"
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	18 #include "init.h"
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	19 #include "symbol.h"
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	20 #include "mtype.h"
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	21 #include "hdrgen.h"
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	22 #include "port.h"
4 e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	23
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	24 #include "gen/irstate.h"
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	25 #include "gen/elem.h"
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	26 #include "gen/logger.h"
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	27 #include "gen/tollvm.h"
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	28 #include "gen/runtime.h"
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	29 #include "gen/arrays.h"
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	30
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	31 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	32
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	33 elem* DeclarationExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	34 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	35 Logger::print("DeclarationExp::toElem: %s \| T=%s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	36 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	37 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	38
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	39 // variable declaration
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	40 if (VarDeclaration* vd = declaration->isVarDeclaration())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	41 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	42 Logger::println("VarDeclaration");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	43
50 6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	44 // static
26 99737f94abfb [svn r30] * Fixed static function-local variables. lindquist parents: 25 diff changeset	45 if (vd->isDataseg())
99737f94abfb [svn r30] * Fixed static function-local variables. lindquist parents: 25 diff changeset	46 {
99737f94abfb [svn r30] * Fixed static function-local variables. lindquist parents: 25 diff changeset	47 vd->toObjFile();
99737f94abfb [svn r30] * Fixed static function-local variables. lindquist parents: 25 diff changeset	48 }
99737f94abfb [svn r30] * Fixed static function-local variables. lindquist parents: 25 diff changeset	49 else
99737f94abfb [svn r30] * Fixed static function-local variables. lindquist parents: 25 diff changeset	50 {
99737f94abfb [svn r30] * Fixed static function-local variables. lindquist parents: 25 diff changeset	51 Logger::println("vdtype = %s", vd->type->toChars());
50 6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	52 // referenced by nested delegate?
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	53 if (vd->nestedref) {
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	54 Logger::println("has nestedref set");
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	55 vd->llvmValue = p->func().decl->llvmNested;
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	56 assert(vd->llvmValue);
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	57 assert(vd->llvmNestedIndex >= 0);
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	58 }
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	59 // normal stack variable
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	60 else {
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	61 // allocate storage on the stack
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	62 const llvm::Type* lltype = LLVM_DtoType(vd->type);
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	63 llvm::AllocaInst* allocainst = new llvm::AllocaInst(lltype, vd->toChars(), p->topallocapoint());
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	64 //allocainst->setAlignment(vd->type->alignsize()); // TODO
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	65 vd->llvmValue = allocainst;
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	66 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	67 LLVM_DtoInitializer(vd->init);
26 99737f94abfb [svn r30] * Fixed static function-local variables. lindquist parents: 25 diff changeset	68 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	69 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	70 // struct declaration
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	71 else if (StructDeclaration* s = declaration->isStructDeclaration())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	72 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	73 Logger::println("StructDeclaration");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	74 s->toObjFile();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	75 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	76 // function declaration
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	77 else if (FuncDeclaration* f = declaration->isFuncDeclaration())
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	78 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	79 Logger::println("FuncDeclaration");
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	80 f->toObjFile();
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	81 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	82 // alias declaration
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	83 else if (AliasDeclaration* a = declaration->isAliasDeclaration())
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	84 {
58 2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	85 Logger::println("AliasDeclaration - no work");
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	86 // do nothing
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	87 }
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	88 else if (EnumDeclaration* e = declaration->isEnumDeclaration())
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	89 {
58 2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	90 Logger::println("EnumDeclaration - no work");
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	91 // do nothing
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	92 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	93 // unsupported declaration
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	94 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	95 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	96 error("Only Var/Struct-Declaration is supported for DeclarationExp");
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	97 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	98 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	99 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	100 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	101
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	102 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	103
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	104 elem* VarExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	105 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	106 Logger::print("VarExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	107 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	108
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	109 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	110
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	111 assert(var);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	112 if (VarDeclaration* vd = var->isVarDeclaration())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	113 {
57 a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	114 Logger::println("VarDeclaration %s", vd->toChars());
50 6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	115
57 a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	116 // _arguments
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	117 if (vd->ident == Id::_arguments)
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	118 {
72 d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	119 Logger::println("Id::_arguments");
57 a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	120 vd->llvmValue = p->func().decl->llvmArguments;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	121 assert(vd->llvmValue);
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	122 e->mem = vd->llvmValue;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	123 e->type = elem::VAR;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	124 }
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	125 // _argptr
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	126 else if (vd->ident == Id::_argptr)
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	127 {
72 d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	128 Logger::println("Id::_argptr");
57 a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	129 vd->llvmValue = p->func().decl->llvmArgPtr;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	130 assert(vd->llvmValue);
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	131 e->mem = vd->llvmValue;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	132 e->type = elem::VAR;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	133 }
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	134 // _dollar
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	135 else if (vd->ident == Id::dollar)
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	136 {
72 d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	137 Logger::println("Id::dollar");
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	138 assert(!p->arrays.empty());
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	139 llvm::Value* tmp = LLVM_DtoGEPi(p->arrays.back(),0,0,"tmp",p->scopebb());
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	140 e->val = new llvm::LoadInst(tmp,"tmp",p->scopebb());
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	141 e->type = elem::VAL;
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	142 }
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	143 // typeinfo
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	144 else if (TypeInfoDeclaration* tid = vd->isTypeInfoDeclaration())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	145 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	146 Logger::println("TypeInfoDeclaration");
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	147 tid->toObjFile();
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	148 assert(tid->llvmValue);
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	149 const llvm::Type* vartype = LLVM_DtoType(type);
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	150 if (tid->llvmValue->getType() != llvm::PointerType::get(vartype))
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	151 e->mem = p->ir->CreateBitCast(tid->llvmValue, vartype, "tmp");
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	152 else
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	153 e->mem = tid->llvmValue;
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	154 e->type = elem::VAR;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	155 }
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	156 // nested variable
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	157 else if (vd->nestedref) {
72 d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	158 Logger::println("nested variable");
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	159 e->mem = LLVM_DtoNestedVariable(vd);
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	160 e->type = elem::VAR;
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	161 e->vardecl = vd;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	162 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	163 // function parameter
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	164 else if (vd->isParameter()) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	165 Logger::println("function param");
72 d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	166 if (!vd->llvmValue) {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	167 // TODO: determine this properly
d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	168 // this happens when the DMD frontend generates by pointer wrappers for struct opEquals(S) and opCmp(S)
d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	169 vd->llvmValue = &p->func().func->getArgumentList().back();
d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	170 }
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	171 if (vd->isRef() \|\| vd->isOut()) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	172 e->mem = vd->llvmValue;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	173 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	174 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	175 else {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	176 if (LLVM_DtoIsPassedByRef(vd->type)) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	177 e->mem = vd->llvmValue;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	178 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	179 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	180 else {
29 253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	181 if (llvm::isa<llvm::Argument>(vd->llvmValue)) {
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	182 e->val = vd->llvmValue;
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	183 e->type = elem::VAL;
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	184 e->vardecl = vd;
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	185 }
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	186 else if (llvm::isa<llvm::AllocaInst>(vd->llvmValue)) {
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	187 e->mem = vd->llvmValue;
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	188 e->type = elem::VAR;
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	189 }
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	190 else
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	191 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	192 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	193 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	194 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	195 else {
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	196 // take care of forward references of global variables
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	197 if (!vd->llvmTouched && vd->isDataseg())
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	198 vd->toObjFile();
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	199 assert(vd->llvmValue);
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	200 e->mem = vd->llvmValue;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	201 e->vardecl = vd;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	202 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	203 }
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	204
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	205 assert(e->mem \|\| e->val);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	206 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	207 else if (FuncDeclaration* fdecl = var->isFuncDeclaration())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	208 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	209 Logger::println("FuncDeclaration");
55 0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	210 if (fdecl->llvmInternal != LLVMva_arg && fdecl->llvmValue == 0)
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	211 fdecl->toObjFile();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	212 e->val = fdecl->llvmValue;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	213 e->type = elem::FUNC;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	214 e->funcdecl = fdecl;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	215 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	216 else if (SymbolDeclaration* sdecl = var->isSymbolDeclaration())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	217 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	218 // this seems to be the static initialiser for structs
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	219 Type* sdecltype = LLVM_DtoDType(sdecl->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	220 Logger::print("Sym: type=%s\n", sdecltype->toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	221 assert(sdecltype->ty == Tstruct);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	222 TypeStruct* ts = (TypeStruct*)sdecltype;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	223 e->mem = ts->llvmInit;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	224 assert(e->mem);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	225 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	226 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	227 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	228 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	229 assert(0 && "Unimplemented VarExp type");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	230 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	231
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	232 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	233 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	234
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	235 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	236
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	237 llvm::Constant* VarExp::toConstElem(IRState* p)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	238 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	239 Logger::print("VarExp::toConstElem: %s \| %s\n", toChars(), type->toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	240 LOG_SCOPE;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	241 if (SymbolDeclaration* sdecl = var->isSymbolDeclaration())
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	242 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	243 // this seems to be the static initialiser for structs
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	244 Type* sdecltype = LLVM_DtoDType(sdecl->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	245 Logger::print("Sym: type=%s\n", sdecltype->toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	246 assert(sdecltype->ty == Tstruct);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	247 TypeStruct* ts = (TypeStruct*)sdecltype;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	248 assert(ts->sym->llvmInitZ);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	249 return ts->sym->llvmInitZ;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	250 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	251 assert(0 && "Only support const var exp is SymbolDeclaration");
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	252 return NULL;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	253 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	254
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	255 //////////////////////////////////////////////////////////////////////////////////////////
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	256
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	257 elem* IntegerExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	258 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	259 Logger::print("IntegerExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	260 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	261 elem* e = new elem;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	262 e->val = toConstElem(p);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	263 e->type = elem::CONST;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	264 return e;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	265 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	266
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	267 //////////////////////////////////////////////////////////////////////////////////////////
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	268
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	269 llvm::Constant* IntegerExp::toConstElem(IRState* p)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	270 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	271 Logger::print("IntegerExp::toConstElem: %s \| %s\n", toChars(), type->toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	272 LOG_SCOPE;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	273 const llvm::Type* t = LLVM_DtoType(type);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	274 if (llvm::isa<llvm::PointerType>(t)) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	275 llvm::Constant* i = llvm::ConstantInt::get(LLVM_DtoSize_t(),(uint64_t)value,false);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	276 return llvm::ConstantExpr::getIntToPtr(i, t);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	277 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	278 else if (llvm::isa<llvm::IntegerType>(t)) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	279 return llvm::ConstantInt::get(t,(uint64_t)value,!type->isunsigned());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	280 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	281 assert(0);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	282 return NULL;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	283 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	284
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	285 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	286
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	287 elem* RealExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	288 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	289 Logger::print("RealExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	290 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	291 elem* e = new elem;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	292 e->val = toConstElem(p);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	293 e->type = elem::CONST;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	294 return e;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	295 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	296
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	297 //////////////////////////////////////////////////////////////////////////////////////////
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	298
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	299 llvm::Constant* RealExp::toConstElem(IRState* p)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	300 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	301 Logger::print("RealExp::toConstElem: %s \| %s\n", toChars(), type->toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	302 LOG_SCOPE;
62 b86e00b938a5 [svn r66] Added support for imaginary floating point types lindquist parents: 58 diff changeset	303 Type* t = LLVM_DtoDType(type);
b86e00b938a5 [svn r66] Added support for imaginary floating point types lindquist parents: 58 diff changeset	304 const llvm::Type* fty = LLVM_DtoType(t);
b86e00b938a5 [svn r66] Added support for imaginary floating point types lindquist parents: 58 diff changeset	305 if (t->ty == Tfloat32 \|\| t->ty == Timaginary32)
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	306 return llvm::ConstantFP::get(fty,float(value));
62 b86e00b938a5 [svn r66] Added support for imaginary floating point types lindquist parents: 58 diff changeset	307 else if (t->ty == Tfloat64 \|\| t->ty == Timaginary64 \|\| t->ty == Tfloat80 \|\| t->ty == Timaginary80)
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	308 return llvm::ConstantFP::get(fty,double(value));
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	309 assert(0);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	310 return NULL;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	311 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	312
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	313 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	314
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	315 elem* NullExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	316 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	317 Logger::print("NullExp::toElem(type=%s): %s\n", type->toChars(),toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	318 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	319 elem* e = new elem;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	320 e->val = toConstElem(p);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	321 e->type = elem::NUL;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	322 //Logger::cout() << "null value is now " << *e->val << '\n';
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	323 return e;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	324 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	325
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	326 //////////////////////////////////////////////////////////////////////////////////////////
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	327
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	328 llvm::Constant* NullExp::toConstElem(IRState* p)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	329 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	330 Logger::print("NullExp::toConstElem(type=%s): %s\n", type->toChars(),toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	331 LOG_SCOPE;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	332 const llvm::Type* t = LLVM_DtoType(type);
28 1c80c18f3c82 [svn r32] * Fixed problems with arrays members of aggregates lindquist parents: 27 diff changeset	333 if (type->ty == Tarray) {
1c80c18f3c82 [svn r32] * Fixed problems with arrays members of aggregates lindquist parents: 27 diff changeset	334 assert(llvm::isa<llvm::StructType>(t));
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	335 return llvm::ConstantAggregateZero::get(t);
28 1c80c18f3c82 [svn r32] * Fixed problems with arrays members of aggregates lindquist parents: 27 diff changeset	336 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	337 else {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	338 return llvm::Constant::getNullValue(t);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	339 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	340 assert(0);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	341 return NULL;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	342 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	343
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	344 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	345
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	346 elem* StringExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	347 {
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	348 Logger::print("StringExp::toElem: %s \| %s\n", toChars(), type->toChars());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	349 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	350
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	351 Type* dtype = LLVM_DtoDType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	352
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	353 assert(dtype->next->ty == Tchar && "Only char is supported");
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	354 assert(sz == 1);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	355
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	356 const llvm::Type* ct = LLVM_DtoType(dtype->next);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	357 //printf("ct = %s\n", type->next->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	358 const llvm::ArrayType* at = llvm::ArrayType::get(ct,len+1);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	359
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	360 uint8_t* str = (uint8_t*)string;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	361 std::string cont((char*)str, len);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	362
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	363 llvm::Constant* _init = llvm::ConstantArray::get(cont,true);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	364
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	365 llvm::GlobalValue::LinkageTypes _linkage = llvm::GlobalValue::InternalLinkage;//WeakLinkage;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	366 llvm::GlobalVariable* gvar = new llvm::GlobalVariable(at,true,_linkage,_init,"stringliteral",gIR->module);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	367
21 8d45266bbabe [svn r25] * Fixed a lot of problems with string literals lindquist parents: 18 diff changeset	368 llvm::ConstantInt* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty, 0, false);
8d45266bbabe [svn r25] * Fixed a lot of problems with string literals lindquist parents: 18 diff changeset	369 llvm::Constant* idxs[2] = { zero, zero };
8d45266bbabe [svn r25] * Fixed a lot of problems with string literals lindquist parents: 18 diff changeset	370 llvm::Constant* arrptr = llvm::ConstantExpr::getGetElementPtr(gvar,idxs,2);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	371
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	372 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	373
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	374 if (dtype->ty == Tarray) {
4 e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	375 llvm::Constant* clen = llvm::ConstantInt::get(LLVM_DtoSize_t(),len,false);
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	376 if (!p->topexp() \|\| p->topexp()->e2 != this) {
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	377 llvm::Value* tmpmem = new llvm::AllocaInst(LLVM_DtoType(dtype),"tmp",p->topallocapoint());
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	378 LLVM_DtoSetArray(tmpmem, clen, arrptr);
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	379 e->mem = tmpmem;
4 e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	380 }
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	381 else if (p->topexp()->e2 == this) {
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	382 llvm::Value* arr = p->topexp()->v;
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	383 assert(arr);
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	384 LLVM_DtoSetArray(arr, clen, arrptr);
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	385 e->inplace = true;
4 e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	386 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	387 else
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	388 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	389 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	390 else if (dtype->ty == Tsarray) {
21 8d45266bbabe [svn r25] * Fixed a lot of problems with string literals lindquist parents: 18 diff changeset	391 const llvm::Type* dstType = llvm::PointerType::get(llvm::ArrayType::get(ct, len));
8d45266bbabe [svn r25] * Fixed a lot of problems with string literals lindquist parents: 18 diff changeset	392 e->mem = new llvm::BitCastInst(gvar, dstType, "tmp", gIR->scopebb());
8d45266bbabe [svn r25] * Fixed a lot of problems with string literals lindquist parents: 18 diff changeset	393 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	394 else if (dtype->ty == Tpointer) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	395 e->mem = arrptr;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	396 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	397 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	398 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	399 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	400
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	401 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	402
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	403 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	404 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	405
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	406 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	407
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	408 llvm::Constant* StringExp::toConstElem(IRState* p)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	409 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	410 Logger::print("StringExp::toConstElem: %s \| %s\n", toChars(), type->toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	411 LOG_SCOPE;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	412
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	413 uint8_t* str = (uint8_t*)string;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	414 std::string cont((char*)str, len);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	415
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	416 Type* t = LLVM_DtoDType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	417
58 2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	418 if (t->ty == Tsarray) {
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	419 return llvm::ConstantArray::get(cont,false);
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	420 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	421 llvm::Constant* _init = llvm::ConstantArray::get(cont,true);
58 2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	422
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	423 llvm::GlobalValue::LinkageTypes _linkage = llvm::GlobalValue::InternalLinkage;//WeakLinkage;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	424 llvm::GlobalVariable* gvar = new llvm::GlobalVariable(_init->getType(),true,_linkage,_init,"stringliteral",gIR->module);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	425
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	426 llvm::ConstantInt* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty, 0, false);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	427 llvm::Constant* idxs[2] = { zero, zero };
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	428 llvm::Constant* arrptr = llvm::ConstantExpr::getGetElementPtr(gvar,idxs,2);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	429
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	430 if (t->ty == Tpointer) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	431 return arrptr;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	432 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	433
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	434 if (t->ty == Tarray) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	435 llvm::Constant* clen = llvm::ConstantInt::get(LLVM_DtoSize_t(),len,false);
69 2b5a2eaa88be [svn r73] Identity expression for dynamic array and null was broken. lindquist parents: 68 diff changeset	436 return LLVM_DtoConstSlice(clen, arrptr);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	437 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	438
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	439 assert(0);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	440 return NULL;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	441 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	442
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	443 //////////////////////////////////////////////////////////////////////////////////////////
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	444
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	445 elem* AssignExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	446 {
57 a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	447 Logger::print("AssignExp::toElem: %s \| %s = %s\n", toChars(), e1->type->toChars(), e2->type ? e2->type->toChars() : 0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	448 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	449
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	450 p->exps.push_back(IRExp(e1,e2,NULL));
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	451
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	452 elem* l = e1->toElem(p);
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	453 p->topexp()->v = l->mem;
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	454 elem* r = e2->toElem(p);
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	455
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	456 p->exps.pop_back();
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	457
34 4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	458 if (l->type == elem::ARRAYLEN)
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	459 {
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	460 LLVM_DtoResizeDynArray(l->mem, r->getValue());
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	461 delete r;
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	462 delete l;
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	463 return 0;
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	464 }
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	465
29 253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	466 // handle function argument - allocate temp storage for it :/ annoying
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	467 if (l->mem == 0) {
34 4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	468 assert(l->val);
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	469 if (llvm::isa<llvm::Argument>(l->val))
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	470 LLVM_DtoGiveArgumentStorage(l);
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	471 else {
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	472 Logger::cout() << "here it comes... " << *l->val << '\n';
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	473 assert(0);
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	474 }
29 253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	475 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	476 //e->val = l->store(r->getValue());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	477
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	478 Type* e1type = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	479 Type* e2type = LLVM_DtoDType(e2->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	480 TY e1ty = e1type->ty;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	481 TY e2ty = e2type->ty;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	482
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	483 elem* e = new elem;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	484 e->type = elem::VAR;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	485
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	486 // struct
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	487 if (e1ty == Tstruct) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	488 e->mem = l->mem;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	489 // struct + struct
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	490 if (e2ty == Tstruct) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	491 // struct literals do the assignment themselvs (in place)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	492 if (!r->inplace) {
51 61bc1b4ad3c4 [svn r55] Foreach was always generating code as if the value variable was 'ref' lindquist parents: 50 diff changeset	493 LLVM_DtoStructCopy(l->mem,r->getValue());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	494 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	495 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	496 e->inplace = true;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	497 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	498 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	499 // struct + const int
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	500 else if (e2type->isintegral()){
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	501 IntegerExp* iexp = (IntegerExp*)e2;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	502 assert(iexp->value == 0 && "Only integral struct initializer allowed is zero");
51 61bc1b4ad3c4 [svn r55] Foreach was always generating code as if the value variable was 'ref' lindquist parents: 50 diff changeset	503 LLVM_DtoStructZeroInit(l->mem);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	504 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	505 // :x
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	506 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	507 assert(0 && "struct = unknown");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	508 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	509 else if (e1ty == Tsarray) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	510 assert(0 && "static array not supported");
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	511 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	512 else if (e1ty == Tarray) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	513 if (e2type->isscalar() \|\| e2type->ty == Tclass){
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	514 LLVM_DtoArrayInit(l->mem, r->getValue());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	515 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	516 else if (e2ty == Tarray) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	517 //new llvm::StoreInst(r->val,l->val,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	518 if (r->type == elem::NUL) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	519 llvm::Constant* c = llvm::cast<llvm::Constant>(r->val);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	520 assert(c->isNullValue());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	521 LLVM_DtoNullArray(l->mem);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	522 e->mem = l->mem;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	523 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	524 else if (r->type == elem::SLICE) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	525 if (l->type == elem::SLICE) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	526 LLVM_DtoArrayCopy(l,r);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	527 e->type = elem::SLICE;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	528 e->mem = l->mem;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	529 e->arg = l->arg;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	530 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	531 else {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	532 LLVM_DtoSetArray(l->mem,r->arg,r->mem);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	533 e->mem = l->mem;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	534 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	535 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	536 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	537 // new expressions write directly to the array reference
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	538 // so do string literals
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	539 e->mem = l->mem;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	540 if (!r->inplace) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	541 assert(r->mem);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	542 LLVM_DtoArrayAssign(l->mem, r->mem);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	543 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	544 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	545 e->inplace = true;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	546 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	547 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	548 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	549 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	550 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	551 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	552 else if (e1ty == Tpointer) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	553 e->mem = l->mem;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	554 if (e2ty == Tpointer) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	555 llvm::Value* v = r->field ? r->mem : r->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	556 Logger::cout() << "=: " << v << ", " << l->mem << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	557 new llvm::StoreInst(v, l->mem, p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	558 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	559 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	560 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	561 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	562 else if (e1ty == Tclass) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	563 if (e2ty == Tclass) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	564 llvm::Value* tmp = r->getValue();
15 37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	565 Logger::cout() << "tmp: " << tmp << " \|\|\| " << l->mem << '\n';
37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	566 // assignment to this in constructor special case
37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	567 if (l->isthis) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	568 FuncDeclaration* fdecl = p->func().decl;
15 37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	569 // respecify the this param
37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	570 if (!llvm::isa<llvm::AllocaInst>(fdecl->llvmThisVar))
37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	571 fdecl->llvmThisVar = new llvm::AllocaInst(tmp->getType(), "newthis", p->topallocapoint());
37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	572 new llvm::StoreInst(tmp, fdecl->llvmThisVar, p->scopebb());
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	573 e->mem = fdecl->llvmThisVar;
15 37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	574 }
37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	575 // regular class ref -> class ref assignment
37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	576 else {
37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	577 new llvm::StoreInst(tmp, l->mem, p->scopebb());
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	578 e->mem = l->mem;
15 37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	579 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	580 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	581 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	582 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	583 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	584 else if (e1ty == Tdelegate) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	585 Logger::println("Assigning to delegate");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	586 if (e2ty == Tdelegate) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	587 if (r->type == elem::NUL) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	588 llvm::Constant* c = llvm::cast<llvm::Constant>(r->val);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	589 if (c->isNullValue()) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	590 LLVM_DtoNullDelegate(l->mem);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	591 e->mem = l->mem;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	592 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	593 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	594 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	595 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	596 else if (r->inplace) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	597 // do nothing
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	598 e->inplace = true;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	599 e->mem = l->mem;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	600 }
49 e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	601 else {
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	602 LLVM_DtoDelegateCopy(l->mem, r->getValue());
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	603 e->mem = l->mem;
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	604 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	605 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	606 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	607 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	608 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	609 // !struct && !array && !pointer && !class
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	610 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	611 Logger::cout() << *l->mem << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	612 new llvm::StoreInst(r->getValue(),l->mem,p->scopebb());
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	613 e->mem = l->mem;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	614 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	615
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	616 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	617 delete l;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	618
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	619 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	620 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	621
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	622 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	623
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	624 elem* AddExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	625 {
23 77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	626 Logger::print("AddExp::toElem: %s \| %s\n", toChars(), type->toChars());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	627 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	628 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	629 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	630 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	631
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	632 Type* t = LLVM_DtoDType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	633 Type* e1type = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	634 Type* e2type = LLVM_DtoDType(e2->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	635
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	636 if (e1type != e2type) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	637 if (e1type->ty == Tpointer && e1type->next->ty == Tstruct) {
8 5e69b77a5c51 [svn r12] fixed accessing aggregate fields of aggregates lindquist parents: 6 diff changeset	638 //assert(l->field);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	639 assert(r->type == elem::CONST);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	640 llvm::ConstantInt* cofs = llvm::cast<llvm::ConstantInt>(r->val);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	641
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	642 TypeStruct* ts = (TypeStruct*)e1type->next;
8 5e69b77a5c51 [svn r12] fixed accessing aggregate fields of aggregates lindquist parents: 6 diff changeset	643 std::vector<unsigned> offsets(1,0);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	644 ts->sym->offsetToIndex(t->next, cofs->getZExtValue(), offsets);
8 5e69b77a5c51 [svn r12] fixed accessing aggregate fields of aggregates lindquist parents: 6 diff changeset	645 e->mem = LLVM_DtoGEP(l->getValue(), offsets, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	646 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	647 e->field = true;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	648 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	649 else if (e1->type->ty == Tpointer) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	650 e->val = new llvm::GetElementPtrInst(l->getValue(), r->getValue(), "tmp", p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	651 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	652 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	653 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	654 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	655 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	656 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	657 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	658 e->val = llvm::BinaryOperator::createAdd(l->getValue(), r->getValue(), "tmp", p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	659 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	660 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	661 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	662 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	663 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	664 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	665
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	666 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	667
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	668 elem* AddAssignExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	669 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	670 Logger::print("AddAssignExp::toElem: %s\n", toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	671 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	672
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	673 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	674 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	675
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	676 Type* e1type = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	677
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	678 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	679 llvm::Value* val = 0;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	680 if (e1type->ty == Tpointer) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	681 val = e->mem = new llvm::GetElementPtrInst(l->getValue(),r->getValue(),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	682 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	683 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	684 val = e->val = llvm::BinaryOperator::createAdd(l->getValue(),r->getValue(),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	685 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	686
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	687 /llvm::Value storeVal = l->storeVal ? l->storeVal : l->val;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	688 if (llvm::isa<llvm::PointerType>(storeVal->getType()) && storeVal->getType()->getContainedType(0) != tmp->getType())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	689 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	690 tmp = LLVM_DtoPointedType(storeVal, tmp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	691 }*/
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	692
29 253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	693 if (l->mem == 0)
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	694 LLVM_DtoGiveArgumentStorage(l);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	695 new llvm::StoreInst(val,l->mem,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	696 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	697
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	698 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	699 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	700 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	701 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	702
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	703 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	704
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	705 elem* MinExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	706 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	707 Logger::print("MinExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	708 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	709 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	710 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	711 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	712
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	713 llvm::Value* left = l->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	714 if (llvm::isa<llvm::PointerType>(left->getType()))
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	715 left = new llvm::PtrToIntInst(left,LLVM_DtoSize_t(),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	716
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	717 llvm::Value* right = r->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	718 if (llvm::isa<llvm::PointerType>(right->getType()))
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	719 right = new llvm::PtrToIntInst(right,LLVM_DtoSize_t(),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	720
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	721 e->val = llvm::BinaryOperator::createSub(left,right,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	722 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	723
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	724 const llvm::Type* totype = LLVM_DtoType(type);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	725 if (e->val->getType() != totype) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	726 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	727 assert(llvm::isa<llvm::PointerType>(e->val->getType()));
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	728 assert(llvm::isa<llvm::IntegerType>(totype));
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	729 e->val = new llvm::IntToPtrInst(e->val,totype,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	730 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	731
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	732 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	733 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	734 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	735 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	736
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	737 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	738
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	739 elem* MinAssignExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	740 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	741 Logger::print("MinAssignExp::toElem: %s\n", toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	742 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	743
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	744 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	745 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	746
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	747 Type* e1type = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	748
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	749 llvm::Value* tmp = 0;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	750 if (e1type->ty == Tpointer) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	751 tmp = r->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	752 llvm::Value* zero = llvm::ConstantInt::get(tmp->getType(),0,false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	753 tmp = llvm::BinaryOperator::createSub(zero,tmp,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	754 tmp = new llvm::GetElementPtrInst(l->getValue(),tmp,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	755 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	756 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	757 tmp = llvm::BinaryOperator::createSub(l->getValue(),r->getValue(),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	758 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	759
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	760 /llvm::Value storeVal = l->storeVal ? l->storeVal : l->val;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	761 if (storeVal->getType()->getContainedType(0) != tmp->getType())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	762 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	763 tmp = LLVM_DtoPointedType(storeVal, tmp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	764 }*/
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	765
29 253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	766 if (l->mem == 0)
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	767 LLVM_DtoGiveArgumentStorage(l);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	768 new llvm::StoreInst(tmp, l->mem, p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	769
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	770 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	771 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	772
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	773 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	774 e->val = tmp;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	775 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	776 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	777 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	778
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	779 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	780
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	781 elem* MulExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	782 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	783 Logger::print("MulExp::toElem: %s\n", toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	784 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	785 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	786 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	787 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	788 llvm::Value* vl = l->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	789 llvm::Value* vr = r->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	790 Logger::cout() << "mul: " << vl << ", " << vr << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	791 e->val = llvm::BinaryOperator::createMul(vl,vr,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	792 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	793 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	794 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	795 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	796 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	797
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	798 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	799
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	800 elem* MulAssignExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	801 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	802 Logger::print("MulAssignExp::toElem: %s\n", toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	803 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	804
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	805 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	806 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	807 llvm::Value* vl = l->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	808 llvm::Value* vr = r->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	809 Logger::cout() << "mulassign: " << vl << ", " << vr << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	810 llvm::Value* tmp = llvm::BinaryOperator::createMul(vl,vr,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	811
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	812 /llvm::Value storeVal = l->storeVal ? l->storeVal : l->val;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	813 if (storeVal->getType()->getContainedType(0) != tmp->getType())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	814 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	815 tmp = LLVM_DtoPointedType(storeVal, tmp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	816 }*/
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	817
29 253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	818 if (l->mem == 0)
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	819 LLVM_DtoGiveArgumentStorage(l);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	820 new llvm::StoreInst(tmp,l->mem,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	821
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	822 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	823 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	824
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	825 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	826 e->val = tmp;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	827 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	828 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	829 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	830
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	831 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	832
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	833 elem* DivExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	834 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	835 Logger::print("DivExp::toElem: %s\n", toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	836 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	837 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	838 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	839 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	840
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	841 Type* t = LLVM_DtoDType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	842
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	843 if (t->isunsigned())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	844 e->val = llvm::BinaryOperator::createUDiv(l->getValue(),r->getValue(),"tmp",p->scopebb());
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	845 else if (t->isintegral())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	846 e->val = llvm::BinaryOperator::createSDiv(l->getValue(),r->getValue(),"tmp",p->scopebb());
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	847 else if (t->isfloating())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	848 e->val = llvm::BinaryOperator::createFDiv(l->getValue(),r->getValue(),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	849 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	850 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	851 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	852 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	853 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	854 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	855 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	856
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	857 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	858
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	859 elem* DivAssignExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	860 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	861 Logger::print("DivAssignExp::toElem: %s\n", toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	862 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	863
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	864 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	865 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	866
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	867 Type* t = LLVM_DtoDType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	868
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	869 llvm::Value* tmp;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	870 if (t->isunsigned())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	871 tmp = llvm::BinaryOperator::createUDiv(l->getValue(),r->getValue(),"tmp",p->scopebb());
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	872 else if (t->isintegral())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	873 tmp = llvm::BinaryOperator::createSDiv(l->getValue(),r->getValue(),"tmp",p->scopebb());
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	874 else if (t->isfloating())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	875 tmp = llvm::BinaryOperator::createFDiv(l->getValue(),r->getValue(),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	876 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	877 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	878
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	879 /llvm::Value storeVal = l->storeVal ? l->storeVal : l->val;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	880 if (storeVal->getType()->getContainedType(0) != tmp->getType())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	881 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	882 tmp = LLVM_DtoPointedType(storeVal, tmp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	883 }*/
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	884
29 253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	885 if (l->mem == 0)
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	886 LLVM_DtoGiveArgumentStorage(l);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	887 new llvm::StoreInst(tmp,l->mem,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	888
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	889 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	890 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	891
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	892 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	893 e->val = tmp;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	894 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	895 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	896 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	897
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	898 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	899
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	900 elem* ModExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	901 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	902 Logger::print("ModExp::toElem: %s\n", toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	903 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	904 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	905 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	906 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	907
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	908 Type* t = LLVM_DtoDType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	909
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	910 if (t->isunsigned())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	911 e->val = llvm::BinaryOperator::createURem(l->getValue(),r->getValue(),"tmp",p->scopebb());
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	912 else if (t->isintegral())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	913 e->val = llvm::BinaryOperator::createSRem(l->getValue(),r->getValue(),"tmp",p->scopebb());
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	914 else if (t->isfloating())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	915 e->val = llvm::BinaryOperator::createFRem(l->getValue(),r->getValue(),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	916 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	917 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	918 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	919 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	920 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	921 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	922 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	923
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	924 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	925
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	926 elem* ModAssignExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	927 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	928 Logger::print("ModAssignExp::toElem: %s\n", toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	929 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	930
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	931 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	932 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	933
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	934 Type* t = LLVM_DtoDType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	935
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	936 llvm::Value* tmp;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	937 if (t->isunsigned())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	938 tmp = llvm::BinaryOperator::createURem(l->getValue(),r->getValue(),"tmp",p->scopebb());
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	939 else if (t->isintegral())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	940 tmp = llvm::BinaryOperator::createSRem(l->getValue(),r->getValue(),"tmp",p->scopebb());
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	941 else if (t->isfloating())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	942 tmp = llvm::BinaryOperator::createFRem(l->getValue(),r->getValue(),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	943 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	944 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	945
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	946 /llvm::Value storeVal = l->storeVal ? l->storeVal : l->val;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	947 if (storeVal->getType()->getContainedType(0) != tmp->getType())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	948 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	949 tmp = LLVM_DtoPointedType(storeVal, tmp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	950 }*/
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	951
29 253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	952 if (l->mem == 0)
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	953 LLVM_DtoGiveArgumentStorage(l);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	954 new llvm::StoreInst(tmp,l->mem,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	955
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	956 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	957 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	958
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	959 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	960 e->val = tmp;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	961 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	962 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	963 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	964
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	965 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	966
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	967 elem* CallExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	968 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	969 Logger::print("CallExp::toElem: %s\n", toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	970 LOG_SCOPE;
55 0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	971
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	972 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	973 elem* fn = e1->toElem(p);
55 0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	974
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	975 TypeFunction* tf = 0;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	976 Type* e1type = LLVM_DtoDType(e1->type);
18 c05ef76f1c20 [svn r22] * Forgot to add std.stdio lindquist parents: 15 diff changeset	977
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	978 bool delegateCall = false;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	979 llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty,0,false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	980 llvm::Value* one = llvm::ConstantInt::get(llvm::Type::Int32Ty,1,false);
55 0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	981 LINK dlink = LINKdefault;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	982
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	983 // hidden struct return parameter handling
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	984 bool retinptr = false;
18 c05ef76f1c20 [svn r22] * Forgot to add std.stdio lindquist parents: 15 diff changeset	985
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	986 // regular functions
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	987 if (e1type->ty == Tfunction) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	988 tf = (TypeFunction*)e1type;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	989 if (tf->llvmRetInPtr) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	990 retinptr = true;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	991 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	992 dlink = tf->linkage;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	993 }
18 c05ef76f1c20 [svn r22] * Forgot to add std.stdio lindquist parents: 15 diff changeset	994
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	995 // delegates
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	996 else if (e1type->ty == Tdelegate) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	997 Logger::println("delegateTy = %s\n", e1type->toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	998 assert(e1type->next->ty == Tfunction);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	999 tf = (TypeFunction*)e1type->next;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1000 if (tf->llvmRetInPtr) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1001 retinptr = true;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1002 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1003 dlink = tf->linkage;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1004 delegateCall = true;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1005 }
18 c05ef76f1c20 [svn r22] * Forgot to add std.stdio lindquist parents: 15 diff changeset	1006
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1007 // invalid
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1008 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1009 assert(tf);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1010 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1011
55 0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1012 // va args
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1013 bool va_magic = false;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1014 bool va_intrinsic = false;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1015 if (fn->funcdecl) {
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1016 if (fn->funcdecl->llvmInternal == LLVMva_intrinsic) {
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1017 va_magic = true;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1018 va_intrinsic = true;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1019 }
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1020 else if (fn->funcdecl->llvmInternal == LLVMva_start) {
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1021 va_magic = true;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1022 }
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1023 else if (fn->funcdecl->llvmInternal == LLVMva_arg) {
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1024 Argument* fnarg = Argument::getNth(tf->parameters, 0);
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1025 Expression* exp = (Expression*)arguments->data[0];
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1026 elem* expelem = exp->toElem(p);
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1027 assert(expelem->mem);
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1028 elem* e = new elem;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1029 Type* t = LLVM_DtoDType(type);
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1030 const llvm::Type* llt = LLVM_DtoType(type);
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1031 if (LLVM_DtoIsPassedByRef(t))
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1032 llt = llvm::PointerType::get(llt);
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1033 e->type = elem::VAL;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1034 e->val = p->ir->CreateVAArg(expelem->mem,llt,"tmp");
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1035 delete expelem;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1036 return e;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1037 }
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1038 }
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1039
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1040 // args
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1041 size_t n = arguments->dim;
55 0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1042 if (fn->funcdecl && fn->funcdecl->llvmInternal == LLVMva_start)
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1043 n = 1;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1044 if (fn->arg \|\| delegateCall) n++;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1045 if (retinptr) n++;
57 a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1046 if (tf->linkage == LINKd && tf->varargs == 1) n+=2;
68 c4b3f5d2cd9b [svn r72] Calling a nested function that is not a delegate was not working. lindquist parents: 67 diff changeset	1047 if (fn->funcdecl && fn->funcdecl->isNested()) n++;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1048
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1049 llvm::Value* funcval = fn->getValue();
18 c05ef76f1c20 [svn r22] * Forgot to add std.stdio lindquist parents: 15 diff changeset	1050 assert(funcval != 0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1051 std::vector<llvm::Value*> llargs(n, 0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1052
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1053 const llvm::FunctionType* llfnty = 0;
18 c05ef76f1c20 [svn r22] * Forgot to add std.stdio lindquist parents: 15 diff changeset	1054
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1055 // normal function call
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1056 if (llvm::isa<llvm::FunctionType>(funcval->getType())) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1057 llfnty = llvm::cast<llvm::FunctionType>(funcval->getType());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1058 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1059 // pointer to something
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1060 else if (llvm::isa<llvm::PointerType>(funcval->getType())) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1061 // pointer to function pointer - I think this not really supposed to happen, but does :/
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1062 // seems like sometimes we get a func* other times a func**
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1063 if (llvm::isa<llvm::PointerType>(funcval->getType()->getContainedType(0))) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1064 funcval = new llvm::LoadInst(funcval,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1065 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1066 // function pointer
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1067 if (llvm::isa<llvm::FunctionType>(funcval->getType()->getContainedType(0))) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1068 //Logger::cout() << "function pointer type:\n" << *funcval << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1069 llfnty = llvm::cast<llvm::FunctionType>(funcval->getType()->getContainedType(0));
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1070 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1071 // struct pointer - delegate
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1072 else if (llvm::isa<llvm::StructType>(funcval->getType()->getContainedType(0))) {
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	1073 funcval = LLVM_DtoGEP(funcval,zero,one,"tmp",p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1074 funcval = new llvm::LoadInst(funcval,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1075 const llvm::Type* ty = funcval->getType()->getContainedType(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1076 llfnty = llvm::cast<llvm::FunctionType>(ty);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1077 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1078 // unknown
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1079 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1080 Logger::cout() << "what kind of pointer are we calling? : " << *funcval->getType() << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1081 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1082 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1083 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1084 Logger::cout() << "what are we calling? : " << *funcval << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1085 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1086 assert(llfnty);
53 06ccc817acd4 [svn r57] Added most basic TypeInfo (rebuild lphobos). lindquist parents: 52 diff changeset	1087 //Logger::cout() << "Function LLVM type: " << *llfnty << '\n';
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1088
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1089 // argument handling
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1090 llvm::FunctionType::param_iterator argiter = llfnty->param_begin();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1091 int j = 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1092
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	1093 IRExp* topexp = p->topexp();
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	1094
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1095 // hidden struct return arguments
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1096 if (retinptr) {
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	1097 if (topexp && topexp->e2 == this) {
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	1098 assert(topexp->v);
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	1099 assert(llvm::isa<llvm::StructType>(topexp->v->getType()->getContainedType(0)));
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	1100 llargs[j] = topexp->v;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1101 if (LLVM_DtoIsPassedByRef(tf->next)) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1102 e->inplace = true;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1103 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1104 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1105 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1106 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1107 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1108 llargs[j] = new llvm::AllocaInst(argiter->get()->getContainedType(0),"rettmp",p->topallocapoint());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1109 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1110 ++j;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1111 ++argiter;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1112 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1113 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1114 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1115 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1116 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1117
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1118 // this arguments
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1119 if (fn->arg) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1120 Logger::println("This Call");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1121 if (fn->arg->getType() != argiter->get()) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1122 //Logger::cout() << fn->thisparam << '\|' << argiter->get() << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1123 llargs[j] = new llvm::BitCastInst(fn->arg, argiter->get(), "tmp", p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1124 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1125 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1126 llargs[j] = fn->arg;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1127 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1128 ++j;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1129 ++argiter;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1130 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1131 // delegate context arguments
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1132 else if (delegateCall) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1133 Logger::println("Delegate Call");
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	1134 llvm::Value* contextptr = LLVM_DtoGEP(fn->mem,zero,zero,"tmp",p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1135 llargs[j] = new llvm::LoadInst(contextptr,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1136 ++j;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1137 ++argiter;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1138 }
68 c4b3f5d2cd9b [svn r72] Calling a nested function that is not a delegate was not working. lindquist parents: 67 diff changeset	1139 // nested call
c4b3f5d2cd9b [svn r72] Calling a nested function that is not a delegate was not working. lindquist parents: 67 diff changeset	1140 else if (fn->funcdecl && fn->funcdecl->isNested()) {
c4b3f5d2cd9b [svn r72] Calling a nested function that is not a delegate was not working. lindquist parents: 67 diff changeset	1141 Logger::println("Nested Call");
c4b3f5d2cd9b [svn r72] Calling a nested function that is not a delegate was not working. lindquist parents: 67 diff changeset	1142 llvm::Value* contextptr = p->func().decl->llvmNested;
c4b3f5d2cd9b [svn r72] Calling a nested function that is not a delegate was not working. lindquist parents: 67 diff changeset	1143 assert(contextptr);
c4b3f5d2cd9b [svn r72] Calling a nested function that is not a delegate was not working. lindquist parents: 67 diff changeset	1144 llargs[j] = p->ir->CreateBitCast(contextptr, llvm::PointerType::get(llvm::Type::Int8Ty), "tmp");
c4b3f5d2cd9b [svn r72] Calling a nested function that is not a delegate was not working. lindquist parents: 67 diff changeset	1145 ++j;
c4b3f5d2cd9b [svn r72] Calling a nested function that is not a delegate was not working. lindquist parents: 67 diff changeset	1146 ++argiter;
c4b3f5d2cd9b [svn r72] Calling a nested function that is not a delegate was not working. lindquist parents: 67 diff changeset	1147 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1148
55 0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1149 // va arg function special argument passing
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1150 if (va_magic) {
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1151 size_t n = va_intrinsic ? arguments->dim : 1;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1152 for (int i=0; i<n; i++,j++)
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1153 {
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1154 Argument* fnarg = Argument::getNth(tf->parameters, i);
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1155 Expression* exp = (Expression*)arguments->data[i];
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1156 elem* expelem = exp->toElem(p);
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1157 assert(expelem->mem);
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1158 llargs[j] = p->ir->CreateBitCast(expelem->mem, llvm::PointerType::get(llvm::Type::Int8Ty), "tmp");
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1159 delete expelem;
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1160 }
0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1161 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1162 // regular arguments
55 0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1163 else {
57 a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1164 if (tf->linkage == LINKd && tf->varargs == 1)
55 0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1165 {
57 a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1166 Logger::println("doing d-style variadic arguments");
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1167
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1168 std::vector<const llvm::Type*> vtypes;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1169 std::vector<llvm::Value*> vvalues;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1170 std::vector<llvm::Value*> vtypeinfos;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1171
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1172 for (int i=0; i<arguments->dim; i++) {
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1173 Argument* fnarg = Argument::getNth(tf->parameters, i);
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1174 Expression* argexp = (Expression*)arguments->data[i];
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1175 vvalues.push_back(LLVM_DtoArgument(NULL, fnarg, argexp));
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1176 vtypes.push_back(vvalues.back()->getType());
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1177
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1178 TypeInfoDeclaration* tidecl = argexp->type->getTypeInfoDeclaration();
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1179 tidecl->toObjFile();
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1180 assert(tidecl->llvmValue);
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1181 vtypeinfos.push_back(tidecl->llvmValue);
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1182 }
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1183
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1184 const llvm::StructType* vtype = llvm::StructType::get(vtypes);
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1185 llvm::Value* mem = new llvm::AllocaInst(vtype,"_argptr_storage",p->topallocapoint());
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1186 for (unsigned i=0; i<vtype->getNumElements(); ++i)
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1187 p->ir->CreateStore(vvalues[i], LLVM_DtoGEPi(mem,0,i,"tmp"));
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1188
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1189 //llvm::Constant* typeinfoparam = llvm::ConstantPointerNull::get(llvm::cast<llvm::PointerType>(llfnty->getParamType(j)));
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1190 assert(Type::typeinfo->llvmInitZ);
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1191 const llvm::Type* typeinfotype = llvm::PointerType::get(Type::typeinfo->llvmInitZ->getType());
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1192 Logger::cout() << "typeinfo ptr type: " << *typeinfotype << '\n';
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1193 const llvm::ArrayType* typeinfoarraytype = llvm::ArrayType::get(typeinfotype,vtype->getNumElements());
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1194 llvm::Value* typeinfomem = new llvm::AllocaInst(typeinfoarraytype,"_arguments_storage",p->topallocapoint());
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1195 for (unsigned i=0; i<vtype->getNumElements(); ++i) {
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1196 llvm::Value* v = p->ir->CreateBitCast(vtypeinfos[i], typeinfotype, "tmp");
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1197 p->ir->CreateStore(v, LLVM_DtoGEPi(typeinfomem,0,i,"tmp"));
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1198 }
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1199
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1200 llvm::Value* typeinfoarrayparam = new llvm::AllocaInst(llfnty->getParamType(j)->getContainedType(0),"_arguments_array",p->topallocapoint());
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1201 p->ir->CreateStore(LLVM_DtoConstSize_t(vtype->getNumElements()), LLVM_DtoGEPi(typeinfoarrayparam,0,0,"tmp"));
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1202 llvm::Value* casttypeinfomem = p->ir->CreateBitCast(typeinfomem, llvm::PointerType::get(typeinfotype), "tmp");
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1203 p->ir->CreateStore(casttypeinfomem, LLVM_DtoGEPi(typeinfoarrayparam,0,1,"tmp"));
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1204
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1205 llargs[j] = typeinfoarrayparam;;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1206 j++;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1207 llargs[j] = p->ir->CreateBitCast(mem, llvm::PointerType::get(llvm::Type::Int8Ty), "tmp");
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1208 j++;
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1209 llargs.resize(2);
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1210 }
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1211 else {
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1212 Logger::println("doing normal arguments");
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1213 for (int i=0; i<arguments->dim; i++,j++) {
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1214 Argument* fnarg = Argument::getNth(tf->parameters, i);
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1215 llargs[j] = LLVM_DtoArgument(llfnty->getParamType(j), fnarg, (Expression*)arguments->data[i]);
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1216 }
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1217 Logger::println("%d params passed", n);
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1218 for (int i=0; i<n; ++i) {
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1219 Logger::cout() << *llargs[i] << '\n';
a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1220 }
55 0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1221 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1222 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1223
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1224 // void returns cannot not be named
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1225 const char* varname = "";
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1226 if (llfnty->getReturnType() != llvm::Type::VoidTy)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1227 varname = "tmp";
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1228
55 0ccfae271c45 [svn r59] Added support for C-style variadic functions. Currently only works on x86, x86-64 va_arg is broken in LLVM 2.1. PPC and PPC64 unknown. lindquist parents: 54 diff changeset	1229 Logger::cout() << "Calling: " << *funcval->getType() << '\n';
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1230
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1231 // call the function
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1232 llvm::CallInst* call = new llvm::CallInst(funcval, llargs.begin(), llargs.end(), varname, p->scopebb());
27 92408a3a2bac [svn r31] * Fixed returning through hidden pointer was unable to report back the return value lindquist parents: 26 diff changeset	1233 if (retinptr)
92408a3a2bac [svn r31] * Fixed returning through hidden pointer was unable to report back the return value lindquist parents: 26 diff changeset	1234 e->mem = llargs[0];
92408a3a2bac [svn r31] * Fixed returning through hidden pointer was unable to report back the return value lindquist parents: 26 diff changeset	1235 else
92408a3a2bac [svn r31] * Fixed returning through hidden pointer was unable to report back the return value lindquist parents: 26 diff changeset	1236 e->val = call;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1237
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1238 // set calling convention
66 0c5f410d973c [svn r70] Fixed bug where correct calling convention was not set on calling aggregate methods lindquist parents: 64 diff changeset	1239 if (fn->funcdecl) {
0c5f410d973c [svn r70] Fixed bug where correct calling convention was not set on calling aggregate methods lindquist parents: 64 diff changeset	1240 int li = fn->funcdecl->llvmInternal;
0c5f410d973c [svn r70] Fixed bug where correct calling convention was not set on calling aggregate methods lindquist parents: 64 diff changeset	1241 if (li != LLVMintrinsic && li != LLVMva_start && li != LLVMva_intrinsic) {
0c5f410d973c [svn r70] Fixed bug where correct calling convention was not set on calling aggregate methods lindquist parents: 64 diff changeset	1242 call->setCallingConv(LLVM_DtoCallingConv(dlink));
0c5f410d973c [svn r70] Fixed bug where correct calling convention was not set on calling aggregate methods lindquist parents: 64 diff changeset	1243 }
0c5f410d973c [svn r70] Fixed bug where correct calling convention was not set on calling aggregate methods lindquist parents: 64 diff changeset	1244 }
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	1245 else if (delegateCall) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1246 call->setCallingConv(LLVM_DtoCallingConv(dlink));
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	1247 }
f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	1248 else if (fn->callconv != (unsigned)-1) {
11 d3ee9efe20e2 [svn r15] * Fixed a bunch problems with virtual calls. Seems I did some rather poor testing. lindquist parents: 9 diff changeset	1249 call->setCallingConv(fn->callconv);
67 f918f3e2e99e [svn r71] Fixed accessing parent function arguments from inside nested delegates. lindquist parents: 66 diff changeset	1250 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1251
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1252 delete fn;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1253 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1254 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1255
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1256 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1257
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1258 elem* CastExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1259 {
53 06ccc817acd4 [svn r57] Added most basic TypeInfo (rebuild lphobos). lindquist parents: 52 diff changeset	1260 Logger::print("CastExp::toElem: %s \| %s\n", toChars(), type->toChars());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1261 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1262 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1263 elem* u = e1->toElem(p);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1264 const llvm::Type* tolltype = LLVM_DtoType(to);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1265 Type* fromtype = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1266 Type* totype = LLVM_DtoDType(to);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1267 int lsz = fromtype->size();
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1268 int rsz = totype->size();
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1269
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1270 // this makes sure the strange lvalue casts don't screw things up
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1271 e->mem = u->mem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1272
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1273 if (fromtype->isintegral()) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1274 if (totype->isintegral()) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1275 if (lsz < rsz) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1276 Logger::cout() << *tolltype << '\n';
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1277 if (fromtype->isunsigned() \|\| fromtype->ty == Tbool) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1278 e->val = new llvm::ZExtInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1279 } else {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1280 e->val = new llvm::SExtInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1281 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1282 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1283 else if (lsz > rsz) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1284 e->val = new llvm::TruncInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1285 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1286 else {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1287 e->val = new llvm::BitCastInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1288 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1289 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1290 else if (totype->isfloating()) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1291 if (fromtype->isunsigned()) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1292 e->val = new llvm::UIToFPInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1293 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1294 else {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1295 e->val = new llvm::SIToFPInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1296 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1297 }
70 fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions. lindquist parents: 69 diff changeset	1298 else if (totype->ty == Tpointer) {
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions. lindquist parents: 69 diff changeset	1299 e->val = p->ir->CreateIntToPtr(u->getValue(), tolltype, "tmp");
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions. lindquist parents: 69 diff changeset	1300 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1301 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1302 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1303 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1304 //e->storeVal = u->storeVal ? u->storeVal : u->val;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1305 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1306 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1307 else if (fromtype->isfloating()) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1308 if (totype->isfloating()) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1309 if ((fromtype->ty == Tfloat80 \|\| fromtype->ty == Tfloat64) && (totype->ty == Tfloat80 \|\| totype->ty == Tfloat64)) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1310 e->val = u->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1311 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1312 else if (lsz < rsz) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1313 e->val = new llvm::FPExtInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1314 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1315 else if (lsz > rsz) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1316 e->val = new llvm::FPTruncInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1317 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1318 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1319 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1320 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1321 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1322 else if (totype->isintegral()) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1323 if (totype->isunsigned()) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1324 e->val = new llvm::FPToUIInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1325 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1326 else {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1327 e->val = new llvm::FPToSIInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1328 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1329 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1330 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1331 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1332 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1333 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1334 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1335 else if (fromtype->ty == Tclass) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1336 //assert(to->ty == Tclass);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1337 e->val = new llvm::BitCastInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1338 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1339 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1340 else if (fromtype->ty == Tarray \|\| fromtype->ty == Tsarray) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1341 Logger::cout() << "from array or sarray" << '\n';
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1342 if (totype->ty == Tpointer) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1343 Logger::cout() << "to pointer" << '\n';
58 2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	1344 assert(fromtype->next == totype->next \|\| totype->next->ty == Tvoid);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1345 llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty, 0, false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1346 llvm::Value* one = llvm::ConstantInt::get(llvm::Type::Int32Ty, 1, false);
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	1347 llvm::Value* ptr = LLVM_DtoGEP(u->getValue(),zero,one,"tmp",p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1348 e->val = new llvm::LoadInst(ptr, "tmp", p->scopebb());
58 2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	1349 if (fromtype->next != totype->next)
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	1350 e->val = p->ir->CreateBitCast(e->val, llvm::PointerType::get(llvm::Type::Int8Ty), "tmp");
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1351 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1352 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1353 else if (totype->ty == Tarray) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1354 Logger::cout() << "to array" << '\n';
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1355 const llvm::Type* ptrty = LLVM_DtoType(totype->next);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1356 if (ptrty == llvm::Type::VoidTy)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1357 ptrty = llvm::Type::Int8Ty;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1358 ptrty = llvm::PointerType::get(ptrty);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1359
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1360 const llvm::Type* ety = LLVM_DtoType(fromtype->next);
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1361 if (ety == llvm::Type::VoidTy)
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1362 ety = llvm::Type::Int8Ty;
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1363
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1364 if (u->type == elem::SLICE) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1365 e->mem = new llvm::BitCastInst(u->mem, ptrty, "tmp", p->scopebb());
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1366 if (fromtype->next->size() == totype->next->size())
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1367 e->arg = u->arg;
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1368 else
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1369 e->arg = LLVM_DtoArrayCastLength(u->arg, ety, ptrty->getContainedType(0));
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1370 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1371 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1372 llvm::Value* uval = u->getValue();
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1373 if (fromtype->ty == Tsarray) {
4 e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1374 Logger::cout() << "uvalTy = " << *uval->getType() << '\n';
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1375 assert(llvm::isa<llvm::PointerType>(uval->getType()));
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1376 const llvm::ArrayType* arrty = llvm::cast<llvm::ArrayType>(uval->getType()->getContainedType(0));
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1377 e->arg = llvm::ConstantInt::get(LLVM_DtoSize_t(), arrty->getNumElements(), false);
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1378 e->arg = LLVM_DtoArrayCastLength(e->arg, ety, ptrty->getContainedType(0));
4 e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1379 e->mem = new llvm::BitCastInst(uval, ptrty, "tmp", p->scopebb());
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1380 }
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1381 else {
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1382 llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty, 0, false);
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1383 llvm::Value* one = llvm::ConstantInt::get(llvm::Type::Int32Ty, 1, false);
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	1384 e->arg = LLVM_DtoGEP(uval,zero,zero,"tmp",p->scopebb());
4 e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1385 e->arg = new llvm::LoadInst(e->arg, "tmp", p->scopebb());
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1386 e->arg = LLVM_DtoArrayCastLength(e->arg, ety, ptrty->getContainedType(0));
4 e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1387
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	1388 e->mem = LLVM_DtoGEP(uval,zero,one,"tmp",p->scopebb());
4 e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1389 e->mem = new llvm::LoadInst(e->mem, "tmp", p->scopebb());
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1390 //Logger::cout() << e->mem->getType() << '\|' << ptrty << '\n';
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1391 e->mem = new llvm::BitCastInst(e->mem, ptrty, "tmp", p->scopebb());
e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	1392 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1393 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1394 e->type = elem::SLICE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1395 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1396 else if (totype->ty == Tsarray) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1397 Logger::cout() << "to sarray" << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1398 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1399 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1400 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1401 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1402 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1403 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1404 else if (fromtype->ty == Tpointer) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1405 if (totype->ty == Tpointer \|\| totype->ty == Tclass) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1406 llvm::Value* src = u->getValue();
57 a9d29e9f1fed [svn r61] Added support for D-style variadic functions :) lindquist parents: 55 diff changeset	1407 Logger::cout() << src << '\|' << tolltype << '\n';
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1408 e->val = new llvm::BitCastInst(src, tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1409 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1410 else if (totype->isintegral()) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1411 e->val = new llvm::PtrToIntInst(u->getValue(), tolltype, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1412 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1413 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1414 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1415 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1416 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1417 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1418 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1419 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1420 delete u;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1421 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1422 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1423
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1424 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1425
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1426 elem* SymOffExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1427 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1428 Logger::print("SymOffExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1429 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1430 elem* e = 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1431 if (VarDeclaration* vd = var->isVarDeclaration())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1432 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1433 Logger::println("VarDeclaration");
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1434 if (!vd->llvmTouched && vd->isDataseg())
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1435 vd->toObjFile();
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1436
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1437 if (vd->isTypedefDeclaration()) {
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1438 e->istypeinfo = true;
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1439 }
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1440
23 77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	1441 assert(vd->llvmValue);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1442 Type* t = LLVM_DtoDType(type);
72 d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	1443 Type* tnext = LLVM_DtoDType(t->next);
50 6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	1444 Type* vdtype = LLVM_DtoDType(vd->type);
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	1445
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	1446 llvm::Value* llvalue = vd->nestedref ? LLVM_DtoNestedVariable(vd) : vd->llvmValue;
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	1447
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1448 if (vdtype->ty == Tstruct && !(t->ty == Tpointer && t->next == vdtype)) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1449 TypeStruct* vdt = (TypeStruct*)vdtype;
72 d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	1450 assert(vdt->sym);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1451 e = new elem;
73 b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1452 const llvm::Type* llt = LLVM_DtoType(t);
72 d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	1453 if (offset == 0) {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	1454 e->mem = p->ir->CreateBitCast(llvalue, llt, "tmp");
d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	1455 }
d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	1456 else {
d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	1457 std::vector<unsigned> dst(1,0);
73 b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1458 size_t fo = vdt->sym->offsetToIndex(tnext, offset, dst);
72 d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	1459 llvm::Value* ptr = llvalue;
d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	1460 assert(ptr);
d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	1461 e->mem = LLVM_DtoGEP(ptr,dst,"tmp");
73 b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1462 if (e->mem->getType() != llt) {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1463 e->mem = p->ir->CreateBitCast(e->mem, llt, "tmp");
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1464 }
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1465 if (fo == (size_t)-1) {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1466 size_t llt_sz = gTargetData->getTypeSize(llt->getContainedType(0));
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1467 assert(offset % llt_sz == 0);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1468 e->mem = new llvm::GetElementPtrInst(e->mem, LLVM_DtoConstUint(offset / llt_sz), "tmp", p->scopebb());
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1469 }
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1470 else if (fo) {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1471 e->mem = new llvm::GetElementPtrInst(e->mem, LLVM_DtoConstUint(fo), "tmp", p->scopebb());
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1472 }
72 d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	1473 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1474 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1475 e->field = true;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1476 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1477 else if (vdtype->ty == Tsarray) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1478 e = new elem;
64 b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1479 assert(llvalue);
50 6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	1480 e->arg = llvalue;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1481 e->type = elem::VAL;
64 b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1482
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1483 const llvm::Type* llt = LLVM_DtoType(t);
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1484 llvm::Value* off = 0;
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1485 if (offset != 0) {
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1486 Logger::println("offset = %d\n", offset);
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1487 }
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1488 if (llvalue->getType() != llt) {
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1489 e->mem = p->ir->CreateBitCast(llvalue, llt, "tmp");
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1490 if (offset != 0)
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1491 e->mem = LLVM_DtoGEPi(e->mem, offset, "tmp");
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1492 }
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1493 else {
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1494 assert(offset == 0);
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1495 e->mem = LLVM_DtoGEPi(llvalue,0,0,"tmp");
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1496 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1497 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1498 else if (offset == 0) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1499 e = new elem;
64 b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1500 e->type = elem::VAL;
50 6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	1501 assert(llvalue);
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	1502 e->mem = llvalue;
64 b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	1503
53 06ccc817acd4 [svn r57] Added most basic TypeInfo (rebuild lphobos). lindquist parents: 52 diff changeset	1504 const llvm::Type* llt = LLVM_DtoType(t);
06ccc817acd4 [svn r57] Added most basic TypeInfo (rebuild lphobos). lindquist parents: 52 diff changeset	1505 if (llvalue->getType() != llt) {
06ccc817acd4 [svn r57] Added most basic TypeInfo (rebuild lphobos). lindquist parents: 52 diff changeset	1506 e->mem = p->ir->CreateBitCast(e->mem, llt, "tmp");
06ccc817acd4 [svn r57] Added most basic TypeInfo (rebuild lphobos). lindquist parents: 52 diff changeset	1507 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1508 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1509 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1510 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1511 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1512 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1513 else if (FuncDeclaration* fd = var->isFuncDeclaration())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1514 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1515 Logger::println("FuncDeclaration");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1516 e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1517 if (fd->llvmValue == 0)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1518 fd->toObjFile();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1519 e->val = fd->llvmValue;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1520 e->type = elem::FUNC;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1521 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1522 assert(e != 0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1523 assert(e->type != elem::NONE);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1524 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1525 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1526
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1527 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1528
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1529 elem* PtrExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1530 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1531 Logger::print("PtrExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1532 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1533 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1534 elem* a = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1535
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1536 if (a->mem)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1537 Logger::cout() << "mem: " << *a->mem << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1538 if (a->val)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1539 Logger::cout() << "val: " << *a->val << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1540
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1541 if (a->field)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1542 e->mem = a->mem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1543 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1544 e->mem = a->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1545 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1546
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1547 delete a;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1548 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1549 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1550
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1551 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1552
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1553 elem* DotVarExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1554 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1555 Logger::print("DotVarExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1556 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1557 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1558
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1559 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1560
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1561 Type* t = LLVM_DtoDType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1562 Type* e1type = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1563
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1564 Logger::print("e1->type=%s\n", e1type->toChars());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1565
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1566 if (VarDeclaration* vd = var->isVarDeclaration()) {
8 5e69b77a5c51 [svn r12] fixed accessing aggregate fields of aggregates lindquist parents: 6 diff changeset	1567 std::vector<unsigned> vdoffsets(1,0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1568 llvm::Value* src = 0;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1569 if (e1type->ty == Tpointer) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1570 assert(e1type->next->ty == Tstruct);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1571 TypeStruct* ts = (TypeStruct*)e1type->next;
24 25bb577878e8 [svn r28] * Fixed accessing aggregate fields. it was still not quite right. hopefully is now :) lindquist parents: 23 diff changeset	1572 ts->sym->offsetToIndex(vd->type, vd->offset, vdoffsets);
8 5e69b77a5c51 [svn r12] fixed accessing aggregate fields of aggregates lindquist parents: 6 diff changeset	1573 Logger::println("Struct member offset:%d", vd->offset);
15 37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	1574 src = l->val ? l->val : l->mem;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1575 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1576 else if (e1->type->ty == Tclass) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1577 TypeClass* tc = (TypeClass*)e1type;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1578 Logger::println("Class member offset: %d", vd->offset);
24 25bb577878e8 [svn r28] * Fixed accessing aggregate fields. it was still not quite right. hopefully is now :) lindquist parents: 23 diff changeset	1579 tc->sym->offsetToIndex(vd->type, vd->offset, vdoffsets);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1580 src = l->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1581 }
8 5e69b77a5c51 [svn r12] fixed accessing aggregate fields of aggregates lindquist parents: 6 diff changeset	1582 assert(vdoffsets.size() != 1);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1583 assert(src != 0);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1584 Logger::cout() << "src: " << *src << '\n';
8 5e69b77a5c51 [svn r12] fixed accessing aggregate fields of aggregates lindquist parents: 6 diff changeset	1585 llvm::Value* arrptr = LLVM_DtoGEP(src,vdoffsets,"tmp",p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1586 e->mem = arrptr;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1587 Logger::cout() << "mem: " << *e->mem << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1588 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1589 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1590 else if (FuncDeclaration* fdecl = var->isFuncDeclaration())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1591 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1592 if (fdecl->llvmValue == 0)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1593 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1594 fdecl->toObjFile();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1595 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1596
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1597 llvm::Value* funcval = fdecl->llvmValue;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1598 e->arg = l->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1599
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1600 // virtual call
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1601 if (fdecl->isVirtual()) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1602 assert(fdecl->vtblIndex > 0);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1603 assert(e1type->ty == Tclass);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1604
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1605 llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty, 0, false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1606 llvm::Value* vtblidx = llvm::ConstantInt::get(llvm::Type::Int32Ty, (size_t)fdecl->vtblIndex, false);
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	1607 funcval = LLVM_DtoGEP(e->arg, zero, zero, "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1608 funcval = new llvm::LoadInst(funcval,"tmp",p->scopebb());
53 06ccc817acd4 [svn r57] Added most basic TypeInfo (rebuild lphobos). lindquist parents: 52 diff changeset	1609 funcval = LLVM_DtoGEP(funcval, zero, vtblidx, toChars(), p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1610 funcval = new llvm::LoadInst(funcval,"tmp",p->scopebb());
9 dafae18f9c08 [svn r13] * Updated for LLVM 2.1 lindquist parents: 8 diff changeset	1611 assert(funcval->getType() == fdecl->llvmValue->getType());
11 d3ee9efe20e2 [svn r15] * Fixed a bunch problems with virtual calls. Seems I did some rather poor testing. lindquist parents: 9 diff changeset	1612 e->callconv = LLVM_DtoCallingConv(fdecl->linkage);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1613 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1614 e->val = funcval;
66 0c5f410d973c [svn r70] Fixed bug where correct calling convention was not set on calling aggregate methods lindquist parents: 64 diff changeset	1615 e->type = elem::FUNC;
0c5f410d973c [svn r70] Fixed bug where correct calling convention was not set on calling aggregate methods lindquist parents: 64 diff changeset	1616 e->funcdecl = fdecl;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1617 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1618 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1619 printf("unknown: %s\n", var->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1620 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1621 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1622
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1623 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1624
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1625 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1626 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1627
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1628 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1629
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1630 elem* ThisExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1631 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1632 Logger::print("ThisExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1633 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1634 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1635
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1636 if (VarDeclaration* vd = var->isVarDeclaration()) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1637 llvm::Value* v = p->func().decl->llvmThisVar;
15 37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	1638 if (llvm::isa<llvm::AllocaInst>(v))
37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	1639 v = new llvm::LoadInst(v, "tmp", p->scopebb());
37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	1640 e->mem = v;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1641 e->type = elem::VAL;
15 37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	1642 e->isthis = true;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1643 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1644 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1645 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1646 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1647
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1648 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1649 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1650
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1651 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1652
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1653 elem* AddrExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1654 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1655 Logger::print("AddrExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1656 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1657 elem* e = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1658 e->field = true;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1659 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1660 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1661
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1662 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1663
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1664 elem* StructLiteralExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1665 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1666 Logger::print("StructLiteralExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1667 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1668 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1669
30 881158a93592 [svn r34] * Fixed passing a struct literal as function argument lindquist parents: 29 diff changeset	1670 llvm::Value* sptr = 0;
881158a93592 [svn r34] * Fixed passing a struct literal as function argument lindquist parents: 29 diff changeset	1671
881158a93592 [svn r34] * Fixed passing a struct literal as function argument lindquist parents: 29 diff changeset	1672 // if there is no lval, this is probably a temporary struct literal. correct?
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	1673 if (!p->topexp() \|\| p->topexp()->e2 != this)
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1674 {
30 881158a93592 [svn r34] * Fixed passing a struct literal as function argument lindquist parents: 29 diff changeset	1675 sptr = new llvm::AllocaInst(LLVM_DtoType(type),"tmpstructliteral",p->topallocapoint());
881158a93592 [svn r34] * Fixed passing a struct literal as function argument lindquist parents: 29 diff changeset	1676 e->mem = sptr;
881158a93592 [svn r34] * Fixed passing a struct literal as function argument lindquist parents: 29 diff changeset	1677 e->type = elem::VAR;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1678 }
30 881158a93592 [svn r34] * Fixed passing a struct literal as function argument lindquist parents: 29 diff changeset	1679 // already has memory
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	1680 else if (p->topexp()->e2 == this)
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1681 {
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	1682 sptr = p->topexp()->v;
30 881158a93592 [svn r34] * Fixed passing a struct literal as function argument lindquist parents: 29 diff changeset	1683 }
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	1684 else
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	1685 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1686
30 881158a93592 [svn r34] * Fixed passing a struct literal as function argument lindquist parents: 29 diff changeset	1687 assert(sptr);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1688
30 881158a93592 [svn r34] * Fixed passing a struct literal as function argument lindquist parents: 29 diff changeset	1689 llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty, 0, false);
881158a93592 [svn r34] * Fixed passing a struct literal as function argument lindquist parents: 29 diff changeset	1690
73 b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1691 if (sd->isUnionDeclaration()) {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1692 Logger::println("num elements = %d", elements->dim);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1693 //assert(elements->dim == 1);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1694 Expression* vx = (Expression*)elements->data[0];
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1695 assert(vx);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1696
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1697 Type* vxtype = LLVM_DtoDType(vx->type);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1698 const llvm::Type* llvxty = llvm::PointerType::get(LLVM_DtoType(vxtype));
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1699 llvm::Value* arrptr = p->ir->CreateBitCast(sptr, llvxty, "tmp");
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1700
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1701 p->exps.push_back(IRExp(NULL,vx,arrptr));
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1702 elem* ve = vx->toElem(p);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1703 p->exps.pop_back();
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1704
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1705 if (!ve->inplace) {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1706 llvm::Value* val = ve->getValue();
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1707 Logger::cout() << val << " \| " << arrptr << '\n';
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1708 LLVM_DtoAssign(vxtype, arrptr, val);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1709 }
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1710 delete ve;
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1711 }
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1712 else {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1713 unsigned n = elements->dim;
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1714 for (unsigned i=0; i<n; ++i)
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1715 {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1716 llvm::Value* offset = llvm::ConstantInt::get(llvm::Type::Int32Ty, i, false);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1717 llvm::Value* arrptr = LLVM_DtoGEP(sptr,zero,offset,"tmp",p->scopebb());
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1718
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1719 Expression* vx = (Expression*)elements->data[i];
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1720 if (vx != 0) {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1721 p->exps.push_back(IRExp(NULL,vx,arrptr));
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1722 elem* ve = vx->toElem(p);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1723 p->exps.pop_back();
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1724
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1725 if (!ve->inplace) {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1726 llvm::Value* val = ve->getValue();
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1727 Logger::cout() << val << " \| " << arrptr << '\n';
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1728
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1729 Type* vxtype = LLVM_DtoDType(vx->type);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1730 LLVM_DtoAssign(vxtype, arrptr, val);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1731 }
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1732 delete ve;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1733 }
73 b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1734 else {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1735 assert(0);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1736 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1737 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1738 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1739
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1740 e->inplace = true;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1741
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1742 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1743 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1744
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1745 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1746
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1747 llvm::Constant* StructLiteralExp::toConstElem(IRState* p)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1748 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1749 Logger::print("StructLiteralExp::toConstElem: %s \| %s\n", toChars(), type->toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1750 LOG_SCOPE;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1751
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1752 unsigned n = elements->dim;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1753 std::vector<llvm::Constant*> vals(n, NULL);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1754
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1755 for (unsigned i=0; i<n; ++i)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1756 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1757 Expression* vx = (Expression*)elements->data[i];
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1758 vals[i] = vx->toConstElem(p);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1759 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1760
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1761 assert(LLVM_DtoDType(type)->ty == Tstruct);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1762 const llvm::Type* t = LLVM_DtoType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1763 const llvm::StructType* st = llvm::cast<llvm::StructType>(t);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1764 return llvm::ConstantStruct::get(st,vals);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1765 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1766
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1767 //////////////////////////////////////////////////////////////////////////////////////////
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1768
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1769 elem* IndexExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1770 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1771 Logger::print("IndexExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1772 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1773
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1774 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1775
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1776 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1777
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1778 Type* e1type = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1779
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1780 p->arrays.push_back(l->mem); // if $ is used it must be an array so this is fine.
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1781 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1782 p->arrays.pop_back();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1783
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1784 llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty, 0, false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1785 llvm::Value* one = llvm::ConstantInt::get(llvm::Type::Int32Ty, 1, false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1786
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1787 llvm::Value* arrptr = 0;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1788 if (e1type->ty == Tpointer) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1789 arrptr = new llvm::GetElementPtrInst(l->getValue(),r->getValue(),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1790 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1791 else if (e1type->ty == Tsarray) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1792 arrptr = LLVM_DtoGEP(l->getValue(), zero, r->getValue(),"tmp",p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1793 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1794 else if (e1type->ty == Tarray) {
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	1795 arrptr = LLVM_DtoGEP(l->mem,zero,one,"tmp",p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1796 arrptr = new llvm::LoadInst(arrptr,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1797 arrptr = new llvm::GetElementPtrInst(arrptr,r->getValue(),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1798 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1799 assert(arrptr);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1800
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1801 e->mem = arrptr;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1802 e->type = elem::VAR;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1803
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1804 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1805 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1806
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1807 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1808 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1809
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1810 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1811
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1812 elem* SliceExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1813 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1814 Logger::print("SliceExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1815 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1816
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1817 Type* t = LLVM_DtoDType(type);
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1818 assert(t->ty == Tarray);
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1819
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1820 elem* v = e1->toElem(p);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1821 Type* e1type = LLVM_DtoDType(e1->type);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1822
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1823 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1824 assert(v->mem);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1825 e->type = elem::SLICE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1826
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1827 llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty, 0, false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1828 llvm::Value* one = llvm::ConstantInt::get(llvm::Type::Int32Ty, 1, false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1829
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1830 // partial slice
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1831 if (lwr)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1832 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1833 assert(upr);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1834 p->arrays.push_back(v->mem);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1835 elem* lo = lwr->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1836
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1837 bool lwr_is_zero = false;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1838 if (lo->type == elem::CONST)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1839 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1840 assert(lo->val);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1841 assert(llvm::isa<llvm::ConstantInt>(lo->val));
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1842
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1843 if (e1type->ty == Tpointer) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1844 e->mem = v->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1845 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1846 else if (e1type->ty == Tarray) {
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	1847 llvm::Value* tmp = LLVM_DtoGEP(v->mem,zero,one,"tmp",p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1848 e->mem = new llvm::LoadInst(tmp,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1849 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1850 else if (e1type->ty == Tsarray) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1851 e->mem = LLVM_DtoGEP(v->mem,zero,zero,"tmp",p->scopebb());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1852 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1853 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1854 assert(e->mem);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1855
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1856 llvm::ConstantInt* c = llvm::cast<llvm::ConstantInt>(lo->val);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1857 if (!(lwr_is_zero = c->isZero())) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1858 e->mem = new llvm::GetElementPtrInst(e->mem,lo->val,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1859 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1860 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1861 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1862 {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1863 if (e1type->ty == Tarray) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1864 llvm::Value* tmp = LLVM_DtoGEP(v->mem,zero,one,"tmp",p->scopebb());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1865 tmp = new llvm::LoadInst(tmp,"tmp",p->scopebb());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1866 e->mem = new llvm::GetElementPtrInst(tmp,lo->getValue(),"tmp",p->scopebb());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1867 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1868 else if (e1type->ty == Tsarray) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1869 e->mem = LLVM_DtoGEP(v->mem,zero,lo->getValue(),"tmp",p->scopebb());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1870 }
73 b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1871 else if (e1type->ty == Tpointer) {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1872 e->mem = new llvm::GetElementPtrInst(v->getValue(),lo->getValue(),"tmp",p->scopebb());
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1873 }
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1874 else {
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1875 Logger::println("type = %s", e1type->toChars());
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1876 assert(0);
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	1877 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1878 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1879
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1880 elem* up = upr->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1881 p->arrays.pop_back();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1882
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1883 if (up->type == elem::CONST)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1884 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1885 assert(up->val);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1886 assert(llvm::isa<llvm::ConstantInt>(up->val));
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1887 if (lwr_is_zero) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1888 e->arg = up->val;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1889 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1890 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1891 if (lo->type == elem::CONST) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1892 llvm::Constant* clo = llvm::cast<llvm::Constant>(lo->val);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1893 llvm::Constant* cup = llvm::cast<llvm::Constant>(up->val);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1894 e->arg = llvm::ConstantExpr::getSub(cup, clo);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1895 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1896 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1897 e->arg = llvm::BinaryOperator::createSub(up->val, lo->getValue(), "tmp", p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1898 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1899 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1900 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1901 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1902 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1903 if (lwr_is_zero) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1904 e->arg = up->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1905 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1906 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1907 e->arg = llvm::BinaryOperator::createSub(up->getValue(), lo->getValue(), "tmp", p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1908 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1909 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1910
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1911 delete lo;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1912 delete up;
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1913
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1914 /*
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1915 llvm::Value* tmpmem = new llvm::AllocaInst(LLVM_DtoType(t),"tmp",p->topallocapoint());
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1916 llvm::Value* ptr = LLVM_DtoGEPi(tmpmem,0,0,"tmp");
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1917 p->ir->CreateStore(e->arg, ptr);
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1918 ptr = LLVM_DtoGEPi(tmpmem,0,1,"tmp");
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1919 p->ir->CreateStore(e->mem, ptr);
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1920 e->arg = NULL;
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1921 e->mem = tmpmem;
0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	1922 */
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1923 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1924 // full slice
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1925 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1926 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1927 e->mem = v->mem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1928 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1929
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1930 delete v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1931
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1932 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1933 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1934
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1935 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1936
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1937 elem* CmpExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1938 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1939 Logger::print("CmpExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1940 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1941
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1942 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1943
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1944 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1945 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1946
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1947 Type* t = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1948 Type* e2t = LLVM_DtoDType(e2->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1949 assert(t == e2t);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1950
58 2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	1951 if (t->isintegral() \|\| t->ty == Tpointer)
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1952 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1953 llvm::ICmpInst::Predicate cmpop;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1954 bool skip = false;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1955 switch(op)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1956 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1957 case TOKlt:
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1958 case TOKul:
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1959 cmpop = t->isunsigned() ? llvm::ICmpInst::ICMP_ULT : llvm::ICmpInst::ICMP_SLT;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1960 break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1961 case TOKle:
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1962 case TOKule:
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1963 cmpop = t->isunsigned() ? llvm::ICmpInst::ICMP_ULE : llvm::ICmpInst::ICMP_SLE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1964 break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1965 case TOKgt:
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1966 case TOKug:
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1967 cmpop = t->isunsigned() ? llvm::ICmpInst::ICMP_UGT : llvm::ICmpInst::ICMP_SGT;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1968 break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1969 case TOKge:
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1970 case TOKuge:
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1971 cmpop = t->isunsigned() ? llvm::ICmpInst::ICMP_UGE : llvm::ICmpInst::ICMP_SGE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1972 break;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1973 case TOKue:
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1974 cmpop = llvm::ICmpInst::ICMP_EQ;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1975 break;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1976 case TOKlg:
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1977 cmpop = llvm::ICmpInst::ICMP_NE;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1978 break;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1979 case TOKleg:
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1980 skip = true;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1981 e->val = llvm::ConstantInt::getTrue();
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1982 break;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1983 case TOKunord:
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1984 skip = true;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1985 e->val = llvm::ConstantInt::getFalse();
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1986 break;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1987
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1988 default:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1989 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1990 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1991 if (!skip)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1992 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1993 e->val = new llvm::ICmpInst(cmpop, l->getValue(), r->getValue(), "tmp", p->scopebb());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	1994 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1995 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1996 else if (t->isfloating())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1997 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1998 llvm::FCmpInst::Predicate cmpop;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1999 switch(op)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2000 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2001 case TOKlt:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2002 cmpop = llvm::FCmpInst::FCMP_OLT;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2003 case TOKle:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2004 cmpop = llvm::FCmpInst::FCMP_OLE;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2005 case TOKgt:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2006 cmpop = llvm::FCmpInst::FCMP_OGT;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2007 case TOKge:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2008 cmpop = llvm::FCmpInst::FCMP_OGE;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2009 case TOKunord:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2010 cmpop = llvm::FCmpInst::FCMP_UNO;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2011 case TOKule:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2012 cmpop = llvm::FCmpInst::FCMP_ULE;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2013 case TOKul:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2014 cmpop = llvm::FCmpInst::FCMP_ULT;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2015 case TOKuge:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2016 cmpop = llvm::FCmpInst::FCMP_UGE;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2017 case TOKug:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2018 cmpop = llvm::FCmpInst::FCMP_UGT;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2019 case TOKue:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2020 cmpop = llvm::FCmpInst::FCMP_UEQ;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2021 case TOKlg:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2022 cmpop = llvm::FCmpInst::FCMP_ONE;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2023 case TOKleg:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2024 cmpop = llvm::FCmpInst::FCMP_ORD;break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2025
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2026 default:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2027 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2028 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2029 e->val = new llvm::FCmpInst(cmpop, l->getValue(), r->getValue(), "tmp", p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2030 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2031 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2032 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2033 assert(0 && "Unsupported CmpExp type");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2034 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2035
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2036 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2037 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2038
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2039 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2040
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2041 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2042 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2043
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2044 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2045
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2046 elem* EqualExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2047 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2048 Logger::print("EqualExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2049 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2050
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2051 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2052
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2053 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2054 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2055
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2056 Type* t = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2057 Type* e2t = LLVM_DtoDType(e2->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2058 assert(t == e2t);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2059
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2060 if (t->isintegral() \|\| t->ty == Tpointer)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2061 {
64 b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	2062 Logger::println("integral or pointer");
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2063 llvm::ICmpInst::Predicate cmpop;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2064 switch(op)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2065 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2066 case TOKequal:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2067 cmpop = llvm::ICmpInst::ICMP_EQ;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2068 break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2069 case TOKnotequal:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2070 cmpop = llvm::ICmpInst::ICMP_NE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2071 break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2072 default:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2073 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2074 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2075 e->val = new llvm::ICmpInst(cmpop, l->getValue(), r->getValue(), "tmp", p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2076 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2077 else if (t->isfloating())
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2078 {
64 b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	2079 Logger::println("floating");
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2080 llvm::FCmpInst::Predicate cmpop;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2081 switch(op)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2082 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2083 case TOKequal:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2084 cmpop = llvm::FCmpInst::FCMP_OEQ;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2085 break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2086 case TOKnotequal:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2087 cmpop = llvm::FCmpInst::FCMP_UNE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2088 break;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2089 default:
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2090 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2091 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2092 e->val = new llvm::FCmpInst(cmpop, l->getValue(), r->getValue(), "tmp", p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2093 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2094 else if (t->ty == Tsarray)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2095 {
64 b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	2096 Logger::println("static array");
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2097 e->val = LLVM_DtoStaticArrayCompare(op,l->mem,r->mem);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2098 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2099 else if (t->ty == Tarray)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2100 {
64 b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	2101 Logger::println("dynamic array");
52 0c77619e803b [svn r56] Initial support for TypeInfo. lindquist parents: 51 diff changeset	2102 e->val = LLVM_DtoDynArrayCompare(op,l->mem,r->mem);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2103 }
53 06ccc817acd4 [svn r57] Added most basic TypeInfo (rebuild lphobos). lindquist parents: 52 diff changeset	2104 else if (t->ty == Tdelegate)
06ccc817acd4 [svn r57] Added most basic TypeInfo (rebuild lphobos). lindquist parents: 52 diff changeset	2105 {
64 b688ad419f8c [svn r68] Added support for multi-dimensional static arrays. lindquist parents: 62 diff changeset	2106 Logger::println("delegate");
53 06ccc817acd4 [svn r57] Added most basic TypeInfo (rebuild lphobos). lindquist parents: 52 diff changeset	2107 e->val = LLVM_DtoCompareDelegate(op,l->mem,r->mem);
06ccc817acd4 [svn r57] Added most basic TypeInfo (rebuild lphobos). lindquist parents: 52 diff changeset	2108 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2109 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2110 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2111 assert(0 && "Unsupported EqualExp type");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2112 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2113
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2114 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2115 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2116
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2117 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2118
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2119 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2120 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2121
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2122 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2123
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2124 elem* PostExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2125 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2126 Logger::print("PostExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2127 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2128
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2129 elem* l = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2130 elem* r = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2131
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2132 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2133 e->mem = l->mem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2134 e->val = l->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2135 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2136
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2137 llvm::Value* val = e->val;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2138 llvm::Value* post = 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2139
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2140 Type* e1type = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2141 Type* e2type = LLVM_DtoDType(e2->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2142
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2143 if (e1type->isintegral())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2144 {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2145 assert(e2type->isintegral());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2146 llvm::Value* one = llvm::ConstantInt::get(val->getType(), 1, !e2type->isunsigned());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2147 if (op == TOKplusplus) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2148 post = llvm::BinaryOperator::createAdd(val,one,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2149 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2150 else if (op == TOKminusminus) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2151 post = llvm::BinaryOperator::createSub(val,one,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2152 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2153 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2154 else if (e1type->ty == Tpointer)
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2155 {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2156 assert(e2type->isintegral());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2157 llvm::Constant* minusone = llvm::ConstantInt::get(LLVM_DtoSize_t(),(uint64_t)-1,true);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2158 llvm::Constant* plusone = llvm::ConstantInt::get(LLVM_DtoSize_t(),(uint64_t)1,false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2159 llvm::Constant* whichone = (op == TOKplusplus) ? plusone : minusone;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2160 post = new llvm::GetElementPtrInst(val, whichone, "tmp", p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2161 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2162 else if (e1type->isfloating())
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2163 {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2164 assert(e2type->isfloating());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2165 llvm::Value* one = llvm::ConstantFP::get(val->getType(), 1.0f);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2166 if (op == TOKplusplus) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2167 post = llvm::BinaryOperator::createAdd(val,one,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2168 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2169 else if (op == TOKminusminus) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2170 post = llvm::BinaryOperator::createSub(val,one,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2171 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2172 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2173 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2174 assert(post);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2175
72 d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	2176 if (l->mem == 0)
d7e764e62462 [svn r76] Fixed: TypeInfo for structs. lindquist parents: 70 diff changeset	2177 LLVM_DtoGiveArgumentStorage(l);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2178 new llvm::StoreInst(post,l->mem,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2179
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2180 delete l;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2181 delete r;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2182
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2183 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2184 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2185
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2186 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2187
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2188 elem* NewExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2189 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2190 Logger::print("NewExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2191 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2192
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2193 assert(!thisexp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2194 assert(!newargs);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2195 assert(newtype);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2196 assert(!allocator);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2197
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2198 elem* e = new elem;
58 2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2199 e->inplace = true;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2200
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2201 Type* ntype = LLVM_DtoDType(newtype);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2202
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2203 const llvm::Type* t = LLVM_DtoType(ntype);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2204
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2205 if (onstack) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2206 assert(ntype->ty == Tclass);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2207 e->mem = new llvm::AllocaInst(t->getContainedType(0),"tmp",p->topallocapoint());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2208 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2209 else {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2210 if (ntype->ty == Tclass) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2211 e->mem = new llvm::MallocInst(t->getContainedType(0),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2212 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2213 else if (ntype->ty == Tarray) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2214 assert(arguments);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2215 if (arguments->dim == 1) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2216 elem* sz = ((Expression*)arguments->data[0])->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2217 llvm::Value* dimval = sz->getValue();
58 2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2218 Type* nnt = LLVM_DtoDType(ntype->next);
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2219 if (nnt->ty == Tvoid)
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2220 nnt = Type::tint8;
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2221 if (!p->topexp() \|\| p->topexp()->e2 != this) {
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2222 const llvm::Type* restype = LLVM_DtoType(type);
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2223 Logger::cout() << "restype = " << *restype << '\n';
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2224 e->mem = new llvm::AllocaInst(restype,"tmp",p->topallocapoint());
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2225 LLVM_DtoNewDynArray(e->mem, dimval, nnt);
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2226 e->inplace = false;
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2227 }
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2228 else if (p->topexp() \|\| p->topexp()->e2 != this) {
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2229 assert(p->topexp()->v);
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2230 e->mem = p->topexp()->v;
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2231 LLVM_DtoNewDynArray(e->mem, dimval, nnt);
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2232 }
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2233 else
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2234 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2235 delete sz;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2236 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2237 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2238 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2239 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2240 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2241 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2242 e->mem = new llvm::MallocInst(t,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2243 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2244 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2245
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2246 if (ntype->ty == Tclass) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2247 // first apply the static initializer
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2248 assert(e->mem);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2249 LLVM_DtoInitClass((TypeClass*)ntype, e->mem);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2250
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2251 // then call constructor
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2252 if (arguments) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2253 assert(member);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2254 assert(member->llvmValue);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2255 llvm::Function* fn = llvm::cast<llvm::Function>(member->llvmValue);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2256 TypeFunction* tf = (TypeFunction*)LLVM_DtoDType(member->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2257
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2258 std::vector<llvm::Value*> ctorargs;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2259 ctorargs.push_back(e->mem);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2260 for (size_t i=0; i<arguments->dim; ++i)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2261 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2262 Expression* ex = (Expression*)arguments->data[i];
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2263 Argument* fnarg = Argument::getNth(tf->parameters, i);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2264 llvm::Value* a = LLVM_DtoArgument(fn->getFunctionType()->getParamType(i+1), fnarg, ex);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2265 ctorargs.push_back(a);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2266 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2267 e->mem = new llvm::CallInst(fn, ctorargs.begin(), ctorargs.end(), "tmp", p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2268 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2269 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2270 else if (ntype->ty == Tstruct) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2271 TypeStruct* ts = (TypeStruct*)ntype;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2272 if (ts->isZeroInit()) {
51 61bc1b4ad3c4 [svn r55] Foreach was always generating code as if the value variable was 'ref' lindquist parents: 50 diff changeset	2273 LLVM_DtoStructZeroInit(e->mem);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2274 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2275 else {
51 61bc1b4ad3c4 [svn r55] Foreach was always generating code as if the value variable was 'ref' lindquist parents: 50 diff changeset	2276 LLVM_DtoStructCopy(e->mem,ts->llvmInit);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2277 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2278 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2279
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2280 e->type = elem::VAR;
15 37a4fdab33fc [svn r19] * Added support for reassigning 'this' inside class constructors. lindquist parents: 14 diff changeset	2281
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2282 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2283 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2284
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2285 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2286
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2287 elem* DeleteExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2288 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2289 Logger::print("DeleteExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2290 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2291
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2292 //assert(e1->type->ty != Tclass);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2293
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2294 elem* v = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2295 llvm::Value* val = v->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2296 llvm::Value* ldval = 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2297
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2298 const llvm::Type* t = val->getType();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2299 llvm::Constant* z = llvm::Constant::getNullValue(t);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2300
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2301 Type* e1type = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2302
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2303 if (e1type->ty == Tpointer) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2304 ldval = v->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2305 new llvm::FreeInst(ldval, p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2306
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2307 Logger::cout() << *z << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2308 Logger::cout() << *val << '\n';
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2309 new llvm::StoreInst(z, v->mem, p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2310 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2311 else if (e1type->ty == Tclass) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2312 TypeClass* tc = (TypeClass*)e1type;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2313 LLVM_DtoCallClassDtors(tc, val);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2314
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2315 if (v->vardecl && !v->vardecl->onstack) {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2316 new llvm::FreeInst(val, p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2317 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2318 new llvm::StoreInst(z, v->mem, p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2319 }
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2320 else if (e1type->ty == Tarray) {
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2321 // must be on the heap (correct?)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2322 ldval = v->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2323
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2324 llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty, 0, false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2325 llvm::Value* one = llvm::ConstantInt::get(llvm::Type::Int32Ty, 1, false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2326
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	2327 llvm::Value* ptr = LLVM_DtoGEP(ldval,zero,one,"tmp",p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2328 ptr = new llvm::LoadInst(ptr,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2329 new llvm::FreeInst(ptr, p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2330 LLVM_DtoNullArray(val);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2331 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2332 else {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2333 assert(0);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2334 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2335
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2336 delete v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2337
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2338 // this expression produces no useful data
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2339 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2340 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2341
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2342 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2343
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2344 elem* ArrayLengthExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2345 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2346 Logger::print("ArrayLengthExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2347 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2348
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2349 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2350 elem* u = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2351
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2352 if (p->topexp() && p->topexp()->e1 == this)
34 4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2353 {
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2354 e->mem = u->mem;
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2355 e->type = elem::ARRAYLEN;
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2356 }
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2357 else
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2358 {
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2359 llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty, 0, false);
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2360 llvm::Value* ptr = LLVM_DtoGEP(u->mem,zero,zero,"tmp",p->scopebb());
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2361 e->val = new llvm::LoadInst(ptr, "tmp", p->scopebb());
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2362 e->type = elem::VAL;
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2363 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2364 delete u;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2365
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2366 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2367 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2368
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2369 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2370
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2371 elem* AssertExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2372 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2373 Logger::print("AssertExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2374 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2375
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2376 elem* u = e1->toElem(p);
34 4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2377 elem* m = msg ? msg->toElem(p) : NULL;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2378
34 4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2379 llvm::Value* loca = llvm::ConstantInt::get(llvm::Type::Int32Ty, loc.linnum, false);
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2380 LLVM_DtoAssert(u->getValue(), loca, m ? m->val : NULL);
4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2381
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2382 delete m;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2383 delete u;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2384
34 4648206ca213 [svn r38] * resizing dynamic arrays support lindquist parents: 32 diff changeset	2385 return new elem;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2386 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2387
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2388 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2389
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2390 elem* NotExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2391 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2392 Logger::print("NotExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2393 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2394
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2395 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2396 elem* u = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2397
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2398 llvm::Value* b = LLVM_DtoBoolean(u->getValue());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2399
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2400 llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::Int1Ty, 0, true);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2401 e->val = p->ir->CreateICmpEQ(b,zero);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2402 //e->val = new llvm::ICmpInst(llvm::ICmpInst::ICMP_EQ,b,zero,"tmp",p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2403 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2404
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2405 delete u;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2406
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2407 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2408 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2409
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2410 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2411
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2412 elem* AndAndExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2413 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2414 Logger::print("AndAndExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2415 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2416
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2417 // allocate a temporary for the final result. failed to come up with a better way :/
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2418 llvm::Value* resval = 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2419 llvm::BasicBlock* entryblock = &p->topfunc()->front();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2420 resval = new llvm::AllocaInst(llvm::Type::Int1Ty,"andandtmp",p->topallocapoint());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2421
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2422 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2423 elem* u = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2424
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2425 llvm::BasicBlock* oldend = p->scopeend();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2426 llvm::BasicBlock* andand = new llvm::BasicBlock("andand", gIR->topfunc(), oldend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2427 llvm::BasicBlock* andandend = new llvm::BasicBlock("andandend", gIR->topfunc(), oldend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2428
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2429 llvm::Value* ubool = LLVM_DtoBoolean(u->getValue());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2430 new llvm::StoreInst(ubool,resval,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2431 new llvm::BranchInst(andand,andandend,ubool,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2432
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2433 p->scope() = IRScope(andand, andandend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2434 elem* v = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2435
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2436 llvm::Value* vbool = LLVM_DtoBoolean(v->getValue());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2437 llvm::Value* uandvbool = llvm::BinaryOperator::create(llvm::BinaryOperator::And, ubool, vbool,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2438 new llvm::StoreInst(uandvbool,resval,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2439 new llvm::BranchInst(andandend,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2440
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2441 delete u;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2442 delete v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2443
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2444 p->scope() = IRScope(andandend, oldend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2445
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2446 e->val = new llvm::LoadInst(resval,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2447 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2448
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2449 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2450 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2451
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2452 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2453
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2454 elem* OrOrExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2455 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2456 Logger::print("OrOrExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2457 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2458
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2459 // allocate a temporary for the final result. failed to come up with a better way :/
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2460 llvm::Value* resval = 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2461 llvm::BasicBlock* entryblock = &p->topfunc()->front();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2462 resval = new llvm::AllocaInst(llvm::Type::Int1Ty,"orortmp",p->topallocapoint());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2463
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2464 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2465 elem* u = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2466
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2467 llvm::BasicBlock* oldend = p->scopeend();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2468 llvm::BasicBlock* oror = new llvm::BasicBlock("oror", gIR->topfunc(), oldend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2469 llvm::BasicBlock* ororend = new llvm::BasicBlock("ororend", gIR->topfunc(), oldend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2470
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2471 llvm::Value* ubool = LLVM_DtoBoolean(u->getValue());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2472 new llvm::StoreInst(ubool,resval,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2473 new llvm::BranchInst(ororend,oror,ubool,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2474
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2475 p->scope() = IRScope(oror, ororend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2476 elem* v = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2477
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2478 llvm::Value* vbool = LLVM_DtoBoolean(v->getValue());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2479 new llvm::StoreInst(vbool,resval,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2480 new llvm::BranchInst(ororend,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2481
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2482 delete u;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2483 delete v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2484
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2485 p->scope() = IRScope(ororend, oldend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2486
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2487 e->val = new llvm::LoadInst(resval,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2488 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2489
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2490 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2491 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2492
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2493 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2494
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2495 #define BinBitExp(X,Y) \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2496 elem* X##Exp::toElem(IRState* p) \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2497 { \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2498 Logger::print("%sExp::toElem: %s \| %s\n", #X, toChars(), type->toChars()); \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2499 LOG_SCOPE; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2500 elem* e = new elem; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2501 elem* u = e1->toElem(p); \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2502 elem* v = e2->toElem(p); \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2503 e->val = llvm::BinaryOperator::create(llvm::Instruction::Y, u->getValue(), v->getValue(), "tmp", p->scopebb()); \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2504 e->type = elem::VAL; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2505 delete u; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2506 delete v; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2507 return e; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2508 } \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2509 \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2510 elem* X##AssignExp::toElem(IRState* p) \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2511 { \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2512 Logger::print("%sAssignExp::toElem: %s \| %s\n", #X, toChars(), type->toChars()); \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2513 LOG_SCOPE; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2514 elem* u = e1->toElem(p); \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2515 elem* v = e2->toElem(p); \
42 0b9b286b67b6 [svn r46] fix for shift operations lindquist parents: 40 diff changeset	2516 llvm::Value* uval = u->getValue(); \
0b9b286b67b6 [svn r46] fix for shift operations lindquist parents: 40 diff changeset	2517 assert(uval); \
0b9b286b67b6 [svn r46] fix for shift operations lindquist parents: 40 diff changeset	2518 llvm::Value* vval = v->getValue(); \
0b9b286b67b6 [svn r46] fix for shift operations lindquist parents: 40 diff changeset	2519 assert(vval); \
0b9b286b67b6 [svn r46] fix for shift operations lindquist parents: 40 diff changeset	2520 llvm::Value* tmp = llvm::BinaryOperator::create(llvm::Instruction::Y, uval, vval, "tmp", p->scopebb()); \
29 253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	2521 if (u->mem == 0) \
253a5fc4033a [svn r33] * Added support for assignment to function arguments lindquist parents: 28 diff changeset	2522 LLVM_DtoGiveArgumentStorage(u); \
42 0b9b286b67b6 [svn r46] fix for shift operations lindquist parents: 40 diff changeset	2523 Logger::cout() << tmp << '\|' << u->mem << '\n'; \
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2524 new llvm::StoreInst(LLVM_DtoPointedType(u->mem, tmp), u->mem, p->scopebb()); \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2525 delete u; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2526 delete v; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2527 elem* e = new elem; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2528 e->mem = u->mem; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2529 e->type = elem::VAR; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2530 return e; \
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2531 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2532
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2533 BinBitExp(And,And);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2534 BinBitExp(Or,Or);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2535 BinBitExp(Xor,Xor);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2536 BinBitExp(Shl,Shl);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2537 BinBitExp(Shr,AShr);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2538 BinBitExp(Ushr,LShr);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2539
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2540 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2541
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2542 elem* HaltExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2543 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2544 Logger::print("HaltExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2545 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2546
36 c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2547 llvm::Value* loca = llvm::ConstantInt::get(llvm::Type::Int32Ty, loc.linnum, false);
c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2548 LLVM_DtoAssert(llvm::ConstantInt::getFalse(), loca, NULL);
c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2549
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2550 new llvm::UnreachableInst(p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2551 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2552 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2553
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2554 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2555
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2556 elem* DelegateExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2557 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2558 Logger::print("DelegateExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2559 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2560
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2561 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2562 elem* u = e1->toElem(p);
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2563
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2564 llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::Int32Ty, 0, false);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2565 llvm::Value* one = llvm::ConstantInt::get(llvm::Type::Int32Ty, 1, false);
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2566
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2567 const llvm::Type* int8ptrty = llvm::PointerType::get(llvm::Type::Int8Ty);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2568
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2569 assert(p->topexp() && p->topexp()->e2 == this && p->topexp()->v);
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2570 llvm::Value* lval = p->topexp()->v;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2571
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	2572 llvm::Value* context = LLVM_DtoGEP(lval,zero,zero,"tmp",p->scopebb());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2573 llvm::Value* castcontext = new llvm::BitCastInst(u->getValue(),int8ptrty,"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2574 new llvm::StoreInst(castcontext, context, p->scopebb());
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2575
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 5 diff changeset	2576 llvm::Value* fptr = LLVM_DtoGEP(lval,zero,one,"tmp",p->scopebb());
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2577
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2578 assert(func->llvmValue);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2579 llvm::Value* castfptr = new llvm::BitCastInst(func->llvmValue,fptr->getType()->getContainedType(0),"tmp",p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2580 new llvm::StoreInst(castfptr, fptr, p->scopebb());
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2581
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2582 e->inplace = true;
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2583
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2584 delete u;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2585 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2586 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2587
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2588 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2589
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2590 elem* IdentityExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2591 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2592 Logger::print("IdentityExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2593 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2594
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2595 elem* u = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2596 elem* v = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2597
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2598 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2599
73 b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	2600 llvm::Value* l = u->field ? u->mem : u->getValue();
b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	2601 llvm::Value* r = v->field ? v->mem : v->getValue();
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2602
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2603 Type* t1 = LLVM_DtoDType(e1->type);
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2604
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2605 if (t1->ty == Tarray) {
69 2b5a2eaa88be [svn r73] Identity expression for dynamic array and null was broken. lindquist parents: 68 diff changeset	2606 if (v->type == elem::NUL) {
2b5a2eaa88be [svn r73] Identity expression for dynamic array and null was broken. lindquist parents: 68 diff changeset	2607 r = NULL;
2b5a2eaa88be [svn r73] Identity expression for dynamic array and null was broken. lindquist parents: 68 diff changeset	2608 }
2b5a2eaa88be [svn r73] Identity expression for dynamic array and null was broken. lindquist parents: 68 diff changeset	2609 else {
2b5a2eaa88be [svn r73] Identity expression for dynamic array and null was broken. lindquist parents: 68 diff changeset	2610 assert(l->getType() == r->getType());
2b5a2eaa88be [svn r73] Identity expression for dynamic array and null was broken. lindquist parents: 68 diff changeset	2611 }
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2612 e->val = LLVM_DtoDynArrayIs(op,l,r);
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2613 }
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2614 else {
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2615 llvm::ICmpInst::Predicate pred = (op == TOKidentity) ? llvm::ICmpInst::ICMP_EQ : llvm::ICmpInst::ICMP_NE;
69 2b5a2eaa88be [svn r73] Identity expression for dynamic array and null was broken. lindquist parents: 68 diff changeset	2616 if (t1->ty == Tpointer && v->type == elem::NUL && l->getType() != r->getType()) {
2b5a2eaa88be [svn r73] Identity expression for dynamic array and null was broken. lindquist parents: 68 diff changeset	2617 r = llvm::ConstantPointerNull::get(llvm::cast<llvm::PointerType>(l->getType()));
2b5a2eaa88be [svn r73] Identity expression for dynamic array and null was broken. lindquist parents: 68 diff changeset	2618 }
73 b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 72 diff changeset	2619 Logger::cout() << "l = " << l << " r = " << r << '\n';
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2620 e->val = new llvm::ICmpInst(pred, l, r, "tmp", p->scopebb());
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2621 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2622 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2623
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2624 delete u;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2625 delete v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2626
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2627 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2628 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2629
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2630 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2631
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2632 elem* CommaExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2633 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2634 Logger::print("CommaExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2635 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2636
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2637 elem* u = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2638 elem* v = e2->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2639 delete u;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2640 return v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2641 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2642
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2643 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2644
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2645 elem* CondExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2646 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2647 Logger::print("CondExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2648 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2649
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2650 Type* dtype = LLVM_DtoDType(type);
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2651 const llvm::Type* resty = LLVM_DtoType(dtype);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2652
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2653 // allocate a temporary for the final result. failed to come up with a better way :/
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2654 llvm::BasicBlock* entryblock = &p->topfunc()->front();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2655 llvm::Value* resval = new llvm::AllocaInst(resty,"condtmp",p->topallocapoint());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2656
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2657 llvm::BasicBlock* oldend = p->scopeend();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2658 llvm::BasicBlock* condtrue = new llvm::BasicBlock("condtrue", gIR->topfunc(), oldend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2659 llvm::BasicBlock* condfalse = new llvm::BasicBlock("condfalse", gIR->topfunc(), oldend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2660 llvm::BasicBlock* condend = new llvm::BasicBlock("condend", gIR->topfunc(), oldend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2661
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2662 elem* c = econd->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2663 llvm::Value* cond_val = LLVM_DtoBoolean(c->getValue());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2664 delete c;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2665 new llvm::BranchInst(condtrue,condfalse,cond_val,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2666
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2667 p->scope() = IRScope(condtrue, condfalse);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2668 elem* u = e1->toElem(p);
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2669 LLVM_DtoAssign(dtype, resval, u->getValue());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2670 new llvm::BranchInst(condend,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2671 delete u;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2672
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2673 p->scope() = IRScope(condfalse, condend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2674 elem* v = e2->toElem(p);
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2675 LLVM_DtoAssign(dtype, resval, v->getValue());
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2676 new llvm::BranchInst(condend,p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2677 delete v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2678
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2679 p->scope() = IRScope(condend, oldend);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2680
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2681 elem* e = new elem;
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2682 e->mem = resval;
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2683 e->type = elem::VAR;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2684 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2685 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2686
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2687 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2688
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2689 elem* ComExp::toElem(IRState* p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2690 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2691 Logger::print("ComExp::toElem: %s \| %s\n", toChars(), type->toChars());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2692 LOG_SCOPE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2693
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2694 elem* e = new elem;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2695 elem* u = e1->toElem(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2696
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2697 llvm::Value* value = u->getValue();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2698 llvm::Value* minusone = llvm::ConstantInt::get(value->getType(), -1, true);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2699 e->val = llvm::BinaryOperator::create(llvm::Instruction::Xor, value, minusone, "tmp", p->scopebb());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2700
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2701 delete u;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2702
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2703 e->type = elem::VAL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2704
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2705 return e;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2706 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2707
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2708 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2709
23 77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2710 elem* NegExp::toElem(IRState* p)
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2711 {
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2712 Logger::print("NegExp::toElem: %s \| %s\n", toChars(), type->toChars());
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2713 LOG_SCOPE;
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2714 elem* e = new elem;
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2715 elem* l = e1->toElem(p);
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2716 llvm::Value* val = l->getValue();
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2717 delete l;
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2718
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2719 Type* t = LLVM_DtoDType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2720
23 77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2721 llvm::Value* zero = 0;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2722 if (t->isintegral())
23 77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2723 zero = llvm::ConstantInt::get(val->getType(), 0, true);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2724 else if (t->isfloating()) {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2725 if (t->ty == Tfloat32)
23 77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2726 zero = llvm::ConstantFP::get(val->getType(), float(0));
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2727 else if (t->ty == Tfloat64 \|\| t->ty == Tfloat80)
23 77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2728 zero = llvm::ConstantFP::get(val->getType(), double(0));
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2729 else
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2730 assert(0);
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2731 }
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2732 else
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2733 assert(0);
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2734
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2735 e->val = llvm::BinaryOperator::createSub(zero,val,"tmp",p->scopebb());
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2736 e->type = elem::VAL;
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2737
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2738 return e;
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2739 }
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2740
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2741 //////////////////////////////////////////////////////////////////////////////////////////
77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2742
36 c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2743 elem* CatExp::toElem(IRState* p)
c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2744 {
c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2745 Logger::print("CatExp::toElem: %s \| %s\n", toChars(), type->toChars());
c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2746 LOG_SCOPE;
c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2747
58 2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2748 Type* t = LLVM_DtoDType(type);
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2749
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2750 bool inplace = false;
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2751 llvm::Value* dst = 0;
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2752 IRExp* ex = p->topexp();
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2753 if (ex && ex->e2 == this) {
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2754 assert(ex->v);
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2755 dst = ex->v;
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2756 inplace = true;
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2757 }
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2758 else {
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2759 assert(t->ty == Tarray);
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2760 const llvm::Type* arrty = LLVM_DtoType(t);
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2761 dst = new llvm::AllocaInst(arrty, "tmpmem", p->topallocapoint());
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2762 }
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2763
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2764 LLVM_DtoCatArrays(dst,e1,e2);
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2765
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2766 elem* e = new elem;
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2767 e->mem = dst;
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2768 e->type = elem::VAR;
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2769 e->inplace = inplace;
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2770
2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2771 return e;
36 c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2772 }
c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2773
c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2774 //////////////////////////////////////////////////////////////////////////////////////////
c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2775
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2776 elem* CatAssignExp::toElem(IRState* p)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2777 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2778 Logger::print("CatAssignExp::toElem: %s \| %s\n", toChars(), type->toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2779 LOG_SCOPE;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2780
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2781 elem* l = e1->toElem(p);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2782 assert(l->mem);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2783
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2784 Type* e1type = LLVM_DtoDType(e1->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2785 Type* elemtype = LLVM_DtoDType(e1type->next);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2786 Type* e2type = LLVM_DtoDType(e2->type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2787
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2788 if (e2type == elemtype) {
58 2c3cd3596187 [svn r62] Added support for TypeInfo _Array, _Function, _Pointer, _Delegate, _Enum lindquist parents: 57 diff changeset	2789 LLVM_DtoCatAssignElement(l->mem,e2);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2790 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2791 else
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2792 assert(0 && "only one element at a time right now");
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2793
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2794 return 0;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2795 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2796
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2797 //////////////////////////////////////////////////////////////////////////////////////////
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2798
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2799 elem* ArrayLiteralExp::toElem(IRState* p)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2800 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2801 Logger::print("ArrayLiteralExp::toElem: %s \| %s\n", toChars(), type->toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2802 LOG_SCOPE;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2803
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2804 const llvm::Type* t = LLVM_DtoType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2805 Logger::cout() << "array literal has llvm type: " << *t << '\n';
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2806
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2807 llvm::Value* mem = 0;
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2808 if (!p->topexp() \|\| p->topexp()->e2 != this) {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2809 assert(LLVM_DtoDType(type)->ty == Tsarray);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2810 mem = new llvm::AllocaInst(t,"tmparrayliteral",p->topallocapoint());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2811 }
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2812 else if (p->topexp()->e2 == this) {
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2813 mem = p->topexp()->v;
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2814 assert(mem);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2815 if (!llvm::isa<llvm::PointerType>(mem->getType()) \|\|
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2816 !llvm::isa<llvm::ArrayType>(mem->getType()->getContainedType(0)))
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2817 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2818 error("TODO array literals can currently only be used to initialise static arrays");
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2819 fatal();
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2820 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2821 }
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2822 else
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2823 assert(0);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2824
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2825 for (unsigned i=0; i<elements->dim; ++i)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2826 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2827 Expression* expr = (Expression*)elements->data[i];
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2828 llvm::Value* elemAddr = LLVM_DtoGEPi(mem,0,i,"tmp",p->scopebb());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2829 elem* e = expr->toElem(p);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2830 new llvm::StoreInst(e->getValue(), elemAddr, p->scopebb());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2831 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2832
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2833 elem* e = new elem;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2834 e->mem = mem;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2835 e->type = elem::VAL;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2836 e->inplace = true;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2837
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2838 return e;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2839 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2840
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2841 //////////////////////////////////////////////////////////////////////////////////////////
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2842
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2843 llvm::Constant* ArrayLiteralExp::toConstElem(IRState* p)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2844 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2845 Logger::print("ArrayLiteralExp::toConstElem: %s \| %s\n", toChars(), type->toChars());
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2846 LOG_SCOPE;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2847
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2848 const llvm::Type* t = LLVM_DtoType(type);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2849 Logger::cout() << "array literal has llvm type: " << *t << '\n';
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2850 assert(llvm::isa<llvm::ArrayType>(t));
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2851 const llvm::ArrayType* arrtype = llvm::cast<llvm::ArrayType>(t);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2852
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2853 assert(arrtype->getNumElements() == elements->dim);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2854 std::vector<llvm::Constant*> vals(elements->dim, NULL);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2855 for (unsigned i=0; i<elements->dim; ++i)
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2856 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2857 Expression* expr = (Expression*)elements->data[i];
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2858 vals[i] = expr->toConstElem(p);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2859 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2860
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2861 return llvm::ConstantArray::get(arrtype, vals);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2862 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2863
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2864 //////////////////////////////////////////////////////////////////////////////////////////
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2865
49 e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2866 elem* FuncExp::toElem(IRState* p)
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2867 {
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2868 Logger::print("FuncExp::toElem: %s \| %s\n", toChars(), type->toChars());
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2869 LOG_SCOPE;
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2870
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2871 assert(fd);
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2872
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2873 if (fd->isNested()) Logger::println("nested");
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2874 Logger::println("kind = %s\n", fd->kind());
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2875
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2876 fd->toObjFile();
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2877
50 6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2878 llvm::Value* lval = NULL;
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2879 if (!p->topexp() \|\| p->topexp()->e2 != this) {
50 6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2880 const llvm::Type* dgty = LLVM_DtoType(type);
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2881 Logger::cout() << "delegate without explicit storage:" << '\n' << *dgty << '\n';
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2882 lval = new llvm::AllocaInst(dgty,"dgstorage",p->topallocapoint());
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2883 }
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2884 else if (p->topexp()->e2 == this) {
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2885 lval = p->topexp()->v;
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2886 assert(lval);
50 6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2887 }
54 28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2888 else
28e99b04a132 [svn r58] Fixed cond expression resulting in a non-basic type. lindquist parents: 53 diff changeset	2889 assert(0);
49 e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2890
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2891 elem* e = new elem;
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2892
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2893 llvm::Value* context = LLVM_DtoGEPi(lval,0,0,"tmp",p->scopebb());
50 6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2894 const llvm::PointerType* pty = llvm::cast<llvm::PointerType>(context->getType()->getContainedType(0));
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2895 llvm::Value* llvmNested = p->func().decl->llvmNested;
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2896 if (llvmNested == NULL) {
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2897 llvm::Value* nullcontext = llvm::ConstantPointerNull::get(pty);
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2898 p->ir->CreateStore(nullcontext, context);
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2899 }
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2900 else {
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2901 llvm::Value* nestedcontext = p->ir->CreateBitCast(llvmNested, pty, "tmp");
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2902 p->ir->CreateStore(nestedcontext, context);
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2903 }
49 e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2904
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2905 llvm::Value* fptr = LLVM_DtoGEPi(lval,0,1,"tmp",p->scopebb());
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2906
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2907 assert(fd->llvmValue);
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2908 llvm::Value* castfptr = new llvm::BitCastInst(fd->llvmValue,fptr->getType()->getContainedType(0),"tmp",p->scopebb());
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2909 new llvm::StoreInst(castfptr, fptr, p->scopebb());
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2910
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2911 e->inplace = true;
50 6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2912 e->mem = lval;
6fcc08a4d406 [svn r54] Added support for nested delegates referencing parent's stack variables. lindquist parents: 49 diff changeset	2913 e->type = elem::VAR;
49 e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2914
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2915 return e;
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2916 }
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2917
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2918 //////////////////////////////////////////////////////////////////////////////////////////
e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2919
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2920 #define STUB(x) elem x::toElem(IRState p) {error("Exp type "#x" not implemented: %s", toChars()); fatal(); return 0; }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2921 //STUB(IdentityExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2922 //STUB(CondExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2923 //STUB(EqualExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2924 STUB(InExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2925 //STUB(CmpExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2926 //STUB(AndAndExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2927 //STUB(OrOrExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2928 //STUB(AndExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2929 //STUB(AndAssignExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2930 //STUB(OrExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2931 //STUB(OrAssignExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2932 //STUB(XorExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2933 //STUB(XorAssignExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2934 //STUB(ShrExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2935 //STUB(ShrAssignExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2936 //STUB(ShlExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2937 //STUB(ShlAssignExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2938 //STUB(UshrExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2939 //STUB(UshrAssignExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2940 //STUB(DivExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2941 //STUB(DivAssignExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2942 //STUB(MulExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2943 //STUB(MulAssignExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2944 //STUB(ModExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2945 //STUB(ModAssignExp);
36 c0967c4b2a74 [svn r40] Cleaned up some of the array routines to use gep/load/store instead of memcpy/memset. lindquist parents: 34 diff changeset	2946 //STUB(CatExp);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2947 //STUB(CatAssignExp);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2948 //STUB(AddExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2949 //STUB(AddAssignExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2950 STUB(Expression);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2951 //STUB(MinExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2952 //STUB(MinAssignExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2953 //STUB(PostExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2954 //STUB(NullExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2955 //STUB(ThisExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2956 //STUB(CallExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2957 STUB(DotTypeExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2958 STUB(TypeDotIdExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2959 //STUB(DotVarExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2960 //STUB(AssertExp);
49 e5c4bece7fa1 [svn r53] added basic support for delegate literals. if you access outer variables you get a broken module lindquist parents: 48 diff changeset	2961 //STUB(FuncExp);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2962 //STUB(DelegateExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2963 //STUB(VarExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2964 //STUB(DeclarationExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2965 //STUB(NewExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2966 //STUB(SymOffExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2967 STUB(ScopeExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2968 //STUB(AssignExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2969
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2970 STUB(TypeExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2971 //STUB(RealExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2972 STUB(ComplexExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2973 //STUB(StringExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2974 //STUB(IntegerExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2975 STUB(BoolExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2976
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2977 //STUB(NotExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2978 //STUB(ComExp);
23 77e3d1ddae3f [svn r27] * Fixed bug in aggregate field lookup. lindquist parents: 21 diff changeset	2979 //STUB(NegExp);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2980 //STUB(PtrExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2981 //STUB(AddrExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2982 //STUB(SliceExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2983 //STUB(CastExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2984 //STUB(DeleteExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2985 //STUB(IndexExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2986 //STUB(CommaExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2987 //STUB(ArrayLengthExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2988 //STUB(HaltExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2989 STUB(RemoveExp);
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2990 //STUB(ArrayLiteralExp);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2991 STUB(AssocArrayLiteralExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2992 //STUB(StructLiteralExp);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2993
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2994 #define CONSTSTUB(x) llvm::Constant* x::toConstElem(IRState * p) {error("const Exp type "#x" not implemented: '%s' type: '%s'", toChars(), type->toChars()); assert(0); fatal(); return NULL; }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2995 CONSTSTUB(Expression);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2996 //CONSTSTUB(IntegerExp);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2997 //CONSTSTUB(RealExp);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2998 //CONSTSTUB(NullExp);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	2999 //CONSTSTUB(StringExp);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	3000 //CONSTSTUB(VarExp);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	3001 //CONSTSTUB(ArrayLiteralExp);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	3002 CONSTSTUB(AssocArrayLiteralExp);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	3003 //CONSTSTUB(StructLiteralExp);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 37 diff changeset	3004
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3005 unsigned Type::totym() { return 0; }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3006
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3007 type * Type::toCtype()
77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3008 {
77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3009 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3010 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3011 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3012
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3013 type * Type::toCParamtype()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3014 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3015 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3016 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3017 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3018 Symbol * Type::toSymbol()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3019 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3020 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3021 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3022 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3023
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3024 type *
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3025 TypeTypedef::toCtype()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3026 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3027 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3028 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3029 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3030
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3031 type *
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3032 TypeTypedef::toCParamtype()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3033 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3034 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3035 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3036 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3037
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3038 void
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3039 TypedefDeclaration::toDebug()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3040 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3041 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3042 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3043
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3044
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3045 type *
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3046 TypeEnum::toCtype()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3047 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3048 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3049 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3050 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3051
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3052 type *
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3053 TypeStruct::toCtype()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3054 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3055 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3056 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3057 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3058
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3059 void
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3060 StructDeclaration::toDebug()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3061 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3062 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3063 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3064
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3065 Symbol * TypeClass::toSymbol()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3066 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3067 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3068 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3069 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3070
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3071 unsigned TypeFunction::totym()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3072 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3073 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3074 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3075 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3076
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3077 type * TypeFunction::toCtype()
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3078 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3079 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3080 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3081 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3082
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3083 type * TypeSArray::toCtype()
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3084 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3085 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3086 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3087 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3088
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3089 type *TypeSArray::toCParamtype()
77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3090 {
77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3091 assert(0);
77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3092 return 0;
77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3093 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3094
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3095 type * TypeDArray::toCtype()
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3096 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3097 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3098 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3099 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3100
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3101 type * TypeAArray::toCtype()
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3102 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3103 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3104 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3105 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3106
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3107 type * TypePointer::toCtype()
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3108 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3109 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3110 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3111 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3112
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3113 type * TypeDelegate::toCtype()
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3114 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3115 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3116 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3117 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3118
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3119 type * TypeClass::toCtype()
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3120 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3121 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3122 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3123 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3124
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3125 void ClassDeclaration::toDebug()
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3126 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3127 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3128 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3129
14 0e86428ee567 [svn r18] * Initial support for switch statements - No string switches yet. lindquist parents: 11 diff changeset	3130 //////////////////////////////////////////////////////////////////////////////
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3131
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3132 void
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3133 EnumDeclaration::toDebug()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3134 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3135 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3136 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3137
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3138 int Dsymbol::cvMember(unsigned char*)
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3139 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3140 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3141 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3142 }
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3143 int EnumDeclaration::cvMember(unsigned char*)
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3144 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3145 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3146 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3147 }
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3148 int FuncDeclaration::cvMember(unsigned char*)
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3149 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3150 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3151 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3152 }
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3153 int VarDeclaration::cvMember(unsigned char*)
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3154 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3155 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3156 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3157 }
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3158 int TypedefDeclaration::cvMember(unsigned char*)
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3159 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3160 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3161 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3162 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3163
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3164 void obj_includelib(char*){}
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3165
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3166 AsmStatement::AsmStatement(Loc loc, Token *tokens) :
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3167 Statement(loc)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3168 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3169 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3170 }
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3171 Statement *AsmStatement::syntaxCopy()
77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3172 {
77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3173 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3174 return 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3175 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3176
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3177 Statement AsmStatement::semantic(Scope sc)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3178 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3179 return Statement::semantic(sc);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3180 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3181
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3182
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3183 void AsmStatement::toCBuffer(OutBuffer buf, HdrGenState hgs)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3184 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3185 Statement::toCBuffer(buf, hgs);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3186 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3187
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3188 int AsmStatement::comeFrom()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3189 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3190 assert(0);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3191 return FALSE;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3192 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3193
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3194 void
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3195 backend_init()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3196 {
37 77cdca8c210f [svn r41] new'd dynamic arrays are now initialized with the element type's default initializer. lindquist parents: 36 diff changeset	3197 // now lazily loaded
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3198 //LLVM_D_InitRuntime();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3199 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3200
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3201 void
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3202 backend_term()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3203 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3204 LLVM_D_FreeRuntime();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3205 }

Mercurial > projects > ldc

annotate gen/toir.c @ 73:b706170e24a9 trunk