annotate dmd/mtype.c @ 162:1856c62af24b trunk

[svn r178] Fixed codegen values for function arguments, the old approach was completely broken, amazing it even worked...
author lindquist
date Mon, 05 May 2008 00:56:53 +0200
parents 5acec6b2eef8
children f66219e0d530
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2 // Compiler implementation of the D programming language
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3 // Copyright (c) 1999-2008 by Digital Mars
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4 // All Rights Reserved
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5 // written by Walter Bright
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
6 // http://www.digitalmars.com
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
7 // License for redistribution is by either the Artistic License
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
8 // in artistic.txt, or the GNU General Public License in gnu.txt.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
9 // See the included readme.txt for details.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
10
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
11 #define __USE_ISOC99 1 // so signbit() gets defined
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
12 #include <math.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
13
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
14 #include <stdio.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
15 #include <assert.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
16 #include <float.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
17
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
18 #ifdef __DMC__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
19 #include <fp.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
20 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
21
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
22 #if _MSC_VER
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
23 #include <malloc.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
24 #include <complex>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
25 #include <limits>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
26 #elif __DMC__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
27 #include <complex.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
28 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
29 //#define signbit 56
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
30 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
31
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
32 #if __APPLE__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
33 #include <math.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
34 static double zero = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
35 #elif __GNUC__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
36 #include <math.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
37 #include <bits/nan.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
38 #include <bits/mathdef.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
39 static double zero = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
40 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
41
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
42 #include "mem.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
43
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
44 #include "dsymbol.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
45 #include "mtype.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
46 #include "scope.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
47 #include "init.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
48 #include "expression.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
49 #include "attrib.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
50 #include "declaration.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
51 #include "template.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
52 #include "id.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
53 #include "enum.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
54 #include "import.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
55 #include "aggregate.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
56 #include "hdrgen.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
57
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
58 FuncDeclaration *hasThis(Scope *sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
59
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
60
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
61 #define LOGDOTEXP 0 // log ::dotExp()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
62 #define LOGDEFAULTINIT 0 // log ::defaultInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
63
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
64 // Allow implicit conversion of T[] to T*
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
65 #define IMPLICIT_ARRAY_TO_PTR global.params.useDeprecated
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
66
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
67 /* These have default values for 32 bit code, they get
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
68 * adjusted for 64 bit code.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
69 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
70
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
71 int PTRSIZE = 4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
72 #if IN_LLVM
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
73 int REALSIZE = 8;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
74 int REALPAD = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
75 #elif TARGET_LINUX
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
76 int REALSIZE = 12;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
77 int REALPAD = 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
78 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
79 int REALSIZE = 10;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
80 int REALPAD = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
81 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
82 int Tsize_t = Tuns32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
83 int Tptrdiff_t = Tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
84
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
85 /***************************** Type *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
86
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
87 ClassDeclaration *Type::typeinfo;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
88 ClassDeclaration *Type::typeinfoclass;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
89 ClassDeclaration *Type::typeinfointerface;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
90 ClassDeclaration *Type::typeinfostruct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
91 ClassDeclaration *Type::typeinfotypedef;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
92 ClassDeclaration *Type::typeinfopointer;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
93 ClassDeclaration *Type::typeinfoarray;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
94 ClassDeclaration *Type::typeinfostaticarray;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
95 ClassDeclaration *Type::typeinfoassociativearray;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
96 ClassDeclaration *Type::typeinfoenum;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
97 ClassDeclaration *Type::typeinfofunction;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
98 ClassDeclaration *Type::typeinfodelegate;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
99 ClassDeclaration *Type::typeinfotypelist;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
100
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
101 Type *Type::tvoidptr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
102 Type *Type::basic[TMAX];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
103 unsigned char Type::mangleChar[TMAX];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
104 StringTable Type::stringtable;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
105
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
106
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
107 Type::Type(TY ty, Type *next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
108 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
109 this->ty = ty;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
110 this->mod = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
111 this->next = next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
112 this->deco = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
113 #if V2
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
114 this->cto = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
115 this->ito = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
116 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
117 this->pto = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
118 this->rto = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
119 this->arrayof = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
120 this->vtinfo = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
121 this->ctype = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
122 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
123
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
124 Type *Type::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
125 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
126 print();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
127 fprintf(stdmsg, "ty = %d\n", ty);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
128 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
129 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
130 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
131
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
132 int Type::equals(Object *o)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
133 { Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
134
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
135 t = (Type *)o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
136 //printf("Type::equals(%s, %s)\n", toChars(), t->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
137 if (this == o ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
138 (t && deco == t->deco) && // deco strings are unique
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
139 deco != NULL) // and semantic() has been run
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
140 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
141 //printf("deco = '%s', t->deco = '%s'\n", deco, t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
142 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
143 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
144 //if (deco && t && t->deco) printf("deco = '%s', t->deco = '%s'\n", deco, t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
145 return 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
146 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
147
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
148 char Type::needThisPrefix()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
149 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
150 return 'M'; // name mangling prefix for functions needing 'this'
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
151 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
152
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
153 void Type::init()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
154 { int i;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
155 int j;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
156
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
157 Lexer::initKeywords();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
158
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
159 mangleChar[Tarray] = 'A';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
160 mangleChar[Tsarray] = 'G';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
161 mangleChar[Taarray] = 'H';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
162 mangleChar[Tpointer] = 'P';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
163 mangleChar[Treference] = 'R';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
164 mangleChar[Tfunction] = 'F';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
165 mangleChar[Tident] = 'I';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
166 mangleChar[Tclass] = 'C';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
167 mangleChar[Tstruct] = 'S';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
168 mangleChar[Tenum] = 'E';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
169 mangleChar[Ttypedef] = 'T';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
170 mangleChar[Tdelegate] = 'D';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
171
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
172 mangleChar[Tnone] = 'n';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
173 mangleChar[Tvoid] = 'v';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
174 mangleChar[Tint8] = 'g';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
175 mangleChar[Tuns8] = 'h';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
176 mangleChar[Tint16] = 's';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
177 mangleChar[Tuns16] = 't';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
178 mangleChar[Tint32] = 'i';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
179 mangleChar[Tuns32] = 'k';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
180 mangleChar[Tint64] = 'l';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
181 mangleChar[Tuns64] = 'm';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
182 mangleChar[Tfloat32] = 'f';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
183 mangleChar[Tfloat64] = 'd';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
184 mangleChar[Tfloat80] = 'e';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
185
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
186 mangleChar[Timaginary32] = 'o';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
187 mangleChar[Timaginary64] = 'p';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
188 mangleChar[Timaginary80] = 'j';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
189 mangleChar[Tcomplex32] = 'q';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
190 mangleChar[Tcomplex64] = 'r';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
191 mangleChar[Tcomplex80] = 'c';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
192
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
193 mangleChar[Tbool] = 'b';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
194 mangleChar[Tascii] = 'a';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
195 mangleChar[Twchar] = 'u';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
196 mangleChar[Tdchar] = 'w';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
197
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
198 mangleChar[Tbit] = '@';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
199 mangleChar[Tinstance] = '@';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
200 mangleChar[Terror] = '@';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
201 mangleChar[Ttypeof] = '@';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
202 mangleChar[Ttuple] = 'B';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
203 mangleChar[Tslice] = '@';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
204
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
205 for (i = 0; i < TMAX; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
206 { if (!mangleChar[i])
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
207 fprintf(stdmsg, "ty = %d\n", i);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
208 assert(mangleChar[i]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
209 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
210
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
211 // Set basic types
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
212 static TY basetab[] =
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
213 { Tvoid, Tint8, Tuns8, Tint16, Tuns16, Tint32, Tuns32, Tint64, Tuns64,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
214 Tfloat32, Tfloat64, Tfloat80,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
215 Timaginary32, Timaginary64, Timaginary80,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
216 Tcomplex32, Tcomplex64, Tcomplex80,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
217 Tbit, Tbool,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
218 Tascii, Twchar, Tdchar };
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
219
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
220 for (i = 0; i < sizeof(basetab) / sizeof(basetab[0]); i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
221 basic[basetab[i]] = new TypeBasic(basetab[i]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
222 basic[Terror] = basic[Tint32];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
223
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
224 tvoidptr = tvoid->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
225
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
226 if (global.params.is64bit)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
227 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
228 PTRSIZE = 8;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
229 #if !IN_LLVM
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
230 if (global.params.isLinux)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
231 REALSIZE = 10;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
232 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
233 REALSIZE = 8;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
234 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
235 REALSIZE = 8;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
236 REALPAD = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
237 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
238 Tsize_t = Tuns64;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
239 Tptrdiff_t = Tint64;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
240 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
241 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
242 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
243 PTRSIZE = 4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
244 #if IN_LLVM
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
245 REALSIZE = 8;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
246 REALPAD = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
247 #elif TARGET_LINUX
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
248 REALSIZE = 12;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
249 REALPAD = 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
250 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
251 REALSIZE = 10;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
252 REALPAD = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
253 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
254 Tsize_t = Tuns32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
255 Tptrdiff_t = Tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
256 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
257 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
258
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
259 d_uns64 Type::size()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
260 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
261 return size(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
262 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
263
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
264 d_uns64 Type::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
265 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
266 error(loc, "no size for type %s", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
267 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
268 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
269
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
270 unsigned Type::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
271 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
272 return size(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
273 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
274
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
275 Type *Type::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
276 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
277 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
278 next = next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
279 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
280 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
281
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
282 Type *Type::pointerTo()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
283 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
284 if (!pto)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
285 { Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
286
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
287 t = new TypePointer(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
288 pto = t->merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
289 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
290 return pto;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
291 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
292
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
293 Type *Type::referenceTo()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
294 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
295 if (!rto)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
296 { Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
297
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
298 t = new TypeReference(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
299 rto = t->merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
300 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
301 return rto;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
302 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
303
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
304 Type *Type::arrayOf()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
305 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
306 if (!arrayof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
307 { Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
308
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
309 t = new TypeDArray(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
310 arrayof = t->merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
311 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
312 return arrayof;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
313 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
314
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
315 Dsymbol *Type::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
316 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
317 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
318 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
319
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
320 /*******************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
321 * If this is a shell around another type,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
322 * get that other type.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
323 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
324
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
325 Type *Type::toBasetype()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
326 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
327 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
328 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
329
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
330 /********************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
331 * Name mangling.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
332 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
333
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
334 void Type::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
335 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
336 buf->writeByte(mangleChar[ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
337 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
338 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
339 assert(next != this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
340 //printf("this = %p, ty = %d, next = %p, ty = %d\n", this, this->ty, next, next->ty);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
341 next->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
342 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
343 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
344
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
345 /********************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
346 * For pretty-printing a type.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
347 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
348
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
349 char *Type::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
350 { OutBuffer *buf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
351 HdrGenState hgs;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
352
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
353 buf = new OutBuffer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
354 toCBuffer(buf, NULL, &hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
355 return buf->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
356 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
357
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
358 void Type::toCBuffer(OutBuffer *buf, Identifier *ident, HdrGenState *hgs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
359 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
360 toCBuffer2(buf, hgs, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
361 if (ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
362 { buf->writeByte(' ');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
363 buf->writestring(ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
364 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
365 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
366
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
367 void Type::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
368 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
369 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
370 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
371 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
372 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
373 buf->writestring(toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
374 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
375
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
376 void Type::toCBuffer3(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
377 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
378 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
379 { char *p;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
380
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
381 switch (this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
382 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
383 case 0:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
384 toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
385 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
386 case MODconst:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
387 p = "const(";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
388 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
389 case MODinvariant:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
390 p = "invariant(";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
391 L1: buf->writestring(p);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
392 toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
393 buf->writeByte(')');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
394 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
395 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
396 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
397 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
398 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
399 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
400
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
401
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
402 /************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
403 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
404
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
405 Type *Type::merge()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
406 { Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
407
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
408 //printf("merge(%s)\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
409 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
410 assert(t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
411 if (!deco)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
412 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
413 OutBuffer buf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
414 StringValue *sv;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
415
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
416 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
417 next = next->merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
418 toDecoBuffer(&buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
419 sv = stringtable.update((char *)buf.data, buf.offset);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
420 if (sv->ptrvalue)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
421 { t = (Type *) sv->ptrvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
422 assert(t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
423 //printf("old value, deco = '%s' %p\n", t->deco, t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
424 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
425 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
426 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
427 sv->ptrvalue = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
428 deco = sv->lstring.string;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
429 //printf("new value, deco = '%s' %p\n", t->deco, t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
430 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
431 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
432 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
433 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
434
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
435 int Type::isbit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
436 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
437 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
438 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
439
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
440 int Type::isintegral()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
441 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
442 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
443 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
444
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
445 int Type::isfloating()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
446 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
447 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
448 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
449
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
450 int Type::isreal()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
451 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
452 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
453 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
454
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
455 int Type::isimaginary()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
456 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
457 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
458 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
459
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
460 int Type::iscomplex()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
461 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
462 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
463 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
464
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
465 int Type::isscalar()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
466 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
467 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
468 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
469
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
470 int Type::isunsigned()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
471 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
472 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
473 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
474
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
475 ClassDeclaration *Type::isClassHandle()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
476 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
477 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
478 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
479
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
480 int Type::isauto()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
481 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
482 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
483 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
484
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
485 int Type::isString()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
486 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
487 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
488 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
489
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
490 int Type::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
491 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
492 return isscalar();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
493 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
494
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
495 /*********************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
496 * Check type to see if it is based on a deprecated symbol.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
497 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
498
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
499 void Type::checkDeprecated(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
500 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
501 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
502 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
503
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
504 for (t = this; t; t = t->next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
505 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
506 s = t->toDsymbol(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
507 if (s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
508 s->checkDeprecated(loc, sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
509 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
510 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
511
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
512
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
513 Expression *Type::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
514 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
515 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
516 printf("Type::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
517 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
518 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
519 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
520
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
521 int Type::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
522 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
523 return 0; // assume not
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
524 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
525
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
526 int Type::isBaseOf(Type *t, int *poffset)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
527 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
528 return 0; // assume not
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
529 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
530
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
531 /********************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
532 * Determine if 'this' can be implicitly converted
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
533 * to type 'to'.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
534 * Returns:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
535 * 0 can't convert
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
536 * 1 can convert using implicit conversions
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
537 * 2 this and to are the same type
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
538 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
539
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
540 MATCH Type::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
541 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
542 //printf("Type::implicitConvTo(this=%p, to=%p)\n", this, to);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
543 //printf("\tthis->next=%p, to->next=%p\n", this->next, to->next);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
544 if (this == to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
545 return MATCHexact;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
546 // if (to->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
547 // return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
548 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
549 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
550
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
551 Expression *Type::getProperty(Loc loc, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
552 { Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
553
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
554 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
555 printf("Type::getProperty(type = '%s', ident = '%s')\n", toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
556 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
557 if (ident == Id::__sizeof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
558 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
559 e = new IntegerExp(loc, size(loc), Type::tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
560 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
561 else if (ident == Id::size)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
562 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
563 error(loc, ".size property should be replaced with .sizeof");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
564 e = new IntegerExp(loc, size(loc), Type::tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
565 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
566 else if (ident == Id::alignof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
567 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
568 e = new IntegerExp(loc, alignsize(), Type::tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
569 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
570 else if (ident == Id::typeinfo)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
571 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
572 if (!global.params.useDeprecated)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
573 error(loc, ".typeinfo deprecated, use typeid(type)");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
574 e = getTypeInfo(NULL);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
575 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
576 else if (ident == Id::init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
577 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
578 if (ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
579 error(loc, "void does not have an initializer");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
580 e = defaultInit(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
581 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
582 else if (ident == Id::mangleof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
583 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
584 assert(deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
585 e = new StringExp(loc, deco, strlen(deco), 'c');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
586 Scope sc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
587 e = e->semantic(&sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
588 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
589 else if (ident == Id::stringof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
590 { char *s = toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
591 e = new StringExp(loc, s, strlen(s), 'c');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
592 Scope sc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
593 e = e->semantic(&sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
594 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
595 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
596 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
597 error(loc, "no property '%s' for type '%s'", ident->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
598 e = new IntegerExp(loc, 1, Type::tint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
599 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
600 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
601 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
602
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
603 Expression *Type::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
604 { VarDeclaration *v = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
605
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
606 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
607 printf("Type::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
608 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
609 if (e->op == TOKdotvar)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
610 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
611 DotVarExp *dv = (DotVarExp *)e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
612 v = dv->var->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
613 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
614 else if (e->op == TOKvar)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
615 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
616 VarExp *ve = (VarExp *)e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
617 v = ve->var->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
618 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
619 if (v)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
620 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
621 if (ident == Id::offset)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
622 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
623 if (!global.params.useDeprecated)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
624 error(e->loc, ".offset deprecated, use .offsetof");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
625 goto Loffset;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
626 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
627 else if (ident == Id::offsetof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
628 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
629 Loffset:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
630 if (v->storage_class & STCfield)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
631 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
632 e = new IntegerExp(e->loc, v->offset, Type::tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
633 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
634 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
635 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
636 else if (ident == Id::init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
637 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
638 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
639 if (v->init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
640 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
641 if (v->init->isVoidInitializer())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
642 error(e->loc, "%s.init is void", v->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
643 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
644 { Loc loc = e->loc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
645 e = v->init->toExpression();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
646 if (e->op == TOKassign || e->op == TOKconstruct)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
647 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
648 e = ((AssignExp *)e)->e2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
649
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
650 /* Take care of case where we used a 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
651 * to initialize the struct.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
652 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
653 if (e->type == Type::tint32 &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
654 e->isBool(0) &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
655 v->type->toBasetype()->ty == Tstruct)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
656 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
657 e = v->type->defaultInit(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
658 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
659 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
660 e = e->optimize(WANTvalue | WANTinterpret);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
661 // if (!e->isConst())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
662 // error(loc, ".init cannot be evaluated at compile time");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
663 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
664 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
665 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
666 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
667 Expression *ex = defaultInit(e->loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
668 return ex;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
669 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
670 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
671 if (ident == Id::typeinfo)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
672 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
673 if (!global.params.useDeprecated)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
674 error(e->loc, ".typeinfo deprecated, use typeid(type)");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
675 e = getTypeInfo(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
676 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
677 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
678 if (ident == Id::stringof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
679 { char *s = e->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
680 e = new StringExp(e->loc, s, strlen(s), 'c');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
681 Scope sc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
682 e = e->semantic(&sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
683 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
684 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
685 return getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
686 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
687
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
688 unsigned Type::memalign(unsigned salign)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
689 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
690 return salign;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
691 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
692
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
693 void Type::error(Loc loc, const char *format, ...)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
694 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
695 va_list ap;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
696 va_start(ap, format);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
697 ::verror(loc, format, ap);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
698 va_end( ap );
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
699 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
700
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
701 Identifier *Type::getTypeInfoIdent(int internal)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
702 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
703 // _init_10TypeInfo_%s
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
704 OutBuffer buf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
705 Identifier *id;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
706 char *name;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
707 int len;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
708
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
709 //toTypeInfoBuffer(&buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
710 if (internal)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
711 { buf.writeByte(mangleChar[ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
712 if (ty == Tarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
713 buf.writeByte(mangleChar[next->ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
714 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
715 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
716 toDecoBuffer(&buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
717 len = buf.offset;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
718 name = (char *)alloca(19 + sizeof(len) * 3 + len + 1);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
719 buf.writeByte(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
720 sprintf(name, "_D%dTypeInfo_%s6__initZ", 9 + len, buf.data);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
721 if (global.params.isWindows)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
722 name++; // C mangling will add it back in
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
723 //printf("name = %s\n", name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
724 id = Lexer::idPool(name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
725 return id;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
726 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
727
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
728 TypeBasic *Type::isTypeBasic()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
729 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
730 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
731 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
732
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
733
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
734 void Type::resolve(Loc loc, Scope *sc, Expression **pe, Type **pt, Dsymbol **ps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
735 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
736 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
737
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
738 t = semantic(loc, sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
739 *pt = t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
740 *pe = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
741 *ps = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
742 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
743
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
744 /*******************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
745 * If one of the subtypes of this type is a TypeIdentifier,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
746 * i.e. it's an unresolved type, return that type.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
747 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
748
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
749 Type *Type::reliesOnTident()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
750 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
751 if (!next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
752 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
753 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
754 return next->reliesOnTident();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
755 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
756
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
757 /********************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
758 * We've mistakenly parsed this as a type.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
759 * Redo it as an Expression.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
760 * NULL if cannot.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
761 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
762
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
763 Expression *Type::toExpression()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
764 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
765 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
766 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
767
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
768 /***************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
769 * Return !=0 if type has pointers that need to
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
770 * be scanned by the GC during a collection cycle.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
771 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
772
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
773 int Type::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
774 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
775 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
776 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
777
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
778 /* ============================= TypeBasic =========================== */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
779
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
780 TypeBasic::TypeBasic(TY ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
781 : Type(ty, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
782 { char *c;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
783 char *d;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
784 unsigned flags;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
785
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
786 #define TFLAGSintegral 1
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
787 #define TFLAGSfloating 2
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
788 #define TFLAGSunsigned 4
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
789 #define TFLAGSreal 8
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
790 #define TFLAGSimaginary 0x10
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
791 #define TFLAGScomplex 0x20
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
792
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
793 flags = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
794 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
795 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
796 case Tvoid: d = Token::toChars(TOKvoid);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
797 c = "void";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
798 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
799
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
800 case Tint8: d = Token::toChars(TOKint8);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
801 c = "byte";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
802 flags |= TFLAGSintegral;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
803 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
804
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
805 case Tuns8: d = Token::toChars(TOKuns8);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
806 c = "ubyte";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
807 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
808 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
809
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
810 case Tint16: d = Token::toChars(TOKint16);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
811 c = "short";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
812 flags |= TFLAGSintegral;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
813 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
814
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
815 case Tuns16: d = Token::toChars(TOKuns16);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
816 c = "ushort";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
817 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
818 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
819
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
820 case Tint32: d = Token::toChars(TOKint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
821 c = "int";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
822 flags |= TFLAGSintegral;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
823 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
824
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
825 case Tuns32: d = Token::toChars(TOKuns32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
826 c = "uint";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
827 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
828 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
829
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
830 case Tfloat32: d = Token::toChars(TOKfloat32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
831 c = "float";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
832 flags |= TFLAGSfloating | TFLAGSreal;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
833 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
834
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
835 case Tint64: d = Token::toChars(TOKint64);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
836 c = "long";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
837 flags |= TFLAGSintegral;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
838 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
839
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
840 case Tuns64: d = Token::toChars(TOKuns64);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
841 c = "ulong";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
842 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
843 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
844
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
845 case Tfloat64: d = Token::toChars(TOKfloat64);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
846 c = "double";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
847 flags |= TFLAGSfloating | TFLAGSreal;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
848 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
849
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
850 case Tfloat80: d = Token::toChars(TOKfloat80);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
851 c = "real";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
852 flags |= TFLAGSfloating | TFLAGSreal;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
853 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
854
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
855 case Timaginary32: d = Token::toChars(TOKimaginary32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
856 c = "ifloat";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
857 flags |= TFLAGSfloating | TFLAGSimaginary;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
858 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
859
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
860 case Timaginary64: d = Token::toChars(TOKimaginary64);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
861 c = "idouble";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
862 flags |= TFLAGSfloating | TFLAGSimaginary;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
863 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
864
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
865 case Timaginary80: d = Token::toChars(TOKimaginary80);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
866 c = "ireal";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
867 flags |= TFLAGSfloating | TFLAGSimaginary;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
868 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
869
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
870 case Tcomplex32: d = Token::toChars(TOKcomplex32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
871 c = "cfloat";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
872 flags |= TFLAGSfloating | TFLAGScomplex;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
873 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
874
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
875 case Tcomplex64: d = Token::toChars(TOKcomplex64);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
876 c = "cdouble";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
877 flags |= TFLAGSfloating | TFLAGScomplex;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
878 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
879
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
880 case Tcomplex80: d = Token::toChars(TOKcomplex80);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
881 c = "creal";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
882 flags |= TFLAGSfloating | TFLAGScomplex;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
883 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
884
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
885
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
886 case Tbit: d = Token::toChars(TOKbit);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
887 c = "bit";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
888 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
889 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
890
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
891 case Tbool: d = "bool";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
892 c = d;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
893 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
894 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
895
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
896 case Tascii: d = Token::toChars(TOKchar);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
897 c = "char";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
898 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
899 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
900
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
901 case Twchar: d = Token::toChars(TOKwchar);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
902 c = "wchar";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
903 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
904 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
905
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
906 case Tdchar: d = Token::toChars(TOKdchar);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
907 c = "dchar";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
908 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
909 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
910
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
911 default: assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
912 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
913 this->dstring = d;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
914 this->cstring = c;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
915 this->flags = flags;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
916 merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
917 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
918
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
919 Type *TypeBasic::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
920 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
921 // No semantic analysis done on basic types, no need to copy
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
922 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
923 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
924
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
925
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
926 char *TypeBasic::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
927 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
928 return dstring;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
929 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
930
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
931 void TypeBasic::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
932 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
933 //printf("TypeBasic::toCBuffer2(mod = %d, this->mod = %d)\n", mod, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
934 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
935 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
936 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
937 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
938 buf->writestring(dstring);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
939 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
940
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
941 d_uns64 TypeBasic::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
942 { unsigned size;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
943
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
944 //printf("TypeBasic::size()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
945 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
946 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
947 case Tint8:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
948 case Tuns8: size = 1; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
949 case Tint16:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
950 case Tuns16: size = 2; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
951 case Tint32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
952 case Tuns32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
953 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
954 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
955 size = 4; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
956 case Tint64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
957 case Tuns64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
958 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
959 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
960 size = 8; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
961 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
962 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
963 size = REALSIZE; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
964 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
965 size = 8; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
966 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
967 size = 16; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
968 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
969 size = REALSIZE * 2; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
970
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
971 case Tvoid:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
972 //size = Type::size(); // error message
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
973 size = 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
974 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
975
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
976 case Tbit: size = 1; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
977 case Tbool: size = 1; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
978 case Tascii: size = 1; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
979 case Twchar: size = 2; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
980 case Tdchar: size = 4; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
981
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
982 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
983 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
984 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
985 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
986 //printf("TypeBasic::size() = %d\n", size);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
987 return size;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
988 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
989
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
990 unsigned TypeBasic::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
991 { unsigned sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
992
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
993 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
994 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
995 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
996 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
997 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
998 sz = REALSIZE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
999 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1000
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1001 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1002 sz = size(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1003 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1004 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1005 return sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1006 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1007
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1008
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1009 Expression *TypeBasic::getProperty(Loc loc, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1010 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1011 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1012 d_int64 ivalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1013 #ifdef IN_GCC
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1014 real_t fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1015 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1016 d_float80 fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1017 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1018
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1019 //printf("TypeBasic::getProperty('%s')\n", ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1020 if (ident == Id::max)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1021 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1022 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1023 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1024 case Tint8: ivalue = 0x7F; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1025 case Tuns8: ivalue = 0xFF; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1026 case Tint16: ivalue = 0x7FFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1027 case Tuns16: ivalue = 0xFFFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1028 case Tint32: ivalue = 0x7FFFFFFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1029 case Tuns32: ivalue = 0xFFFFFFFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1030 case Tint64: ivalue = 0x7FFFFFFFFFFFFFFFLL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1031 case Tuns64: ivalue = 0xFFFFFFFFFFFFFFFFULL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1032 case Tbit: ivalue = 1; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1033 case Tbool: ivalue = 1; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1034 case Tchar: ivalue = 0xFF; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1035 case Twchar: ivalue = 0xFFFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1036 case Tdchar: ivalue = 0x10FFFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1037
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1038 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1039 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1040 case Tfloat32: fvalue = FLT_MAX; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1041 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1042 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1043 case Tfloat64: fvalue = DBL_MAX; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1044 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1045 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1046 case Tfloat80: fvalue = LDBL_MAX; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1047 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1048 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1049 else if (ident == Id::min)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1050 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1051 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1052 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1053 case Tint8: ivalue = -128; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1054 case Tuns8: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1055 case Tint16: ivalue = -32768; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1056 case Tuns16: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1057 case Tint32: ivalue = -2147483647L - 1; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1058 case Tuns32: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1059 case Tint64: ivalue = (-9223372036854775807LL-1LL); goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1060 case Tuns64: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1061 case Tbit: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1062 case Tbool: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1063 case Tchar: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1064 case Twchar: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1065 case Tdchar: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1066
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1067 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1068 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1069 case Tfloat32: fvalue = FLT_MIN; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1070 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1071 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1072 case Tfloat64: fvalue = DBL_MIN; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1073 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1074 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1075 case Tfloat80: fvalue = LDBL_MIN; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1076 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1077 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1078 else if (ident == Id::nan)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1079 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1080 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1081 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1082 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1083 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1084 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1085 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1086 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1087 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1088 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1089 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1090 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1091 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1092 #if IN_GCC
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1093 // mode doesn't matter, will be converted in RealExp anyway
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1094 fvalue = real_t::getnan(real_t::LongDouble);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1095 #elif __GNUC__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1096 // gcc nan's have the sign bit set by default, so turn it off
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1097 // Need the volatile to prevent gcc from doing incorrect
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1098 // constant folding.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1099 volatile d_float80 foo;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1100 foo = NAN;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1101 if (signbit(foo)) // signbit sometimes, not always, set
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1102 foo = -foo; // turn off sign bit
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1103 fvalue = foo;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1104 #elif _MSC_VER
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1105 unsigned long nan[2]= { 0xFFFFFFFF, 0x7FFFFFFF };
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1106 fvalue = *(double*)nan;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1107 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1108 fvalue = NAN;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1109 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1110 goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1111 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1112 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1113 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1114 else if (ident == Id::infinity)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1115 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1116 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1117 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1118 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1119 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1120 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1121 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1122 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1123 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1124 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1125 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1126 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1127 #if IN_GCC
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1128 fvalue = real_t::getinfinity();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1129 #elif __GNUC__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1130 fvalue = 1 / zero;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1131 #elif _MSC_VER
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1132 fvalue = std::numeric_limits<long double>::infinity();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1133 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1134 fvalue = INFINITY;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1135 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1136 goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1137 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1138 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1139 else if (ident == Id::dig)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1140 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1141 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1142 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1143 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1144 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1145 case Tfloat32: ivalue = FLT_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1146 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1147 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1148 case Tfloat64: ivalue = DBL_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1149 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1150 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1151 case Tfloat80: ivalue = LDBL_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1152 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1153 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1154 else if (ident == Id::epsilon)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1155 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1156 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1157 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1158 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1159 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1160 case Tfloat32: fvalue = FLT_EPSILON; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1161 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1162 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1163 case Tfloat64: fvalue = DBL_EPSILON; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1164 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1165 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1166 case Tfloat80: fvalue = LDBL_EPSILON; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1167 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1168 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1169 else if (ident == Id::mant_dig)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1170 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1171 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1172 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1173 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1174 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1175 case Tfloat32: ivalue = FLT_MANT_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1176 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1177 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1178 case Tfloat64: ivalue = DBL_MANT_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1179 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1180 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1181 case Tfloat80: ivalue = LDBL_MANT_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1182 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1183 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1184 else if (ident == Id::max_10_exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1185 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1186 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1187 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1188 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1189 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1190 case Tfloat32: ivalue = FLT_MAX_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1191 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1192 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1193 case Tfloat64: ivalue = DBL_MAX_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1194 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1195 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1196 case Tfloat80: ivalue = LDBL_MAX_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1197 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1198 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1199 else if (ident == Id::max_exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1200 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1201 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1202 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1203 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1204 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1205 case Tfloat32: ivalue = FLT_MAX_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1206 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1207 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1208 case Tfloat64: ivalue = DBL_MAX_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1209 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1210 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1211 case Tfloat80: ivalue = LDBL_MAX_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1212 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1213 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1214 else if (ident == Id::min_10_exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1215 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1216 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1217 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1218 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1219 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1220 case Tfloat32: ivalue = FLT_MIN_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1221 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1222 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1223 case Tfloat64: ivalue = DBL_MIN_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1224 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1225 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1226 case Tfloat80: ivalue = LDBL_MIN_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1227 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1228 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1229 else if (ident == Id::min_exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1230 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1231 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1232 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1233 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1234 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1235 case Tfloat32: ivalue = FLT_MIN_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1236 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1237 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1238 case Tfloat64: ivalue = DBL_MIN_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1239 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1240 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1241 case Tfloat80: ivalue = LDBL_MIN_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1242 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1243 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1244
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1245 Ldefault:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1246 return Type::getProperty(loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1247
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1248 Livalue:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1249 e = new IntegerExp(loc, ivalue, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1250 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1251
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1252 Lfvalue:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1253 if (isreal() || isimaginary())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1254 e = new RealExp(loc, fvalue, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1255 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1256 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1257 complex_t cvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1258
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1259 #if __DMC__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1260 //((real_t *)&cvalue)[0] = fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1261 //((real_t *)&cvalue)[1] = fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1262 cvalue = fvalue + fvalue * I;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1263 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1264 cvalue.re = fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1265 cvalue.im = fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1266 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1267 //for (int i = 0; i < 20; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1268 // printf("%02x ", ((unsigned char *)&cvalue)[i]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1269 //printf("\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1270 e = new ComplexExp(loc, cvalue, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1271 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1272 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1273
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1274 Lint:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1275 e = new IntegerExp(loc, ivalue, Type::tint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1276 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1277 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1278
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1279 Expression *TypeBasic::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1280 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1281 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1282 printf("TypeBasic::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1283 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1284 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1285
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1286 if (ident == Id::re)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1287 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1288 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1289 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1290 case Tcomplex32: t = tfloat32; goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1291 case Tcomplex64: t = tfloat64; goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1292 case Tcomplex80: t = tfloat80; goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1293 L1:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1294 e = e->castTo(sc, t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1295 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1296
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1297 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1298 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1299 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1300 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1301
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1302 case Timaginary32: t = tfloat32; goto L2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1303 case Timaginary64: t = tfloat64; goto L2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1304 case Timaginary80: t = tfloat80; goto L2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1305 L2:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1306 e = new RealExp(0, 0.0, t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1307 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1308
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1309 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1310 return Type::getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1311 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1312 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1313 else if (ident == Id::im)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1314 { Type *t2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1315
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1316 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1317 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1318 case Tcomplex32: t = timaginary32; t2 = tfloat32; goto L3;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1319 case Tcomplex64: t = timaginary64; t2 = tfloat64; goto L3;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1320 case Tcomplex80: t = timaginary80; t2 = tfloat80; goto L3;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1321 L3:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1322 e = e->castTo(sc, t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1323 e->type = t2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1324 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1325
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1326 case Timaginary32: t = tfloat32; goto L4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1327 case Timaginary64: t = tfloat64; goto L4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1328 case Timaginary80: t = tfloat80; goto L4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1329 L4:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1330 e->type = t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1331 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1332
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1333 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1334 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1335 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1336 e = new RealExp(0, 0.0, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1337 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1338
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1339 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1340 return Type::getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1341 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1342 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1343 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1344 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1345 return Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1346 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1347 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1348 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1349
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1350 Expression *TypeBasic::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1351 { integer_t value = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1352
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1353 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1354 printf("TypeBasic::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1355 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1356 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1357 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1358 case Tchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1359 value = 0xFF;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1360 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1361
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1362 case Twchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1363 case Tdchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1364 value = 0xFFFF;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1365 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1366
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1367 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1368 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1369 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1370 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1371 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1372 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1373 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1374 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1375 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1376 return getProperty(loc, Id::nan);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1377 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1378 return new IntegerExp(loc, value, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1379 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1380
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1381 int TypeBasic::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1382 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1383 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1384 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1385 case Tchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1386 case Twchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1387 case Tdchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1388 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1389 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1390 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1391 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1392 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1393 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1394 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1395 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1396 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1397 return 0; // no
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1398 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1399 return 1; // yes
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1400 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1401
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1402 int TypeBasic::isbit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1403 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1404 return (ty == Tbit);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1405 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1406
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1407 int TypeBasic::isintegral()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1408 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1409 //printf("TypeBasic::isintegral('%s') x%x\n", toChars(), flags);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1410 return flags & TFLAGSintegral;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1411 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1412
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1413 int TypeBasic::isfloating()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1414 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1415 return flags & TFLAGSfloating;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1416 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1417
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1418 int TypeBasic::isreal()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1419 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1420 return flags & TFLAGSreal;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1421 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1422
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1423 int TypeBasic::isimaginary()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1424 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1425 return flags & TFLAGSimaginary;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1426 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1427
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1428 int TypeBasic::iscomplex()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1429 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1430 return flags & TFLAGScomplex;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1431 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1432
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1433 int TypeBasic::isunsigned()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1434 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1435 return flags & TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1436 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1437
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1438 int TypeBasic::isscalar()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1439 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1440 return flags & (TFLAGSintegral | TFLAGSfloating);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1441 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1442
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1443 MATCH TypeBasic::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1444 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1445 //printf("TypeBasic::implicitConvTo(%s) from %s\n", to->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1446 if (this == to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1447 return MATCHexact;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1448
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1449 if (ty == Tvoid || to->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1450 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1451 if (1 || global.params.Dversion == 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1452 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1453 if (to->ty == Tbool)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1454 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1455 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1456 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1457 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1458 if (ty == Tbool || to->ty == Tbool)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1459 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1460 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1461 if (!to->isTypeBasic())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1462 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1463
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1464 TypeBasic *tob = (TypeBasic *)to;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1465 if (flags & TFLAGSintegral)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1466 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1467 // Disallow implicit conversion of integers to imaginary or complex
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1468 if (tob->flags & (TFLAGSimaginary | TFLAGScomplex))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1469 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1470
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1471 // If converting to integral
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1472 if (0 && global.params.Dversion > 1 && tob->flags & TFLAGSintegral)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1473 { d_uns64 sz = size(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1474 d_uns64 tosz = tob->size(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1475
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1476 /* Can't convert to smaller size or, if same size, change sign
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1477 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1478 if (sz > tosz)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1479 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1480
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1481 /*if (sz == tosz && (flags ^ tob->flags) & TFLAGSunsigned)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1482 return MATCHnomatch;*/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1483 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1484 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1485 else if (flags & TFLAGSfloating)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1486 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1487 // Disallow implicit conversion of floating point to integer
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1488 if (tob->flags & TFLAGSintegral)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1489 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1490
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1491 assert(tob->flags & TFLAGSfloating);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1492
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1493 // Disallow implicit conversion from complex to non-complex
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1494 if (flags & TFLAGScomplex && !(tob->flags & TFLAGScomplex))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1495 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1496
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1497 // Disallow implicit conversion of real or imaginary to complex
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1498 if (flags & (TFLAGSreal | TFLAGSimaginary) &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1499 tob->flags & TFLAGScomplex)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1500 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1501
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1502 // Disallow implicit conversion to-from real and imaginary
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1503 if ((flags & (TFLAGSreal | TFLAGSimaginary)) !=
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1504 (tob->flags & (TFLAGSreal | TFLAGSimaginary)))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1505 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1506 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1507 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1508 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1509
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1510 TypeBasic *TypeBasic::isTypeBasic()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1511 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1512 return (TypeBasic *)this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1513 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1514
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1515 /***************************** TypeArray *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1516
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1517 TypeArray::TypeArray(TY ty, Type *next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1518 : Type(ty, next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1519 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1520 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1521
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1522 Expression *TypeArray::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1523 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1524 Type *n = this->next->toBasetype(); // uncover any typedef's
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1525
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1526 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1527 printf("TypeArray::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1528 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1529 if (ident == Id::reverse && (n->ty == Tchar || n->ty == Twchar))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1530 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1531 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1532 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1533 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1534 char *nm;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1535 static char *name[2] = { "_adReverseChar", "_adReverseWchar" };
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1536
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1537 nm = name[n->ty == Twchar];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1538 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(), nm);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1539 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1540 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1541 e = e->castTo(sc, n->arrayOf()); // convert to dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1542 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1543 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1544 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1545 e->type = next->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1546 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1547 else if (ident == Id::sort && (n->ty == Tchar || n->ty == Twchar))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1548 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1549 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1550 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1551 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1552 char *nm;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1553 static char *name[2] = { "_adSortChar", "_adSortWchar" };
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1554
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1555 nm = name[n->ty == Twchar];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1556 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(), nm);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1557 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1558 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1559 e = e->castTo(sc, n->arrayOf()); // convert to dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1560 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1561 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1562 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1563 e->type = next->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1564 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1565 else if (ident == Id::reverse || ident == Id::dup)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1566 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1567 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1568 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1569 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1570 int size = next->size(e->loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1571 int dup;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1572
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1573 assert(size);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1574 dup = (ident == Id::dup);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1575 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(), dup ? Id::adDup : Id::adReverse);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1576 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1577 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1578 e = e->castTo(sc, n->arrayOf()); // convert to dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1579 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1580 if (dup)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1581 arguments->push(getTypeInfo(sc));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1582 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1583 if (!dup)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1584 arguments->push(new IntegerExp(0, size, Type::tint32));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1585 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1586 e->type = next->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1587 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1588 else if (ident == Id::sort)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1589 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1590 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1591 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1592 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1593
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1594 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(),
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1595 (char*)(n->ty == Tbit ? "_adSortBit" : "_adSort"));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1596 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1597 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1598 e = e->castTo(sc, n->arrayOf()); // convert to dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1599 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1600 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1601 if (next->ty != Tbit)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1602 arguments->push(n->ty == Tsarray
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1603 ? n->getTypeInfo(sc) // don't convert to dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1604 : n->getInternalTypeInfo(sc));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1605 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1606 e->type = next->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1607 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1608 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1609 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1610 e = Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1611 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1612 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1613 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1614
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1615
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1616 /***************************** TypeSArray *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1617
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1618 TypeSArray::TypeSArray(Type *t, Expression *dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1619 : TypeArray(Tsarray, t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1620 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1621 //printf("TypeSArray(%s)\n", dim->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1622 this->dim = dim;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1623 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1624
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1625 Type *TypeSArray::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1626 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1627 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1628 Expression *e = dim->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1629 t = new TypeSArray(t, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1630 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1631 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1632
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1633 d_uns64 TypeSArray::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1634 { integer_t sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1635
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1636 if (!dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1637 return Type::size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1638 sz = dim->toInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1639 if (next->toBasetype()->ty == Tbit) // if array of bits
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1640 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1641 if (sz + 31 < sz)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1642 goto Loverflow;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1643 sz = ((sz + 31) & ~31) / 8; // size in bytes, rounded up to 32 bit dwords
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1644 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1645 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1646 { integer_t n, n2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1647
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1648 n = next->size();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1649 n2 = n * sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1650 if (n && (n2 / n) != sz)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1651 goto Loverflow;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1652 sz = n2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1653 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1654 return sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1655
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1656 Loverflow:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1657 error(loc, "index %jd overflow for static array", sz);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1658 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1659 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1660
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1661 unsigned TypeSArray::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1662 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1663 return next->alignsize();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1664 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1665
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1666 /**************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1667 * This evaluates exp while setting length to be the number
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1668 * of elements in the tuple t.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1669 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1670 Expression *semanticLength(Scope *sc, Type *t, Expression *exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1671 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1672 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1673 { ScopeDsymbol *sym = new ArrayScopeSymbol((TypeTuple *)t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1674 sym->parent = sc->scopesym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1675 sc = sc->push(sym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1676
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1677 exp = exp->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1678
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1679 sc->pop();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1680 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1681 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1682 exp = exp->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1683 return exp;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1684 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1685
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1686 Expression *semanticLength(Scope *sc, TupleDeclaration *s, Expression *exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1687 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1688 ScopeDsymbol *sym = new ArrayScopeSymbol(s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1689 sym->parent = sc->scopesym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1690 sc = sc->push(sym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1691
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1692 exp = exp->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1693
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1694 sc->pop();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1695 return exp;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1696 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1697
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1698 void TypeSArray::resolve(Loc loc, Scope *sc, Expression **pe, Type **pt, Dsymbol **ps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1699 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1700 //printf("TypeSArray::resolve() %s\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1701 next->resolve(loc, sc, pe, pt, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1702 //printf("s = %p, e = %p, t = %p\n", *ps, *pe, *pt);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1703 if (*pe)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1704 { // It's really an index expression
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1705 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1706 e = new IndexExp(loc, *pe, dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1707 *pe = e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1708 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1709 else if (*ps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1710 { Dsymbol *s = *ps;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1711 TupleDeclaration *td = s->isTupleDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1712 if (td)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1713 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1714 ScopeDsymbol *sym = new ArrayScopeSymbol(td);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1715 sym->parent = sc->scopesym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1716 sc = sc->push(sym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1717
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1718 dim = dim->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1719 dim = dim->optimize(WANTvalue | WANTinterpret);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1720 uinteger_t d = dim->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1721
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1722 sc = sc->pop();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1723
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1724 if (d >= td->objects->dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1725 { error(loc, "tuple index %ju exceeds %u", d, td->objects->dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1726 goto Ldefault;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1727 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1728 Object *o = (Object *)td->objects->data[(size_t)d];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1729 if (o->dyncast() == DYNCAST_DSYMBOL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1730 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1731 *ps = (Dsymbol *)o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1732 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1733 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1734 if (o->dyncast() == DYNCAST_EXPRESSION)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1735 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1736 *ps = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1737 *pe = (Expression *)o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1738 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1739 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1740
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1741 /* Create a new TupleDeclaration which
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1742 * is a slice [d..d+1] out of the old one.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1743 * Do it this way because TemplateInstance::semanticTiargs()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1744 * can handle unresolved Objects this way.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1745 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1746 Objects *objects = new Objects;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1747 objects->setDim(1);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1748 objects->data[0] = o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1749
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1750 TupleDeclaration *tds = new TupleDeclaration(loc, td->ident, objects);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1751 *ps = tds;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1752 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1753 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1754 goto Ldefault;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1755 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1756 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1757 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1758 Ldefault:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1759 Type::resolve(loc, sc, pe, pt, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1760 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1761 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1762
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1763 Type *TypeSArray::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1764 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1765 //printf("TypeSArray::semantic() %s\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1766
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1767 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1768 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1769 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1770 next->resolve(loc, sc, &e, &t, &s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1771 if (dim && s && s->isTupleDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1772 { TupleDeclaration *sd = s->isTupleDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1773
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1774 dim = semanticLength(sc, sd, dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1775 dim = dim->optimize(WANTvalue | WANTinterpret);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1776 uinteger_t d = dim->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1777
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1778 if (d >= sd->objects->dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1779 { error(loc, "tuple index %ju exceeds %u", d, sd->objects->dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1780 return Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1781 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1782 Object *o = (Object *)sd->objects->data[(size_t)d];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1783 if (o->dyncast() != DYNCAST_TYPE)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1784 { error(loc, "%s is not a type", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1785 return Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1786 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1787 t = (Type *)o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1788 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1789 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1790
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1791 next = next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1792 Type *tbn = next->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1793
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1794 if (dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1795 { integer_t n, n2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1796
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1797 dim = semanticLength(sc, tbn, dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1798
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1799 dim = dim->optimize(WANTvalue | WANTinterpret);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1800 if (sc->parameterSpecialization && dim->op == TOKvar &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1801 ((VarExp *)dim)->var->storage_class & STCtemplateparameter)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1802 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1803 /* It could be a template parameter N which has no value yet:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1804 * template Foo(T : T[N], size_t N);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1805 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1806 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1807 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1808 integer_t d1 = dim->toInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1809 dim = dim->castTo(sc, tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1810 dim = dim->optimize(WANTvalue);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1811 integer_t d2 = dim->toInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1812
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1813 if (d1 != d2)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1814 goto Loverflow;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1815
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1816 if (tbn->isintegral() ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1817 tbn->isfloating() ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1818 tbn->ty == Tpointer ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1819 tbn->ty == Tarray ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1820 tbn->ty == Tsarray ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1821 tbn->ty == Taarray ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1822 tbn->ty == Tclass)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1823 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1824 /* Only do this for types that don't need to have semantic()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1825 * run on them for the size, since they may be forward referenced.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1826 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1827 n = tbn->size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1828 n2 = n * d2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1829 if ((int)n2 < 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1830 goto Loverflow;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1831 if (n2 >= 0x1000000) // put a 'reasonable' limit on it
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1832 goto Loverflow;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1833 if (n && n2 / n != d2)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1834 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1835 Loverflow:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1836 error(loc, "index %jd overflow for static array", d1);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1837 dim = new IntegerExp(0, 1, tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1838 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1839 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1840 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1841 switch (tbn->ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1842 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1843 case Ttuple:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1844 { // Index the tuple to get the type
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1845 assert(dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1846 TypeTuple *tt = (TypeTuple *)tbn;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1847 uinteger_t d = dim->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1848
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1849 if (d >= tt->arguments->dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1850 { error(loc, "tuple index %ju exceeds %u", d, tt->arguments->dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1851 return Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1852 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1853 Argument *arg = (Argument *)tt->arguments->data[(size_t)d];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1854 return arg->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1855 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1856 case Tfunction:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1857 case Tnone:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1858 error(loc, "can't have array of %s", tbn->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1859 tbn = next = tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1860 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1861 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1862 if (tbn->isauto())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1863 error(loc, "cannot have array of auto %s", tbn->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1864 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1865 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1866
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1867 void TypeSArray::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1868 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1869 buf->writeByte(mangleChar[ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1870 if (dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1871 buf->printf("%ju", dim->toInteger());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1872 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1873 next->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1874 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1875
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1876 void TypeSArray::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1877 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1878 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1879 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1880 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1881 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1882 next->toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1883 buf->printf("[%s]", dim->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1884 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1885
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1886 Expression *TypeSArray::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1887 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1888 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1889 printf("TypeSArray::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1890 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1891 if (ident == Id::length)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1892 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1893 e = dim;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1894 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1895 else if (ident == Id::ptr)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1896 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1897 e = e->castTo(sc, next->pointerTo());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1898 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1899 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1900 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1901 e = TypeArray::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1902 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1903 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1904 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1905
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1906 int TypeSArray::isString()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1907 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1908 TY nty = next->toBasetype()->ty;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1909 return nty == Tchar || nty == Twchar || nty == Tdchar;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1910 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1911
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1912 unsigned TypeSArray::memalign(unsigned salign)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1913 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1914 return next->memalign(salign);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1915 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1916
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1917 MATCH TypeSArray::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1918 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1919 //printf("TypeSArray::implicitConvTo()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1920
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1921 // Allow implicit conversion of static array to pointer or dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1922 if ((IMPLICIT_ARRAY_TO_PTR && to->ty == Tpointer) &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1923 (to->next->ty == Tvoid || next->equals(to->next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1924 /*|| to->next->isBaseOf(next)*/))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1925 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1926 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1927 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1928 if (to->ty == Tarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1929 { int offset = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1930
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1931 if (next->equals(to->next) ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1932 (to->next->isBaseOf(next, &offset) && offset == 0) ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1933 to->next->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1934 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1935 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1936 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1937 if (to->ty == Tsarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1938 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1939 TypeSArray *tsa = (TypeSArray *)to;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1940
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1941 if (next->equals(tsa->next) && dim->equals(tsa->dim))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1942 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1943 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1944 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1945 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1946 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1947 return Type::implicitConvTo(to);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1948 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1949
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1950 Expression *TypeSArray::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1951 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1952 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1953 printf("TypeSArray::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1954 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1955 return next->defaultInit(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1956 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1957
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1958 int TypeSArray::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1959 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1960 return next->isZeroInit();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1961 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1962
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1963
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1964 Expression *TypeSArray::toExpression()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1965 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1966 Expression *e = next->toExpression();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1967 if (e)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1968 { Expressions *arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1969 arguments->push(dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1970 e = new ArrayExp(dim->loc, e, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1971 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1972 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1973 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1974
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1975 int TypeSArray::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1976 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1977 return next->hasPointers();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1978 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1979
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1980 /***************************** TypeDArray *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1981
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1982 TypeDArray::TypeDArray(Type *t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1983 : TypeArray(Tarray, t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1984 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1985 //printf("TypeDArray(t = %p)\n", t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1986 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1987
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1988 Type *TypeDArray::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1989 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1990 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1991 if (t == next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1992 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1993 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1994 t = new TypeDArray(t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1995 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1996 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1997
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1998 d_uns64 TypeDArray::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1999 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2000 //printf("TypeDArray::size()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2001 return PTRSIZE * 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2002 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2003
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2004 unsigned TypeDArray::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2005 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2006 // A DArray consists of two ptr-sized values, so align it on pointer size
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2007 // boundary
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2008 return PTRSIZE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2009 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2010
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2011 Type *TypeDArray::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2012 { Type *tn = next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2013
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2014 tn = next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2015 Type *tbn = tn->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2016 switch (tbn->ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2017 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2018 case Tfunction:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2019 case Tnone:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2020 case Ttuple:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2021 error(loc, "can't have array of %s", tbn->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2022 tn = next = tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2023 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2024 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2025 if (tn->isauto())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2026 error(loc, "cannot have array of auto %s", tn->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2027 if (next != tn)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2028 //deco = NULL; // redo
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2029 return tn->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2030 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2031 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2032
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2033 void TypeDArray::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2034 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2035 buf->writeByte(mangleChar[ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2036 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2037 next->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2038 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2039
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2040 void TypeDArray::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2041 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2042 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2043 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2044 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2045 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2046 next->toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2047 buf->writestring("[]");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2048 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2049
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2050 Expression *TypeDArray::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2051 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2052 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2053 printf("TypeDArray::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2054 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2055 if (ident == Id::length)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2056 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2057 if (e->op == TOKstring)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2058 { StringExp *se = (StringExp *)e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2059
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2060 return new IntegerExp(se->loc, se->len, Type::tindex);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2061 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2062 e = new ArrayLengthExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2063 e->type = Type::tsize_t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2064 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2065 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2066 else if (ident == Id::ptr)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2067 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2068 e = e->castTo(sc, next->pointerTo());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2069 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2070 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2071 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2072 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2073 e = TypeArray::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2074 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2075 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2076 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2077
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2078 int TypeDArray::isString()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2079 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2080 TY nty = next->toBasetype()->ty;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2081 return nty == Tchar || nty == Twchar || nty == Tdchar;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2082 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2083
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2084 MATCH TypeDArray::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2085 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2086 //printf("TypeDArray::implicitConvTo()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2087
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2088 // Allow implicit conversion of array to pointer
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2089 if (IMPLICIT_ARRAY_TO_PTR &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2090 to->ty == Tpointer &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2091 (to->next->ty == Tvoid || next->equals(to->next) /*|| to->next->isBaseOf(next)*/))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2092 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2093 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2094 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2095
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2096 if (to->ty == Tarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2097 { int offset = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2098
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2099 if ((to->next->isBaseOf(next, &offset) && offset == 0) ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2100 to->next->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2101 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2102 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2103 return Type::implicitConvTo(to);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2104 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2105
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2106 Expression *TypeDArray::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2107 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2108 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2109 printf("TypeDArray::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2110 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2111 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2112 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2113 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2114 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2115 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2116
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2117 int TypeDArray::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2118 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2119 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2120 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2121
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2122 int TypeDArray::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2123 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2124 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2125 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2126
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2127 int TypeDArray::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2128 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2129 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2130 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2131
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2132 /***************************** TypeAArray *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2133
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2134 TypeAArray::TypeAArray(Type *t, Type *index)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2135 : TypeArray(Taarray, t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2136 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2137 this->index = index;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2138 this->key = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2139 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2140
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2141 Type *TypeAArray::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2142 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2143 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2144 Type *ti = index->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2145 if (t == next && ti == index)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2146 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2147 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2148 t = new TypeAArray(t, ti);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2149 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2150 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2151
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2152 d_uns64 TypeAArray::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2153 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2154 return PTRSIZE /* * 2*/;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2155 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2156
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2157
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2158 Type *TypeAArray::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2159 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2160 //printf("TypeAArray::semantic() %s index->ty = %d\n", toChars(), index->ty);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2161
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2162 // Deal with the case where we thought the index was a type, but
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2163 // in reality it was an expression.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2164 if (index->ty == Tident || index->ty == Tinstance || index->ty == Tsarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2165 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2166 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2167 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2168 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2169
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2170 index->resolve(loc, sc, &e, &t, &s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2171 if (e)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2172 { // It was an expression -
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2173 // Rewrite as a static array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2174 TypeSArray *tsa;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2175
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2176 tsa = new TypeSArray(next, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2177 return tsa->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2178 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2179 else if (t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2180 index = t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2181 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2182 index->error(loc, "index is not a type or an expression");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2183 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2184 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2185 index = index->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2186
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2187 // Compute key type; the purpose of the key type is to
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2188 // minimize the permutations of runtime library
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2189 // routines as much as possible.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2190 key = index->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2191 switch (key->ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2192 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2193 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2194 case Tint8:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2195 case Tuns8:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2196 case Tint16:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2197 case Tuns16:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2198 key = tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2199 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2200 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2201
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2202 case Tsarray:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2203 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2204 // Convert to Tarray
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2205 key = key->next->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2206 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2207 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2208 case Tbit:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2209 case Tbool:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2210 case Tfunction:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2211 case Tvoid:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2212 case Tnone:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2213 error(loc, "can't have associative array key of %s", key->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2214 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2215 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2216 next = next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2217 switch (next->toBasetype()->ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2218 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2219 case Tfunction:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2220 case Tnone:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2221 error(loc, "can't have associative array of %s", next->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2222 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2223 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2224 if (next->isauto())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2225 error(loc, "cannot have array of auto %s", next->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2226
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2227 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2228 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2229
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2230 Expression *TypeAArray::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2231 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2232 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2233 printf("TypeAArray::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2234 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2235 if (ident == Id::length)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2236 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2237 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2238 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2239 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2240
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2241 fd = FuncDeclaration::genCfunc(Type::tsize_t, Id::aaLen);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2242 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2243 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2244 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2245 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2246 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2247 e->type = fd->type->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2248 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2249 else if (ident == Id::keys)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2250 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2251 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2252 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2253 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2254 int size = key->size(e->loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2255
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2256 assert(size);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2257 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(), Id::aaKeys);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2258 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2259 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2260 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2261 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2262 arguments->push(new IntegerExp(0, size, Type::tsize_t));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2263 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2264 e->type = index->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2265 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2266 else if (ident == Id::values)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2267 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2268 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2269 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2270 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2271
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2272 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(), Id::aaValues);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2273 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2274 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2275 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2276 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2277 size_t keysize = key->size(e->loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2278 keysize = (keysize + 4 - 1) & ~(4 - 1);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2279 arguments->push(new IntegerExp(0, keysize, Type::tsize_t));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2280 arguments->push(new IntegerExp(0, next->size(e->loc), Type::tsize_t));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2281 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2282 e->type = next->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2283 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2284 else if (ident == Id::rehash)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2285 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2286 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2287 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2288 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2289
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2290 fd = FuncDeclaration::genCfunc(Type::tvoid->pointerTo(), Id::aaRehash);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2291 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2292 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2293 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2294 arguments->push(e->addressOf(sc));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2295 arguments->push(key->getInternalTypeInfo(sc));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2296 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2297 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2298 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2299 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2300 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2301 e = Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2302 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2303 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2304 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2305
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2306 void TypeAArray::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2307 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2308 buf->writeByte(mangleChar[ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2309 index->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2310 next->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2311 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2312
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2313 void TypeAArray::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2314 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2315 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2316 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2317 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2318 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2319 next->toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2320 buf->writeByte('[');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2321 index->toCBuffer2(buf, hgs, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2322 buf->writeByte(']');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2323 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2324
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2325 Expression *TypeAArray::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2326 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2327 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2328 printf("TypeAArray::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2329 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2330 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2331 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2332 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2333 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2334 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2335
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2336 int TypeAArray::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2337 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2338 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2339 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2340
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2341 int TypeAArray::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2342 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2343 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2344 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2345
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2346 /***************************** TypePointer *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2347
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2348 TypePointer::TypePointer(Type *t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2349 : Type(Tpointer, t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2350 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2351 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2352
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2353 Type *TypePointer::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2354 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2355 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2356 if (t == next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2357 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2358 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2359 t = new TypePointer(t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2360 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2361 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2362
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2363 Type *TypePointer::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2364 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2365 //printf("TypePointer::semantic()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2366 Type *n = next->semantic(loc, sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2367 switch (n->toBasetype()->ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2368 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2369 case Ttuple:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2370 error(loc, "can't have pointer to %s", n->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2371 n = tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2372 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2373 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2374 if (n != next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2375 deco = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2376 next = n;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2377 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2378 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2379
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2380
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2381 d_uns64 TypePointer::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2382 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2383 return PTRSIZE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2384 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2385
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2386 void TypePointer::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2387 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2388 //printf("TypePointer::toCBuffer2() next = %d\n", next->ty);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2389 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2390 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2391 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2392 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2393 next->toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2394 if (next->ty != Tfunction)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2395 buf->writeByte('*');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2396 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2397
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2398 MATCH TypePointer::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2399 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2400 //printf("TypePointer::implicitConvTo()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2401
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2402 if (this == to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2403 return MATCHexact;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2404 if (to->ty == Tpointer && to->next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2405 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2406 if (to->next->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2407 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2408
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2409 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2410 if (to->next->isBaseOf(next))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2411 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2412 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2413
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2414 if (next->ty == Tfunction && to->next->ty == Tfunction)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2415 { TypeFunction *tf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2416 TypeFunction *tfto;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2417
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2418 tf = (TypeFunction *)(next);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2419 tfto = (TypeFunction *)(to->next);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2420 return tfto->equals(tf) ? MATCHexact : MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2421 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2422 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2423 // if (to->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2424 // return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2425 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2426 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2427
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2428 int TypePointer::isscalar()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2429 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2430 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2431 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2432
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2433 Expression *TypePointer::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2434 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2435 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2436 printf("TypePointer::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2437 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2438 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2439 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2440 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2441 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2442 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2443
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2444 int TypePointer::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2445 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2446 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2447 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2448
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2449 int TypePointer::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2450 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2451 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2452 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2453
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2454
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2455 /***************************** TypeReference *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2456
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2457 TypeReference::TypeReference(Type *t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2458 : Type(Treference, t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2459 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2460 if (t->ty == Tbit)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2461 error(0,"cannot make reference to a bit");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2462 // BUG: what about references to static arrays?
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2463 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2464
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2465 Type *TypeReference::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2466 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2467 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2468 if (t == next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2469 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2470 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2471 t = new TypeReference(t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2472 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2473 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2474
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2475 d_uns64 TypeReference::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2476 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2477 return PTRSIZE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2478 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2479
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2480 void TypeReference::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2481 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2482 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2483 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2484 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2485 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2486 next->toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2487 buf->writeByte('&');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2488 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2489
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2490 Expression *TypeReference::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2491 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2492 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2493 printf("TypeReference::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2494 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2495
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2496 // References just forward things along
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2497 return next->dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2498 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2499
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2500 Expression *TypeReference::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2501 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2502 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2503 printf("TypeReference::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2504 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2505 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2506 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2507 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2508 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2509 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2510
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2511 int TypeReference::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2512 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2513 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2514 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2515
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2516
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2517 /***************************** TypeFunction *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2518
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2519 TypeFunction::TypeFunction(Arguments *parameters, Type *treturn, int varargs, enum LINK linkage)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2520 : Type(Tfunction, treturn)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2521 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2522 //if (!treturn) *(char*)0=0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2523 // assert(treturn);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2524 this->parameters = parameters;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2525 this->varargs = varargs;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2526 this->linkage = linkage;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2527 this->inuse = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2528 this->llvmRetInPtr = false;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2529 this->llvmUsesThis = false;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2530 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2531
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2532 Type *TypeFunction::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2533 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2534 Type *treturn = next ? next->syntaxCopy() : NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2535 Arguments *params = Argument::arraySyntaxCopy(parameters);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2536 Type *t = new TypeFunction(params, treturn, varargs, linkage);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2537 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2538 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2539
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2540 /*******************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2541 * Returns:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2542 * 0 types are distinct
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2543 * 1 this is covariant with t
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2544 * 2 arguments match as far as overloading goes,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2545 * but types are not covariant
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2546 * 3 cannot determine covariance because of forward references
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2547 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2548
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2549 int Type::covariant(Type *t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2550 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2551 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2552 printf("Type::covariant(t = %s) %s\n", t->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2553 printf("deco = %p, %p\n", deco, t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2554 printf("ty = %d\n", next->ty);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2555 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2556
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2557 int inoutmismatch = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2558
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2559 if (equals(t))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2560 goto Lcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2561 if (ty != Tfunction || t->ty != Tfunction)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2562 goto Ldistinct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2563
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2564 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2565 TypeFunction *t1 = (TypeFunction *)this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2566 TypeFunction *t2 = (TypeFunction *)t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2567
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2568 if (t1->varargs != t2->varargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2569 goto Ldistinct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2570
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2571 if (t1->parameters && t2->parameters)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2572 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2573 size_t dim = Argument::dim(t1->parameters);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2574 if (dim != Argument::dim(t2->parameters))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2575 goto Ldistinct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2576
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2577 for (size_t i = 0; i < dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2578 { Argument *arg1 = Argument::getNth(t1->parameters, i);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2579 Argument *arg2 = Argument::getNth(t2->parameters, i);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2580
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2581 if (!arg1->type->equals(arg2->type))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2582 goto Ldistinct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2583 if (arg1->storageClass != arg2->storageClass)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2584 inoutmismatch = 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2585 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2586 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2587 else if (t1->parameters != t2->parameters)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2588 goto Ldistinct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2589
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2590 // The argument lists match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2591 if (inoutmismatch)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2592 goto Lnotcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2593 if (t1->linkage != t2->linkage)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2594 goto Lnotcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2595
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2596 Type *t1n = t1->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2597 Type *t2n = t2->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2598
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2599 if (t1n->equals(t2n))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2600 goto Lcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2601 if (t1n->ty != Tclass || t2n->ty != Tclass)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2602 goto Lnotcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2603
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2604 // If t1n is forward referenced:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2605 ClassDeclaration *cd = ((TypeClass *)t1n)->sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2606 if (!cd->baseClass && cd->baseclasses.dim && !cd->isInterfaceDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2607 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2608 return 3;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2609 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2610
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2611 if (t1n->implicitConvTo(t2n))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2612 goto Lcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2613 goto Lnotcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2614 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2615
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2616 Lcovariant:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2617 //printf("\tcovaraint: 1\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2618 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2619
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2620 Ldistinct:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2621 //printf("\tcovaraint: 0\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2622 return 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2623
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2624 Lnotcovariant:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2625 //printf("\tcovaraint: 2\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2626 return 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2627 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2628
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2629 void TypeFunction::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2630 { unsigned char mc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2631
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2632 //printf("TypeFunction::toDecoBuffer() this = %p %s\n", this, toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2633 //static int nest; if (++nest == 50) *(char*)0=0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2634 if (inuse)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2635 { inuse = 2; // flag error to caller
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2636 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2637 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2638 inuse++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2639 switch (linkage)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2640 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2641 case LINKd: mc = 'F'; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2642 case LINKc: mc = 'U'; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2643 case LINKwindows: mc = 'W'; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2644 case LINKpascal: mc = 'V'; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2645 case LINKcpp: mc = 'R'; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2646 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2647 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2648 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2649 buf->writeByte(mc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2650 // Write argument types
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2651 Argument::argsToDecoBuffer(buf, parameters);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2652 //if (buf->data[buf->offset - 1] == '@') halt();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2653 buf->writeByte('Z' - varargs); // mark end of arg list
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2654 next->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2655 inuse--;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2656 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2657
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2658 void TypeFunction::toCBuffer(OutBuffer *buf, Identifier *ident, HdrGenState *hgs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2659 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2660 char *p = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2661
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2662 if (inuse)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2663 { inuse = 2; // flag error to caller
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2664 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2665 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2666 inuse++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2667 if (next && (!ident || ident->toHChars2() == ident->toChars()))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2668 next->toCBuffer2(buf, hgs, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2669 if (hgs->ddoc != 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2670 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2671 switch (linkage)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2672 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2673 case LINKd: p = NULL; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2674 case LINKc: p = "C "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2675 case LINKwindows: p = "Windows "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2676 case LINKpascal: p = "Pascal "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2677 case LINKcpp: p = "C++ "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2678 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2679 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2680 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2681 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2682
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2683 if (!hgs->hdrgen && p)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2684 buf->writestring(p);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2685 if (ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2686 { buf->writeByte(' ');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2687 buf->writestring(ident->toHChars2());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2688 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2689 Argument::argsToCBuffer(buf, hgs, parameters, varargs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2690 inuse--;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2691 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2692
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2693 void TypeFunction::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2694 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2695 char *p = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2696
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2697 if (inuse)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2698 { inuse = 2; // flag error to caller
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2699 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2700 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2701 inuse++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2702 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2703 next->toCBuffer2(buf, hgs, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2704 if (hgs->ddoc != 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2705 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2706 switch (linkage)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2707 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2708 case LINKd: p = NULL; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2709 case LINKc: p = "C "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2710 case LINKwindows: p = "Windows "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2711 case LINKpascal: p = "Pascal "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2712 case LINKcpp: p = "C++ "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2713 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2714 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2715 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2716 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2717
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2718 if (!hgs->hdrgen && p)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2719 buf->writestring(p);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2720 buf->writestring(" function");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2721 Argument::argsToCBuffer(buf, hgs, parameters, varargs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2722 inuse--;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2723 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2724
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2725 Type *TypeFunction::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2726 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2727 if (deco) // if semantic() already run
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2728 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2729 //printf("already done\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2730 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2731 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2732 //printf("TypeFunction::semantic() this = %p\n", this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2733
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2734 TypeFunction *tf = (TypeFunction *)mem.malloc(sizeof(TypeFunction));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2735 memcpy(tf, this, sizeof(TypeFunction));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2736 if (parameters)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2737 { tf->parameters = (Arguments *)parameters->copy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2738 for (size_t i = 0; i < parameters->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2739 { Argument *arg = (Argument *)parameters->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2740 Argument *cpy = (Argument *)mem.malloc(sizeof(Argument));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2741 memcpy(cpy, arg, sizeof(Argument));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2742 tf->parameters->data[i] = (void *)cpy;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2743 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2744 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2745
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2746 tf->linkage = sc->linkage;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2747 if (!tf->next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2748 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2749 assert(global.errors);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2750 tf->next = tvoid;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2751 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2752 tf->next = tf->next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2753 if (tf->next->toBasetype()->ty == Tsarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2754 { error(loc, "functions cannot return static array %s", tf->next->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2755 tf->next = Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2756 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2757 if (tf->next->toBasetype()->ty == Tfunction)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2758 { error(loc, "functions cannot return a function");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2759 tf->next = Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2760 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2761 if (tf->next->toBasetype()->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2762 { error(loc, "functions cannot return a tuple");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2763 tf->next = Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2764 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2765 if (tf->next->isauto() && !(sc->flags & SCOPEctor))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2766 error(loc, "functions cannot return auto %s", tf->next->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2767
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2768 if (tf->parameters)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2769 { size_t dim = Argument::dim(tf->parameters);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2770
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2771 for (size_t i = 0; i < dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2772 { Argument *arg = Argument::getNth(tf->parameters, i);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2773 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2774
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2775 tf->inuse++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2776 arg->type = arg->type->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2777 if (tf->inuse == 1) tf->inuse--;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2778 t = arg->type->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2779
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2780 if (arg->storageClass & (STCout | STCref | STClazy))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2781 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2782 if (t->ty == Tsarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2783 error(loc, "cannot have out or ref parameter of type %s", t->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2784 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2785 if (!(arg->storageClass & STClazy) && t->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2786 error(loc, "cannot have parameter of type %s", arg->type->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2787
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2788 if (arg->defaultArg)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2789 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2790 arg->defaultArg = arg->defaultArg->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2791 arg->defaultArg = resolveProperties(sc, arg->defaultArg);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2792 arg->defaultArg = arg->defaultArg->implicitCastTo(sc, arg->type);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2793 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2794
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2795 /* If arg turns out to be a tuple, the number of parameters may
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2796 * change.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2797 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2798 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2799 { dim = Argument::dim(tf->parameters);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2800 i--;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2801 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2802 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2803 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2804 tf->deco = tf->merge()->deco;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2805
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2806 if (tf->inuse)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2807 { error(loc, "recursive type");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2808 tf->inuse = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2809 return terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2810 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2811
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2812 if (tf->varargs == 1 && tf->linkage != LINKd && Argument::dim(tf->parameters) == 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2813 error(loc, "variadic functions with non-D linkage must have at least one parameter");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2814
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2815 /* Don't return merge(), because arg identifiers and default args
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2816 * can be different
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2817 * even though the types match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2818 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2819 return tf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2820 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2821
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2822 /********************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2823 * 'args' are being matched to function 'this'
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2824 * Determine match level.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2825 * Returns:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2826 * MATCHxxxx
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2827 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2828
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2829 int TypeFunction::callMatch(Expressions *args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2830 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2831 //printf("TypeFunction::callMatch()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2832 int match = MATCHexact; // assume exact match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2833
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2834 size_t nparams = Argument::dim(parameters);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2835 size_t nargs = args ? args->dim : 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2836 if (nparams == nargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2837 ;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2838 else if (nargs > nparams)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2839 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2840 if (varargs == 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2841 goto Nomatch; // too many args; no match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2842 match = MATCHconvert; // match ... with a "conversion" match level
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2843 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2844
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2845 for (size_t u = 0; u < nparams; u++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2846 { int m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2847 Expression *arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2848
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2849 // BUG: what about out and ref?
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2850
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2851 Argument *p = Argument::getNth(parameters, u);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2852 assert(p);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2853 if (u >= nargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2854 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2855 if (p->defaultArg)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2856 continue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2857 if (varargs == 2 && u + 1 == nparams)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2858 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2859 goto Nomatch; // not enough arguments
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2860 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2861 arg = (Expression *)args->data[u];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2862 assert(arg);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2863 if (p->storageClass & STClazy && p->type->ty == Tvoid && arg->type->ty != Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2864 m = MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2865 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2866 m = arg->implicitConvTo(p->type);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2867 //printf("\tm = %d\n", m);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2868 if (m == MATCHnomatch) // if no match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2869 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2870 L1:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2871 if (varargs == 2 && u + 1 == nparams) // if last varargs param
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2872 { Type *tb = p->type->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2873 TypeSArray *tsa;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2874 integer_t sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2875
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2876 switch (tb->ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2877 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2878 case Tsarray:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2879 tsa = (TypeSArray *)tb;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2880 sz = tsa->dim->toInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2881 if (sz != nargs - u)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2882 goto Nomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2883 case Tarray:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2884 for (; u < nargs; u++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2885 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2886 arg = (Expression *)args->data[u];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2887 assert(arg);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2888 #if 1
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2889 /* If lazy array of delegates,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2890 * convert arg(s) to delegate(s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2891 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2892 Type *tret = p->isLazyArray();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2893 if (tret)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2894 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2895 if (tb->next->equals(arg->type))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2896 { m = MATCHexact;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2897 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2898 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2899 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2900 m = arg->implicitConvTo(tret);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2901 if (m == MATCHnomatch)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2902 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2903 if (tret->toBasetype()->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2904 m = MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2905 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2906 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2907 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2908 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2909 m = arg->implicitConvTo(tb->next);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2910 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2911 m = arg->implicitConvTo(tb->next);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2912 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2913 if (m == 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2914 goto Nomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2915 if (m < match)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2916 match = m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2917 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2918 goto Ldone;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2919
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2920 case Tclass:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2921 // Should see if there's a constructor match?
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2922 // Or just leave it ambiguous?
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2923 goto Ldone;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2924
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2925 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2926 goto Nomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2927 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2928 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2929 goto Nomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2930 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2931 if (m < match)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2932 match = m; // pick worst match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2933 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2934
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2935 Ldone:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2936 //printf("match = %d\n", match);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2937 return match;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2938
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2939 Nomatch:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2940 //printf("no match\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2941 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2942 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2943
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2944 Type *TypeFunction::reliesOnTident()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2945 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2946 if (parameters)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2947 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2948 for (size_t i = 0; i < parameters->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2949 { Argument *arg = (Argument *)parameters->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2950 Type *t = arg->type->reliesOnTident();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2951 if (t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2952 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2953 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2954 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2955 return next->reliesOnTident();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2956 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2957
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2958 /***************************** TypeDelegate *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2959
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2960 TypeDelegate::TypeDelegate(Type *t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2961 : Type(Tfunction, t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2962 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2963 ty = Tdelegate;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2964 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2965
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2966 Type *TypeDelegate::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2967 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2968 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2969 if (t == next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2970 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2971 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2972 t = new TypeDelegate(t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2973 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2974 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2975
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2976 Type *TypeDelegate::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2977 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2978 if (deco) // if semantic() already run
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2979 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2980 //printf("already done\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2981 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2982 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2983 next = next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2984 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2985 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2986
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2987 d_uns64 TypeDelegate::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2988 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2989 return PTRSIZE * 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2990 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2991
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2992 void TypeDelegate::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2993 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2994 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2995 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2996 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2997 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2998 TypeFunction *tf = (TypeFunction *)next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2999
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3000 tf->next->toCBuffer2(buf, hgs, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3001 buf->writestring(" delegate");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3002 Argument::argsToCBuffer(buf, hgs, tf->parameters, tf->varargs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3003 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3004
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3005 Expression *TypeDelegate::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3006 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3007 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3008 printf("TypeDelegate::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3009 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3010 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3011 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3012 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3013 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3014 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3015
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3016 int TypeDelegate::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3017 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3018 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3019 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3020
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3021 int TypeDelegate::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3022 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3023 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3024 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3025
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3026 Expression *TypeDelegate::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3027 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3028 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3029 printf("TypeDelegate::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3030 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3031 if (ident == Id::ptr)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3032 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3033 e->type = tvoidptr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3034 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3035 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3036 else if (ident == Id::funcptr)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3037 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3038 e = e->addressOf(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3039 e->type = tvoidptr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3040 e = new AddExp(e->loc, e, new IntegerExp(PTRSIZE));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3041 e->type = tvoidptr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3042 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3043 e->type = next->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3044 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3045 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3046 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3047 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3048 e = Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3049 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3050 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3051 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3052
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3053 int TypeDelegate::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3054 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3055 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3056 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3057
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3058
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3059
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3060 /***************************** TypeQualified *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3061
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3062 TypeQualified::TypeQualified(TY ty, Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3063 : Type(ty, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3064 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3065 this->loc = loc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3066 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3067
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3068 void TypeQualified::syntaxCopyHelper(TypeQualified *t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3069 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3070 //printf("TypeQualified::syntaxCopyHelper(%s) %s\n", t->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3071 idents.setDim(t->idents.dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3072 for (int i = 0; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3073 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3074 Identifier *id = (Identifier *)t->idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3075 if (id->dyncast() == DYNCAST_DSYMBOL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3076 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3077 TemplateInstance *ti = (TemplateInstance *)id;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3078
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3079 ti = (TemplateInstance *)ti->syntaxCopy(NULL);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3080 id = (Identifier *)ti;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3081 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3082 idents.data[i] = id;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3083 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3084 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3085
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3086
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3087 void TypeQualified::addIdent(Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3088 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3089 idents.push(ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3090 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3091
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3092 void TypeQualified::toCBuffer2Helper(OutBuffer *buf, HdrGenState *hgs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3093 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3094 int i;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3095
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3096 for (i = 0; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3097 { Identifier *id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3098
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3099 buf->writeByte('.');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3100
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3101 if (id->dyncast() == DYNCAST_DSYMBOL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3102 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3103 TemplateInstance *ti = (TemplateInstance *)id;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3104 ti->toCBuffer(buf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3105 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3106 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3107 buf->writestring(id->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3108 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3109 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3110
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3111 d_uns64 TypeQualified::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3112 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3113 error(this->loc, "size of type %s is not known", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3114 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3115 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3116
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3117 /*************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3118 * Takes an array of Identifiers and figures out if
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3119 * it represents a Type or an Expression.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3120 * Output:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3121 * if expression, *pe is set
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3122 * if type, *pt is set
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3123 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3124
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3125 void TypeQualified::resolveHelper(Loc loc, Scope *sc,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3126 Dsymbol *s, Dsymbol *scopesym,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3127 Expression **pe, Type **pt, Dsymbol **ps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3128 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3129 Identifier *id = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3130 int i;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3131 VarDeclaration *v;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3132 EnumMember *em;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3133 TupleDeclaration *td;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3134 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3135 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3136
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3137 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3138 printf("TypeQualified::resolveHelper(sc = %p, idents = '%s')\n", sc, toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3139 if (scopesym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3140 printf("\tscopesym = '%s'\n", scopesym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3141 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3142 *pe = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3143 *pt = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3144 *ps = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3145 if (s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3146 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3147 //printf("\t1: s = '%s' %p, kind = '%s'\n",s->toChars(), s, s->kind());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3148 s = s->toAlias();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3149 //printf("\t2: s = '%s' %p, kind = '%s'\n",s->toChars(), s, s->kind());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3150 for (i = 0; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3151 { Dsymbol *sm;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3152
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3153 id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3154 sm = s->searchX(loc, sc, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3155 //printf("\t3: s = '%s' %p, kind = '%s'\n",s->toChars(), s, s->kind());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3156 //printf("getType = '%s'\n", s->getType()->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3157 if (!sm)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3158 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3159 v = s->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3160 if (v && id == Id::length)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3161 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3162 if (v->isConst() && v->getExpInitializer())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3163 { e = v->getExpInitializer()->exp;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3164 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3165 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3166 e = new VarExp(loc, v);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3167 t = e->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3168 if (!t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3169 goto Lerror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3170 goto L3;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3171 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3172 t = s->getType();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3173 if (!t && s->isDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3174 t = s->isDeclaration()->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3175 if (t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3176 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3177 sm = t->toDsymbol(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3178 if (sm)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3179 { sm = sm->search(loc, id, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3180 if (sm)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3181 goto L2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3182 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3183 //e = t->getProperty(loc, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3184 e = new TypeExp(loc, t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3185 e = t->dotExp(sc, e, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3186 i++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3187 L3:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3188 for (; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3189 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3190 id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3191 //printf("e: '%s', id: '%s', type = %p\n", e->toChars(), id->toChars(), e->type);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3192 e = e->type->dotExp(sc, e, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3193 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3194 *pe = e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3195 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3196 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3197 Lerror:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3198 error(loc, "identifier '%s' of '%s' is not defined", id->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3199 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3200 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3201 L2:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3202 s = sm->toAlias();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3203 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3204
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3205 v = s->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3206 if (v)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3207 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3208 // It's not a type, it's an expression
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3209 if (v->isConst() && v->getExpInitializer())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3210 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3211 ExpInitializer *ei = v->getExpInitializer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3212 assert(ei);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3213 *pe = ei->exp->copy(); // make copy so we can change loc
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3214 (*pe)->loc = loc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3215 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3216 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3217 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3218 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3219 WithScopeSymbol *withsym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3220 if (scopesym && (withsym = scopesym->isWithScopeSymbol()) != NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3221 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3222 // Same as wthis.ident
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3223 e = new VarExp(loc, withsym->withstate->wthis);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3224 e = new DotIdExp(loc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3225 //assert(0); // BUG: should handle this
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3226 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3227 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3228 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3229 *pe = new VarExp(loc, v);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3230 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3231 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3232 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3233 em = s->isEnumMember();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3234 if (em)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3235 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3236 // It's not a type, it's an expression
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3237 *pe = em->value->copy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3238 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3239 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3240
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3241 L1:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3242 t = s->getType();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3243 if (!t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3244 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3245 // If the symbol is an import, try looking inside the import
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3246 Import *si;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3247
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3248 si = s->isImport();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3249 if (si)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3250 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3251 s = si->search(loc, s->ident, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3252 if (s && s != si)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3253 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3254 s = si;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3255 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3256 *ps = s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3257 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3258 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3259 if (t->ty == Tinstance && t != this && !t->deco)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3260 { error(loc, "forward reference to '%s'", t->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3261 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3262 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3263
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3264 if (t != this)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3265 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3266 if (t->reliesOnTident())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3267 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3268 Scope *scx;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3269
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3270 for (scx = sc; 1; scx = scx->enclosing)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3271 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3272 if (!scx)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3273 { error(loc, "forward reference to '%s'", t->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3274 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3275 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3276 if (scx->scopesym == scopesym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3277 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3278 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3279 t = t->semantic(loc, scx);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3280 //((TypeIdentifier *)t)->resolve(loc, scx, pe, &t, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3281 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3282 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3283 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3284 *pt = t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3285 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3286 *pt = t->merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3287 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3288 if (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3289 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3290 error(loc, "identifier '%s' is not defined", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3291 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3292 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3293
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3294 /***************************** TypeIdentifier *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3295
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3296 TypeIdentifier::TypeIdentifier(Loc loc, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3297 : TypeQualified(Tident, loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3298 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3299 this->ident = ident;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3300 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3301
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3302
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3303 Type *TypeIdentifier::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3304 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3305 TypeIdentifier *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3306
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3307 t = new TypeIdentifier(loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3308 t->syntaxCopyHelper(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3309 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3310 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3311
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3312 void TypeIdentifier::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3313 { unsigned len;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3314 char *name;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3315
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3316 name = ident->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3317 len = strlen(name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3318 buf->printf("%c%d%s", mangleChar[ty], len, name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3319 //buf->printf("%c%s", mangleChar[ty], name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3320 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3321
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3322 void TypeIdentifier::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3323 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3324 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3325 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3326 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3327 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3328 buf->writestring(this->ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3329 toCBuffer2Helper(buf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3330 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3331
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3332 /*************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3333 * Takes an array of Identifiers and figures out if
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3334 * it represents a Type or an Expression.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3335 * Output:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3336 * if expression, *pe is set
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3337 * if type, *pt is set
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3338 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3339
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3340 void TypeIdentifier::resolve(Loc loc, Scope *sc, Expression **pe, Type **pt, Dsymbol **ps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3341 { Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3342 Dsymbol *scopesym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3343
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3344 //printf("TypeIdentifier::resolve(sc = %p, idents = '%s')\n", sc, toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3345 s = sc->search(loc, ident, &scopesym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3346 resolveHelper(loc, sc, s, scopesym, pe, pt, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3347 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3348
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3349 /*****************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3350 * See if type resolves to a symbol, if so,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3351 * return that symbol.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3352 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3353
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3354 Dsymbol *TypeIdentifier::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3355 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3356 //printf("TypeIdentifier::toDsymbol('%s')\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3357 if (!sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3358 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3359 //printf("ident = '%s'\n", ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3360
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3361 Dsymbol *scopesym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3362 Dsymbol *s = sc->search(loc, ident, &scopesym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3363 if (s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3364 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3365 for (int i = 0; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3366 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3367 Identifier *id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3368 s = s->searchX(loc, sc, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3369 if (!s) // failed to find a symbol
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3370 { //printf("\tdidn't find a symbol\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3371 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3372 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3373 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3374 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3375 return s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3376 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3377
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3378 Type *TypeIdentifier::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3379 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3380 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3381 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3382 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3383
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3384 //printf("TypeIdentifier::semantic(%s)\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3385 resolve(loc, sc, &e, &t, &s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3386 if (t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3387 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3388 //printf("\tit's a type %d, %s, %s\n", t->ty, t->toChars(), t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3389
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3390 if (t->ty == Ttypedef)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3391 { TypeTypedef *tt = (TypeTypedef *)t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3392
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3393 if (tt->sym->sem == 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3394 error(loc, "circular reference of typedef %s", tt->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3395 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3396 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3397 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3398 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3399 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3400 if (!global.gag)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3401 printf("1: ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3402 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3403 if (s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3404 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3405 s->error(loc, "is used as a type");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3406 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3407 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3408 error(loc, "%s is used as a type", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3409 t = tvoid;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3410 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3411 //t->print();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3412 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3413 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3414
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3415 Type *TypeIdentifier::reliesOnTident()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3416 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3417 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3418 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3419
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3420 Expression *TypeIdentifier::toExpression()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3421 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3422 Expression *e = new IdentifierExp(loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3423 for (int i = 0; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3424 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3425 Identifier *id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3426 e = new DotIdExp(loc, e, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3427 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3428
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3429 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3430 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3431
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3432 /***************************** TypeInstance *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3433
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3434 TypeInstance::TypeInstance(Loc loc, TemplateInstance *tempinst)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3435 : TypeQualified(Tinstance, loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3436 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3437 this->tempinst = tempinst;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3438 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3439
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3440 Type *TypeInstance::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3441 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3442 //printf("TypeInstance::syntaxCopy() %s, %d\n", toChars(), idents.dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3443 TypeInstance *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3444
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3445 t = new TypeInstance(loc, (TemplateInstance *)tempinst->syntaxCopy(NULL));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3446 t->syntaxCopyHelper(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3447 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3448 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3449
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3450
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3451 void TypeInstance::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3452 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3453 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3454 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3455 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3456 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3457 tempinst->toCBuffer(buf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3458 toCBuffer2Helper(buf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3459 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3460
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3461 void TypeInstance::resolve(Loc loc, Scope *sc, Expression **pe, Type **pt, Dsymbol **ps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3462 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3463 // Note close similarity to TypeIdentifier::resolve()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3464
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3465 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3466
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3467 *pe = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3468 *pt = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3469 *ps = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3470
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3471 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3472 if (!idents.dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3473 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3474 error(loc, "template instance '%s' has no identifier", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3475 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3476 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3477 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3478 //id = (Identifier *)idents.data[0];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3479 //printf("TypeInstance::resolve(sc = %p, idents = '%s')\n", sc, id->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3480 s = tempinst;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3481 if (s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3482 s->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3483 resolveHelper(loc, sc, s, NULL, pe, pt, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3484 //printf("pt = '%s'\n", (*pt)->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3485 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3486
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3487 Type *TypeInstance::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3488 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3489 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3490 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3491 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3492
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3493 //printf("TypeInstance::semantic(%s)\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3494
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3495 if (sc->parameterSpecialization)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3496 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3497 unsigned errors = global.errors;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3498 global.gag++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3499
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3500 resolve(loc, sc, &e, &t, &s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3501
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3502 global.gag--;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3503 if (errors != global.errors)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3504 { if (global.gag == 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3505 global.errors = errors;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3506 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3507 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3508 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3509 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3510 resolve(loc, sc, &e, &t, &s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3511
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3512 if (!t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3513 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3514 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3515 printf("2: ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3516 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3517 error(loc, "%s is used as a type", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3518 t = tvoid;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3519 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3520 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3521 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3522
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3523
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3524 /***************************** TypeTypeof *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3525
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3526 TypeTypeof::TypeTypeof(Loc loc, Expression *exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3527 : TypeQualified(Ttypeof, loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3528 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3529 this->exp = exp;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3530 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3531
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3532 Type *TypeTypeof::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3533 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3534 TypeTypeof *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3535
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3536 t = new TypeTypeof(loc, exp->syntaxCopy());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3537 t->syntaxCopyHelper(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3538 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3539 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3540
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3541 Dsymbol *TypeTypeof::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3542 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3543 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3544
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3545 t = semantic(0, sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3546 if (t == this)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3547 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3548 return t->toDsymbol(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3549 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3550
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3551 void TypeTypeof::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3552 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3553 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3554 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3555 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3556 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3557 buf->writestring("typeof(");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3558 exp->toCBuffer(buf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3559 buf->writeByte(')');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3560 toCBuffer2Helper(buf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3561 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3562
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3563 Type *TypeTypeof::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3564 { Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3565 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3566
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3567 //printf("TypeTypeof::semantic() %p\n", this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3568
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3569 //static int nest; if (++nest == 50) *(char*)0=0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3570
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3571 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3572 /* Special case for typeof(this) and typeof(super) since both
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3573 * should work even if they are not inside a non-static member function
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3574 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3575 if (exp->op == TOKthis || exp->op == TOKsuper)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3576 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3577 // Find enclosing struct or class
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3578 for (Dsymbol *s = sc->parent; 1; s = s->parent)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3579 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3580 ClassDeclaration *cd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3581 StructDeclaration *sd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3582
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3583 if (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3584 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3585 error(loc, "%s is not in a struct or class scope", exp->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3586 goto Lerr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3587 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3588 cd = s->isClassDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3589 if (cd)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3590 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3591 if (exp->op == TOKsuper)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3592 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3593 cd = cd->baseClass;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3594 if (!cd)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3595 { error(loc, "class %s has no 'super'", s->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3596 goto Lerr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3597 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3598 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3599 t = cd->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3600 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3601 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3602 sd = s->isStructDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3603 if (sd)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3604 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3605 if (exp->op == TOKsuper)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3606 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3607 error(loc, "struct %s has no 'super'", sd->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3608 goto Lerr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3609 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3610 t = sd->type->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3611 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3612 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3613 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3614 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3615 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3616 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3617 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3618 sc->intypeof++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3619 exp = exp->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3620 sc->intypeof--;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3621 t = exp->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3622 if (!t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3623 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3624 error(loc, "expression (%s) has no type", exp->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3625 goto Lerr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3626 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3627 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3628
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3629 if (idents.dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3630 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3631 Dsymbol *s = t->toDsymbol(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3632 for (size_t i = 0; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3633 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3634 if (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3635 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3636 Identifier *id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3637 s = s->searchX(loc, sc, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3638 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3639 if (s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3640 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3641 t = s->getType();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3642 if (!t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3643 { error(loc, "%s is not a type", s->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3644 goto Lerr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3645 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3646 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3647 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3648 { error(loc, "cannot resolve .property for %s", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3649 goto Lerr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3650 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3651 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3652 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3653
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3654 Lerr:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3655 return tvoid;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3656 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3657
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3658 d_uns64 TypeTypeof::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3659 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3660 if (exp->type)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3661 return exp->type->size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3662 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3663 return TypeQualified::size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3664 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3665
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3666
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3667
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3668 /***************************** TypeEnum *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3669
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3670 TypeEnum::TypeEnum(EnumDeclaration *sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3671 : Type(Tenum, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3672 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3673 this->sym = sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3674 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3675
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3676 char *TypeEnum::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3677 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3678 return sym->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3679 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3680
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3681 Type *TypeEnum::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3682 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3683 sym->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3684 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3685 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3686
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3687 d_uns64 TypeEnum::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3688 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3689 if (!sym->memtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3690 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3691 error(loc, "enum %s is forward referenced", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3692 return 4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3693 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3694 return sym->memtype->size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3695 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3696
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3697 unsigned TypeEnum::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3698 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3699 if (!sym->memtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3700 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3701 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3702 printf("1: ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3703 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3704 error(0, "enum %s is forward referenced", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3705 return 4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3706 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3707 return sym->memtype->alignsize();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3708 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3709
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3710 Dsymbol *TypeEnum::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3711 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3712 return sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3713 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3714
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3715 Type *TypeEnum::toBasetype()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3716 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3717 if (!sym->memtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3718 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3719 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3720 printf("2: ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3721 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3722 error(sym->loc, "enum %s is forward referenced", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3723 return tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3724 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3725 return sym->memtype->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3726 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3727
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3728 void TypeEnum::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3729 { char *name;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3730
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3731 name = sym->mangle();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3732 // if (name[0] == '_' && name[1] == 'D')
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3733 // name += 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3734 buf->printf("%c%s", mangleChar[ty], name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3735 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3736
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3737 void TypeEnum::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3738 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3739 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3740 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3741 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3742 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3743 buf->writestring(sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3744 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3745
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3746 Expression *TypeEnum::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3747 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3748 EnumMember *m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3749 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3750 Expression *em;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3751
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3752 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3753 printf("TypeEnum::dotExp(e = '%s', ident = '%s') '%s'\n", e->toChars(), ident->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3754 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3755 if (!sym->symtab)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3756 goto Lfwd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3757 s = sym->symtab->lookup(ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3758 if (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3759 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3760 return getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3761 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3762 m = s->isEnumMember();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3763 em = m->value->copy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3764 em->loc = e->loc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3765 return em;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3766
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3767 Lfwd:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3768 error(e->loc, "forward reference of %s.%s", toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3769 return new IntegerExp(0, 0, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3770 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3771
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3772 Expression *TypeEnum::getProperty(Loc loc, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3773 { Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3774
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3775 if (ident == Id::max)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3776 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3777 if (!sym->symtab)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3778 goto Lfwd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3779 e = new IntegerExp(0, sym->maxval, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3780 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3781 else if (ident == Id::min)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3782 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3783 if (!sym->symtab)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3784 goto Lfwd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3785 e = new IntegerExp(0, sym->minval, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3786 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3787 else if (ident == Id::init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3788 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3789 if (!sym->symtab)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3790 goto Lfwd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3791 e = defaultInit(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3792 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3793 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3794 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3795 if (!sym->memtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3796 goto Lfwd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3797 e = sym->memtype->getProperty(loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3798 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3799 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3800
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3801 Lfwd:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3802 error(loc, "forward reference of %s.%s", toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3803 return new IntegerExp(0, 0, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3804 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3805
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3806 int TypeEnum::isintegral()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3807 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3808 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3809 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3810
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3811 int TypeEnum::isfloating()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3812 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3813 return 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3814 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3815
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3816 int TypeEnum::isunsigned()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3817 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3818 return sym->memtype->isunsigned();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3819 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3820
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3821 int TypeEnum::isscalar()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3822 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3823 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3824 //return sym->memtype->isscalar();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3825 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3826
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3827 MATCH TypeEnum::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3828 { MATCH m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3829
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3830 //printf("TypeEnum::implicitConvTo()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3831 if (this->equals(to))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3832 m = MATCHexact; // exact match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3833 else if (sym->memtype->implicitConvTo(to))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3834 m = MATCHconvert; // match with conversions
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3835 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3836 m = MATCHnomatch; // no match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3837 return m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3838 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3839
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3840 Expression *TypeEnum::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3841 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3842 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3843 printf("TypeEnum::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3844 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3845 // Initialize to first member of enum
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3846 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3847 e = new IntegerExp(loc, sym->defaultval, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3848 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3849 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3850
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3851 int TypeEnum::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3852 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3853 return (sym->defaultval == 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3854 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3855
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3856 int TypeEnum::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3857 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3858 return toBasetype()->hasPointers();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3859 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3860
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3861 /***************************** TypeTypedef *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3862
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3863 TypeTypedef::TypeTypedef(TypedefDeclaration *sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3864 : Type(Ttypedef, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3865 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3866 this->sym = sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3867 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3868
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3869 Type *TypeTypedef::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3870 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3871 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3872 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3873
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3874 char *TypeTypedef::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3875 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3876 return sym->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3877 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3878
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3879 Type *TypeTypedef::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3880 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3881 //printf("TypeTypedef::semantic(%s), sem = %d\n", toChars(), sym->sem);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3882 sym->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3883 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3884 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3885
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3886 d_uns64 TypeTypedef::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3887 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3888 return sym->basetype->size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3889 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3890
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3891 unsigned TypeTypedef::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3892 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3893 return sym->basetype->alignsize();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3894 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3895
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3896 Dsymbol *TypeTypedef::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3897 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3898 return sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3899 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3900
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3901 void TypeTypedef::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3902 { unsigned len;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3903 char *name;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3904
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3905 name = sym->mangle();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3906 // if (name[0] == '_' && name[1] == 'D')
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3907 // name += 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3908 //len = strlen(name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3909 //buf->printf("%c%d%s", mangleChar[ty], len, name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3910 buf->printf("%c%s", mangleChar[ty], name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3911 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3912
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3913 void TypeTypedef::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3914 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3915 //printf("TypeTypedef::toCBuffer2() '%s'\n", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3916 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3917 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3918 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3919 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3920 buf->writestring(sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3921 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3922
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3923 Expression *TypeTypedef::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3924 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3925 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3926 printf("TypeTypedef::dotExp(e = '%s', ident = '%s') '%s'\n", e->toChars(), ident->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3927 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3928 if (ident == Id::init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3929 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3930 return Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3931 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3932 return sym->basetype->dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3933 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3934
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3935 Expression *TypeTypedef::getProperty(Loc loc, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3936 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3937 if (ident == Id::init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3938 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3939 return Type::getProperty(loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3940 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3941 return sym->basetype->getProperty(loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3942 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3943
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3944 int TypeTypedef::isbit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3945 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3946 return sym->basetype->isbit();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3947 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3948
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3949 int TypeTypedef::isintegral()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3950 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3951 //printf("TypeTypedef::isintegral()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3952 //printf("sym = '%s'\n", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3953 //printf("basetype = '%s'\n", sym->basetype->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3954 return sym->basetype->isintegral();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3955 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3956
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3957 int TypeTypedef::isfloating()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3958 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3959 return sym->basetype->isfloating();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3960 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3961
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3962 int TypeTypedef::isreal()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3963 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3964 return sym->basetype->isreal();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3965 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3966
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3967 int TypeTypedef::isimaginary()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3968 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3969 return sym->basetype->isimaginary();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3970 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3971
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3972 int TypeTypedef::iscomplex()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3973 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3974 return sym->basetype->iscomplex();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3975 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3976
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3977 int TypeTypedef::isunsigned()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3978 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3979 return sym->basetype->isunsigned();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3980 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3981
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3982 int TypeTypedef::isscalar()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3983 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3984 return sym->basetype->isscalar();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3985 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3986
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3987 int TypeTypedef::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3988 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3989 return sym->basetype->checkBoolean();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3990 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3991
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3992 Type *TypeTypedef::toBasetype()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3993 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3994 if (sym->inuse)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3995 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3996 sym->error("circular definition");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3997 sym->basetype = Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3998 return Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3999 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4000 sym->inuse = 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4001 Type *t = sym->basetype->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4002 sym->inuse = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4003 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4004 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4005
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4006 MATCH TypeTypedef::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4007 { MATCH m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4008
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4009 //printf("TypeTypedef::implicitConvTo()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4010 if (this->equals(to))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4011 m = MATCHexact; // exact match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4012 else if (sym->basetype->implicitConvTo(to))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4013 m = MATCHconvert; // match with conversions
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4014 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4015 m = MATCHnomatch; // no match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4016 return m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4017 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4018
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4019 Expression *TypeTypedef::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4020 { Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4021 Type *bt;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4022
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4023 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4024 printf("TypeTypedef::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4025 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4026 if (sym->init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4027 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4028 //sym->init->toExpression()->print();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4029 return sym->init->toExpression();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4030 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4031 bt = sym->basetype;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4032 e = bt->defaultInit(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4033 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4034 while (bt->ty == Tsarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4035 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4036 e->type = bt->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4037 bt = bt->next->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4038 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4039 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4040 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4041
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4042 int TypeTypedef::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4043 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4044 if (sym->init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4045 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4046 if (sym->init->isVoidInitializer())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4047 return 1; // initialize voids to 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4048 Expression *e = sym->init->toExpression();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4049 if (e && e->isBool(FALSE))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4050 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4051 return 0; // assume not
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4052 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4053 if (sym->inuse)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4054 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4055 sym->error("circular definition");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4056 sym->basetype = Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4057 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4058 sym->inuse = 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4059 int result = sym->basetype->isZeroInit();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4060 sym->inuse = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4061 return result;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4062 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4063
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4064 int TypeTypedef::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4065 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4066 return toBasetype()->hasPointers();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4067 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4068
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4069 /***************************** TypeStruct *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4070
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4071 TypeStruct::TypeStruct(StructDeclaration *sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4072 : Type(Tstruct, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4073 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4074 this->sym = sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4075 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4076
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4077 char *TypeStruct::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4078 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4079 //printf("sym.parent: %s, deco = %s\n", sym->parent->toChars(), deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4080 TemplateInstance *ti = sym->parent->isTemplateInstance();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4081 if (ti && ti->toAlias() == sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4082 return ti->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4083 return sym->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4084 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4085
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4086 Type *TypeStruct::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4087 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4088 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4089 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4090
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4091 Type *TypeStruct::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4092 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4093 //printf("TypeStruct::semantic('%s')\n", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4094
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4095 /* Cannot do semantic for sym because scope chain may not
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4096 * be right.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4097 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4098 //sym->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4099
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4100 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4101 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4102
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4103 d_uns64 TypeStruct::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4104 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4105 return sym->size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4106 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4107
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4108 unsigned TypeStruct::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4109 { unsigned sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4110
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4111 sym->size(0); // give error for forward references
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4112 sz = sym->alignsize;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4113 if (sz > sym->structalign)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4114 sz = sym->structalign;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4115 return sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4116 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4117
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4118 Dsymbol *TypeStruct::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4119 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4120 return sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4121 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4122
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4123 void TypeStruct::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4124 { unsigned len;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4125 char *name;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4126
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4127 name = sym->mangle();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4128 //printf("TypeStruct::toDecoBuffer('%s') = '%s'\n", toChars(), name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4129 // if (name[0] == '_' && name[1] == 'D')
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4130 // name += 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4131 //len = strlen(name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4132 //buf->printf("%c%d%s", mangleChar[ty], len, name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4133 buf->printf("%c%s", mangleChar[ty], name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4134 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4135
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4136 void TypeStruct::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4137 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4138 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4139 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4140 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4141 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4142 TemplateInstance *ti = sym->parent->isTemplateInstance();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4143 if (ti && ti->toAlias() == sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4144 buf->writestring(ti->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4145 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4146 buf->writestring(sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4147 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4148
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4149 Expression *TypeStruct::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4150 { unsigned offset;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4151
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4152 Expression *b;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4153 VarDeclaration *v;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4154 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4155 DotVarExp *de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4156 Declaration *d;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4157
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4158 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4159 printf("TypeStruct::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4160 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4161 if (!sym->members)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4162 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4163 error(e->loc, "struct %s is forward referenced", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4164 return new IntegerExp(e->loc, 0, Type::tint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4165 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4166
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4167 if (ident == Id::tupleof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4168 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4169 /* Create a TupleExp
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4170 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4171 Expressions *exps = new Expressions;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4172 exps->reserve(sym->fields.dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4173 for (size_t i = 0; i < sym->fields.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4174 { VarDeclaration *v = (VarDeclaration *)sym->fields.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4175 Expression *fe = new DotVarExp(e->loc, e, v);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4176 exps->push(fe);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4177 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4178 e = new TupleExp(e->loc, exps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4179 e = e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4180 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4181 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4182
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4183 if (e->op == TOKdotexp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4184 { DotExp *de = (DotExp *)e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4185
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4186 if (de->e1->op == TOKimport)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4187 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4188 ScopeExp *se = (ScopeExp *)de->e1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4189
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4190 s = se->sds->search(e->loc, ident, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4191 e = de->e1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4192 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4193 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4194 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4195
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4196 s = sym->search(e->loc, ident, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4197 L1:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4198 if (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4199 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4200 //return getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4201 return Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4202 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4203 s = s->toAlias();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4204
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4205 v = s->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4206 if (v && v->isConst())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4207 { ExpInitializer *ei = v->getExpInitializer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4208
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4209 if (ei)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4210 { e = ei->exp->copy(); // need to copy it if it's a StringExp
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4211 e = e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4212 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4213 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4214 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4215
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4216 if (s->getType())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4217 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4218 //return new DotTypeExp(e->loc, e, s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4219 return new TypeExp(e->loc, s->getType());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4220 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4221
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4222 EnumMember *em = s->isEnumMember();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4223 if (em)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4224 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4225 assert(em->value);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4226 return em->value->copy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4227 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4228
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4229 TemplateMixin *tm = s->isTemplateMixin();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4230 if (tm)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4231 { Expression *de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4232
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4233 de = new DotExp(e->loc, e, new ScopeExp(e->loc, tm));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4234 de->type = e->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4235 return de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4236 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4237
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4238 TemplateDeclaration *td = s->isTemplateDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4239 if (td)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4240 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4241 e = new DotTemplateExp(e->loc, e, td);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4242 e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4243 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4244 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4245
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4246 TemplateInstance *ti = s->isTemplateInstance();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4247 if (ti)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4248 { if (!ti->semanticdone)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4249 ti->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4250 s = ti->inst->toAlias();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4251 if (!s->isTemplateInstance())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4252 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4253 Expression *de = new DotExp(e->loc, e, new ScopeExp(e->loc, ti));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4254 de->type = e->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4255 return de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4256 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4257
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4258 d = s->isDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4259 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4260 if (!d)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4261 printf("d = %s '%s'\n", s->kind(), s->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4262 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4263 assert(d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4264
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4265 if (e->op == TOKtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4266 { FuncDeclaration *fd = sc->func;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4267
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4268 if (d->needThis() && fd && fd->vthis)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4269 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4270 e = new DotVarExp(e->loc, new ThisExp(e->loc), d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4271 e = e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4272 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4273 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4274 if (d->isTupleDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4275 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4276 e = new TupleExp(e->loc, d->isTupleDeclaration());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4277 e = e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4278 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4279 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4280 return new VarExp(e->loc, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4281 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4282
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4283 if (d->isDataseg())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4284 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4285 // (e, d)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4286 VarExp *ve;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4287
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4288 accessCheck(e->loc, sc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4289 ve = new VarExp(e->loc, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4290 e = new CommaExp(e->loc, e, ve);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4291 e->type = d->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4292 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4293 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4294
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4295 if (v)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4296 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4297 if (v->toParent() != sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4298 sym->error(e->loc, "'%s' is not a member", v->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4299
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4300 // *(&e + offset)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4301 accessCheck(e->loc, sc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4302 b = new AddrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4303 b->type = e->type->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4304 b = new AddExp(e->loc, b, new IntegerExp(e->loc, v->offset, Type::tint32));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4305 #if IN_LLVM
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4306 // LLVMDC modification
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4307 // this is *essential*
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4308 ((AddExp*)b)->llvmFieldIndex = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4309 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4310 b->type = v->type->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4311 e = new PtrExp(e->loc, b);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4312 e->type = v->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4313 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4314 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4315
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4316 de = new DotVarExp(e->loc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4317 return de->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4318 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4319
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4320 unsigned TypeStruct::memalign(unsigned salign)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4321 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4322 sym->size(0); // give error for forward references
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4323 return sym->structalign;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4324 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4325
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4326 Expression *TypeStruct::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4327 { Symbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4328 Declaration *d;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4329
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4330 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4331 printf("TypeStruct::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4332 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4333 s = sym->toInitializer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4334 d = new SymbolDeclaration(sym->loc, s, sym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4335 assert(d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4336 d->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4337 return new VarExp(sym->loc, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4338 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4339
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4340 int TypeStruct::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4341 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4342 return sym->zeroInit;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4343 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4344
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4345 int TypeStruct::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4346 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4347 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4348 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4349
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4350 int TypeStruct::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4351 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4352 StructDeclaration *s = sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4353
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4354 sym->size(0); // give error for forward references
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4355 if (s->members)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4356 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4357 for (size_t i = 0; i < s->members->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4358 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4359 Dsymbol *sm = (Dsymbol *)s->members->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4360 if (sm->hasPointers())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4361 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4362 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4363 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4364 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4365 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4366
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4367
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4368 /***************************** TypeClass *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4369
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4370 TypeClass::TypeClass(ClassDeclaration *sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4371 : Type(Tclass, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4372 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4373 this->sym = sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4374 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4375
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4376 char *TypeClass::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4377 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4378 return sym->toPrettyChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4379 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4380
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4381 Type *TypeClass::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4382 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4383 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4384 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4385
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4386 Type *TypeClass::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4387 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4388 //printf("TypeClass::semantic(%s)\n", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4389 if (sym->scope)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4390 sym->semantic(sym->scope);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4391 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4392 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4393
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4394 d_uns64 TypeClass::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4395 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4396 return PTRSIZE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4397 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4398
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4399 Dsymbol *TypeClass::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4400 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4401 return sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4402 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4403
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4404 void TypeClass::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4405 { unsigned len;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4406 char *name;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4407
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4408 name = sym->mangle();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4409 // if (name[0] == '_' && name[1] == 'D')
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4410 // name += 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4411 //printf("TypeClass::toDecoBuffer('%s') = '%s'\n", toChars(), name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4412 //len = strlen(name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4413 //buf->printf("%c%d%s", mangleChar[ty], len, name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4414 buf->printf("%c%s", mangleChar[ty], name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4415 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4416
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4417 void TypeClass::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4418 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4419 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4420 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4421 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4422 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4423 buf->writestring(sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4424 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4425
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4426 Expression *TypeClass::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4427 { unsigned offset;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4428
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4429 Expression *b;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4430 VarDeclaration *v;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4431 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4432 DotVarExp *de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4433 Declaration *d;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4434
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4435 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4436 printf("TypeClass::dotExp(e='%s', ident='%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4437 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4438
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4439 if (e->op == TOKdotexp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4440 { DotExp *de = (DotExp *)e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4441
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4442 if (de->e1->op == TOKimport)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4443 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4444 ScopeExp *se = (ScopeExp *)de->e1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4445
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4446 s = se->sds->search(e->loc, ident, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4447 e = de->e1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4448 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4449 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4450 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4451
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4452 if (ident == Id::tupleof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4453 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4454 /* Create a TupleExp
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4455 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4456 Expressions *exps = new Expressions;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4457 exps->reserve(sym->fields.dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4458 for (size_t i = 0; i < sym->fields.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4459 { VarDeclaration *v = (VarDeclaration *)sym->fields.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4460 Expression *fe = new DotVarExp(e->loc, e, v);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4461 exps->push(fe);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4462 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4463 e = new TupleExp(e->loc, exps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4464 e = e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4465 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4466 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4467
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4468 s = sym->search(e->loc, ident, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4469 L1:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4470 if (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4471 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4472 // See if it's a base class
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4473 ClassDeclaration *cbase;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4474 for (cbase = sym->baseClass; cbase; cbase = cbase->baseClass)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4475 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4476 if (cbase->ident->equals(ident))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4477 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4478 e = new DotTypeExp(0, e, cbase);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4479 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4480 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4481 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4482
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4483 if (ident == Id::classinfo)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4484 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4485 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4486
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4487 assert(ClassDeclaration::classinfo);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4488 t = ClassDeclaration::classinfo->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4489 if (e->op == TOKtype || e->op == TOKdottype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4490 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4491 /* For type.classinfo, we know the classinfo
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4492 * at compile time.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4493 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4494 if (!sym->vclassinfo)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4495 sym->vclassinfo = new ClassInfoDeclaration(sym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4496 e = new VarExp(e->loc, sym->vclassinfo);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4497 e = e->addressOf(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4498 e->type = t; // do this so we don't get redundant dereference
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4499 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4500 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4501 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4502 /* For class objects, the classinfo reference is the first
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4503 * entry in the vtbl[]
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4504 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4505 #if IN_LLVM
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4506
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4507 Type* ct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4508 if (sym->isInterfaceDeclaration()) {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4509 ct = t->pointerTo()->pointerTo()->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4510 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4511 else {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4512 ct = t->pointerTo()->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4513 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4514
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4515 e = e->castTo(sc, ct);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4516 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4517 e->type = ct->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4518 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4519 e->type = ct->next->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4520
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4521 if (sym->isInterfaceDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4522 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4523 if (sym->isCOMinterface())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4524 { /* COM interface vtbl[]s are different in that the
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4525 * first entry is always pointer to QueryInterface().
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4526 * We can't get a .classinfo for it.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4527 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4528 error(e->loc, "no .classinfo for COM interface objects");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4529 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4530 /* For an interface, the first entry in the vtbl[]
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4531 * is actually a pointer to an instance of struct Interface.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4532 * The first member of Interface is the .classinfo,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4533 * so add an extra pointer indirection.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4534 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4535 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4536 e->type = ct->next->next->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4537 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4538
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4539 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4540
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4541 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4542 e->type = t->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4543 if (sym->isInterfaceDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4544 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4545 if (sym->isCOMinterface())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4546 { /* COM interface vtbl[]s are different in that the
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4547 * first entry is always pointer to QueryInterface().
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4548 * We can't get a .classinfo for it.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4549 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4550 error(e->loc, "no .classinfo for COM interface objects");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4551 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4552 /* For an interface, the first entry in the vtbl[]
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4553 * is actually a pointer to an instance of struct Interface.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4554 * The first member of Interface is the .classinfo,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4555 * so add an extra pointer indirection.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4556 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4557 e->type = e->type->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4558 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4559 e->type = t->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4560 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4561 e = new PtrExp(e->loc, e, t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4562
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4563 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4564 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4565 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4566 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4567
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4568 if (ident == Id::typeinfo)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4569 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4570 if (!global.params.useDeprecated)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4571 error(e->loc, ".typeinfo deprecated, use typeid(type)");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4572 return getTypeInfo(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4573 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4574 if (ident == Id::outer && sym->vthis)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4575 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4576 s = sym->vthis;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4577 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4578 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4579 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4580 //return getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4581 return Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4582 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4583 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4584 s = s->toAlias();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4585 v = s->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4586 if (v && v->isConst())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4587 { ExpInitializer *ei = v->getExpInitializer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4588
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4589 if (ei)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4590 { e = ei->exp->copy(); // need to copy it if it's a StringExp
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4591 e = e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4592 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4593 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4594 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4595
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4596 if (s->getType())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4597 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4598 // if (e->op == TOKtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4599 return new TypeExp(e->loc, s->getType());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4600 // return new DotTypeExp(e->loc, e, s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4601 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4602
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4603 EnumMember *em = s->isEnumMember();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4604 if (em)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4605 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4606 assert(em->value);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4607 return em->value->copy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4608 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4609
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4610 TemplateMixin *tm = s->isTemplateMixin();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4611 if (tm)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4612 { Expression *de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4613
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4614 de = new DotExp(e->loc, e, new ScopeExp(e->loc, tm));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4615 de->type = e->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4616 return de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4617 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4618
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4619 TemplateDeclaration *td = s->isTemplateDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4620 if (td)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4621 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4622 e = new DotTemplateExp(e->loc, e, td);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4623 e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4624 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4625 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4626
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4627 TemplateInstance *ti = s->isTemplateInstance();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4628 if (ti)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4629 { if (!ti->semanticdone)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4630 ti->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4631 s = ti->inst->toAlias();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4632 if (!s->isTemplateInstance())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4633 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4634 Expression *de = new DotExp(e->loc, e, new ScopeExp(e->loc, ti));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4635 de->type = e->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4636 return de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4637 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4638
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4639 d = s->isDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4640 if (!d)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4641 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4642 e->error("%s.%s is not a declaration", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4643 return new IntegerExp(e->loc, 1, Type::tint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4644 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4645
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4646 if (e->op == TOKtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4647 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4648 VarExp *ve;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4649
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4650 if (d->needThis() && (hasThis(sc) || !d->isFuncDeclaration()))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4651 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4652 if (sc->func)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4653 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4654 ClassDeclaration *thiscd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4655 thiscd = sc->func->toParent()->isClassDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4656
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4657 if (thiscd)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4658 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4659 ClassDeclaration *cd = e->type->isClassHandle();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4660
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4661 if (cd == thiscd)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4662 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4663 e = new ThisExp(e->loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4664 e = new DotTypeExp(e->loc, e, cd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4665 de = new DotVarExp(e->loc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4666 e = de->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4667 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4668 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4669 else if ((!cd || !cd->isBaseOf(thiscd, NULL)) &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4670 !d->isFuncDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4671 e->error("'this' is required, but %s is not a base class of %s", e->type->toChars(), thiscd->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4672 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4673 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4674
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4675 de = new DotVarExp(e->loc, new ThisExp(e->loc), d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4676 e = de->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4677 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4678 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4679 else if (d->isTupleDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4680 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4681 e = new TupleExp(e->loc, d->isTupleDeclaration());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4682 e = e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4683 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4684 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4685 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4686 ve = new VarExp(e->loc, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4687 return ve;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4688 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4689
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4690 if (d->isDataseg())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4691 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4692 // (e, d)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4693 VarExp *ve;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4694
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4695 accessCheck(e->loc, sc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4696 ve = new VarExp(e->loc, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4697 e = new CommaExp(e->loc, e, ve);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4698 e->type = d->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4699 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4700 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4701
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4702 if (d->parent && d->toParent()->isModule())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4703 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4704 // (e, d)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4705 VarExp *ve;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4706
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4707 ve = new VarExp(e->loc, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4708 e = new CommaExp(e->loc, e, ve);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4709 e->type = d->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4710 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4711 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4712
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4713 de = new DotVarExp(e->loc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4714 return de->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4715 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4716
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4717 ClassDeclaration *TypeClass::isClassHandle()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4718 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4719 return sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4720 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4721
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4722 int TypeClass::isauto()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4723 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4724 return sym->isauto;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4725 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4726
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4727 int TypeClass::isBaseOf(Type *t, int *poffset)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4728 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4729 if (t->ty == Tclass)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4730 { ClassDeclaration *cd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4731
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4732 cd = ((TypeClass *)t)->sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4733 if (sym->isBaseOf(cd, poffset))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4734 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4735 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4736 return 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4737 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4738
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4739 MATCH TypeClass::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4740 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4741 //printf("TypeClass::implicitConvTo('%s')\n", to->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4742 if (this == to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4743 return MATCHexact;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4744
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4745 ClassDeclaration *cdto = to->isClassHandle();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4746 if (cdto && cdto->isBaseOf(sym, NULL))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4747 { //printf("is base\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4748 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4749 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4750
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4751 if (global.params.Dversion == 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4752 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4753 // Allow conversion to (void *)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4754 if (to->ty == Tpointer && to->next->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4755 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4756 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4757
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4758 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4759 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4760
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4761 Expression *TypeClass::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4762 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4763 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4764 printf("TypeClass::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4765 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4766 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4767 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4768 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4769 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4770 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4771
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4772 int TypeClass::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4773 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4774 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4775 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4776
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4777 int TypeClass::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4778 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4779 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4780 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4781
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4782 int TypeClass::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4783 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4784 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4785 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4786
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4787 /***************************** TypeTuple *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4788
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4789 TypeTuple::TypeTuple(Arguments *arguments)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4790 : Type(Ttuple, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4791 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4792 //printf("TypeTuple(this = %p)\n", this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4793 this->arguments = arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4794 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4795 if (arguments)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4796 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4797 for (size_t i = 0; i < arguments->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4798 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4799 Argument *arg = (Argument *)arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4800 assert(arg && arg->type);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4801 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4802 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4803 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4804 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4805
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4806 /****************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4807 * Form TypeTuple from the types of the expressions.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4808 * Assume exps[] is already tuple expanded.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4809 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4810
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4811 TypeTuple::TypeTuple(Expressions *exps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4812 : Type(Ttuple, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4813 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4814 Arguments *arguments = new Arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4815 if (exps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4816 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4817 arguments->setDim(exps->dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4818 for (size_t i = 0; i < exps->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4819 { Expression *e = (Expression *)exps->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4820 if (e->type->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4821 e->error("cannot form tuple of tuples");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4822 Argument *arg = new Argument(STCin, e->type, NULL, NULL);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4823 arguments->data[i] = (void *)arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4824 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4825 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4826 this->arguments = arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4827 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4828
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4829 Type *TypeTuple::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4830 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4831 Arguments *args = Argument::arraySyntaxCopy(arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4832 Type *t = new TypeTuple(args);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4833 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4834 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4835
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4836 Type *TypeTuple::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4837 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4838 //printf("TypeTuple::semantic(this = %p)\n", this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4839 if (!deco)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4840 deco = merge()->deco;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4841
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4842 /* Don't return merge(), because a tuple with one type has the
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4843 * same deco as that type.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4844 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4845 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4846 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4847
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4848 int TypeTuple::equals(Object *o)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4849 { Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4850
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4851 t = (Type *)o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4852 //printf("TypeTuple::equals(%s, %s)\n", toChars(), t->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4853 if (this == t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4854 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4855 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4856 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4857 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4858 { TypeTuple *tt = (TypeTuple *)t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4859
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4860 if (arguments->dim == tt->arguments->dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4861 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4862 for (size_t i = 0; i < tt->arguments->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4863 { Argument *arg1 = (Argument *)arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4864 Argument *arg2 = (Argument *)tt->arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4865
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4866 if (!arg1->type->equals(arg2->type))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4867 return 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4868 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4869 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4870 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4871 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4872 return 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4873 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4874
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4875 Type *TypeTuple::reliesOnTident()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4876 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4877 if (arguments)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4878 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4879 for (size_t i = 0; i < arguments->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4880 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4881 Argument *arg = (Argument *)arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4882 Type *t = arg->type->reliesOnTident();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4883 if (t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4884 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4885 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4886 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4887 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4888 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4889
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4890 void TypeTuple::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4891 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4892 Argument::argsToCBuffer(buf, hgs, arguments, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4893 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4894
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4895 void TypeTuple::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4896 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4897 //printf("TypeTuple::toDecoBuffer() this = %p\n", this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4898 OutBuffer buf2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4899 Argument::argsToDecoBuffer(&buf2, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4900 unsigned len = buf2.offset;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4901 buf->printf("%c%d%.*s", mangleChar[ty], len, len, (char *)buf2.extractData());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4902 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4903
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4904 Expression *TypeTuple::getProperty(Loc loc, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4905 { Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4906
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4907 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4908 printf("TypeTuple::getProperty(type = '%s', ident = '%s')\n", toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4909 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4910 if (ident == Id::length)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4911 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4912 e = new IntegerExp(loc, arguments->dim, Type::tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4913 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4914 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4915 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4916 error(loc, "no property '%s' for tuple '%s'", ident->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4917 e = new IntegerExp(loc, 1, Type::tint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4918 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4919 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4920 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4921
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4922 /***************************** TypeSlice *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4923
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4924 /* This is so we can slice a TypeTuple */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4925
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4926 TypeSlice::TypeSlice(Type *next, Expression *lwr, Expression *upr)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4927 : Type(Tslice, next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4928 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4929 //printf("TypeSlice[%s .. %s]\n", lwr->toChars(), upr->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4930 this->lwr = lwr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4931 this->upr = upr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4932 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4933
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4934 Type *TypeSlice::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4935 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4936 Type *t = new TypeSlice(next->syntaxCopy(), lwr->syntaxCopy(), upr->syntaxCopy());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4937 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4938 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4939
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4940 Type *TypeSlice::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4941 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4942 //printf("TypeSlice::semantic() %s\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4943 next = next->semantic(loc, sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4944 //printf("next: %s\n", next->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4945
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4946 Type *tbn = next->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4947 if (tbn->ty != Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4948 { error(loc, "can only slice tuple types, not %s", tbn->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4949 return Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4950 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4951 TypeTuple *tt = (TypeTuple *)tbn;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4952
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4953 lwr = semanticLength(sc, tbn, lwr);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4954 lwr = lwr->optimize(WANTvalue);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4955 uinteger_t i1 = lwr->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4956
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4957 upr = semanticLength(sc, tbn, upr);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4958 upr = upr->optimize(WANTvalue);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4959 uinteger_t i2 = upr->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4960
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4961 if (!(i1 <= i2 && i2 <= tt->arguments->dim))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4962 { error(loc, "slice [%ju..%ju] is out of range of [0..%u]", i1, i2, tt->arguments->dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4963 return Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4964 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4965
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4966 Arguments *args = new Arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4967 args->reserve(i2 - i1);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4968 for (size_t i = i1; i < i2; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4969 { Argument *arg = (Argument *)tt->arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4970 args->push(arg);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4971 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4972
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4973 return new TypeTuple(args);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4974 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4975
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4976 void TypeSlice::resolve(Loc loc, Scope *sc, Expression **pe, Type **pt, Dsymbol **ps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4977 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4978 next->resolve(loc, sc, pe, pt, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4979 if (*pe)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4980 { // It's really a slice expression
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4981 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4982 e = new SliceExp(loc, *pe, lwr, upr);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4983 *pe = e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4984 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4985 else if (*ps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4986 { Dsymbol *s = *ps;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4987 TupleDeclaration *td = s->isTupleDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4988 if (td)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4989 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4990 /* It's a slice of a TupleDeclaration
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4991 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4992 ScopeDsymbol *sym = new ArrayScopeSymbol(td);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4993 sym->parent = sc->scopesym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4994 sc = sc->push(sym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4995
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4996 lwr = lwr->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4997 lwr = lwr->optimize(WANTvalue);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4998 uinteger_t i1 = lwr->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4999
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5000 upr = upr->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5001 upr = upr->optimize(WANTvalue);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5002 uinteger_t i2 = upr->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5003
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5004 sc = sc->pop();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5005
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5006 if (!(i1 <= i2 && i2 <= td->objects->dim))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5007 { error(loc, "slice [%ju..%ju] is out of range of [0..%u]", i1, i2, td->objects->dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5008 goto Ldefault;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5009 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5010
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5011 if (i1 == 0 && i2 == td->objects->dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5012 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5013 *ps = td;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5014 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5015 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5016
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5017 /* Create a new TupleDeclaration which
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5018 * is a slice [i1..i2] out of the old one.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5019 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5020 Objects *objects = new Objects;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5021 objects->setDim(i2 - i1);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5022 for (size_t i = 0; i < objects->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5023 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5024 objects->data[i] = td->objects->data[(size_t)i1 + i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5025 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5026
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5027 TupleDeclaration *tds = new TupleDeclaration(loc, td->ident, objects);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5028 *ps = tds;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5029 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5030 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5031 goto Ldefault;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5032 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5033 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5034 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5035 Ldefault:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5036 Type::resolve(loc, sc, pe, pt, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5037 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5038 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5039
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5040 void TypeSlice::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5041 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5042 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5043 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5044 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5045 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5046 next->toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5047
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5048 buf->printf("[%s .. ", lwr->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5049 buf->printf("%s]", upr->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5050 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5051
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5052 /***************************** Argument *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5053
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5054 Argument::Argument(unsigned storageClass, Type *type, Identifier *ident, Expression *defaultArg)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5055 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5056 this->type = type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5057 this->ident = ident;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5058 this->storageClass = storageClass;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5059 this->defaultArg = defaultArg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5060 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5061
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5062 Argument *Argument::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5063 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5064 Argument *a = new Argument(storageClass,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5065 type ? type->syntaxCopy() : NULL,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5066 ident,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5067 defaultArg ? defaultArg->syntaxCopy() : NULL);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5068 return a;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5069 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5070
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5071 Arguments *Argument::arraySyntaxCopy(Arguments *args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5072 { Arguments *a = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5073
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5074 if (args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5075 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5076 a = new Arguments();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5077 a->setDim(args->dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5078 for (size_t i = 0; i < a->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5079 { Argument *arg = (Argument *)args->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5080
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5081 arg = arg->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5082 a->data[i] = (void *)arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5083 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5084 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5085 return a;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5086 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5087
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5088 char *Argument::argsTypesToChars(Arguments *args, int varargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5089 { OutBuffer *buf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5090
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5091 buf = new OutBuffer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5092
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5093 buf->writeByte('(');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5094 if (args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5095 { int i;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5096 OutBuffer argbuf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5097 HdrGenState hgs;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5098
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5099 for (i = 0; i < args->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5100 { Argument *arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5101
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5102 if (i)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5103 buf->writeByte(',');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5104 arg = (Argument *)args->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5105 argbuf.reset();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5106 arg->type->toCBuffer2(&argbuf, &hgs, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5107 buf->write(&argbuf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5108 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5109 if (varargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5110 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5111 if (i && varargs == 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5112 buf->writeByte(',');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5113 buf->writestring("...");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5114 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5115 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5116 buf->writeByte(')');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5117
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5118 return buf->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5119 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5120
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5121 void Argument::argsToCBuffer(OutBuffer *buf, HdrGenState *hgs, Arguments *arguments, int varargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5122 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5123 buf->writeByte('(');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5124 if (arguments)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5125 { int i;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5126 OutBuffer argbuf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5127
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5128 for (i = 0; i < arguments->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5129 { Argument *arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5130
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5131 if (i)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5132 buf->writestring(", ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5133 arg = (Argument *)arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5134 if (arg->storageClass & STCout)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5135 buf->writestring("out ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5136 else if (arg->storageClass & STCref)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5137 buf->writestring((global.params.Dversion == 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5138 ? (char *)"inout " : (char *)"ref ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5139 else if (arg->storageClass & STClazy)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5140 buf->writestring("lazy ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5141 argbuf.reset();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5142 arg->type->toCBuffer(&argbuf, arg->ident, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5143 if (arg->defaultArg)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5144 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5145 argbuf.writestring(" = ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5146 arg->defaultArg->toCBuffer(&argbuf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5147 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5148 buf->write(&argbuf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5149 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5150 if (varargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5151 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5152 if (i && varargs == 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5153 buf->writeByte(',');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5154 buf->writestring("...");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5155 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5156 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5157 buf->writeByte(')');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5158 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5160
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5161 void Argument::argsToDecoBuffer(OutBuffer *buf, Arguments *arguments)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5162 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5163 //printf("Argument::argsToDecoBuffer()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5164
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5165 // Write argument types
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5166 if (arguments)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5167 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5168 size_t dim = Argument::dim(arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5169 for (size_t i = 0; i < dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5170 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5171 Argument *arg = Argument::getNth(arguments, i);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5172 arg->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5173 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5174 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5175 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5176
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5177 /****************************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5178 * Determine if parameter is a lazy array of delegates.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5179 * If so, return the return type of those delegates.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5180 * If not, return NULL.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5181 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5182
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5183 Type *Argument::isLazyArray()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5184 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5185 // if (inout == Lazy)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5186 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5187 Type *tb = type->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5188 if (tb->ty == Tsarray || tb->ty == Tarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5189 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5190 Type *tel = tb->next->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5191 if (tel->ty == Tdelegate)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5192 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5193 TypeDelegate *td = (TypeDelegate *)tel;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5194 TypeFunction *tf = (TypeFunction *)td->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5195
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5196 if (!tf->varargs && Argument::dim(tf->parameters) == 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5197 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5198 return tf->next; // return type of delegate
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5199 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5200 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5201 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5202 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5203 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5204 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5205
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5206 void Argument::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5207 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5208 switch (storageClass & (STCin | STCout | STCref | STClazy))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5209 { case 0:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5210 case STCin:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5211 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5212 case STCout:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5213 buf->writeByte('J');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5214 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5215 case STCref:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5216 buf->writeByte('K');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5217 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5218 case STClazy:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5219 buf->writeByte('L');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5220 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5221 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5222 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5223 halt();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5224 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5225 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5226 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5227 type->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5228 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5229
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5230 /***************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5231 * Determine number of arguments, folding in tuples.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5232 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5233
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5234 size_t Argument::dim(Arguments *args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5235 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5236 size_t n = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5237 if (args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5238 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5239 for (size_t i = 0; i < args->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5240 { Argument *arg = (Argument *)args->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5241 Type *t = arg->type->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5242
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5243 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5244 { TypeTuple *tu = (TypeTuple *)t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5245 n += dim(tu->arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5246 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5247 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5248 n++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5249 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5250 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5251 return n;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5252 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5253
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5254 /***************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5255 * Get nth Argument, folding in tuples.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5256 * Returns:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5257 * Argument* nth Argument
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5258 * NULL not found, *pn gets incremented by the number
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5259 * of Arguments
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5260 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5261
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5262 Argument *Argument::getNth(Arguments *args, size_t nth, size_t *pn)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5263 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5264 if (!args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5265 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5266
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5267 size_t n = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5268 for (size_t i = 0; i < args->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5269 { Argument *arg = (Argument *)args->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5270 Type *t = arg->type->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5271
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5272 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5273 { TypeTuple *tu = (TypeTuple *)t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5274 arg = getNth(tu->arguments, nth - n, &n);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5275 if (arg)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5276 return arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5277 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5278 else if (n == nth)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5279 return arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5280 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5281 n++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5282 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5283
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5284 if (pn)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5285 *pn += n;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5286 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5287 }