annotate dmd/mtype.c @ 351:f273f5c58a9a trunk

[svn r372] Fixed extern(C++) handling now same as DMD, which is to treat it like extern(C). Fixed a problem in resolving struct types where the size of elements might not yet be known. Switched to using DMD size() instead of LLVM ABI size (TargetData).
author lindquist
date Mon, 14 Jul 2008 03:23:43 +0200
parents aaade6ded589
children 3c4460b988bd
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>
285
297690b5d4a5 [svn r306] Fixed: it's now possible to compile and link llvmdc with MinGW32 and msys on Win32 :D I tried it myself ;) Building the runtime still needs some work, but it's a step in the right direction.
lindquist
parents: 270
diff changeset
28 #elif __MINGW32__
297690b5d4a5 [svn r306] Fixed: it's now possible to compile and link llvmdc with MinGW32 and msys on Win32 :D I tried it myself ;) Building the runtime still needs some work, but it's a step in the right direction.
lindquist
parents: 270
diff changeset
29 #include <malloc.h>
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
30 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
31 //#define signbit 56
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
32 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
33
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
34 #if __APPLE__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
35 #include <math.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
36 static double zero = 0;
285
297690b5d4a5 [svn r306] Fixed: it's now possible to compile and link llvmdc with MinGW32 and msys on Win32 :D I tried it myself ;) Building the runtime still needs some work, but it's a step in the right direction.
lindquist
parents: 270
diff changeset
37 #elif __MINGW32__
297690b5d4a5 [svn r306] Fixed: it's now possible to compile and link llvmdc with MinGW32 and msys on Win32 :D I tried it myself ;) Building the runtime still needs some work, but it's a step in the right direction.
lindquist
parents: 270
diff changeset
38 #include <math.h>
297690b5d4a5 [svn r306] Fixed: it's now possible to compile and link llvmdc with MinGW32 and msys on Win32 :D I tried it myself ;) Building the runtime still needs some work, but it's a step in the right direction.
lindquist
parents: 270
diff changeset
39 static double zero = 0;
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
40 #elif __GNUC__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
41 #include <math.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
42 #include <bits/nan.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
43 #include <bits/mathdef.h>
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
44 static double zero = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
45 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
46
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
47 #include "mem.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
48
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
49 #include "dsymbol.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
50 #include "mtype.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
51 #include "scope.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
52 #include "init.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
53 #include "expression.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
54 #include "attrib.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
55 #include "declaration.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
56 #include "template.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
57 #include "id.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
58 #include "enum.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
59 #include "import.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
60 #include "aggregate.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
61 #include "hdrgen.h"
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
62
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
63 FuncDeclaration *hasThis(Scope *sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
64
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
65
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
66 #define LOGDOTEXP 0 // log ::dotExp()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
67 #define LOGDEFAULTINIT 0 // log ::defaultInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
68
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
69 // Allow implicit conversion of T[] to T*
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
70 #define IMPLICIT_ARRAY_TO_PTR global.params.useDeprecated
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
71
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
72 /* These have default values for 32 bit code, they get
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
73 * adjusted for 64 bit code.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
74 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
75
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
76 int PTRSIZE = 4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
77 #if IN_LLVM
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
78 int REALSIZE = 8;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
79 int REALPAD = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
80 #elif TARGET_LINUX
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
81 int REALSIZE = 12;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
82 int REALPAD = 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
83 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
84 int REALSIZE = 10;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
85 int REALPAD = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
86 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
87 int Tsize_t = Tuns32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
88 int Tptrdiff_t = Tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
89
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
90 /***************************** Type *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
91
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
92 ClassDeclaration *Type::typeinfo;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
93 ClassDeclaration *Type::typeinfoclass;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
94 ClassDeclaration *Type::typeinfointerface;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
95 ClassDeclaration *Type::typeinfostruct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
96 ClassDeclaration *Type::typeinfotypedef;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
97 ClassDeclaration *Type::typeinfopointer;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
98 ClassDeclaration *Type::typeinfoarray;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
99 ClassDeclaration *Type::typeinfostaticarray;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
100 ClassDeclaration *Type::typeinfoassociativearray;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
101 ClassDeclaration *Type::typeinfoenum;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
102 ClassDeclaration *Type::typeinfofunction;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
103 ClassDeclaration *Type::typeinfodelegate;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
104 ClassDeclaration *Type::typeinfotypelist;
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 Type *Type::tvoidptr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
107 Type *Type::basic[TMAX];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
108 unsigned char Type::mangleChar[TMAX];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
109 StringTable Type::stringtable;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
110
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
111
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
112 Type::Type(TY ty, Type *next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
113 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
114 this->ty = ty;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
115 this->mod = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
116 this->next = next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
117 this->deco = NULL;
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
118 #if DMDV2
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
119 this->cto = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
120 this->ito = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
121 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
122 this->pto = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
123 this->rto = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
124 this->arrayof = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
125 this->vtinfo = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
126 this->ctype = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
127 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
128
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
129 Type *Type::syntaxCopy()
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 print();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
132 fprintf(stdmsg, "ty = %d\n", ty);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
133 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
134 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
135 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
136
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
137 int Type::equals(Object *o)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
138 { Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
139
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
140 t = (Type *)o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
141 //printf("Type::equals(%s, %s)\n", toChars(), t->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
142 if (this == o ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
143 (t && deco == t->deco) && // deco strings are unique
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
144 deco != NULL) // and semantic() has been run
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
145 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
146 //printf("deco = '%s', t->deco = '%s'\n", deco, t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
147 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
148 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
149 //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
150 return 0;
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 char Type::needThisPrefix()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
154 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
155 return 'M'; // name mangling prefix for functions needing 'this'
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
158 void Type::init()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
159 { int i;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
160 int j;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
161
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
162 Lexer::initKeywords();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
163
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
164 mangleChar[Tarray] = 'A';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
165 mangleChar[Tsarray] = 'G';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
166 mangleChar[Taarray] = 'H';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
167 mangleChar[Tpointer] = 'P';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
168 mangleChar[Treference] = 'R';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
169 mangleChar[Tfunction] = 'F';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
170 mangleChar[Tident] = 'I';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
171 mangleChar[Tclass] = 'C';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
172 mangleChar[Tstruct] = 'S';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
173 mangleChar[Tenum] = 'E';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
174 mangleChar[Ttypedef] = 'T';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
175 mangleChar[Tdelegate] = 'D';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
176
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
177 mangleChar[Tnone] = 'n';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
178 mangleChar[Tvoid] = 'v';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
179 mangleChar[Tint8] = 'g';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
180 mangleChar[Tuns8] = 'h';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
181 mangleChar[Tint16] = 's';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
182 mangleChar[Tuns16] = 't';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
183 mangleChar[Tint32] = 'i';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
184 mangleChar[Tuns32] = 'k';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
185 mangleChar[Tint64] = 'l';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
186 mangleChar[Tuns64] = 'm';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
187 mangleChar[Tfloat32] = 'f';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
188 mangleChar[Tfloat64] = 'd';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
189 mangleChar[Tfloat80] = 'e';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
190
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
191 mangleChar[Timaginary32] = 'o';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
192 mangleChar[Timaginary64] = 'p';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
193 mangleChar[Timaginary80] = 'j';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
194 mangleChar[Tcomplex32] = 'q';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
195 mangleChar[Tcomplex64] = 'r';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
196 mangleChar[Tcomplex80] = 'c';
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[Tbool] = 'b';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
199 mangleChar[Tascii] = 'a';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
200 mangleChar[Twchar] = 'u';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
201 mangleChar[Tdchar] = 'w';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
202
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
203 mangleChar[Tbit] = '@';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
204 mangleChar[Tinstance] = '@';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
205 mangleChar[Terror] = '@';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
206 mangleChar[Ttypeof] = '@';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
207 mangleChar[Ttuple] = 'B';
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
208 mangleChar[Tslice] = '@';
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 for (i = 0; i < TMAX; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
211 { if (!mangleChar[i])
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
212 fprintf(stdmsg, "ty = %d\n", i);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
213 assert(mangleChar[i]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
214 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
215
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
216 // Set basic types
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
217 static TY basetab[] =
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
218 { Tvoid, Tint8, Tuns8, Tint16, Tuns16, Tint32, Tuns32, Tint64, Tuns64,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
219 Tfloat32, Tfloat64, Tfloat80,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
220 Timaginary32, Timaginary64, Timaginary80,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
221 Tcomplex32, Tcomplex64, Tcomplex80,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
222 Tbit, Tbool,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
223 Tascii, Twchar, Tdchar };
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
224
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
225 for (i = 0; i < sizeof(basetab) / sizeof(basetab[0]); i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
226 basic[basetab[i]] = new TypeBasic(basetab[i]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
227 basic[Terror] = basic[Tint32];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
228
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
229 tvoidptr = tvoid->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
230
270
d9d5d59873d8 [svn r291] Fixed a bunch of the old Phobos tests to work with Tango.
lindquist
parents: 243
diff changeset
231 // set size_t / ptrdiff_t types and pointer size
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
232 if (global.params.is64bit)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
233 {
243
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
234 Tsize_t = Tuns64;
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
235 Tptrdiff_t = Tint64;
270
d9d5d59873d8 [svn r291] Fixed a bunch of the old Phobos tests to work with Tango.
lindquist
parents: 243
diff changeset
236 PTRSIZE = 8;
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
237 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
238 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
239 {
243
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
240 Tsize_t = Tuns32;
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
241 Tptrdiff_t = Tint32;
270
d9d5d59873d8 [svn r291] Fixed a bunch of the old Phobos tests to work with Tango.
lindquist
parents: 243
diff changeset
242 PTRSIZE = 4;
243
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
243 }
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
244
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
245 // set real size and padding
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
246 if (global.params.useFP80)
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
247 {
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
248 REALSIZE = 12;
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
249 REALPAD = 2;
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
250 }
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
251 else
4d006f7b2ada [svn r260] Changed some of the LLVMDC specific code in the Tango core and did some minor cleanups.
lindquist
parents: 217
diff changeset
252 {
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
253 REALSIZE = 8;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
254 REALPAD = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
255 }
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 d_uns64 Type::size()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
259 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
260 return size(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
261 }
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 d_uns64 Type::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
264 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
265 error(loc, "no size for type %s", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
266 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
267 }
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 unsigned Type::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
270 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
271 return size(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
272 }
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 Type *Type::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
275 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
276 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
277 next = next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
278 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
279 }
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 Type *Type::pointerTo()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
282 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
283 if (!pto)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
284 { Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
285
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
286 t = new TypePointer(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
287 pto = t->merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
288 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
289 return pto;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
290 }
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 Type *Type::referenceTo()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
293 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
294 if (!rto)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
295 { Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
296
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
297 t = new TypeReference(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
298 rto = t->merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
299 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
300 return rto;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
301 }
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 Type *Type::arrayOf()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
304 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
305 if (!arrayof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
306 { Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
307
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
308 t = new TypeDArray(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
309 arrayof = t->merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
310 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
311 return arrayof;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
312 }
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 Dsymbol *Type::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
315 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
316 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
317 }
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 * If this is a shell around another type,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
321 * get that other type.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
322 */
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 Type *Type::toBasetype()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
325 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
326 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
327 }
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 * Name mangling.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
331 */
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 void Type::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
334 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
335 buf->writeByte(mangleChar[ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
336 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
337 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
338 assert(next != this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
339 //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
340 next->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
341 }
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 * For pretty-printing a type.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
346 */
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 char *Type::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
349 { OutBuffer *buf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
350 HdrGenState hgs;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
351
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
352 buf = new OutBuffer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
353 toCBuffer(buf, NULL, &hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
354 return buf->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
355 }
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 void Type::toCBuffer(OutBuffer *buf, Identifier *ident, HdrGenState *hgs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
358 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
359 toCBuffer2(buf, hgs, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
360 if (ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
361 { buf->writeByte(' ');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
362 buf->writestring(ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
363 }
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 void Type::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
367 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
368 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
369 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
370 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
371 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
372 buf->writestring(toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
373 }
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 void Type::toCBuffer3(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
376 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
377 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
378 { char *p;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
379
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
380 switch (this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
381 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
382 case 0:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
383 toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
384 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
385 case MODconst:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
386 p = "const(";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
387 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
388 case MODinvariant:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
389 p = "invariant(";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
390 L1: buf->writestring(p);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
391 toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
392 buf->writeByte(')');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
393 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
394 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
395 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
396 }
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 Type *Type::merge()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
405 { Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
406
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
407 //printf("merge(%s)\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
408 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
409 assert(t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
410 if (!deco)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
411 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
412 OutBuffer buf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
413 StringValue *sv;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
414
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
415 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
416 next = next->merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
417 toDecoBuffer(&buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
418 sv = stringtable.update((char *)buf.data, buf.offset);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
419 if (sv->ptrvalue)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
420 { t = (Type *) sv->ptrvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
421 assert(t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
422 //printf("old value, deco = '%s' %p\n", t->deco, t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
423 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
424 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
425 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
426 sv->ptrvalue = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
427 deco = sv->lstring.string;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
428 //printf("new value, deco = '%s' %p\n", t->deco, t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
429 }
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 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
432 }
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 int Type::isbit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
435 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
436 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
437 }
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 int Type::isintegral()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
440 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
441 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
442 }
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 int Type::isfloating()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
445 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
446 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
447 }
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 int Type::isreal()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
450 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
451 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
452 }
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 int Type::isimaginary()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
455 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
456 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
457 }
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 int Type::iscomplex()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
460 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
461 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
462 }
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 int Type::isscalar()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
465 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
466 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
467 }
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 int Type::isunsigned()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
470 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
471 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
472 }
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 ClassDeclaration *Type::isClassHandle()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
475 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
476 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
477 }
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 int Type::isauto()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
480 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
481 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
482 }
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 int Type::isString()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
485 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
486 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
487 }
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 int Type::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
490 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
491 return isscalar();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
492 }
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 * Check type to see if it is based on a deprecated symbol.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
496 */
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 void Type::checkDeprecated(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
499 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
500 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
501 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
502
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
503 for (t = this; t; t = t->next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
504 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
505 s = t->toDsymbol(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
506 if (s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
507 s->checkDeprecated(loc, sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
508 }
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 Expression *Type::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
513 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
514 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
515 printf("Type::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
516 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
517 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
518 }
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 int Type::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
521 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
522 return 0; // assume not
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
523 }
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 int Type::isBaseOf(Type *t, int *poffset)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
526 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
527 return 0; // assume not
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
528 }
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 * Determine if 'this' can be implicitly converted
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
532 * to type 'to'.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
533 * Returns:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
534 * 0 can't convert
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
535 * 1 can convert using implicit conversions
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
536 * 2 this and to are the same type
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
537 */
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 MATCH Type::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
540 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
541 //printf("Type::implicitConvTo(this=%p, to=%p)\n", this, to);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
542 //printf("\tthis->next=%p, to->next=%p\n", this->next, to->next);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
543 if (this == to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
544 return MATCHexact;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
545 // if (to->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
546 // return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
547 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
548 }
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 Expression *Type::getProperty(Loc loc, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
551 { Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
552
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
553 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
554 printf("Type::getProperty(type = '%s', ident = '%s')\n", toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
555 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
556 if (ident == Id::__sizeof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
557 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
558 e = new IntegerExp(loc, size(loc), Type::tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
559 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
560 else if (ident == Id::size)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
561 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
562 error(loc, ".size property should be replaced with .sizeof");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
563 e = new IntegerExp(loc, size(loc), Type::tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
564 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
565 else if (ident == Id::alignof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
566 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
567 e = new IntegerExp(loc, alignsize(), Type::tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
568 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
569 else if (ident == Id::typeinfo)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
570 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
571 if (!global.params.useDeprecated)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
572 error(loc, ".typeinfo deprecated, use typeid(type)");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
573 e = getTypeInfo(NULL);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
574 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
575 else if (ident == Id::init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
576 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
577 if (ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
578 error(loc, "void does not have an initializer");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
579 e = defaultInit(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
580 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
581 else if (ident == Id::mangleof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
582 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
583 assert(deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
584 e = new StringExp(loc, deco, strlen(deco), 'c');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
585 Scope sc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
586 e = e->semantic(&sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
587 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
588 else if (ident == Id::stringof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
589 { char *s = toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
590 e = new StringExp(loc, s, strlen(s), 'c');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
591 Scope sc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
592 e = e->semantic(&sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
593 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
594 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
595 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
596 error(loc, "no property '%s' for type '%s'", ident->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
597 e = new IntegerExp(loc, 1, Type::tint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
598 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
599 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
600 }
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 Expression *Type::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
603 { VarDeclaration *v = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
604
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
605 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
606 printf("Type::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
607 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
608 if (e->op == TOKdotvar)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
609 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
610 DotVarExp *dv = (DotVarExp *)e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
611 v = dv->var->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
612 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
613 else if (e->op == TOKvar)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
614 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
615 VarExp *ve = (VarExp *)e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
616 v = ve->var->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
617 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
618 if (v)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
619 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
620 if (ident == Id::offset)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
621 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
622 if (!global.params.useDeprecated)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
623 error(e->loc, ".offset deprecated, use .offsetof");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
624 goto Loffset;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
625 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
626 else if (ident == Id::offsetof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
627 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
628 Loffset:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
629 if (v->storage_class & STCfield)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
630 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
631 e = new IntegerExp(e->loc, v->offset, Type::tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
632 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
633 }
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 else if (ident == Id::init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
636 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
637 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
638 if (v->init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
639 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
640 if (v->init->isVoidInitializer())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
641 error(e->loc, "%s.init is void", v->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
642 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
643 { Loc loc = e->loc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
644 e = v->init->toExpression();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
645 if (e->op == TOKassign || e->op == TOKconstruct)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
646 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
647 e = ((AssignExp *)e)->e2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
648
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
649 /* Take care of case where we used a 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
650 * to initialize the struct.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
651 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
652 if (e->type == Type::tint32 &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
653 e->isBool(0) &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
654 v->type->toBasetype()->ty == Tstruct)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
655 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
656 e = v->type->defaultInit(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
657 }
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 e = e->optimize(WANTvalue | WANTinterpret);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
660 // if (!e->isConst())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
661 // error(loc, ".init cannot be evaluated at compile time");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
662 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
663 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
664 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
665 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
666 Expression *ex = defaultInit(e->loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
667 return ex;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
668 }
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 if (ident == Id::typeinfo)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
671 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
672 if (!global.params.useDeprecated)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
673 error(e->loc, ".typeinfo deprecated, use typeid(type)");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
674 e = getTypeInfo(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
675 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
676 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
677 if (ident == Id::stringof)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
678 { char *s = e->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
679 e = new StringExp(e->loc, s, strlen(s), 'c');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
680 Scope sc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
681 e = e->semantic(&sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
682 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
683 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
684 return getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
685 }
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 unsigned Type::memalign(unsigned salign)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
688 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
689 return salign;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
690 }
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 void Type::error(Loc loc, const char *format, ...)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
693 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
694 va_list ap;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
695 va_start(ap, format);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
696 ::verror(loc, format, ap);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
697 va_end( ap );
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
698 }
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 Identifier *Type::getTypeInfoIdent(int internal)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
701 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
702 // _init_10TypeInfo_%s
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
703 OutBuffer buf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
704 Identifier *id;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
705 char *name;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
706 int len;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
707
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
708 //toTypeInfoBuffer(&buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
709 if (internal)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
710 { buf.writeByte(mangleChar[ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
711 if (ty == Tarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
712 buf.writeByte(mangleChar[next->ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
713 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
714 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
715 toDecoBuffer(&buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
716 len = buf.offset;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
717 name = (char *)alloca(19 + sizeof(len) * 3 + len + 1);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
718 buf.writeByte(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
719 sprintf(name, "_D%dTypeInfo_%s6__initZ", 9 + len, buf.data);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
720 if (global.params.isWindows)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
721 name++; // C mangling will add it back in
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
722 //printf("name = %s\n", name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
723 id = Lexer::idPool(name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
724 return id;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
725 }
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 TypeBasic *Type::isTypeBasic()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
728 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
729 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
730 }
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 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
734 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
735 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
736
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
737 t = semantic(loc, sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
738 *pt = t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
739 *pe = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
740 *ps = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
741 }
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 * If one of the subtypes of this type is a TypeIdentifier,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
745 * i.e. it's an unresolved type, return that type.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
746 */
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 Type *Type::reliesOnTident()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
749 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
750 if (!next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
751 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
752 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
753 return next->reliesOnTident();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
754 }
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 * We've mistakenly parsed this as a type.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
758 * Redo it as an Expression.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
759 * NULL if cannot.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
760 */
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 Expression *Type::toExpression()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
763 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
764 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
765 }
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 * Return !=0 if type has pointers that need to
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
769 * be scanned by the GC during a collection cycle.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
770 */
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 int Type::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
773 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
774 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
775 }
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 /* ============================= TypeBasic =========================== */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
778
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
779 TypeBasic::TypeBasic(TY ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
780 : Type(ty, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
781 { char *c;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
782 char *d;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
783 unsigned flags;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
784
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
785 #define TFLAGSintegral 1
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
786 #define TFLAGSfloating 2
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
787 #define TFLAGSunsigned 4
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
788 #define TFLAGSreal 8
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
789 #define TFLAGSimaginary 0x10
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
790 #define TFLAGScomplex 0x20
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
791
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
792 flags = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
793 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
794 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
795 case Tvoid: d = Token::toChars(TOKvoid);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
796 c = "void";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
797 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
798
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
799 case Tint8: d = Token::toChars(TOKint8);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
800 c = "byte";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
801 flags |= TFLAGSintegral;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
802 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
803
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
804 case Tuns8: d = Token::toChars(TOKuns8);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
805 c = "ubyte";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
806 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
807 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
808
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
809 case Tint16: d = Token::toChars(TOKint16);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
810 c = "short";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
811 flags |= TFLAGSintegral;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
812 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
813
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
814 case Tuns16: d = Token::toChars(TOKuns16);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
815 c = "ushort";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
816 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
817 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
818
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
819 case Tint32: d = Token::toChars(TOKint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
820 c = "int";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
821 flags |= TFLAGSintegral;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
822 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
823
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
824 case Tuns32: d = Token::toChars(TOKuns32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
825 c = "uint";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
826 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
827 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
828
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
829 case Tfloat32: d = Token::toChars(TOKfloat32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
830 c = "float";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
831 flags |= TFLAGSfloating | TFLAGSreal;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
832 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
833
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
834 case Tint64: d = Token::toChars(TOKint64);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
835 c = "long";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
836 flags |= TFLAGSintegral;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
837 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
838
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
839 case Tuns64: d = Token::toChars(TOKuns64);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
840 c = "ulong";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
841 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
842 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
843
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
844 case Tfloat64: d = Token::toChars(TOKfloat64);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
845 c = "double";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
846 flags |= TFLAGSfloating | TFLAGSreal;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
847 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
848
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
849 case Tfloat80: d = Token::toChars(TOKfloat80);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
850 c = "real";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
851 flags |= TFLAGSfloating | TFLAGSreal;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
852 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
853
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
854 case Timaginary32: d = Token::toChars(TOKimaginary32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
855 c = "ifloat";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
856 flags |= TFLAGSfloating | TFLAGSimaginary;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
857 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
858
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
859 case Timaginary64: d = Token::toChars(TOKimaginary64);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
860 c = "idouble";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
861 flags |= TFLAGSfloating | TFLAGSimaginary;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
862 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
863
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
864 case Timaginary80: d = Token::toChars(TOKimaginary80);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
865 c = "ireal";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
866 flags |= TFLAGSfloating | TFLAGSimaginary;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
867 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
868
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
869 case Tcomplex32: d = Token::toChars(TOKcomplex32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
870 c = "cfloat";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
871 flags |= TFLAGSfloating | TFLAGScomplex;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
872 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
873
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
874 case Tcomplex64: d = Token::toChars(TOKcomplex64);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
875 c = "cdouble";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
876 flags |= TFLAGSfloating | TFLAGScomplex;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
877 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
878
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
879 case Tcomplex80: d = Token::toChars(TOKcomplex80);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
880 c = "creal";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
881 flags |= TFLAGSfloating | TFLAGScomplex;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
882 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
883
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 case Tbit: d = Token::toChars(TOKbit);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
886 c = "bit";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
887 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
888 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
889
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
890 case Tbool: d = "bool";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
891 c = d;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
892 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
893 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
894
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
895 case Tascii: d = Token::toChars(TOKchar);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
896 c = "char";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
897 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
898 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
899
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
900 case Twchar: d = Token::toChars(TOKwchar);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
901 c = "wchar";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
902 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
903 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
904
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
905 case Tdchar: d = Token::toChars(TOKdchar);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
906 c = "dchar";
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
907 flags |= TFLAGSintegral | TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
908 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
909
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
910 default: assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
911 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
912 this->dstring = d;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
913 this->cstring = c;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
914 this->flags = flags;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
915 merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
916 }
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 Type *TypeBasic::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
919 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
920 // No semantic analysis done on basic types, no need to copy
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
921 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
922 }
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 char *TypeBasic::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
926 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
927 return dstring;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
928 }
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 void TypeBasic::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
931 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
932 //printf("TypeBasic::toCBuffer2(mod = %d, this->mod = %d)\n", mod, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
933 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
934 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
935 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
936 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
937 buf->writestring(dstring);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
938 }
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 d_uns64 TypeBasic::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
941 { unsigned size;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
942
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
943 //printf("TypeBasic::size()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
944 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
945 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
946 case Tint8:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
947 case Tuns8: size = 1; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
948 case Tint16:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
949 case Tuns16: size = 2; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
950 case Tint32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
951 case Tuns32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
952 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
953 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
954 size = 4; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
955 case Tint64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
956 case Tuns64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
957 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
958 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
959 size = 8; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
960 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
961 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
962 size = REALSIZE; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
963 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
964 size = 8; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
965 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
966 size = 16; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
967 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
968 size = REALSIZE * 2; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
969
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
970 case Tvoid:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
971 //size = Type::size(); // error message
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
972 size = 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
973 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
974
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
975 case Tbit: size = 1; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
976 case Tbool: size = 1; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
977 case Tascii: size = 1; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
978 case Twchar: size = 2; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
979 case Tdchar: size = 4; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
980
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
981 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
982 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
983 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
984 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
985 //printf("TypeBasic::size() = %d\n", size);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
986 return size;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
987 }
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 unsigned TypeBasic::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
990 { unsigned sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
991
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
992 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
993 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
994 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
995 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
996 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
997 sz = REALSIZE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
998 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
999
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1000 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1001 sz = size(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1002 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1003 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1004 return sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1005 }
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 Expression *TypeBasic::getProperty(Loc loc, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1009 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1010 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1011 d_int64 ivalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1012 #ifdef IN_GCC
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1013 real_t fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1014 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1015 d_float80 fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1016 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1017
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1018 //printf("TypeBasic::getProperty('%s')\n", ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1019 if (ident == Id::max)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1020 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1021 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1022 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1023 case Tint8: ivalue = 0x7F; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1024 case Tuns8: ivalue = 0xFF; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1025 case Tint16: ivalue = 0x7FFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1026 case Tuns16: ivalue = 0xFFFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1027 case Tint32: ivalue = 0x7FFFFFFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1028 case Tuns32: ivalue = 0xFFFFFFFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1029 case Tint64: ivalue = 0x7FFFFFFFFFFFFFFFLL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1030 case Tuns64: ivalue = 0xFFFFFFFFFFFFFFFFULL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1031 case Tbit: ivalue = 1; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1032 case Tbool: ivalue = 1; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1033 case Tchar: ivalue = 0xFF; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1034 case Twchar: ivalue = 0xFFFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1035 case Tdchar: ivalue = 0x10FFFFUL; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1036
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1037 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1038 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1039 case Tfloat32: fvalue = FLT_MAX; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1040 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1041 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1042 case Tfloat64: fvalue = DBL_MAX; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1043 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1044 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1045 case Tfloat80: fvalue = LDBL_MAX; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1046 }
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 else if (ident == Id::min)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1049 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1050 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1051 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1052 case Tint8: ivalue = -128; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1053 case Tuns8: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1054 case Tint16: ivalue = -32768; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1055 case Tuns16: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1056 case Tint32: ivalue = -2147483647L - 1; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1057 case Tuns32: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1058 case Tint64: ivalue = (-9223372036854775807LL-1LL); goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1059 case Tuns64: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1060 case Tbit: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1061 case Tbool: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1062 case Tchar: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1063 case Twchar: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1064 case Tdchar: ivalue = 0; goto Livalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1065
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1066 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1067 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1068 case Tfloat32: fvalue = FLT_MIN; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1069 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1070 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1071 case Tfloat64: fvalue = DBL_MIN; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1072 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1073 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1074 case Tfloat80: fvalue = LDBL_MIN; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1075 }
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 else if (ident == Id::nan)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1078 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1079 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1080 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1081 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1082 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1083 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1084 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1085 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1086 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1087 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1088 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1089 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1090 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1091 #if IN_GCC
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1092 // mode doesn't matter, will be converted in RealExp anyway
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1093 fvalue = real_t::getnan(real_t::LongDouble);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1094 #elif __GNUC__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1095 // 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
1096 // Need the volatile to prevent gcc from doing incorrect
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1097 // constant folding.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1098 volatile d_float80 foo;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1099 foo = NAN;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1100 if (signbit(foo)) // signbit sometimes, not always, set
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1101 foo = -foo; // turn off sign bit
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1102 fvalue = foo;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1103 #elif _MSC_VER
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1104 unsigned long nan[2]= { 0xFFFFFFFF, 0x7FFFFFFF };
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1105 fvalue = *(double*)nan;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1106 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1107 fvalue = NAN;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1108 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1109 goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1110 }
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 else if (ident == Id::infinity)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1114 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1115 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1116 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1117 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1118 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1119 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1120 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1121 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1122 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1123 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1124 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1125 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1126 #if IN_GCC
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1127 fvalue = real_t::getinfinity();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1128 #elif __GNUC__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1129 fvalue = 1 / zero;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1130 #elif _MSC_VER
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1131 fvalue = std::numeric_limits<long double>::infinity();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1132 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1133 fvalue = INFINITY;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1134 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1135 goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1136 }
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 else if (ident == Id::dig)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1139 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1140 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1141 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1142 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1143 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1144 case Tfloat32: ivalue = FLT_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1145 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1146 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1147 case Tfloat64: ivalue = DBL_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1148 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1149 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1150 case Tfloat80: ivalue = LDBL_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1151 }
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 else if (ident == Id::epsilon)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1154 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1155 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1156 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1157 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1158 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1159 case Tfloat32: fvalue = FLT_EPSILON; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1160 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1161 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1162 case Tfloat64: fvalue = DBL_EPSILON; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1163 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1164 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1165 case Tfloat80: fvalue = LDBL_EPSILON; goto Lfvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1166 }
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 else if (ident == Id::mant_dig)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1169 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1170 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1171 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1172 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1173 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1174 case Tfloat32: ivalue = FLT_MANT_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1175 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1176 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1177 case Tfloat64: ivalue = DBL_MANT_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1178 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1179 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1180 case Tfloat80: ivalue = LDBL_MANT_DIG; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1181 }
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 else if (ident == Id::max_10_exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1184 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1185 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1186 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1187 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1188 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1189 case Tfloat32: ivalue = FLT_MAX_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1190 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1191 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1192 case Tfloat64: ivalue = DBL_MAX_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1193 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1194 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1195 case Tfloat80: ivalue = LDBL_MAX_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1196 }
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 else if (ident == Id::max_exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1199 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1200 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1201 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1202 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1203 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1204 case Tfloat32: ivalue = FLT_MAX_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1205 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1206 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1207 case Tfloat64: ivalue = DBL_MAX_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1208 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1209 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1210 case Tfloat80: ivalue = LDBL_MAX_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1211 }
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 else if (ident == Id::min_10_exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1214 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1215 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1216 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1217 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1218 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1219 case Tfloat32: ivalue = FLT_MIN_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1220 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1221 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1222 case Tfloat64: ivalue = DBL_MIN_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1223 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1224 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1225 case Tfloat80: ivalue = LDBL_MIN_10_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1226 }
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 else if (ident == Id::min_exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1229 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1230 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1231 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1232 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1233 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1234 case Tfloat32: ivalue = FLT_MIN_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1235 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1236 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1237 case Tfloat64: ivalue = DBL_MIN_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1238 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1239 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1240 case Tfloat80: ivalue = LDBL_MIN_EXP; goto Lint;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1241 }
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 Ldefault:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1245 return Type::getProperty(loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1246
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1247 Livalue:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1248 e = new IntegerExp(loc, ivalue, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1249 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1250
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1251 Lfvalue:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1252 if (isreal() || isimaginary())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1253 e = new RealExp(loc, fvalue, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1254 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1255 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1256 complex_t cvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1257
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1258 #if __DMC__
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1259 //((real_t *)&cvalue)[0] = fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1260 //((real_t *)&cvalue)[1] = fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1261 cvalue = fvalue + fvalue * I;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1262 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1263 cvalue.re = fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1264 cvalue.im = fvalue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1265 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1266 //for (int i = 0; i < 20; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1267 // printf("%02x ", ((unsigned char *)&cvalue)[i]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1268 //printf("\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1269 e = new ComplexExp(loc, cvalue, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1270 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1271 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1272
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1273 Lint:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1274 e = new IntegerExp(loc, ivalue, Type::tint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1275 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1276 }
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 Expression *TypeBasic::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1279 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1280 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1281 printf("TypeBasic::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1282 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1283 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1284
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1285 if (ident == Id::re)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1286 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1287 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1288 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1289 case Tcomplex32: t = tfloat32; goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1290 case Tcomplex64: t = tfloat64; goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1291 case Tcomplex80: t = tfloat80; goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1292 L1:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1293 e = e->castTo(sc, t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1294 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1295
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1296 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1297 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1298 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1299 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1300
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1301 case Timaginary32: t = tfloat32; goto L2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1302 case Timaginary64: t = tfloat64; goto L2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1303 case Timaginary80: t = tfloat80; goto L2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1304 L2:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1305 e = new RealExp(0, 0.0, t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1306 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1307
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1308 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1309 return Type::getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1310 }
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 else if (ident == Id::im)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1313 { Type *t2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1314
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1315 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1316 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1317 case Tcomplex32: t = timaginary32; t2 = tfloat32; goto L3;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1318 case Tcomplex64: t = timaginary64; t2 = tfloat64; goto L3;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1319 case Tcomplex80: t = timaginary80; t2 = tfloat80; goto L3;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1320 L3:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1321 e = e->castTo(sc, t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1322 e->type = t2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1323 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1324
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1325 case Timaginary32: t = tfloat32; goto L4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1326 case Timaginary64: t = tfloat64; goto L4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1327 case Timaginary80: t = tfloat80; goto L4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1328 L4:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1329 e->type = t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1330 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1331
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1332 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1333 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1334 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1335 e = new RealExp(0, 0.0, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1336 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1337
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1338 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1339 return Type::getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1340 }
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 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1343 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1344 return Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1345 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1346 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1347 }
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 Expression *TypeBasic::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1350 { integer_t value = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1351
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1352 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1353 printf("TypeBasic::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1354 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1355 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1356 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1357 case Tchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1358 value = 0xFF;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1359 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1360
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1361 case Twchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1362 case Tdchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1363 value = 0xFFFF;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1364 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1365
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1366 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1367 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1368 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1369 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1370 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1371 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1372 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1373 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1374 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1375 return getProperty(loc, Id::nan);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1376 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1377 return new IntegerExp(loc, value, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1378 }
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 int TypeBasic::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1381 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1382 switch (ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1383 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1384 case Tchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1385 case Twchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1386 case Tdchar:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1387 case Timaginary32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1388 case Timaginary64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1389 case Timaginary80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1390 case Tfloat32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1391 case Tfloat64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1392 case Tfloat80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1393 case Tcomplex32:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1394 case Tcomplex64:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1395 case Tcomplex80:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1396 return 0; // no
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1397 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1398 return 1; // yes
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1399 }
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 int TypeBasic::isbit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1402 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1403 return (ty == Tbit);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1404 }
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 int TypeBasic::isintegral()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1407 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1408 //printf("TypeBasic::isintegral('%s') x%x\n", toChars(), flags);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1409 return flags & TFLAGSintegral;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1410 }
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 int TypeBasic::isfloating()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1413 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1414 return flags & TFLAGSfloating;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1415 }
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 int TypeBasic::isreal()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1418 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1419 return flags & TFLAGSreal;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1420 }
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 int TypeBasic::isimaginary()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1423 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1424 return flags & TFLAGSimaginary;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1425 }
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 int TypeBasic::iscomplex()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1428 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1429 return flags & TFLAGScomplex;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1430 }
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 int TypeBasic::isunsigned()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1433 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1434 return flags & TFLAGSunsigned;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1435 }
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 int TypeBasic::isscalar()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1438 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1439 return flags & (TFLAGSintegral | TFLAGSfloating);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1440 }
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 MATCH TypeBasic::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1443 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1444 //printf("TypeBasic::implicitConvTo(%s) from %s\n", to->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1445 if (this == to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1446 return MATCHexact;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1447
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1448 if (ty == Tvoid || to->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1449 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1450 if (1 || global.params.Dversion == 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1451 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1452 if (to->ty == Tbool)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1453 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1454 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1455 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1456 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1457 if (ty == Tbool || to->ty == Tbool)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1458 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1459 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1460 if (!to->isTypeBasic())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1461 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1462
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1463 TypeBasic *tob = (TypeBasic *)to;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1464 if (flags & TFLAGSintegral)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1465 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1466 // Disallow implicit conversion of integers to imaginary or complex
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1467 if (tob->flags & (TFLAGSimaginary | TFLAGScomplex))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1468 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1469
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1470 // If converting to integral
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1471 if (0 && global.params.Dversion > 1 && tob->flags & TFLAGSintegral)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1472 { d_uns64 sz = size(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1473 d_uns64 tosz = tob->size(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1474
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1475 /* Can't convert to smaller size or, if same size, change sign
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1476 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1477 if (sz > tosz)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1478 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1479
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1480 /*if (sz == tosz && (flags ^ tob->flags) & TFLAGSunsigned)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1481 return MATCHnomatch;*/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1482 }
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 else if (flags & TFLAGSfloating)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1485 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1486 // Disallow implicit conversion of floating point to integer
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1487 if (tob->flags & TFLAGSintegral)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1488 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1489
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1490 assert(tob->flags & TFLAGSfloating);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1491
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1492 // Disallow implicit conversion from complex to non-complex
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1493 if (flags & TFLAGScomplex && !(tob->flags & TFLAGScomplex))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1494 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1495
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1496 // Disallow implicit conversion of real or imaginary to complex
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1497 if (flags & (TFLAGSreal | TFLAGSimaginary) &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1498 tob->flags & TFLAGScomplex)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1499 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1500
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1501 // Disallow implicit conversion to-from real and imaginary
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1502 if ((flags & (TFLAGSreal | TFLAGSimaginary)) !=
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1503 (tob->flags & (TFLAGSreal | TFLAGSimaginary)))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1504 return MATCHnomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1505 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1506 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1507 }
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 TypeBasic *TypeBasic::isTypeBasic()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1510 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1511 return (TypeBasic *)this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1512 }
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 /***************************** TypeArray *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1515
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1516 TypeArray::TypeArray(TY ty, Type *next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1517 : Type(ty, next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1518 {
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 Expression *TypeArray::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1522 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1523 Type *n = this->next->toBasetype(); // uncover any typedef's
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1524
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1525 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1526 printf("TypeArray::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1527 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1528 if (ident == Id::reverse && (n->ty == Tchar || n->ty == Twchar))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1529 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1530 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1531 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1532 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1533 char *nm;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1534 static char *name[2] = { "_adReverseChar", "_adReverseWchar" };
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1535
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1536 nm = name[n->ty == Twchar];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1537 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(), nm);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1538 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1539 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1540 e = e->castTo(sc, n->arrayOf()); // convert to dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1541 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1542 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1543 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1544 e->type = next->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1545 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1546 else if (ident == Id::sort && (n->ty == Tchar || n->ty == Twchar))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1547 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1548 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1549 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1550 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1551 char *nm;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1552 static char *name[2] = { "_adSortChar", "_adSortWchar" };
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1553
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1554 nm = name[n->ty == Twchar];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1555 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(), nm);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1556 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1557 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1558 e = e->castTo(sc, n->arrayOf()); // convert to dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1559 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1560 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1561 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1562 e->type = next->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1563 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1564 else if (ident == Id::reverse || ident == Id::dup)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1565 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1566 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1567 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1568 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1569 int size = next->size(e->loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1570 int dup;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1571
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1572 assert(size);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1573 dup = (ident == Id::dup);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1574 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(), dup ? Id::adDup : Id::adReverse);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1575 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1576 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1577 e = e->castTo(sc, n->arrayOf()); // convert to dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1578 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1579 if (dup)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1580 arguments->push(getTypeInfo(sc));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1581 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1582 if (!dup)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1583 arguments->push(new IntegerExp(0, size, Type::tint32));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1584 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1585 e->type = next->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1586 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1587 else if (ident == Id::sort)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1588 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1589 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1590 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1591 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1592
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1593 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(),
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1594 (char*)(n->ty == Tbit ? "_adSortBit" : "_adSort"));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1595 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1596 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1597 e = e->castTo(sc, n->arrayOf()); // convert to dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1598 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1599 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1600 if (next->ty != Tbit)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1601 arguments->push(n->ty == Tsarray
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1602 ? n->getTypeInfo(sc) // don't convert to dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1603 : n->getInternalTypeInfo(sc));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1604 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1605 e->type = next->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1606 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1607 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1608 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1609 e = Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1610 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1611 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1612 }
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 /***************************** TypeSArray *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1616
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1617 TypeSArray::TypeSArray(Type *t, Expression *dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1618 : TypeArray(Tsarray, t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1619 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1620 //printf("TypeSArray(%s)\n", dim->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1621 this->dim = dim;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1622 }
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 Type *TypeSArray::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1625 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1626 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1627 Expression *e = dim->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1628 t = new TypeSArray(t, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1629 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1630 }
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 d_uns64 TypeSArray::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1633 { integer_t sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1634
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1635 if (!dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1636 return Type::size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1637 sz = dim->toInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1638 if (next->toBasetype()->ty == Tbit) // if array of bits
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1639 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1640 if (sz + 31 < sz)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1641 goto Loverflow;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1642 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
1643 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1644 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1645 { integer_t n, n2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1646
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1647 n = next->size();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1648 n2 = n * sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1649 if (n && (n2 / n) != sz)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1650 goto Loverflow;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1651 sz = n2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1652 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1653 return sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1654
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1655 Loverflow:
305
2b72433d5c8c [svn r326] Fixed a bunch of issues with printf's that MinGW32 did not support.
lindquist
parents: 285
diff changeset
1656 error(loc, "index %lld overflow for static array", sz);
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1657 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1658 }
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 unsigned TypeSArray::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1661 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1662 return next->alignsize();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1663 }
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 * This evaluates exp while setting length to be the number
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1667 * of elements in the tuple t.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1668 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1669 Expression *semanticLength(Scope *sc, Type *t, Expression *exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1670 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1671 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1672 { ScopeDsymbol *sym = new ArrayScopeSymbol((TypeTuple *)t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1673 sym->parent = sc->scopesym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1674 sc = sc->push(sym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1675
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1676 exp = exp->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1677
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1678 sc->pop();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1679 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1680 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1681 exp = exp->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1682 return exp;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1683 }
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 Expression *semanticLength(Scope *sc, TupleDeclaration *s, Expression *exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1686 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1687 ScopeDsymbol *sym = new ArrayScopeSymbol(s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1688 sym->parent = sc->scopesym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1689 sc = sc->push(sym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1690
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1691 exp = exp->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1692
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1693 sc->pop();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1694 return exp;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1695 }
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 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
1698 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1699 //printf("TypeSArray::resolve() %s\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1700 next->resolve(loc, sc, pe, pt, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1701 //printf("s = %p, e = %p, t = %p\n", *ps, *pe, *pt);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1702 if (*pe)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1703 { // It's really an index expression
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1704 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1705 e = new IndexExp(loc, *pe, dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1706 *pe = e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1707 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1708 else if (*ps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1709 { Dsymbol *s = *ps;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1710 TupleDeclaration *td = s->isTupleDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1711 if (td)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1712 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1713 ScopeDsymbol *sym = new ArrayScopeSymbol(td);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1714 sym->parent = sc->scopesym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1715 sc = sc->push(sym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1716
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1717 dim = dim->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1718 dim = dim->optimize(WANTvalue | WANTinterpret);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1719 uinteger_t d = dim->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1720
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1721 sc = sc->pop();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1722
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1723 if (d >= td->objects->dim)
305
2b72433d5c8c [svn r326] Fixed a bunch of issues with printf's that MinGW32 did not support.
lindquist
parents: 285
diff changeset
1724 { error(loc, "tuple index %llu exceeds %u", d, td->objects->dim);
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1725 goto Ldefault;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1726 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1727 Object *o = (Object *)td->objects->data[(size_t)d];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1728 if (o->dyncast() == DYNCAST_DSYMBOL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1729 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1730 *ps = (Dsymbol *)o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1731 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1732 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1733 if (o->dyncast() == DYNCAST_EXPRESSION)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1734 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1735 *ps = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1736 *pe = (Expression *)o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1737 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1738 }
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 /* Create a new TupleDeclaration which
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1741 * is a slice [d..d+1] out of the old one.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1742 * Do it this way because TemplateInstance::semanticTiargs()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1743 * can handle unresolved Objects this way.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1744 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1745 Objects *objects = new Objects;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1746 objects->setDim(1);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1747 objects->data[0] = o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1748
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1749 TupleDeclaration *tds = new TupleDeclaration(loc, td->ident, objects);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1750 *ps = tds;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1751 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1752 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1753 goto Ldefault;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1754 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1755 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1756 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1757 Ldefault:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1758 Type::resolve(loc, sc, pe, pt, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1759 }
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 Type *TypeSArray::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1763 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1764 //printf("TypeSArray::semantic() %s\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1765
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1766 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1767 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1768 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1769 next->resolve(loc, sc, &e, &t, &s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1770 if (dim && s && s->isTupleDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1771 { TupleDeclaration *sd = s->isTupleDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1772
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1773 dim = semanticLength(sc, sd, dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1774 dim = dim->optimize(WANTvalue | WANTinterpret);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1775 uinteger_t d = dim->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1776
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1777 if (d >= sd->objects->dim)
305
2b72433d5c8c [svn r326] Fixed a bunch of issues with printf's that MinGW32 did not support.
lindquist
parents: 285
diff changeset
1778 { error(loc, "tuple index %llu exceeds %u", d, sd->objects->dim);
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1779 return Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1780 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1781 Object *o = (Object *)sd->objects->data[(size_t)d];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1782 if (o->dyncast() != DYNCAST_TYPE)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1783 { error(loc, "%s is not a type", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1784 return Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1785 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1786 t = (Type *)o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1787 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1788 }
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 next = next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1791 Type *tbn = next->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1792
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1793 if (dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1794 { integer_t n, n2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1795
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1796 dim = semanticLength(sc, tbn, dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1797
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1798 dim = dim->optimize(WANTvalue | WANTinterpret);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1799 if (sc->parameterSpecialization && dim->op == TOKvar &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1800 ((VarExp *)dim)->var->storage_class & STCtemplateparameter)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1801 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1802 /* It could be a template parameter N which has no value yet:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1803 * template Foo(T : T[N], size_t N);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1804 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1805 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1806 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1807 integer_t d1 = dim->toInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1808 dim = dim->castTo(sc, tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1809 dim = dim->optimize(WANTvalue);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1810 integer_t d2 = dim->toInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1811
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1812 if (d1 != d2)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1813 goto Loverflow;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1814
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1815 if (tbn->isintegral() ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1816 tbn->isfloating() ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1817 tbn->ty == Tpointer ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1818 tbn->ty == Tarray ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1819 tbn->ty == Tsarray ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1820 tbn->ty == Taarray ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1821 tbn->ty == Tclass)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1822 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1823 /* Only do this for types that don't need to have semantic()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1824 * run on them for the size, since they may be forward referenced.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1825 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1826 n = tbn->size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1827 n2 = n * d2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1828 if ((int)n2 < 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1829 goto Loverflow;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1830 if (n2 >= 0x1000000) // put a 'reasonable' limit on it
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1831 goto Loverflow;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1832 if (n && n2 / n != d2)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1833 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1834 Loverflow:
305
2b72433d5c8c [svn r326] Fixed a bunch of issues with printf's that MinGW32 did not support.
lindquist
parents: 285
diff changeset
1835 error(loc, "index %lld overflow for static array", d1);
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1836 dim = new IntegerExp(0, 1, tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1837 }
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 switch (tbn->ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1841 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1842 case Ttuple:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1843 { // Index the tuple to get the type
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1844 assert(dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1845 TypeTuple *tt = (TypeTuple *)tbn;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1846 uinteger_t d = dim->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1847
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1848 if (d >= tt->arguments->dim)
305
2b72433d5c8c [svn r326] Fixed a bunch of issues with printf's that MinGW32 did not support.
lindquist
parents: 285
diff changeset
1849 { error(loc, "tuple index %llu exceeds %u", d, tt->arguments->dim);
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1850 return Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1851 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1852 Argument *arg = (Argument *)tt->arguments->data[(size_t)d];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1853 return arg->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1854 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1855 case Tfunction:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1856 case Tnone:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1857 error(loc, "can't have array of %s", tbn->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1858 tbn = next = tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1859 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1860 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1861 if (tbn->isauto())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1862 error(loc, "cannot have array of auto %s", tbn->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1863 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1864 }
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 void TypeSArray::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1867 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1868 buf->writeByte(mangleChar[ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1869 if (dim)
305
2b72433d5c8c [svn r326] Fixed a bunch of issues with printf's that MinGW32 did not support.
lindquist
parents: 285
diff changeset
1870 buf->printf("%llu", dim->toInteger());
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1871 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1872 next->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1873 }
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 void TypeSArray::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1876 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1877 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1878 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1879 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1880 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1881 next->toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1882 buf->printf("[%s]", dim->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1883 }
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 Expression *TypeSArray::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1886 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1887 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1888 printf("TypeSArray::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1889 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1890 if (ident == Id::length)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1891 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1892 e = dim;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1893 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1894 else if (ident == Id::ptr)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1895 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1896 e = e->castTo(sc, next->pointerTo());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1897 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1898 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1899 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1900 e = TypeArray::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1901 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1902 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1903 }
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 int TypeSArray::isString()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1906 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1907 TY nty = next->toBasetype()->ty;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1908 return nty == Tchar || nty == Twchar || nty == Tdchar;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1909 }
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 unsigned TypeSArray::memalign(unsigned salign)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1912 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1913 return next->memalign(salign);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1914 }
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 MATCH TypeSArray::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1917 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1918 //printf("TypeSArray::implicitConvTo()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1919
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1920 // Allow implicit conversion of static array to pointer or dynamic array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1921 if ((IMPLICIT_ARRAY_TO_PTR && to->ty == Tpointer) &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1922 (to->next->ty == Tvoid || next->equals(to->next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1923 /*|| to->next->isBaseOf(next)*/))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1924 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1925 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1926 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1927 if (to->ty == Tarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1928 { int offset = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1929
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1930 if (next->equals(to->next) ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1931 (to->next->isBaseOf(next, &offset) && offset == 0) ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1932 to->next->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1933 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1934 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1935 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1936 if (to->ty == Tsarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1937 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1938 TypeSArray *tsa = (TypeSArray *)to;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1939
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1940 if (next->equals(tsa->next) && dim->equals(tsa->dim))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1941 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1942 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1943 }
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 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1946 return Type::implicitConvTo(to);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1947 }
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 Expression *TypeSArray::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1950 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1951 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1952 printf("TypeSArray::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1953 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1954 return next->defaultInit(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1955 }
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 int TypeSArray::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1958 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1959 return next->isZeroInit();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1960 }
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 Expression *TypeSArray::toExpression()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1964 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1965 Expression *e = next->toExpression();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1966 if (e)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1967 { Expressions *arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1968 arguments->push(dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1969 e = new ArrayExp(dim->loc, e, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1970 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1971 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1972 }
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 int TypeSArray::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1975 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1976 return next->hasPointers();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1977 }
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 /***************************** TypeDArray *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1980
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1981 TypeDArray::TypeDArray(Type *t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1982 : TypeArray(Tarray, t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1983 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1984 //printf("TypeDArray(t = %p)\n", t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1985 }
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 Type *TypeDArray::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1988 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1989 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1990 if (t == next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1991 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1992 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1993 t = new TypeDArray(t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1994 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1995 }
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 d_uns64 TypeDArray::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1998 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
1999 //printf("TypeDArray::size()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2000 return PTRSIZE * 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2001 }
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 unsigned TypeDArray::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2004 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2005 // 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
2006 // boundary
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2007 return PTRSIZE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2008 }
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 Type *TypeDArray::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2011 { Type *tn = next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2012
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2013 tn = next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2014 Type *tbn = tn->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2015 switch (tbn->ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2016 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2017 case Tfunction:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2018 case Tnone:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2019 case Ttuple:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2020 error(loc, "can't have array of %s", tbn->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2021 tn = next = tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2022 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2023 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2024 if (tn->isauto())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2025 error(loc, "cannot have array of auto %s", tn->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2026 if (next != tn)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2027 //deco = NULL; // redo
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2028 return tn->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2029 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2030 }
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 void TypeDArray::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2033 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2034 buf->writeByte(mangleChar[ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2035 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2036 next->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2037 }
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 void TypeDArray::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2040 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2041 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2042 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2043 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2044 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2045 next->toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2046 buf->writestring("[]");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2047 }
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 Expression *TypeDArray::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2050 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2051 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2052 printf("TypeDArray::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2053 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2054 if (ident == Id::length)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2055 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2056 if (e->op == TOKstring)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2057 { StringExp *se = (StringExp *)e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2058
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2059 return new IntegerExp(se->loc, se->len, Type::tindex);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2060 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2061 e = new ArrayLengthExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2062 e->type = Type::tsize_t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2063 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2064 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2065 else if (ident == Id::ptr)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2066 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2067 e = e->castTo(sc, next->pointerTo());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2068 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2069 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2070 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2071 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2072 e = TypeArray::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2073 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2074 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2075 }
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 int TypeDArray::isString()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2078 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2079 TY nty = next->toBasetype()->ty;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2080 return nty == Tchar || nty == Twchar || nty == Tdchar;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2081 }
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 MATCH TypeDArray::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2084 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2085 //printf("TypeDArray::implicitConvTo()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2086
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2087 // Allow implicit conversion of array to pointer
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2088 if (IMPLICIT_ARRAY_TO_PTR &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2089 to->ty == Tpointer &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2090 (to->next->ty == Tvoid || next->equals(to->next) /*|| to->next->isBaseOf(next)*/))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2091 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2092 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2093 }
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 if (to->ty == Tarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2096 { int offset = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2097
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2098 if ((to->next->isBaseOf(next, &offset) && offset == 0) ||
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2099 to->next->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2100 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2101 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2102 return Type::implicitConvTo(to);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2103 }
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 Expression *TypeDArray::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2106 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2107 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2108 printf("TypeDArray::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2109 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2110 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2111 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2112 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2113 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2114 }
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 int TypeDArray::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2117 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2118 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2119 }
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 int TypeDArray::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2122 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2123 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2124 }
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 int TypeDArray::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2127 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2128 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2129 }
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 /***************************** TypeAArray *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2132
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2133 TypeAArray::TypeAArray(Type *t, Type *index)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2134 : TypeArray(Taarray, t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2135 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2136 this->index = index;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2137 this->key = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2138 }
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 Type *TypeAArray::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2141 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2142 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2143 Type *ti = index->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2144 if (t == next && ti == index)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2145 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2146 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2147 t = new TypeAArray(t, ti);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2148 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2149 }
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 d_uns64 TypeAArray::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2152 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2153 return PTRSIZE /* * 2*/;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2154 }
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 Type *TypeAArray::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2158 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2159 //printf("TypeAArray::semantic() %s index->ty = %d\n", toChars(), index->ty);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2160
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2161 // 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
2162 // in reality it was an expression.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2163 if (index->ty == Tident || index->ty == Tinstance || index->ty == Tsarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2164 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2165 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2166 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2167 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2168
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2169 index->resolve(loc, sc, &e, &t, &s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2170 if (e)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2171 { // It was an expression -
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2172 // Rewrite as a static array
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2173 TypeSArray *tsa;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2174
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2175 tsa = new TypeSArray(next, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2176 return tsa->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2177 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2178 else if (t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2179 index = t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2180 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2181 index->error(loc, "index is not a type or an expression");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2182 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2183 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2184 index = index->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2185
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2186 // Compute key type; the purpose of the key type is to
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2187 // minimize the permutations of runtime library
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2188 // routines as much as possible.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2189 key = index->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2190 switch (key->ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2191 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2192 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2193 case Tint8:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2194 case Tuns8:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2195 case Tint16:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2196 case Tuns16:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2197 key = tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2198 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2199 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2200
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2201 case Tsarray:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2202 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2203 // Convert to Tarray
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2204 key = key->next->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2205 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2206 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2207 case Tbit:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2208 case Tbool:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2209 case Tfunction:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2210 case Tvoid:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2211 case Tnone:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2212 error(loc, "can't have associative array key of %s", key->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2213 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2214 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2215 next = next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2216 switch (next->toBasetype()->ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2217 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2218 case Tfunction:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2219 case Tnone:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2220 error(loc, "can't have associative array of %s", next->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2221 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2222 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2223 if (next->isauto())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2224 error(loc, "cannot have array of auto %s", next->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2225
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2226 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2227 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2228
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2229 void TypeAArray::resolve(Loc loc, Scope *sc, Expression **pe, Type **pt, Dsymbol **ps)
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2230 {
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2231 //printf("TypeAArray::resolve() %s\n", toChars());
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2232
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2233 // Deal with the case where we thought the index was a type, but
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2234 // in reality it was an expression.
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2235 if (index->ty == Tident || index->ty == Tinstance || index->ty == Tsarray)
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2236 {
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2237 Expression *e;
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2238 Type *t;
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2239 Dsymbol *s;
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2240
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2241 index->resolve(loc, sc, &e, &t, &s);
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2242 if (e)
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2243 { // It was an expression -
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2244 // Rewrite as a static array
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2245
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2246 TypeSArray *tsa = new TypeSArray(next, e);
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2247 return tsa->resolve(loc, sc, pe, pt, ps);
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2248 }
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2249 else if (t)
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2250 index = t;
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2251 else
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2252 index->error(loc, "index is not a type or an expression");
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2253 }
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2254 Type::resolve(loc, sc, pe, pt, ps);
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2255 }
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2256
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
2257
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2258 Expression *TypeAArray::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2259 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2260 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2261 printf("TypeAArray::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2262 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2263 if (ident == Id::length)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2264 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2265 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2266 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2267 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2268
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2269 fd = FuncDeclaration::genCfunc(Type::tsize_t, Id::aaLen);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2270 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2271 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2272 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2273 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2274 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2275 e->type = fd->type->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2276 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2277 else if (ident == Id::keys)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2278 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2279 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2280 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2281 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2282 int size = key->size(e->loc);
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 assert(size);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2285 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(), Id::aaKeys);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2286 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2287 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2288 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2289 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2290 arguments->push(new IntegerExp(0, size, Type::tsize_t));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2291 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2292 e->type = index->arrayOf();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2293 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2294 else if (ident == Id::values)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2295 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2296 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2297 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2298 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2299
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2300 fd = FuncDeclaration::genCfunc(Type::tvoid->arrayOf(), Id::aaValues);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2301 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2302 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2303 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2304 arguments->push(e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2305 size_t keysize = key->size(e->loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2306 keysize = (keysize + 4 - 1) & ~(4 - 1);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2307 arguments->push(new IntegerExp(0, keysize, Type::tsize_t));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2308 arguments->push(new IntegerExp(0, next->size(e->loc), Type::tsize_t));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2309 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2310 e->type = next->arrayOf();
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 else if (ident == Id::rehash)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2313 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2314 Expression *ec;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2315 FuncDeclaration *fd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2316 Expressions *arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2317
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2318 fd = FuncDeclaration::genCfunc(Type::tvoid->pointerTo(), Id::aaRehash);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2319 fd->runTimeHack = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2320 ec = new VarExp(0, fd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2321 arguments = new Expressions();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2322 arguments->push(e->addressOf(sc));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2323 arguments->push(key->getInternalTypeInfo(sc));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2324 e = new CallExp(e->loc, ec, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2325 e->type = this;
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 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2328 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2329 e = Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2330 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2331 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2332 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2333
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2334 void TypeAArray::toDecoBuffer(OutBuffer *buf)
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 buf->writeByte(mangleChar[ty]);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2337 index->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2338 next->toDecoBuffer(buf);
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 void TypeAArray::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
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 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2344 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2345 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2346 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2347 next->toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2348 buf->writeByte('[');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2349 index->toCBuffer2(buf, hgs, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2350 buf->writeByte(']');
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 Expression *TypeAArray::defaultInit(Loc loc)
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 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2356 printf("TypeAArray::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2357 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2358 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2359 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2360 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2361 return e;
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
211
f66219e0d530 [svn r227] Fixed: crash in lifetime.d when resizing array of AAs by .length assignment.
lindquist
parents: 162
diff changeset
2364 int TypeAArray::isZeroInit()
f66219e0d530 [svn r227] Fixed: crash in lifetime.d when resizing array of AAs by .length assignment.
lindquist
parents: 162
diff changeset
2365 {
f66219e0d530 [svn r227] Fixed: crash in lifetime.d when resizing array of AAs by .length assignment.
lindquist
parents: 162
diff changeset
2366 return 1;
f66219e0d530 [svn r227] Fixed: crash in lifetime.d when resizing array of AAs by .length assignment.
lindquist
parents: 162
diff changeset
2367 }
f66219e0d530 [svn r227] Fixed: crash in lifetime.d when resizing array of AAs by .length assignment.
lindquist
parents: 162
diff changeset
2368
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2369 int TypeAArray::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2370 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2371 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2372 }
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 int TypeAArray::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2375 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2376 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2377 }
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 /***************************** TypePointer *****************************/
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 TypePointer::TypePointer(Type *t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2382 : Type(Tpointer, t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2383 {
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 Type *TypePointer::syntaxCopy()
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 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2389 if (t == next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2390 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2391 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2392 t = new TypePointer(t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2393 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2394 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2395
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2396 Type *TypePointer::semantic(Loc loc, Scope *sc)
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 //printf("TypePointer::semantic()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2399 Type *n = next->semantic(loc, sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2400 switch (n->toBasetype()->ty)
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 case Ttuple:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2403 error(loc, "can't have pointer to %s", n->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2404 n = tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2405 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2406 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2407 if (n != next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2408 deco = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2409 next = n;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2410 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2411 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2412
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 d_uns64 TypePointer::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2415 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2416 return PTRSIZE;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2419 void TypePointer::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2420 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2421 //printf("TypePointer::toCBuffer2() next = %d\n", next->ty);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2422 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2423 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2424 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2425 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2426 next->toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2427 if (next->ty != Tfunction)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2428 buf->writeByte('*');
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2431 MATCH TypePointer::implicitConvTo(Type *to)
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 //printf("TypePointer::implicitConvTo()\n");
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 (this == to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2436 return MATCHexact;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2437 if (to->ty == Tpointer && to->next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2438 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2439 if (to->next->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2440 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2441
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2442 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2443 if (to->next->isBaseOf(next))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2444 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2445 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2446
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2447 if (next->ty == Tfunction && to->next->ty == Tfunction)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2448 { TypeFunction *tf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2449 TypeFunction *tfto;
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 tf = (TypeFunction *)(next);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2452 tfto = (TypeFunction *)(to->next);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2453 return tfto->equals(tf) ? MATCHexact : MATCHnomatch;
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2456 // if (to->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2457 // return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2458 return MATCHnomatch;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2461 int TypePointer::isscalar()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2462 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2463 return TRUE;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2466 Expression *TypePointer::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2467 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2468 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2469 printf("TypePointer::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2470 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2471 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2472 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2473 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2474 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2475 }
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 int TypePointer::isZeroInit()
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 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2480 }
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 int TypePointer::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2483 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2484 return TRUE;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2487
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2488 /***************************** TypeReference *****************************/
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 TypeReference::TypeReference(Type *t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2491 : Type(Treference, t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2492 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2493 if (t->ty == Tbit)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2494 error(0,"cannot make reference to a bit");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2495 // BUG: what about references to static arrays?
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2496 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2497
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2498 Type *TypeReference::syntaxCopy()
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 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2501 if (t == next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2502 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2503 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2504 t = new TypeReference(t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2505 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2506 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2507
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2508 d_uns64 TypeReference::size(Loc loc)
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 return PTRSIZE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2511 }
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 void TypeReference::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
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 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2516 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2517 return;
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 next->toCBuffer2(buf, hgs, this->mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2520 buf->writeByte('&');
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2523 Expression *TypeReference::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2524 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2525 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2526 printf("TypeReference::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2527 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2528
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2529 // References just forward things along
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2530 return next->dotExp(sc, e, ident);
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2533 Expression *TypeReference::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2534 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2535 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2536 printf("TypeReference::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2537 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2538 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2539 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2540 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2541 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2542 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2543
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2544 int TypeReference::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2545 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2546 return 1;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2550 /***************************** TypeFunction *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2551
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2552 TypeFunction::TypeFunction(Arguments *parameters, Type *treturn, int varargs, enum LINK linkage)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2553 : Type(Tfunction, treturn)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2554 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2555 //if (!treturn) *(char*)0=0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2556 // assert(treturn);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2557 this->parameters = parameters;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2558 this->varargs = varargs;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2559 this->linkage = linkage;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2560 this->inuse = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2561 this->llvmRetInPtr = false;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2562 this->llvmUsesThis = false;
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 Type *TypeFunction::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2566 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2567 Type *treturn = next ? next->syntaxCopy() : NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2568 Arguments *params = Argument::arraySyntaxCopy(parameters);
217
0806379a5eca [svn r233] Added: -oq command line option for writing fully qualified object names.
lindquist
parents: 211
diff changeset
2569 TypeFunction *t = new TypeFunction(params, treturn, varargs, linkage);
0806379a5eca [svn r233] Added: -oq command line option for writing fully qualified object names.
lindquist
parents: 211
diff changeset
2570 t->llvmRetInPtr = llvmRetInPtr;
0806379a5eca [svn r233] Added: -oq command line option for writing fully qualified object names.
lindquist
parents: 211
diff changeset
2571 t->llvmUsesThis = llvmUsesThis;
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2572 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2573 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2574
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2575 /*******************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2576 * Returns:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2577 * 0 types are distinct
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2578 * 1 this is covariant with t
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2579 * 2 arguments match as far as overloading goes,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2580 * but types are not covariant
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2581 * 3 cannot determine covariance because of forward references
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2582 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2583
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2584 int Type::covariant(Type *t)
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 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2587 printf("Type::covariant(t = %s) %s\n", t->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2588 printf("deco = %p, %p\n", deco, t->deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2589 printf("ty = %d\n", next->ty);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2590 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2591
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2592 int inoutmismatch = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2593
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2594 if (equals(t))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2595 goto Lcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2596 if (ty != Tfunction || t->ty != Tfunction)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2597 goto Ldistinct;
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 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2600 TypeFunction *t1 = (TypeFunction *)this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2601 TypeFunction *t2 = (TypeFunction *)t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2602
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2603 if (t1->varargs != t2->varargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2604 goto Ldistinct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2605
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2606 if (t1->parameters && t2->parameters)
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 size_t dim = Argument::dim(t1->parameters);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2609 if (dim != Argument::dim(t2->parameters))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2610 goto Ldistinct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2611
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2612 for (size_t i = 0; i < dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2613 { Argument *arg1 = Argument::getNth(t1->parameters, i);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2614 Argument *arg2 = Argument::getNth(t2->parameters, i);
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 if (!arg1->type->equals(arg2->type))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2617 goto Ldistinct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2618 if (arg1->storageClass != arg2->storageClass)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2619 inoutmismatch = 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2620 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2621 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2622 else if (t1->parameters != t2->parameters)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2623 goto Ldistinct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2624
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2625 // The argument lists match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2626 if (inoutmismatch)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2627 goto Lnotcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2628 if (t1->linkage != t2->linkage)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2629 goto Lnotcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2630
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2631 Type *t1n = t1->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2632 Type *t2n = t2->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2633
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2634 if (t1n->equals(t2n))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2635 goto Lcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2636 if (t1n->ty != Tclass || t2n->ty != Tclass)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2637 goto Lnotcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2638
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2639 // If t1n is forward referenced:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2640 ClassDeclaration *cd = ((TypeClass *)t1n)->sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2641 if (!cd->baseClass && cd->baseclasses.dim && !cd->isInterfaceDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2642 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2643 return 3;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2644 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2645
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2646 if (t1n->implicitConvTo(t2n))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2647 goto Lcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2648 goto Lnotcovariant;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2649 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2650
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2651 Lcovariant:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2652 //printf("\tcovaraint: 1\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2653 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2654
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2655 Ldistinct:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2656 //printf("\tcovaraint: 0\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2657 return 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2658
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2659 Lnotcovariant:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2660 //printf("\tcovaraint: 2\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2661 return 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2662 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2663
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2664 void TypeFunction::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2665 { unsigned char mc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2666
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2667 //printf("TypeFunction::toDecoBuffer() this = %p %s\n", this, toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2668 //static int nest; if (++nest == 50) *(char*)0=0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2669 if (inuse)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2670 { inuse = 2; // flag error to caller
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2671 return;
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 inuse++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2674 switch (linkage)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2675 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2676 case LINKd: mc = 'F'; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2677 case LINKc: mc = 'U'; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2678 case LINKwindows: mc = 'W'; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2679 case LINKpascal: mc = 'V'; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2680 case LINKcpp: mc = 'R'; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2681 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2682 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2683 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2684 buf->writeByte(mc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2685 // Write argument types
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2686 Argument::argsToDecoBuffer(buf, parameters);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2687 //if (buf->data[buf->offset - 1] == '@') halt();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2688 buf->writeByte('Z' - varargs); // mark end of arg list
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2689 next->toDecoBuffer(buf);
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::toCBuffer(OutBuffer *buf, Identifier *ident, HdrGenState *hgs)
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 && (!ident || ident->toHChars2() == ident->toChars()))
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 if (ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2721 { buf->writeByte(' ');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2722 buf->writestring(ident->toHChars2());
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 Argument::argsToCBuffer(buf, hgs, parameters, varargs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2725 inuse--;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2728 void TypeFunction::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2729 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2730 char *p = NULL;
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 if (inuse)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2733 { inuse = 2; // flag error to caller
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2734 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2735 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2736 inuse++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2737 if (next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2738 next->toCBuffer2(buf, hgs, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2739 if (hgs->ddoc != 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2740 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2741 switch (linkage)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2742 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2743 case LINKd: p = NULL; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2744 case LINKc: p = "C "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2745 case LINKwindows: p = "Windows "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2746 case LINKpascal: p = "Pascal "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2747 case LINKcpp: p = "C++ "; break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2748 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2749 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2750 }
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2753 if (!hgs->hdrgen && p)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2754 buf->writestring(p);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2755 buf->writestring(" function");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2756 Argument::argsToCBuffer(buf, hgs, parameters, varargs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2757 inuse--;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2758 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2759
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2760 Type *TypeFunction::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2761 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2762 if (deco) // if semantic() already run
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2763 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2764 //printf("already done\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2765 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2766 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2767 //printf("TypeFunction::semantic() this = %p\n", this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2768
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2769 TypeFunction *tf = (TypeFunction *)mem.malloc(sizeof(TypeFunction));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2770 memcpy(tf, this, sizeof(TypeFunction));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2771 if (parameters)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2772 { tf->parameters = (Arguments *)parameters->copy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2773 for (size_t i = 0; i < parameters->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2774 { Argument *arg = (Argument *)parameters->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2775 Argument *cpy = (Argument *)mem.malloc(sizeof(Argument));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2776 memcpy(cpy, arg, sizeof(Argument));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2777 tf->parameters->data[i] = (void *)cpy;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2778 }
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2781 tf->linkage = sc->linkage;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2782 if (!tf->next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2783 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2784 assert(global.errors);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2785 tf->next = tvoid;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2786 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2787 tf->next = tf->next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2788 if (tf->next->toBasetype()->ty == Tsarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2789 { error(loc, "functions cannot return static array %s", tf->next->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2790 tf->next = Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2791 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2792 if (tf->next->toBasetype()->ty == Tfunction)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2793 { error(loc, "functions cannot return a function");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2794 tf->next = Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2795 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2796 if (tf->next->toBasetype()->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2797 { error(loc, "functions cannot return a tuple");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2798 tf->next = Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2799 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2800 if (tf->next->isauto() && !(sc->flags & SCOPEctor))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2801 error(loc, "functions cannot return auto %s", tf->next->toChars());
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 if (tf->parameters)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2804 { size_t dim = Argument::dim(tf->parameters);
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 for (size_t i = 0; i < dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2807 { Argument *arg = Argument::getNth(tf->parameters, i);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2808 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2809
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2810 tf->inuse++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2811 arg->type = arg->type->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2812 if (tf->inuse == 1) tf->inuse--;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2813 t = arg->type->toBasetype();
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 if (arg->storageClass & (STCout | STCref | STClazy))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2816 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2817 if (t->ty == Tsarray)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2818 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
2819 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2820 if (!(arg->storageClass & STClazy) && t->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2821 error(loc, "cannot have parameter of type %s", arg->type->toChars());
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 if (arg->defaultArg)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2824 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2825 arg->defaultArg = arg->defaultArg->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2826 arg->defaultArg = resolveProperties(sc, arg->defaultArg);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2827 arg->defaultArg = arg->defaultArg->implicitCastTo(sc, arg->type);
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2830 /* 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
2831 * change.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2832 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2833 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2834 { dim = Argument::dim(tf->parameters);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2835 i--;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2836 }
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2839 tf->deco = tf->merge()->deco;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2840
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2841 if (tf->inuse)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2842 { error(loc, "recursive type");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2843 tf->inuse = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2844 return terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2845 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2846
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2847 if (tf->varargs == 1 && tf->linkage != LINKd && Argument::dim(tf->parameters) == 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2848 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
2849
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2850 /* Don't return merge(), because arg identifiers and default args
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2851 * can be different
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2852 * even though the types match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2853 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2854 return tf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2855 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2856
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2857 /********************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2858 * 'args' are being matched to function 'this'
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2859 * Determine match level.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2860 * Returns:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2861 * MATCHxxxx
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2862 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2863
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2864 int TypeFunction::callMatch(Expressions *args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2865 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2866 //printf("TypeFunction::callMatch()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2867 int match = MATCHexact; // assume exact match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2868
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2869 size_t nparams = Argument::dim(parameters);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2870 size_t nargs = args ? args->dim : 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2871 if (nparams == nargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2872 ;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2873 else if (nargs > nparams)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2874 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2875 if (varargs == 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2876 goto Nomatch; // too many args; no match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2877 match = MATCHconvert; // match ... with a "conversion" match level
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2878 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2879
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2880 for (size_t u = 0; u < nparams; u++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2881 { int m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2882 Expression *arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2883
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2884 // BUG: what about out and ref?
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 Argument *p = Argument::getNth(parameters, u);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2887 assert(p);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2888 if (u >= nargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2889 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2890 if (p->defaultArg)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2891 continue;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2892 if (varargs == 2 && u + 1 == nparams)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2893 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2894 goto Nomatch; // not enough arguments
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2895 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2896 arg = (Expression *)args->data[u];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2897 assert(arg);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2898 if (p->storageClass & STClazy && p->type->ty == Tvoid && arg->type->ty != Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2899 m = MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2900 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2901 m = arg->implicitConvTo(p->type);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2902 //printf("\tm = %d\n", m);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2903 if (m == MATCHnomatch) // if no match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2904 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2905 L1:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2906 if (varargs == 2 && u + 1 == nparams) // if last varargs param
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2907 { Type *tb = p->type->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2908 TypeSArray *tsa;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2909 integer_t sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2910
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2911 switch (tb->ty)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2912 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2913 case Tsarray:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2914 tsa = (TypeSArray *)tb;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2915 sz = tsa->dim->toInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2916 if (sz != nargs - u)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2917 goto Nomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2918 case Tarray:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2919 for (; u < nargs; u++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2920 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2921 arg = (Expression *)args->data[u];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2922 assert(arg);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2923 #if 1
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2924 /* If lazy array of delegates,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2925 * convert arg(s) to delegate(s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2926 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2927 Type *tret = p->isLazyArray();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2928 if (tret)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2929 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2930 if (tb->next->equals(arg->type))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2931 { m = MATCHexact;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2932 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2933 else
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 m = arg->implicitConvTo(tret);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2936 if (m == MATCHnomatch)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2937 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2938 if (tret->toBasetype()->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2939 m = MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2940 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2941 }
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 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2944 m = arg->implicitConvTo(tb->next);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2945 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2946 m = arg->implicitConvTo(tb->next);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2947 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2948 if (m == 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2949 goto Nomatch;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2950 if (m < match)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2951 match = m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2952 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2953 goto Ldone;
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 case Tclass:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2956 // Should see if there's a constructor match?
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2957 // Or just leave it ambiguous?
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2958 goto Ldone;
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 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2961 goto Nomatch;
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2964 goto Nomatch;
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 if (m < match)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2967 match = m; // pick worst match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2968 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2969
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2970 Ldone:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2971 //printf("match = %d\n", match);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2972 return match;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2973
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2974 Nomatch:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2975 //printf("no match\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2976 return MATCHnomatch;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2979 Type *TypeFunction::reliesOnTident()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2980 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2981 if (parameters)
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 for (size_t i = 0; i < parameters->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2984 { Argument *arg = (Argument *)parameters->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2985 Type *t = arg->type->reliesOnTident();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2986 if (t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2987 return t;
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2990 return next->reliesOnTident();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2993 /***************************** TypeDelegate *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2994
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2995 TypeDelegate::TypeDelegate(Type *t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
2996 : Type(Tfunction, t)
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 ty = Tdelegate;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3001 Type *TypeDelegate::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3002 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3003 Type *t = next->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3004 if (t == next)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3005 t = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3006 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3007 t = new TypeDelegate(t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3008 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3009 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3010
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3011 Type *TypeDelegate::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3012 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3013 if (deco) // if semantic() already run
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 //printf("already done\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3016 return this;
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 next = next->semantic(loc,sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3019 return merge();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3022 d_uns64 TypeDelegate::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3023 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3024 return PTRSIZE * 2;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3027 void TypeDelegate::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3028 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3029 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3030 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3031 return;
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 TypeFunction *tf = (TypeFunction *)next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3034
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3035 tf->next->toCBuffer2(buf, hgs, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3036 buf->writestring(" delegate");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3037 Argument::argsToCBuffer(buf, hgs, tf->parameters, tf->varargs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3038 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3039
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3040 Expression *TypeDelegate::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3041 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3042 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3043 printf("TypeDelegate::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3044 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3045 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3046 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3047 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3048 return e;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3051 int TypeDelegate::isZeroInit()
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 return 1;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3056 int TypeDelegate::checkBoolean()
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 return TRUE;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3061 Expression *TypeDelegate::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3062 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3063 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3064 printf("TypeDelegate::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3065 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3066 if (ident == Id::ptr)
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 e->type = tvoidptr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3069 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3070 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3071 else if (ident == Id::funcptr)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3072 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3073 e = e->addressOf(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3074 e->type = tvoidptr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3075 e = new AddExp(e->loc, e, new IntegerExp(PTRSIZE));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3076 e->type = tvoidptr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3077 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3078 e->type = next->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3079 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3080 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3081 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3082 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3083 e = Type::dotExp(sc, e, ident);
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 return e;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3088 int TypeDelegate::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3089 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3090 return TRUE;
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
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3095 /***************************** TypeQualified *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3096
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3097 TypeQualified::TypeQualified(TY ty, Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3098 : Type(ty, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3099 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3100 this->loc = loc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3101 }
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 void TypeQualified::syntaxCopyHelper(TypeQualified *t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3104 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3105 //printf("TypeQualified::syntaxCopyHelper(%s) %s\n", t->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3106 idents.setDim(t->idents.dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3107 for (int i = 0; i < idents.dim; i++)
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 Identifier *id = (Identifier *)t->idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3110 if (id->dyncast() == DYNCAST_DSYMBOL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3111 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3112 TemplateInstance *ti = (TemplateInstance *)id;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3113
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3114 ti = (TemplateInstance *)ti->syntaxCopy(NULL);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3115 id = (Identifier *)ti;
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 idents.data[i] = id;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3118 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3119 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3120
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3121
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3122 void TypeQualified::addIdent(Identifier *ident)
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 idents.push(ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3125 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3126
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3127 void TypeQualified::toCBuffer2Helper(OutBuffer *buf, HdrGenState *hgs)
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 int i;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3130
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3131 for (i = 0; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3132 { Identifier *id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3133
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3134 buf->writeByte('.');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3135
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3136 if (id->dyncast() == DYNCAST_DSYMBOL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3137 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3138 TemplateInstance *ti = (TemplateInstance *)id;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3139 ti->toCBuffer(buf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3140 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3141 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3142 buf->writestring(id->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3143 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3144 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3145
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3146 d_uns64 TypeQualified::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3147 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3148 error(this->loc, "size of type %s is not known", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3149 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3150 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3151
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 * Takes an array of Identifiers and figures out if
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3154 * it represents a Type or an Expression.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3155 * Output:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3156 * if expression, *pe is set
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3157 * if type, *pt is set
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3160 void TypeQualified::resolveHelper(Loc loc, Scope *sc,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3161 Dsymbol *s, Dsymbol *scopesym,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3162 Expression **pe, Type **pt, Dsymbol **ps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3163 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3164 Identifier *id = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3165 int i;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3166 VarDeclaration *v;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3167 EnumMember *em;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3168 TupleDeclaration *td;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3169 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3170 Expression *e;
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 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3173 printf("TypeQualified::resolveHelper(sc = %p, idents = '%s')\n", sc, toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3174 if (scopesym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3175 printf("\tscopesym = '%s'\n", scopesym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3176 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3177 *pe = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3178 *pt = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3179 *ps = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3180 if (s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3181 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3182 //printf("\t1: s = '%s' %p, kind = '%s'\n",s->toChars(), s, s->kind());
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
3183 s->checkDeprecated(loc, sc); // check for deprecated aliases
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3184 s = s->toAlias();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3185 //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
3186 for (i = 0; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3187 { Dsymbol *sm;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3188
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3189 id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3190 sm = s->searchX(loc, sc, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3191 //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
3192 //printf("getType = '%s'\n", s->getType()->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3193 if (!sm)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3194 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3195 v = s->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3196 if (v && id == Id::length)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3197 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3198 if (v->isConst() && v->getExpInitializer())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3199 { e = v->getExpInitializer()->exp;
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 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3202 e = new VarExp(loc, v);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3203 t = e->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3204 if (!t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3205 goto Lerror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3206 goto L3;
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 t = s->getType();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3209 if (!t && s->isDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3210 t = s->isDeclaration()->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3211 if (t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3212 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3213 sm = t->toDsymbol(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3214 if (sm)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3215 { sm = sm->search(loc, id, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3216 if (sm)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3217 goto L2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3218 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3219 //e = t->getProperty(loc, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3220 e = new TypeExp(loc, t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3221 e = t->dotExp(sc, e, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3222 i++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3223 L3:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3224 for (; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3225 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3226 id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3227 //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
3228 e = e->type->dotExp(sc, e, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3229 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3230 *pe = e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3231 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3232 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3233 Lerror:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3234 error(loc, "identifier '%s' of '%s' is not defined", id->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3235 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3236 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3237 L2:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3238 s = sm->toAlias();
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 v = s->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3242 if (v)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3243 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3244 // It's not a type, it's an expression
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3245 if (v->isConst() && v->getExpInitializer())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3246 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3247 ExpInitializer *ei = v->getExpInitializer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3248 assert(ei);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3249 *pe = ei->exp->copy(); // make copy so we can change loc
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3250 (*pe)->loc = loc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3251 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3252 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3253 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3254 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3255 WithScopeSymbol *withsym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3256 if (scopesym && (withsym = scopesym->isWithScopeSymbol()) != NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3257 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3258 // Same as wthis.ident
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3259 e = new VarExp(loc, withsym->withstate->wthis);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3260 e = new DotIdExp(loc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3261 //assert(0); // BUG: should handle this
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 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3264 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3265 *pe = new VarExp(loc, v);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3266 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3267 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3268 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3269 em = s->isEnumMember();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3270 if (em)
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 // It's not a type, it's an expression
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3273 *pe = em->value->copy();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3277 L1:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3278 t = s->getType();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3279 if (!t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3280 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3281 // If the symbol is an import, try looking inside the import
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3282 Import *si;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3283
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3284 si = s->isImport();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3285 if (si)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3286 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3287 s = si->search(loc, s->ident, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3288 if (s && s != si)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3289 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3290 s = si;
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 *ps = s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3293 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3294 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3295 if (t->ty == Tinstance && t != this && !t->deco)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3296 { error(loc, "forward reference to '%s'", t->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3297 return;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3300 if (t != this)
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 if (t->reliesOnTident())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3303 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3304 Scope *scx;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3305
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3306 for (scx = sc; 1; scx = scx->enclosing)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3307 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3308 if (!scx)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3309 { error(loc, "forward reference to '%s'", t->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3310 return;
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 if (scx->scopesym == scopesym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3313 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3314 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3315 t = t->semantic(loc, scx);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3316 //((TypeIdentifier *)t)->resolve(loc, scx, pe, &t, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3317 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3318 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3319 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3320 *pt = t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3321 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3322 *pt = t->merge();
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 (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3325 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3326 error(loc, "identifier '%s' is not defined", toChars());
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3329
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3330 /***************************** TypeIdentifier *****************************/
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 TypeIdentifier::TypeIdentifier(Loc loc, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3333 : TypeQualified(Tident, loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3334 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3335 this->ident = ident;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3336 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3337
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 Type *TypeIdentifier::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3340 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3341 TypeIdentifier *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3342
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3343 t = new TypeIdentifier(loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3344 t->syntaxCopyHelper(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3345 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3346 }
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 void TypeIdentifier::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3349 { unsigned len;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3350 char *name;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3351
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3352 name = ident->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3353 len = strlen(name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3354 buf->printf("%c%d%s", mangleChar[ty], len, name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3355 //buf->printf("%c%s", mangleChar[ty], name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3356 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3357
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3358 void TypeIdentifier::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3359 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3360 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3361 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3362 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3363 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3364 buf->writestring(this->ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3365 toCBuffer2Helper(buf, hgs);
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3368 /*************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3369 * Takes an array of Identifiers and figures out if
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3370 * it represents a Type or an Expression.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3371 * Output:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3372 * if expression, *pe is set
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3373 * if type, *pt is set
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3376 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
3377 { Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3378 Dsymbol *scopesym;
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 //printf("TypeIdentifier::resolve(sc = %p, idents = '%s')\n", sc, toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3381 s = sc->search(loc, ident, &scopesym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3382 resolveHelper(loc, sc, s, scopesym, pe, pt, ps);
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3385 /*****************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3386 * See if type resolves to a symbol, if so,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3387 * return that symbol.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3388 */
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 Dsymbol *TypeIdentifier::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3391 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3392 //printf("TypeIdentifier::toDsymbol('%s')\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3393 if (!sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3394 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3395 //printf("ident = '%s'\n", ident->toChars());
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 Dsymbol *scopesym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3398 Dsymbol *s = sc->search(loc, ident, &scopesym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3399 if (s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3400 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3401 for (int i = 0; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3402 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3403 Identifier *id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3404 s = s->searchX(loc, sc, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3405 if (!s) // failed to find a symbol
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3406 { //printf("\tdidn't find a symbol\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3407 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3408 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3409 }
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 return s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3412 }
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 Type *TypeIdentifier::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3415 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3416 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3417 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3418 Dsymbol *s;
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 //printf("TypeIdentifier::semantic(%s)\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3421 resolve(loc, sc, &e, &t, &s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3422 if (t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3423 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3424 //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
3425
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3426 if (t->ty == Ttypedef)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3427 { TypeTypedef *tt = (TypeTypedef *)t;
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 if (tt->sym->sem == 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3430 error(loc, "circular reference of typedef %s", tt->toChars());
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3433 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3434 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3435 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3436 if (!global.gag)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3437 printf("1: ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3438 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3439 if (s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3440 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3441 s->error(loc, "is used as a type");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3442 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3443 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3444 error(loc, "%s is used as a type", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3445 t = tvoid;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3446 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3447 //t->print();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3448 return t;
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 Type *TypeIdentifier::reliesOnTident()
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 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3454 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3455
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3456 Expression *TypeIdentifier::toExpression()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3457 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3458 Expression *e = new IdentifierExp(loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3459 for (int i = 0; i < idents.dim; i++)
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 Identifier *id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3462 e = new DotIdExp(loc, e, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3463 }
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 return e;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3468 /***************************** TypeInstance *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3469
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3470 TypeInstance::TypeInstance(Loc loc, TemplateInstance *tempinst)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3471 : TypeQualified(Tinstance, loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3472 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3473 this->tempinst = tempinst;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3474 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3475
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3476 Type *TypeInstance::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3477 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3478 //printf("TypeInstance::syntaxCopy() %s, %d\n", toChars(), idents.dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3479 TypeInstance *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3480
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3481 t = new TypeInstance(loc, (TemplateInstance *)tempinst->syntaxCopy(NULL));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3482 t->syntaxCopyHelper(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3483 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3484 }
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 void TypeInstance::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
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 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3490 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3491 return;
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 tempinst->toCBuffer(buf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3494 toCBuffer2Helper(buf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3495 }
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 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
3498 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3499 // Note close similarity to TypeIdentifier::resolve()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3500
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3501 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3502
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3503 *pe = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3504 *pt = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3505 *ps = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3506
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3507 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3508 if (!idents.dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3509 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3510 error(loc, "template instance '%s' has no identifier", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3511 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3512 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3513 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3514 //id = (Identifier *)idents.data[0];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3515 //printf("TypeInstance::resolve(sc = %p, idents = '%s')\n", sc, id->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3516 s = tempinst;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3517 if (s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3518 s->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3519 resolveHelper(loc, sc, s, NULL, pe, pt, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3520 //printf("pt = '%s'\n", (*pt)->toChars());
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 Type *TypeInstance::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3524 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3525 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3526 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3527 Dsymbol *s;
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 //printf("TypeInstance::semantic(%s)\n", toChars());
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 if (sc->parameterSpecialization)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3532 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3533 unsigned errors = global.errors;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3534 global.gag++;
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 resolve(loc, sc, &e, &t, &s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3537
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3538 global.gag--;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3539 if (errors != global.errors)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3540 { if (global.gag == 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3541 global.errors = errors;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3542 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3543 }
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 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3546 resolve(loc, sc, &e, &t, &s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3547
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3548 if (!t)
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 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3551 printf("2: ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3552 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3553 error(loc, "%s is used as a type", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3554 t = tvoid;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3555 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3556 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3557 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3558
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3559
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3560 /***************************** TypeTypeof *****************************/
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 TypeTypeof::TypeTypeof(Loc loc, Expression *exp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3563 : TypeQualified(Ttypeof, loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3564 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3565 this->exp = exp;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3568 Type *TypeTypeof::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3569 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3570 TypeTypeof *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3571
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3572 t = new TypeTypeof(loc, exp->syntaxCopy());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3573 t->syntaxCopyHelper(this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3574 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3575 }
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 Dsymbol *TypeTypeof::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3578 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3579 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3580
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
3581 t = semantic(loc, sc);
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3582 if (t == this)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3583 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3584 return t->toDsymbol(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3585 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3586
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3587 void TypeTypeof::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3588 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3589 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3590 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3591 return;
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 buf->writestring("typeof(");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3594 exp->toCBuffer(buf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3595 buf->writeByte(')');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3596 toCBuffer2Helper(buf, hgs);
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 Type *TypeTypeof::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3600 { Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3601 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3602
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3603 //printf("TypeTypeof::semantic() %p\n", this);
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 //static int nest; if (++nest == 50) *(char*)0=0;
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 #if 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3608 /* Special case for typeof(this) and typeof(super) since both
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3609 * 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
3610 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3611 if (exp->op == TOKthis || exp->op == TOKsuper)
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 // Find enclosing struct or class
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3614 for (Dsymbol *s = sc->parent; 1; s = s->parent)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3615 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3616 ClassDeclaration *cd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3617 StructDeclaration *sd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3618
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3619 if (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3620 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3621 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
3622 goto Lerr;
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 cd = s->isClassDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3625 if (cd)
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 if (exp->op == TOKsuper)
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 cd = cd->baseClass;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3630 if (!cd)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3631 { error(loc, "class %s has no 'super'", s->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3632 goto Lerr;
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3635 t = cd->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3636 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3637 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3638 sd = s->isStructDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3639 if (sd)
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 if (exp->op == TOKsuper)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3642 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3643 error(loc, "struct %s has no 'super'", sd->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 t = sd->type->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3647 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3648 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3649 }
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 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3652 #endif
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 sc->intypeof++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3655 exp = exp->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3656 sc->intypeof--;
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
3657 if (exp->op == TOKtype)
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
3658 {
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
3659 error(loc, "argument %s to typeof is not an expression", exp->toChars());
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
3660 }
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3661 t = exp->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3662 if (!t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3663 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3664 error(loc, "expression (%s) has no type", exp->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3665 goto Lerr;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3669 if (idents.dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3670 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3671 Dsymbol *s = t->toDsymbol(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3672 for (size_t i = 0; i < idents.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3673 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3674 if (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3675 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3676 Identifier *id = (Identifier *)idents.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3677 s = s->searchX(loc, sc, id);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3678 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3679 if (s)
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 t = s->getType();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3682 if (!t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3683 { error(loc, "%s is not a type", s->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3684 goto Lerr;
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 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3688 { error(loc, "cannot resolve .property for %s", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3689 goto Lerr;
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3692 return t;
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 Lerr:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3695 return tvoid;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3698 d_uns64 TypeTypeof::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3699 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3700 if (exp->type)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3701 return exp->type->size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3702 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3703 return TypeQualified::size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3704 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3705
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3708 /***************************** TypeEnum *****************************/
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 TypeEnum::TypeEnum(EnumDeclaration *sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3711 : Type(Tenum, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3712 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3713 this->sym = sym;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3716 char *TypeEnum::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3717 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3718 return sym->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3719 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3720
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3721 Type *TypeEnum::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3722 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3723 sym->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3724 return merge();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3725 }
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 d_uns64 TypeEnum::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3728 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3729 if (!sym->memtype)
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 error(loc, "enum %s is forward referenced", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3732 return 4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3733 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3734 return sym->memtype->size(loc);
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 unsigned TypeEnum::alignsize()
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 (!sym->memtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3740 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3741 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3742 printf("1: ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3743 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3744 error(0, "enum %s is forward referenced", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3745 return 4;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3746 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3747 return sym->memtype->alignsize();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3748 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3749
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3750 Dsymbol *TypeEnum::toDsymbol(Scope *sc)
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 return sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3753 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3754
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3755 Type *TypeEnum::toBasetype()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3756 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3757 if (!sym->memtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3758 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3759 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3760 printf("2: ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3761 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3762 error(sym->loc, "enum %s is forward referenced", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3763 return tint32;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3764 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3765 return sym->memtype->toBasetype();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3768 void TypeEnum::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3769 { char *name;
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 name = sym->mangle();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3772 // if (name[0] == '_' && name[1] == 'D')
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3773 // name += 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3774 buf->printf("%c%s", mangleChar[ty], name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3775 }
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 void TypeEnum::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3778 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3779 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3780 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3781 return;
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 buf->writestring(sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3784 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3785
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3786 Expression *TypeEnum::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3787 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3788 EnumMember *m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3789 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3790 Expression *em;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3791
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3792 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3793 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
3794 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3795 if (!sym->symtab)
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 s = sym->symtab->lookup(ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3798 if (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3799 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3800 return getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3801 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3802 m = s->isEnumMember();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3803 em = m->value->copy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3804 em->loc = e->loc;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3805 return em;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3806
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3807 Lfwd:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3808 error(e->loc, "forward reference of %s.%s", toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3809 return new IntegerExp(0, 0, this);
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3812 Expression *TypeEnum::getProperty(Loc loc, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3813 { Expression *e;
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 if (ident == Id::max)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3816 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3817 if (!sym->symtab)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3818 goto Lfwd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3819 e = new IntegerExp(0, sym->maxval, this);
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 else if (ident == Id::min)
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 if (!sym->symtab)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3824 goto Lfwd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3825 e = new IntegerExp(0, sym->minval, this);
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 else if (ident == Id::init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3828 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3829 if (!sym->symtab)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3830 goto Lfwd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3831 e = defaultInit(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3832 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3833 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3834 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3835 if (!sym->memtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3836 goto Lfwd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3837 e = sym->memtype->getProperty(loc, ident);
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 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3840
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3841 Lfwd:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3842 error(loc, "forward reference of %s.%s", toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3843 return new IntegerExp(0, 0, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3844 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3845
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3846 int TypeEnum::isintegral()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3847 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3848 return 1;
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::isfloating()
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 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::isunsigned()
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 sym->memtype->isunsigned();
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 int TypeEnum::isscalar()
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 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3864 //return sym->memtype->isscalar();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3867 MATCH TypeEnum::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3868 { MATCH m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3869
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3870 //printf("TypeEnum::implicitConvTo()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3871 if (this->equals(to))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3872 m = MATCHexact; // exact match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3873 else if (sym->memtype->implicitConvTo(to))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3874 m = MATCHconvert; // match with conversions
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3875 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3876 m = MATCHnomatch; // no match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3877 return m;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3880 Expression *TypeEnum::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3881 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3882 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3883 printf("TypeEnum::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3884 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3885 // Initialize to first member of enum
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3886 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3887 e = new IntegerExp(loc, sym->defaultval, this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3888 return e;
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 int TypeEnum::isZeroInit()
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->defaultval == 0);
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 int TypeEnum::hasPointers()
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 toBasetype()->hasPointers();
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 /***************************** TypeTypedef *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3902
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3903 TypeTypedef::TypeTypedef(TypedefDeclaration *sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3904 : Type(Ttypedef, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3905 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3906 this->sym = sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3907 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3908
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3909 Type *TypeTypedef::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3910 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3911 return this;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3914 char *TypeTypedef::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3915 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3916 return sym->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3917 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3918
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3919 Type *TypeTypedef::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3920 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3921 //printf("TypeTypedef::semantic(%s), sem = %d\n", toChars(), sym->sem);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3922 sym->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3923 return merge();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3926 d_uns64 TypeTypedef::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3927 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3928 return sym->basetype->size(loc);
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3931 unsigned TypeTypedef::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3932 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3933 return sym->basetype->alignsize();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3936 Dsymbol *TypeTypedef::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3937 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3938 return sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3939 }
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 void TypeTypedef::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3942 { unsigned len;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3943 char *name;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3944
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3945 name = sym->mangle();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3946 // if (name[0] == '_' && name[1] == 'D')
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3947 // name += 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3948 //len = strlen(name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3949 //buf->printf("%c%d%s", mangleChar[ty], len, name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3950 buf->printf("%c%s", mangleChar[ty], name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3951 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3952
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3953 void TypeTypedef::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3954 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3955 //printf("TypeTypedef::toCBuffer2() '%s'\n", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3956 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3957 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3958 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3959 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3960 buf->writestring(sym->toChars());
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3963 Expression *TypeTypedef::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3964 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3965 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3966 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
3967 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3968 if (ident == Id::init)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3969 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3970 return Type::dotExp(sc, e, ident);
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 return sym->basetype->dotExp(sc, e, ident);
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3975 Expression *TypeTypedef::getProperty(Loc loc, Identifier *ident)
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 if (ident == Id::init)
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 Type::getProperty(loc, ident);
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 return sym->basetype->getProperty(loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3982 }
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 int TypeTypedef::isbit()
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 return sym->basetype->isbit();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3987 }
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 int TypeTypedef::isintegral()
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 //printf("TypeTypedef::isintegral()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3992 //printf("sym = '%s'\n", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3993 //printf("basetype = '%s'\n", sym->basetype->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3994 return sym->basetype->isintegral();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3997 int TypeTypedef::isfloating()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3998 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
3999 return sym->basetype->isfloating();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4000 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4001
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4002 int TypeTypedef::isreal()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4003 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4004 return sym->basetype->isreal();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4007 int TypeTypedef::isimaginary()
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 return sym->basetype->isimaginary();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4010 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4011
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4012 int TypeTypedef::iscomplex()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4013 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4014 return sym->basetype->iscomplex();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4015 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4016
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4017 int TypeTypedef::isunsigned()
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 return sym->basetype->isunsigned();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4020 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4021
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4022 int TypeTypedef::isscalar()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4023 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4024 return sym->basetype->isscalar();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4025 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4026
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4027 int TypeTypedef::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4028 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4029 return sym->basetype->checkBoolean();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4032 Type *TypeTypedef::toBasetype()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4033 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4034 if (sym->inuse)
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 sym->error("circular definition");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4037 sym->basetype = Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4038 return Type::terror;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4039 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4040 sym->inuse = 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4041 Type *t = sym->basetype->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4042 sym->inuse = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4043 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4044 }
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 MATCH TypeTypedef::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4047 { MATCH m;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4048
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4049 //printf("TypeTypedef::implicitConvTo()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4050 if (this->equals(to))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4051 m = MATCHexact; // exact match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4052 else if (sym->basetype->implicitConvTo(to))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4053 m = MATCHconvert; // match with conversions
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4054 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4055 m = MATCHnomatch; // no match
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4056 return m;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4059 Expression *TypeTypedef::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4060 { Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4061 Type *bt;
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 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4064 printf("TypeTypedef::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4065 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4066 if (sym->init)
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 //sym->init->toExpression()->print();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4069 return sym->init->toExpression();
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 bt = sym->basetype;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4072 e = bt->defaultInit(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4073 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4074 while (bt->ty == Tsarray)
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 e->type = bt->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4077 bt = bt->next->toBasetype();
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 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4080 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4081
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4082 int TypeTypedef::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4083 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4084 if (sym->init)
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 if (sym->init->isVoidInitializer())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4087 return 1; // initialize voids to 0
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4088 Expression *e = sym->init->toExpression();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4089 if (e && e->isBool(FALSE))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4090 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4091 return 0; // assume not
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 if (sym->inuse)
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 sym->error("circular definition");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4096 sym->basetype = Type::terror;
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->inuse = 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4099 int result = sym->basetype->isZeroInit();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4100 sym->inuse = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4101 return result;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4104 int TypeTypedef::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4105 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4106 return toBasetype()->hasPointers();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4109 /***************************** TypeStruct *****************************/
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 TypeStruct::TypeStruct(StructDeclaration *sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4112 : Type(Tstruct, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4113 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4114 this->sym = sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4115 }
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 char *TypeStruct::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4118 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4119 //printf("sym.parent: %s, deco = %s\n", sym->parent->toChars(), deco);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4120 TemplateInstance *ti = sym->parent->isTemplateInstance();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4121 if (ti && ti->toAlias() == sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4122 return ti->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4123 return sym->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4124 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4125
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4126 Type *TypeStruct::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4127 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4128 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4129 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4130
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4131 Type *TypeStruct::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4132 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4133 //printf("TypeStruct::semantic('%s')\n", sym->toChars());
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 /* Cannot do semantic for sym because scope chain may not
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4136 * be right.
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 //sym->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4139
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4140 return merge();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4143 d_uns64 TypeStruct::size(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4144 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4145 return sym->size(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4146 }
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 unsigned TypeStruct::alignsize()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4149 { unsigned sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4150
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4151 sym->size(0); // give error for forward references
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4152 sz = sym->alignsize;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4153 if (sz > sym->structalign)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4154 sz = sym->structalign;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4155 return sz;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4156 }
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 Dsymbol *TypeStruct::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4159 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4160 return sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4161 }
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 void TypeStruct::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4164 { unsigned len;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4165 char *name;
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 name = sym->mangle();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4168 //printf("TypeStruct::toDecoBuffer('%s') = '%s'\n", toChars(), name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4169 // if (name[0] == '_' && name[1] == 'D')
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4170 // name += 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4171 //len = strlen(name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4172 //buf->printf("%c%d%s", mangleChar[ty], len, name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4173 buf->printf("%c%s", mangleChar[ty], name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4174 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4175
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4176 void TypeStruct::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
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 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4179 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4180 return;
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 TemplateInstance *ti = sym->parent->isTemplateInstance();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4183 if (ti && ti->toAlias() == sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4184 buf->writestring(ti->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4185 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4186 buf->writestring(sym->toChars());
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4189 Expression *TypeStruct::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4190 { unsigned offset;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4191
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4192 Expression *b;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4193 VarDeclaration *v;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4194 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4195 DotVarExp *de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4196 Declaration *d;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4197
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4198 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4199 printf("TypeStruct::dotExp(e = '%s', ident = '%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4200 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4201 if (!sym->members)
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 error(e->loc, "struct %s is forward referenced", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4204 return new IntegerExp(e->loc, 0, Type::tint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4205 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4206
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4207 if (ident == Id::tupleof)
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 /* Create a TupleExp
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4210 */
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4211 e = e->semantic(sc); // do this before turning on noaccesscheck
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4212 Expressions *exps = new Expressions;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4213 exps->reserve(sym->fields.dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4214 for (size_t i = 0; i < sym->fields.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4215 { VarDeclaration *v = (VarDeclaration *)sym->fields.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4216 Expression *fe = new DotVarExp(e->loc, e, v);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4217 exps->push(fe);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4218 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4219 e = new TupleExp(e->loc, exps);
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4220 sc = sc->push();
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4221 sc->noaccesscheck = 1;
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4222 e = e->semantic(sc);
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4223 sc->pop();
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4224 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4225 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4226
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4227 if (e->op == TOKdotexp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4228 { DotExp *de = (DotExp *)e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4229
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4230 if (de->e1->op == TOKimport)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4231 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4232 ScopeExp *se = (ScopeExp *)de->e1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4233
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4234 s = se->sds->search(e->loc, ident, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4235 e = de->e1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4236 goto L1;
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4239
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4240 s = sym->search(e->loc, ident, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4241 L1:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4242 if (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4243 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4244 //return getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4245 return Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4246 }
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4247 if (!s->isFuncDeclaration()) // because of overloading
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4248 s->checkDeprecated(e->loc, sc);
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4249 s = s->toAlias();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4250
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4251 v = s->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4252 if (v && v->isConst())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4253 { ExpInitializer *ei = v->getExpInitializer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4254
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4255 if (ei)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4256 { 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
4257 e = e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4258 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4259 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4260 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4261
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4262 if (s->getType())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4263 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4264 //return new DotTypeExp(e->loc, e, s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4265 return new TypeExp(e->loc, s->getType());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4266 }
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 EnumMember *em = s->isEnumMember();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4269 if (em)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4270 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4271 assert(em->value);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4272 return em->value->copy();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4275 TemplateMixin *tm = s->isTemplateMixin();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4276 if (tm)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4277 { Expression *de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4278
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4279 de = new DotExp(e->loc, e, new ScopeExp(e->loc, tm));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4280 de->type = e->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4281 return de;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4284 TemplateDeclaration *td = s->isTemplateDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4285 if (td)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4286 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4287 e = new DotTemplateExp(e->loc, e, td);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4288 e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4289 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4290 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4291
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4292 TemplateInstance *ti = s->isTemplateInstance();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4293 if (ti)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4294 { if (!ti->semanticdone)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4295 ti->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4296 s = ti->inst->toAlias();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4297 if (!s->isTemplateInstance())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4298 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4299 Expression *de = new DotExp(e->loc, e, new ScopeExp(e->loc, ti));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4300 de->type = e->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4301 return de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4302 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4303
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4304 d = s->isDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4305 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4306 if (!d)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4307 printf("d = %s '%s'\n", s->kind(), s->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4308 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4309 assert(d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4310
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4311 if (e->op == TOKtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4312 { FuncDeclaration *fd = sc->func;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4313
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4314 if (d->needThis() && fd && fd->vthis)
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 e = new DotVarExp(e->loc, new ThisExp(e->loc), d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4317 e = e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4318 return e;
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 if (d->isTupleDeclaration())
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 e = new TupleExp(e->loc, d->isTupleDeclaration());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4323 e = e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4324 return e;
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 return new VarExp(e->loc, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4327 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4328
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4329 if (d->isDataseg())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4330 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4331 // (e, d)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4332 VarExp *ve;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4333
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4334 accessCheck(e->loc, sc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4335 ve = new VarExp(e->loc, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4336 e = new CommaExp(e->loc, e, ve);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4337 e->type = d->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4338 return e;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4341 if (v)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4342 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4343 if (v->toParent() != sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4344 sym->error(e->loc, "'%s' is not a member", v->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4345
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4346 // *(&e + offset)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4347 accessCheck(e->loc, sc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4348 b = new AddrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4349 b->type = e->type->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4350 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
4351 #if IN_LLVM
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4352 // LLVMDC modification
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4353 // this is *essential*
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4354 ((AddExp*)b)->llvmFieldIndex = true;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4355 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4356 b->type = v->type->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4357 e = new PtrExp(e->loc, b);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4358 e->type = v->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4359 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4360 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4361
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4362 de = new DotVarExp(e->loc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4363 return de->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4364 }
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 unsigned TypeStruct::memalign(unsigned salign)
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 sym->size(0); // give error for forward references
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4369 return sym->structalign;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4370 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4371
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4372 Expression *TypeStruct::defaultInit(Loc loc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4373 { Symbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4374 Declaration *d;
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 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4377 printf("TypeStruct::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4378 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4379 s = sym->toInitializer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4380 d = new SymbolDeclaration(sym->loc, s, sym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4381 assert(d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4382 d->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4383 return new VarExp(sym->loc, d);
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 int TypeStruct::isZeroInit()
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 return sym->zeroInit;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4389 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4390
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4391 int TypeStruct::checkBoolean()
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 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4394 }
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 int TypeStruct::hasPointers()
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 StructDeclaration *s = sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4399
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4400 sym->size(0); // give error for forward references
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4401 if (s->members)
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 for (size_t i = 0; i < s->members->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4404 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4405 Dsymbol *sm = (Dsymbol *)s->members->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4406 if (sm->hasPointers())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4407 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4408 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4409 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4410 return FALSE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4411 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4412
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4413
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4414 /***************************** TypeClass *****************************/
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 TypeClass::TypeClass(ClassDeclaration *sym)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4417 : Type(Tclass, NULL)
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 this->sym = sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4420 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4421
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4422 char *TypeClass::toChars()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4423 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4424 return sym->toPrettyChars();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4427 Type *TypeClass::syntaxCopy()
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 return this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4430 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4431
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4432 Type *TypeClass::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4433 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4434 //printf("TypeClass::semantic(%s)\n", sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4435 if (sym->scope)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4436 sym->semantic(sym->scope);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4437 return merge();
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4440 d_uns64 TypeClass::size(Loc loc)
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 return PTRSIZE;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4445 Dsymbol *TypeClass::toDsymbol(Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4446 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4447 return sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4448 }
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 void TypeClass::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4451 { unsigned len;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4452 char *name;
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 name = sym->mangle();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4455 // if (name[0] == '_' && name[1] == 'D')
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4456 // name += 2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4457 //printf("TypeClass::toDecoBuffer('%s') = '%s'\n", toChars(), name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4458 //len = strlen(name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4459 //buf->printf("%c%d%s", mangleChar[ty], len, name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4460 buf->printf("%c%s", mangleChar[ty], name);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4461 }
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 void TypeClass::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4464 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4465 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4466 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4467 return;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4468 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4469 buf->writestring(sym->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4470 }
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 Expression *TypeClass::dotExp(Scope *sc, Expression *e, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4473 { unsigned offset;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4474
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4475 Expression *b;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4476 VarDeclaration *v;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4477 Dsymbol *s;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4478 DotVarExp *de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4479 Declaration *d;
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 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4482 printf("TypeClass::dotExp(e='%s', ident='%s')\n", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4483 #endif
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 if (e->op == TOKdotexp)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4486 { DotExp *de = (DotExp *)e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4487
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4488 if (de->e1->op == TOKimport)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4489 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4490 ScopeExp *se = (ScopeExp *)de->e1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4491
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4492 s = se->sds->search(e->loc, ident, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4493 e = de->e1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4494 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4495 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4496 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4497
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4498 if (ident == Id::tupleof)
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 /* Create a TupleExp
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4501 */
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4502 e = e->semantic(sc); // do this before turning on noaccesscheck
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4503 Expressions *exps = new Expressions;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4504 exps->reserve(sym->fields.dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4505 for (size_t i = 0; i < sym->fields.dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4506 { VarDeclaration *v = (VarDeclaration *)sym->fields.data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4507 Expression *fe = new DotVarExp(e->loc, e, v);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4508 exps->push(fe);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4509 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4510 e = new TupleExp(e->loc, exps);
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4511 sc = sc->push();
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4512 sc->noaccesscheck = 1;
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4513 e = e->semantic(sc);
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4514 sc->pop();
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4515 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4516 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4517
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4518 s = sym->search(e->loc, ident, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4519 L1:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4520 if (!s)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4521 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4522 // See if it's a base class
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4523 ClassDeclaration *cbase;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4524 for (cbase = sym->baseClass; cbase; cbase = cbase->baseClass)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4525 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4526 if (cbase->ident->equals(ident))
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 e = new DotTypeExp(0, e, cbase);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4529 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4530 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4531 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4532
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4533 if (ident == Id::classinfo)
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 Type *t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4536
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4537 assert(ClassDeclaration::classinfo);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4538 t = ClassDeclaration::classinfo->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4539 if (e->op == TOKtype || e->op == TOKdottype)
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 /* For type.classinfo, we know the classinfo
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4542 * at compile time.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4543 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4544 if (!sym->vclassinfo)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4545 sym->vclassinfo = new ClassInfoDeclaration(sym);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4546 e = new VarExp(e->loc, sym->vclassinfo);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4547 e = e->addressOf(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4548 e->type = t; // do this so we don't get redundant dereference
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 else
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 class objects, the classinfo reference is the first
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4553 * entry in the vtbl[]
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4554 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4555 #if IN_LLVM
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 Type* ct;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4558 if (sym->isInterfaceDeclaration()) {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4559 ct = t->pointerTo()->pointerTo()->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 else {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4562 ct = t->pointerTo()->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4563 }
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 e = e->castTo(sc, ct);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4566 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4567 e->type = ct->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4568 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4569 e->type = ct->next->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4570
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4571 if (sym->isInterfaceDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4572 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4573 if (sym->isCOMinterface())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4574 { /* COM interface vtbl[]s are different in that the
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4575 * first entry is always pointer to QueryInterface().
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4576 * We can't get a .classinfo for it.
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 error(e->loc, "no .classinfo for COM interface objects");
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 /* For an interface, the first entry in the vtbl[]
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4581 * is actually a pointer to an instance of struct Interface.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4582 * The first member of Interface is the .classinfo,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4583 * so add an extra pointer indirection.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4584 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4585 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4586 e->type = ct->next->next->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4587 }
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4588 }
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4589
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4590 #else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4591
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4592 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4593 e->type = t->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4594 if (sym->isInterfaceDeclaration())
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 (sym->isCOMinterface())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4597 { /* COM interface vtbl[]s are different in that the
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4598 * first entry is always pointer to QueryInterface().
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4599 * We can't get a .classinfo for it.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4600 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4601 error(e->loc, "no .classinfo for COM interface objects");
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 /* For an interface, the first entry in the vtbl[]
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4604 * is actually a pointer to an instance of struct Interface.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4605 * The first member of Interface is the .classinfo,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4606 * so add an extra pointer indirection.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4607 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4608 e->type = e->type->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4609 e = new PtrExp(e->loc, e);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4610 e->type = t->pointerTo();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4611 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4612 e = new PtrExp(e->loc, e, t);
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4613 }
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4614
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4615 #endif // !LLVMDC
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4616
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4617 return e;
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4618 }
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4619
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4620 if (ident == Id::__vptr)
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4621 { /* The pointer to the vtbl[]
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4622 * *cast(void***)e
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4623 */
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4624 e = e->castTo(sc, tvoidptr->pointerTo()->pointerTo());
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4625 e = new PtrExp(e->loc, e);
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4626 e = e->semantic(sc);
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4627 return e;
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4628 }
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4629
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4630 if (ident == Id::__monitor)
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4631 { /* The handle to the monitor (call it a void*)
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4632 * *(cast(void**)e + 1)
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4633 */
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4634 e = e->castTo(sc, tvoidptr->pointerTo());
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4635 e = new AddExp(e->loc, e, new IntegerExp(1));
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4636 e = new PtrExp(e->loc, e);
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4637 e = e->semantic(sc);
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4638 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4639 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4640
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4641 if (ident == Id::typeinfo)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4642 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4643 if (!global.params.useDeprecated)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4644 error(e->loc, ".typeinfo deprecated, use typeid(type)");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4645 return getTypeInfo(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4646 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4647 if (ident == Id::outer && sym->vthis)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4648 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4649 s = sym->vthis;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4650 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4651 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4652 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4653 //return getProperty(e->loc, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4654 return Type::dotExp(sc, e, ident);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4655 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4656 }
336
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4657 if (!s->isFuncDeclaration()) // because of overloading
aaade6ded589 [svn r357] Merged DMD 1.033
lindquist
parents: 305
diff changeset
4658 s->checkDeprecated(e->loc, sc);
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4659 s = s->toAlias();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4660 v = s->isVarDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4661 if (v && v->isConst())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4662 { ExpInitializer *ei = v->getExpInitializer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4663
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4664 if (ei)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4665 { 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
4666 e = e->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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4670
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4671 if (s->getType())
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 // if (e->op == TOKtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4674 return new TypeExp(e->loc, s->getType());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4675 // return new DotTypeExp(e->loc, e, s);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4676 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4677
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4678 EnumMember *em = s->isEnumMember();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4679 if (em)
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 assert(em->value);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4682 return em->value->copy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4683 }
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 TemplateMixin *tm = s->isTemplateMixin();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4686 if (tm)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4687 { Expression *de;
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 de = new DotExp(e->loc, e, new ScopeExp(e->loc, tm));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4690 de->type = e->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4691 return de;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4692 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4693
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4694 TemplateDeclaration *td = s->isTemplateDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4695 if (td)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4696 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4697 e = new DotTemplateExp(e->loc, e, td);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4698 e->semantic(sc);
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 TemplateInstance *ti = s->isTemplateInstance();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4703 if (ti)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4704 { if (!ti->semanticdone)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4705 ti->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4706 s = ti->inst->toAlias();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4707 if (!s->isTemplateInstance())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4708 goto L1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4709 Expression *de = new DotExp(e->loc, e, new ScopeExp(e->loc, ti));
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4710 de->type = e->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4711 return de;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4714 d = s->isDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4715 if (!d)
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 e->error("%s.%s is not a declaration", e->toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4718 return new IntegerExp(e->loc, 1, Type::tint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4719 }
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 if (e->op == TOKtype)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4722 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4723 VarExp *ve;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4724
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4725 if (d->needThis() && (hasThis(sc) || !d->isFuncDeclaration()))
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 if (sc->func)
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 ClassDeclaration *thiscd;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4730 thiscd = sc->func->toParent()->isClassDeclaration();
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 if (thiscd)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4733 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4734 ClassDeclaration *cd = e->type->isClassHandle();
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 if (cd == thiscd)
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 e = new ThisExp(e->loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4739 e = new DotTypeExp(e->loc, e, cd);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4740 de = new DotVarExp(e->loc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4741 e = de->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4742 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4743 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4744 else if ((!cd || !cd->isBaseOf(thiscd, NULL)) &&
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4745 !d->isFuncDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4746 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
4747 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4748 }
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 de = new DotVarExp(e->loc, new ThisExp(e->loc), d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4751 e = de->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4752 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4753 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4754 else if (d->isTupleDeclaration())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4755 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4756 e = new TupleExp(e->loc, d->isTupleDeclaration());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4757 e = e->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4758 return e;
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 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4761 ve = new VarExp(e->loc, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4762 return ve;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4763 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4764
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4765 if (d->isDataseg())
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4766 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4767 // (e, d)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4768 VarExp *ve;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4769
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4770 accessCheck(e->loc, sc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4771 ve = new VarExp(e->loc, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4772 e = new CommaExp(e->loc, e, ve);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4773 e->type = d->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4774 return e;
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 if (d->parent && d->toParent()->isModule())
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 // (e, d)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4780 VarExp *ve;
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 ve = new VarExp(e->loc, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4783 e = new CommaExp(e->loc, e, ve);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4784 e->type = d->type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4785 return e;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4788 de = new DotVarExp(e->loc, e, d);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4789 return de->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4790 }
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 ClassDeclaration *TypeClass::isClassHandle()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4793 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4794 return sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4795 }
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 int TypeClass::isauto()
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 return sym->isauto;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4800 }
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 int TypeClass::isBaseOf(Type *t, int *poffset)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4803 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4804 if (t->ty == Tclass)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4805 { ClassDeclaration *cd;
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 cd = ((TypeClass *)t)->sym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4808 if (sym->isBaseOf(cd, poffset))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4809 return 1;
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 return 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4812 }
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 MATCH TypeClass::implicitConvTo(Type *to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4815 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4816 //printf("TypeClass::implicitConvTo('%s')\n", to->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4817 if (this == to)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4818 return MATCHexact;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4819
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4820 ClassDeclaration *cdto = to->isClassHandle();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4821 if (cdto && cdto->isBaseOf(sym, NULL))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4822 { //printf("is base\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4823 return MATCHconvert;
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 if (global.params.Dversion == 1)
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 // Allow conversion to (void *)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4829 if (to->ty == Tpointer && to->next->ty == Tvoid)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4830 return MATCHconvert;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4831 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4832
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4833 return MATCHnomatch;
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 Expression *TypeClass::defaultInit(Loc loc)
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 #if LOGDEFAULTINIT
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4839 printf("TypeClass::defaultInit() '%s'\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4840 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4841 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4842 e = new NullExp(loc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4843 e->type = this;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4844 return e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4845 }
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 int TypeClass::isZeroInit()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4848 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4849 return 1;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4852 int TypeClass::checkBoolean()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4853 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4854 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4855 }
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 int TypeClass::hasPointers()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4858 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4859 return TRUE;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4860 }
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 /***************************** TypeTuple *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4863
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4864 TypeTuple::TypeTuple(Arguments *arguments)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4865 : Type(Ttuple, NULL)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4866 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4867 //printf("TypeTuple(this = %p)\n", this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4868 this->arguments = arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4869 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4870 if (arguments)
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 for (size_t i = 0; i < arguments->dim; i++)
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 Argument *arg = (Argument *)arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4875 assert(arg && arg->type);
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4878 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4879 }
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 /****************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4882 * Form TypeTuple from the types of the expressions.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4883 * Assume exps[] is already tuple expanded.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4884 */
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 TypeTuple::TypeTuple(Expressions *exps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4887 : Type(Ttuple, 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 Arguments *arguments = new Arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4890 if (exps)
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 arguments->setDim(exps->dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4893 for (size_t i = 0; i < exps->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4894 { Expression *e = (Expression *)exps->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4895 if (e->type->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4896 e->error("cannot form tuple of tuples");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4897 Argument *arg = new Argument(STCin, e->type, NULL, NULL);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4898 arguments->data[i] = (void *)arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4899 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4900 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4901 this->arguments = arguments;
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 Type *TypeTuple::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4905 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4906 Arguments *args = Argument::arraySyntaxCopy(arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4907 Type *t = new TypeTuple(args);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4908 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4909 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4910
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4911 Type *TypeTuple::semantic(Loc loc, Scope *sc)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4912 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4913 //printf("TypeTuple::semantic(this = %p)\n", this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4914 if (!deco)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4915 deco = merge()->deco;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4916
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4917 /* Don't return merge(), because a tuple with one type has the
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4918 * same deco as that type.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4919 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4920 return this;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4923 int TypeTuple::equals(Object *o)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4924 { Type *t;
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 t = (Type *)o;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4927 //printf("TypeTuple::equals(%s, %s)\n", toChars(), t->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4928 if (this == t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4929 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4930 return 1;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4931 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4932 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4933 { TypeTuple *tt = (TypeTuple *)t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4934
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4935 if (arguments->dim == tt->arguments->dim)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4936 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4937 for (size_t i = 0; i < tt->arguments->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4938 { Argument *arg1 = (Argument *)arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4939 Argument *arg2 = (Argument *)tt->arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4940
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4941 if (!arg1->type->equals(arg2->type))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4942 return 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4943 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4944 return 1;
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4947 return 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4948 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4949
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4950 Type *TypeTuple::reliesOnTident()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4951 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4952 if (arguments)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4953 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4954 for (size_t i = 0; i < arguments->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4955 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4956 Argument *arg = (Argument *)arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4957 Type *t = arg->type->reliesOnTident();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4958 if (t)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4959 return t;
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4962 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4963 }
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 void TypeTuple::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4966 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4967 Argument::argsToCBuffer(buf, hgs, arguments, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4968 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4969
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4970 void TypeTuple::toDecoBuffer(OutBuffer *buf)
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 //printf("TypeTuple::toDecoBuffer() this = %p\n", this);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4973 OutBuffer buf2;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4974 Argument::argsToDecoBuffer(&buf2, arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4975 unsigned len = buf2.offset;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4976 buf->printf("%c%d%.*s", mangleChar[ty], len, len, (char *)buf2.extractData());
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4979 Expression *TypeTuple::getProperty(Loc loc, Identifier *ident)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4980 { Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4981
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4982 #if LOGDOTEXP
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4983 printf("TypeTuple::getProperty(type = '%s', ident = '%s')\n", toChars(), ident->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4984 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4985 if (ident == Id::length)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4986 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4987 e = new IntegerExp(loc, arguments->dim, Type::tsize_t);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4988 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4989 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4990 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4991 error(loc, "no property '%s' for tuple '%s'", ident->toChars(), toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4992 e = new IntegerExp(loc, 1, Type::tint32);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4993 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4994 return e;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4997 /***************************** TypeSlice *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4998
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
4999 /* This is so we can slice a TypeTuple */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5000
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5001 TypeSlice::TypeSlice(Type *next, Expression *lwr, Expression *upr)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5002 : Type(Tslice, next)
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 //printf("TypeSlice[%s .. %s]\n", lwr->toChars(), upr->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5005 this->lwr = lwr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5006 this->upr = upr;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5007 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5008
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5009 Type *TypeSlice::syntaxCopy()
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 Type *t = new TypeSlice(next->syntaxCopy(), lwr->syntaxCopy(), upr->syntaxCopy());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5012 return t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5013 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5014
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5015 Type *TypeSlice::semantic(Loc loc, Scope *sc)
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 //printf("TypeSlice::semantic() %s\n", toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5018 next = next->semantic(loc, sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5019 //printf("next: %s\n", next->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5020
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5021 Type *tbn = next->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5022 if (tbn->ty != Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5023 { error(loc, "can only slice tuple types, not %s", tbn->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5024 return Type::terror;
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 TypeTuple *tt = (TypeTuple *)tbn;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5027
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5028 lwr = semanticLength(sc, tbn, lwr);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5029 lwr = lwr->optimize(WANTvalue);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5030 uinteger_t i1 = lwr->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5031
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5032 upr = semanticLength(sc, tbn, upr);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5033 upr = upr->optimize(WANTvalue);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5034 uinteger_t i2 = upr->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5035
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5036 if (!(i1 <= i2 && i2 <= tt->arguments->dim))
305
2b72433d5c8c [svn r326] Fixed a bunch of issues with printf's that MinGW32 did not support.
lindquist
parents: 285
diff changeset
5037 { error(loc, "slice [%llu..%llu] is out of range of [0..%u]", i1, i2, tt->arguments->dim);
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5038 return Type::terror;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5041 Arguments *args = new Arguments;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5042 args->reserve(i2 - i1);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5043 for (size_t i = i1; i < i2; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5044 { Argument *arg = (Argument *)tt->arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5045 args->push(arg);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5046 }
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 return new TypeTuple(args);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5049 }
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 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
5052 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5053 next->resolve(loc, sc, pe, pt, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5054 if (*pe)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5055 { // It's really a slice expression
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5056 Expression *e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5057 e = new SliceExp(loc, *pe, lwr, upr);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5058 *pe = e;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5059 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5060 else if (*ps)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5061 { Dsymbol *s = *ps;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5062 TupleDeclaration *td = s->isTupleDeclaration();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5063 if (td)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5064 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5065 /* It's a slice of a TupleDeclaration
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5066 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5067 ScopeDsymbol *sym = new ArrayScopeSymbol(td);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5068 sym->parent = sc->scopesym;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5069 sc = sc->push(sym);
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 lwr = lwr->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5072 lwr = lwr->optimize(WANTvalue);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5073 uinteger_t i1 = lwr->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5074
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5075 upr = upr->semantic(sc);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5076 upr = upr->optimize(WANTvalue);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5077 uinteger_t i2 = upr->toUInteger();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5078
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5079 sc = sc->pop();
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 if (!(i1 <= i2 && i2 <= td->objects->dim))
305
2b72433d5c8c [svn r326] Fixed a bunch of issues with printf's that MinGW32 did not support.
lindquist
parents: 285
diff changeset
5082 { error(loc, "slice [%llu..%llu] is out of range of [0..%u]", i1, i2, td->objects->dim);
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5083 goto Ldefault;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5086 if (i1 == 0 && i2 == td->objects->dim)
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 *ps = td;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5089 return;
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5092 /* Create a new TupleDeclaration which
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5093 * is a slice [i1..i2] out of the old one.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5094 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5095 Objects *objects = new Objects;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5096 objects->setDim(i2 - i1);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5097 for (size_t i = 0; i < objects->dim; i++)
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 objects->data[i] = td->objects->data[(size_t)i1 + i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5100 }
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 TupleDeclaration *tds = new TupleDeclaration(loc, td->ident, objects);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5103 *ps = tds;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5104 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5105 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5106 goto Ldefault;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5107 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5108 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5109 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5110 Ldefault:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5111 Type::resolve(loc, sc, pe, pt, ps);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5112 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5113 }
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 void TypeSlice::toCBuffer2(OutBuffer *buf, HdrGenState *hgs, int mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5116 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5117 if (mod != this->mod)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5118 { toCBuffer3(buf, hgs, mod);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5119 return;
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 next->toCBuffer2(buf, hgs, this->mod);
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->printf("[%s .. ", lwr->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5124 buf->printf("%s]", upr->toChars());
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5125 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5126
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5127 /***************************** Argument *****************************/
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5128
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5129 Argument::Argument(unsigned storageClass, Type *type, Identifier *ident, Expression *defaultArg)
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 this->type = type;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5132 this->ident = ident;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5133 this->storageClass = storageClass;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5134 this->defaultArg = defaultArg;
217
0806379a5eca [svn r233] Added: -oq command line option for writing fully qualified object names.
lindquist
parents: 211
diff changeset
5135 this->llvmByVal = false;
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5136 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5137
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5138 Argument *Argument::syntaxCopy()
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5139 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5140 Argument *a = new Argument(storageClass,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5141 type ? type->syntaxCopy() : NULL,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5142 ident,
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5143 defaultArg ? defaultArg->syntaxCopy() : NULL);
217
0806379a5eca [svn r233] Added: -oq command line option for writing fully qualified object names.
lindquist
parents: 211
diff changeset
5144 a->llvmByVal = llvmByVal;
159
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5145 return a;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5146 }
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 Arguments *Argument::arraySyntaxCopy(Arguments *args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5149 { Arguments *a = NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5150
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5151 if (args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5152 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5153 a = new Arguments();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5154 a->setDim(args->dim);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5155 for (size_t i = 0; i < a->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5156 { Argument *arg = (Argument *)args->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5157
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5158 arg = arg->syntaxCopy();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5159 a->data[i] = (void *)arg;
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5162 return a;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5163 }
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 char *Argument::argsTypesToChars(Arguments *args, int varargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5166 { OutBuffer *buf;
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 buf = new OutBuffer();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5169
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5170 buf->writeByte('(');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5171 if (args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5172 { int i;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5173 OutBuffer argbuf;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5174 HdrGenState hgs;
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 for (i = 0; i < args->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5177 { Argument *arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5178
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5179 if (i)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5180 buf->writeByte(',');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5181 arg = (Argument *)args->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5182 argbuf.reset();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5183 arg->type->toCBuffer2(&argbuf, &hgs, 0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5184 buf->write(&argbuf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5185 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5186 if (varargs)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5187 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5188 if (i && varargs == 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5189 buf->writeByte(',');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5190 buf->writestring("...");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5191 }
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 buf->writeByte(')');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5194
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5195 return buf->toChars();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5196 }
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 void Argument::argsToCBuffer(OutBuffer *buf, HdrGenState *hgs, Arguments *arguments, int varargs)
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 buf->writeByte('(');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5201 if (arguments)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5202 { int i;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5203 OutBuffer argbuf;
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 for (i = 0; i < arguments->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5206 { Argument *arg;
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 if (i)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5209 buf->writestring(", ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5210 arg = (Argument *)arguments->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5211 if (arg->storageClass & STCout)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5212 buf->writestring("out ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5213 else if (arg->storageClass & STCref)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5214 buf->writestring((global.params.Dversion == 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5215 ? (char *)"inout " : (char *)"ref ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5216 else if (arg->storageClass & STClazy)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5217 buf->writestring("lazy ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5218 argbuf.reset();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5219 arg->type->toCBuffer(&argbuf, arg->ident, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5220 if (arg->defaultArg)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5221 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5222 argbuf.writestring(" = ");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5223 arg->defaultArg->toCBuffer(&argbuf, hgs);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5224 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5225 buf->write(&argbuf);
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 if (varargs)
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 if (i && varargs == 1)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5230 buf->writeByte(',');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5231 buf->writestring("...");
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 buf->writeByte(')');
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
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5237
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5238 void Argument::argsToDecoBuffer(OutBuffer *buf, Arguments *arguments)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5239 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5240 //printf("Argument::argsToDecoBuffer()\n");
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5241
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5242 // Write argument types
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5243 if (arguments)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5244 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5245 size_t dim = Argument::dim(arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5246 for (size_t i = 0; i < dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5247 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5248 Argument *arg = Argument::getNth(arguments, i);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5249 arg->toDecoBuffer(buf);
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 }
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 * Determine if parameter is a lazy array of delegates.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5256 * If so, return the return type of those delegates.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5257 * If not, return NULL.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5258 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5259
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5260 Type *Argument::isLazyArray()
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 // if (inout == Lazy)
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 Type *tb = type->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5265 if (tb->ty == Tsarray || tb->ty == Tarray)
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 Type *tel = tb->next->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5268 if (tel->ty == Tdelegate)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5269 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5270 TypeDelegate *td = (TypeDelegate *)tel;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5271 TypeFunction *tf = (TypeFunction *)td->next;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5272
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5273 if (!tf->varargs && Argument::dim(tf->parameters) == 0)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5274 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5275 return tf->next; // return type of delegate
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5276 }
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 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5279 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5280 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5281 }
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 void Argument::toDecoBuffer(OutBuffer *buf)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5284 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5285 switch (storageClass & (STCin | STCout | STCref | STClazy))
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5286 { case 0:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5287 case STCin:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5288 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5289 case STCout:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5290 buf->writeByte('J');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5291 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5292 case STCref:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5293 buf->writeByte('K');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5294 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5295 case STClazy:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5296 buf->writeByte('L');
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5297 break;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5298 default:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5299 #ifdef DEBUG
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5300 halt();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5301 #endif
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5302 assert(0);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5303 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5304 type->toDecoBuffer(buf);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5305 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5306
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5307 /***************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5308 * Determine number of arguments, folding in tuples.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5309 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5310
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5311 size_t Argument::dim(Arguments *args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5312 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5313 size_t n = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5314 if (args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5315 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5316 for (size_t i = 0; i < args->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5317 { Argument *arg = (Argument *)args->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5318 Type *t = arg->type->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5319
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5320 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5321 { TypeTuple *tu = (TypeTuple *)t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5322 n += dim(tu->arguments);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5323 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5324 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5325 n++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5326 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5327 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5328 return n;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5329 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5330
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5331 /***************************************
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5332 * Get nth Argument, folding in tuples.
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5333 * Returns:
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5334 * Argument* nth Argument
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5335 * NULL not found, *pn gets incremented by the number
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5336 * of Arguments
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5337 */
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5338
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5339 Argument *Argument::getNth(Arguments *args, size_t nth, size_t *pn)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5340 {
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5341 if (!args)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5342 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5343
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5344 size_t n = 0;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5345 for (size_t i = 0; i < args->dim; i++)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5346 { Argument *arg = (Argument *)args->data[i];
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5347 Type *t = arg->type->toBasetype();
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5348
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5349 if (t->ty == Ttuple)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5350 { TypeTuple *tu = (TypeTuple *)t;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5351 arg = getNth(tu->arguments, nth - n, &n);
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5352 if (arg)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5353 return arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5354 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5355 else if (n == nth)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5356 return arg;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5357 else
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5358 n++;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5359 }
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5360
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5361 if (pn)
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5362 *pn += n;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5363 return NULL;
5acec6b2eef8 [svn r175] merged dmd 1.029
ChristianK
parents: 157
diff changeset
5364 }