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